| 1 | #include <WindowsConstants.au3> |
|---|
| 2 | |
|---|
| 3 | Local $DemoWindow, $WindowInfo, $DebugNotes |
|---|
| 4 | $DebugNotes = "Window with DEFAULT (-1) Style: " & @CRLF |
|---|
| 5 | |
|---|
| 6 | $DemoWindow = GUICreate("Demo Window", 640, 480, -1, -1, -1) |
|---|
| 7 | $WindowInfo = WinGetClientSize($DemoWindow) |
|---|
| 8 | $DebugNotes&= " GUICreate [640x480]: Client Area is " & $WindowInfo[0] & "x" & $WindowInfo[1] |
|---|
| 9 | $WindowInfo = WinGetPos($DemoWindow) |
|---|
| 10 | $DebugNotes&= " because it actually is " & $WindowInfo[2] & "x" & $WindowInfo[3] & @CRLF |
|---|
| 11 | |
|---|
| 12 | WinMove($DemoWindow, "", $WindowInfo[0], $WindowInfo[1], 640, 480) |
|---|
| 13 | $WindowInfo = WinGetClientSize($DemoWindow) |
|---|
| 14 | $DebugNotes&= " WinMove [640x480]: Client Area is " & $WindowInfo[0] & "x" & $WindowInfo[1] |
|---|
| 15 | $WindowInfo = WinGetPos($DemoWindow) |
|---|
| 16 | $DebugNotes&= " because it actually is " & $WindowInfo[2] & "x" & $WindowInfo[3] & @CRLF |
|---|
| 17 | |
|---|
| 18 | $DebugNotes&= @CRLF & "Window with $WS_SIZEBOX+$WS_SYSMENU Style: " & @CRLF |
|---|
| 19 | |
|---|
| 20 | $DemoWindow = GUICreate("Demo Window", 640, 480, -1, -1, $WS_SIZEBOX + $WS_SYSMENU) |
|---|
| 21 | $WindowInfo = WinGetClientSize($DemoWindow) |
|---|
| 22 | $DebugNotes&= " GUICreate [640x480]: Client Area is " & $WindowInfo[0] & "x" & $WindowInfo[1] |
|---|
| 23 | $WindowInfo = WinGetPos($DemoWindow) |
|---|
| 24 | $DebugNotes&= " because it actually is " & $WindowInfo[2] & "x" & $WindowInfo[3] & @CRLF |
|---|
| 25 | |
|---|
| 26 | WinMove($DemoWindow, "", $WindowInfo[0], $WindowInfo[1], 640, 480) |
|---|
| 27 | $WindowInfo = WinGetClientSize($DemoWindow) |
|---|
| 28 | $DebugNotes&= " WinMove [640x480]: Client Area is " & $WindowInfo[0] & "x" & $WindowInfo[1] |
|---|
| 29 | $WindowInfo = WinGetPos($DemoWindow) |
|---|
| 30 | $DebugNotes&= " because it actually is " & $WindowInfo[2] & "x" & $WindowInfo[3] & @CRLF |
|---|
| 31 | |
|---|
| 32 | ConsoleWrite($DebugNotes) |
|---|
