Code : Tout sélectionner
Procedure Affiche(libelle.s )
If OpenWindow(0,0,0,370,100,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Information ProdiCIC PLus V5.1.17") And CreateGadgetList(WindowID(0))
SetWindowPos_(WindowID(), -1, 0, 0, 0, 0, #SWP_NOSIZE | #SWP_NOMOVE)
If LoadFont(1, "@MS arial", 10,#PB_Font_HighQuality | #PB_Font_Bold)
SetGadgetFont(#PB_Default,FontID()) ; Set the loaded Arial 16 font as new standard
EndIf
ButtonGadget(1,160, 70, 60, 20, "&OK",#PB_Button_Toggle )
TextGadget(0, 10, 10,360,80,libelle)
Repeat
EventID.l = WaitWindowEvent()
Select EventID
Case #PB_EventCloseWindow
Break
Case #PB_EventGadget ;Per Maus
Break
EndSelect
ForEver
CloseWindow(0)
EndIf
EndProcedure
Quelqu'un aurait-il une solution