With this code, when i move or resize the window the counter stop
Code: Select all
OpenWindow(0, 100, 100, 200, 200, "Change during move", #PB_Window_ScreenCentered|#PB_Window_SizeGadget)
TextGadget(0, 10, 10, 100, 20, "")
Repeat
Evenement = WaitWindowEvent(100)
i + 1
SetGadgetText(0, "Texte number " + Trim(Str(i)))
Until Evenement = #PB_Event_CloseWindow
Code: Select all
#Timer1 = 1
Procedure CallBack(hWnd, Msg, wParam, lParam)
Static i
Select Msg
Case #WM_TIMER
If wParam = #Timer1
i + 1
SetGadgetText(0, "Texte number " + Trim(Str(i)))
EndIf
EndSelect
EndProcedure
OpenWindow(0, 100, 100, 200, 200, "Change during move", #PB_Window_ScreenCentered|#PB_Window_SizeGadget)
TextGadget(0, 10, 10, 100, 20, "")
SetTimer_(WindowID(0), #Timer1, 500, @CallBack()) ; envoie un evenement toutes les 500 millisecondes
Repeat
Evenement = WindowEvent()
Delay(1)
Until Evenement = #PB_Event_CloseWindow
Have a good day