Fixed gui question

[blackey]

Is there a way using koda to create a gui and make it not movable, but keep it fixed at the specified coordinates?

Edited July 12, 2007 by blackey

[Monamo]

Is there a way using koda to create a gui and make it not movable, but keep it fixed at the specified coordinates?

Didn't use Koda, but here's a method from scratch you can try:

#include <GUIConstants.au3>

$iWidth=500
$iHeight=450
$iXPos = Int(@DesktopWidth/2-$iWidth/2)
$iYPos = Int(@DesktopHeight/2-$iHeight/2)
GUICreate("ImmobileGUI",$iWidth,$iHeight,$iXPos,$iYPos)
GUISetState (@SW_SHOW)

$location=WinGetPos("ImmobileGUI")

While 1
    $newlocation=WinGetPos("ImmobileGUI")
    If $newlocation[0] <> $location[0] Or $newlocation[1] <> $location[1] Then
        WinMove("ImmobileGUI","",$iXPos,$iYPos)
    EndIf
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

Tested with a mild flicker when attempting to move the window, but it essentially "locks" the window position.

[rover]

Another method, no title bar or min, max or exit buttons

use gui buttons or hotkeys to control

; ESC key to exit

#include <Constants.au3>
#include <GUIConstants.au3>

HotKeySet("{ESC}", "ExitNow")           ; ESC   - Exit Program

$WINDOWWIDTH = 500
$WINDOWHEIGHT = 100
$WINDOWLOCATIONX = (@DesktopWidth - $WINDOWWIDTH) / 2
$WINDOWLOCATIONY = (@DesktopHeight - $WINDOWHEIGHT) / 2

GUICreate("Imovable GUI Example", $WINDOWWIDTH, $WINDOWHEIGHT, $WINDOWLOCATIONX, $WINDOWLOCATIONY, BitOr($WS_POPUP,$WS_DLGFRAME),$WS_EX_TOOLWINDOW)
GUICtrlCreateLabel("Imovable GUI Example - Press ESC To Exit", 10, 10, 250,16, $SS_LEFTNOWORDWRAP)
GUICtrlSetFont(-1, 9, 4, '', 'ARIAL BOLD')
GUICtrlSetColor(-1, 0x000000)
GUISetState()

While 1
    
WEnd

Func ExitNow()
    GUIDelete()
    Exit
EndFunc

[blackey]

Thank you guys this is perfect!