PureBasic Forums - English

Code: Select all

report\PrintWithDialog()

Code: Select all

Procedure check_for_print_dialog()
  
  Repeat
    ; find windows...
    Debug "checking"
  EnumWindows_(@EnumProcedure(), 0)  ; the 0 will be passed in Paremeter.l to the procedure
  Until EnumWindows_(@EnumProcedure(), 0) = 0
  
EndProcedure

Procedure.l EnumProcedure(WindowHandle.l, Parameter.l)
 
  ; get Title by windowhandle...
  Title$ = Space(200)
  GetWindowText_(WindowHandle, @Title$, 200)
 
  ; do whatever to check...
  If Title$ = "Print"
    
    ExamineDesktops()
    
    WindowRect.RECT
    GetWindowRect_(WindowHandle, WindowRect)
     
    x = (DesktopWidth(0)/2) - ((WindowRect\right - WindowRect\left)/2)
    y = (DesktopHeight(0)/2) - ((WindowRect\bottom - WindowRect\top)/2)
    
    SetWindowPos_(WindowHandle, #HWND_TOP, x, y, #NUL, #NUL, #SWP_NOSIZE); 
    BringWindowToTop_(WindowHandle)
    
    ; returning 0 will stop the search
    ProcedureReturn 0
  Else
 
    ; returning <> 0 will continue till all windows are searched
    ProcedureReturn 1
  EndIf
 
EndProcedure

Code: Select all

my_thread = CreateThread(@check_for_print_dialog(), 153)

Code: Select all

report\PrintWithDialog()