Code: Select all
Procedure MouseEvent( );*Gadget )
Protected DesktopMouseX = DesktopMouseX()
Protected DesktopMouseY = DesktopMouseY()
ProcedureReturn
EndProcedure
Procedure ClickState()
Protected MouseEvent = MouseEvent( )
Debug "Thread"
EndProcedure
;-
Structure ThreadStruct
Window.i
Thread.i
Delay.i
EndStructure
Procedure ThreadCallBack( *This.ThreadStruct )
With *This
While IsWindow( \Window )
Delay(\Delay)
ClickState()
Wend
KillThread(\Thread)
EndWith
EndProcedure
Procedure Activate( MainWindow, Delay )
Protected *Thread.ThreadStruct = AllocateMemory( SizeOf( ThreadStruct ))
*Thread\Thread = CreateThread( @ThreadCallBack(), *Thread )
*Thread\Window = MainWindow
*Thread\Delay = Delay
EndProcedure
OpenWindow(10, 30, 30, 250, 150, "demo",#PB_Window_SystemMenu)
Activate( 10,15 )
While IsWindow(10)
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
CloseWindow( EventWindow() )
EndSelect
Wend
; IDE Options = PureBasic 5.42 LTS (Linux - x86)
; CursorPosition = 34
; FirstLine = 26
; Folding = --
; EnableUnicode
; EnableXP