Graphics3D, 1920,1080,0,1     ;16:9

Graphics3D 1280,720,0,1        ; 16:9

Graphics3D 1280,720,0,3
AppTitle "WindowTitle"
Line 0,0,100,0
Line 0,0,0,100
Line 0,0,1279,720
Line 1279,719,1180,719
Line 1279,719,1279,620
;ExecFile "e:\ScaleWindow_and_Set_OnTop.ahk"
WaitKey
End

WinMove, WindowTitle, , -5, -30 , A_ScreenWidth + 10, A_ScreenHeight+35
WinSet, AlwaysOnTop, On , WindowTitle

SetWindowLong(hwnd, -16, $10000000)

ScreenBreite = apiGetSystemMetrics(0)
ScreenHoehe = apiGetSystemMetrics(1) - 60
TempFaktor1# = 1024.0 / 708.0
TempFaktor2 = ScreenHoehe * TempFaktor1#
Graphics3D TempFaktor2, ScreenHoehe, 0, 2
Graphics3D 1024, 708, 0, 3

.lib "user32.dll"
apiGetSystemMetrics%(nIndex) : "GetSystemMetrics"

; Fake-Fullscreen (Win+F)

#f::

WinGet, WindowID, ID, A
; oder    WinGet, WindowID, ID, Name_Des_BlitzbasicFensters_Im_Fenstermodus3
WinGet, Style, Style, ahk_id %WindowID%

; If true, blow up the window, otherwise restore it.
If (Style & 0xC40000)

{
        ; Get the window geometry and save it with the window ID for later.
        WinGetPos, PosX_%WindowID%, PosY_%WindowID%, W_%WindowID%, H_%WindowID%, ahk_id %WindowID%
   
        ; Figure out the center.
        xc := PosX_%WindowID% + W_%WindowID%/2
        yc := PosY_%WindowID% + H_%WindowID%/2

        ; Now get the monitor the window center is on.
        MID := FindMonitor(xc, yc)
        SysGet, mn, Monitor, %MID%
       
        ; Calculate monitor size.
        mnWidth := mnRight - mnLeft
     
        mnHeight := mnBottom - mnTop

        ; Now, remove the window caption and border, and move the window to fill
        ; the whole monitor.
        WinSet, Style, -0xC40000, ahk_id %WindowID%
        WinMove, ahk_id %WindowID%, , %mnLeft%, %mnTop%, %mnWidth%, %mnHeight%
}
Else
{
        ; First, get back the caption and border.
        WinSet, Style, +0xC40000, ahk_id %WindowID%     

        ; Now, if we have variables for the window, restore its position, otherwise
        ; fall back to moving it to a visible spot. This should never happen though.

        If (H_%WindowID% <> 0)
        {
                WinMove, ahk_id %WindowID%, , PosX_%WindowID%, PosY_%WindowID%, W_%WindowID%, H_%WindowID%
        }
        Else
   
        {
                WinMove, ahk_id %WindowID%, , 50, 50, 500, 500     
        }
}

return

 

; Helper Functions

FindMonitor(xc, yc)
{
        SysGet, mc, MonitorCount 
        Loop, %mc%     
        {   
                SysGet, moni, Monitor, %A_Index%
                if (xc >= moniLeft and xc <= moniRight and yc >= moniTop and yc <= moniBottom)
                {
                        return %A_Index%
                        return %A_Index%
                }
        }
        return 0
}

; get window handle
Local hwnd = SystemProperty("AppHWND")

; set graphics mode
Graphics3D(1920, 1080, 0, 2)

; disable window border
SetWindowLong(hwnd, -16, $10000000)

; move window to correct position
MoveWindow(hwnd, 0, 0, 1920, 1080, True)

; from here on, random program code
SetBuffer(BackBuffer())

Repeat
	
	Local c = (Sin(MilliSecs() * 0.1) + 1) * 127
	
	ClsColor(c, c, c)
	
	Cls
	
	Flip(0)
	Delay(5)
	
Until KeyHit(1)

End

.lib "user32.dll"

SetWindowLong% (hwnd%, nIndex%, dwNewLong%) : "SetWindowLongA"
MoveWindow% (hwnd%, x%, y%, nWidth%, nHeight%, bRepaint%) : "MoveWindow"

Graphics3D 0,0, 32, 1