Code : Tout sélectionner
Procedure.c RefreshWindow(NumWindow)
; rafraichir une fenêtre par Ar-S / 2011
Protected Refresh_It.c
Refresh_It = RedrawWindow_(WindowID(NumWindow),0,0,#RDW_UPDATENOW)
If Refresh_It = #False
ProcedureReturn 0
Else
ProcedureReturn 1
EndIf
EndProcedure
; Example
If OpenWindow(0, 614, 185, 500, 126, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
ButtonGadget(1, 310, 10, 175, 24, "Rafraichir")
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 1
Rafraichir=RefreshWindow(0)
; Si résultat = 0 echec sinon resultat = 1
Debug Rafraichir
EndSelect
Case #PB_Event_CloseWindow
Select EventWindow()
Case 0
quite = 1
EndSelect
EndSelect
Until quite = 1
CloseWindow(0)
End
EndIf
J'ai ajouté la commande dans ma compile de Libs (Ar-S Libs) disponible ICI