PureBasic Forums - English

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