3 replies to this topic

[MrCreatoR]

Ok, a while ago, i reported about this bug, when user draging the window, the whole script is paused...

So here is (i hope temporary) solution:

AutoIt        expandcollapse  popup

#include <GuiDragable.au3>
#include <Guiconstants.au3>

Dim $LeftPos

$GuihWnd = _GuiDragableCreate("Drag GUI Demo", 300, 150, -1, -1)
GUISetBkColor(0xffffff)

$ExampleLabel = GUICtrlCreateLabel("Drag Me (but not by controls) ;)", 0, 60, 250, 20)
GUICtrlSetFont(-1, 12, 600, 0, "Tahoma")
GUICtrlSetColor(-1, 0xDD0000)

AdlibEnable("Example", 50)

DllCall("User32.dll", "long", "AnimateWindow", "hwnd", $GuihWnd, "long", 300, "long", 0x10)
GUISetState()

While 1
    Sleep(10)
WEnd

Func Example()
    $LeftPos += 3
    GUICtrlSetPos($ExampleLabel, $LeftPos, 60)
    If $LeftPos >= 300 Then $LeftPos = -250
EndFunc

You will need this include -  GuiDragable.au3   2.36K   738 downloads

When you drag the gui by pressing at any place on gui (except on controls, witch is what we want), you see that the "runing text" is still runing
I know that this not perfect, the title isn't so original, but hey, in some cases, this is better then paused script while user draging the window (BTW: it's not only when draging, it's also when resizing, hold close/minimize/maximize button, and when you open any menus).

EDIT: The function DragWindow() isn't myne, i only made a litle editing in it.

P.S
If somone know a way that title can be not disabled (as in my example), and the buttons of closing/minimizing/maximizing will be clickable, please tell me, i can not find a solution for that :"> .

Edited by MsCreatoR, 19 May 2007 - 02:39 AM.

[WeMartiansAreFriendly]

Thats really neat, good job.

[Gif]

Thats really neat, good job.

small but functionable script, nice

[Manadar]

That's brilliant!!