plein ecran
Publié : lun. 24/oct./2005 14:25
je sais que cette question est bète, mais sa fait depuis longtemps que je cherche comment créer une fenêtre pleins écran?
Ben oui, mais comme il ne dit rien, va savoir...Dr. Dri a écrit :@Chris
peut être qu'il veut être en plein écran avec des gadgets... auquel cas il faut créer une fenetre sans bordure de la taille de l'écran et la mettre "always on top"
Dri
Code : Tout sélectionner
#Window = 0
#Btn = 0
If ExamineDesktops()
Width = DesktopWidth(0)
Height = DesktopHeight(0)
EndIf
;- Ouverture de la fenêtre et de l'écran
hwnd = OpenWindow(#Window, 0, 0, Width, Height, #PB_Window_BorderLess, "")
If CreateGadgetList(WindowID())
ButtonGadget(#Btn, 20, 20, 100, 20, "Quitter")
EndIf
Repeat
Select WaitWindowEvent()
Case #PB_EventGadget
Select EventGadgetID()
Case #Btn : quit = 1
EndSelect
EndSelect
Until quit = 1
End