J'ai voulu faire une fenêtre qui s'adapte à la résolution d'écran, mais ma bare d'état n'aparait pas.
Comment cela se fait-il?
Code : Tout sélectionner
If ExamineDesktops()
Hauteure=DesktopHeight(0)
Largeure=DesktopWidth(0)
If OpenWindow(0,0,0,Largeure,Hauteure,#pb_window_minimizegadget|#pb_window_maximizegadget|#pb_window_sizegadget|#pb_window_systemmenu|#pb_window_titlebar|#pb_window_screencentered,"Le Monde de Gansta93 Navigateur") And CreateStatusBar(0,WindowID(0)) And CreateGadgetList(WindowID(0)) And CreateMenu(0,WindowID(0))
ButtonGadget(0,0,0,50,20,"Précédent")
AddKeyboardShortcut(0,#pb_shortcut_alt|#pb_shortcut_left,0)
ButtonGadget(1,71,0,40,20,"Suivant")
AddKeyboardShortcut(0,#pb_shortcut_alt|#pb_shortcut_right,1)
ButtonGadget(2,120,0,50,20,"Recharger")
AddKeyboardShortcut(0,#pb_shortcut_f5,2)
ButtonGadget(3,261,0,40,20,"Arrêter")
AddKeyboardShortcut(0,#pb_shortcut_escape,3)
WebGadget(4,0,22,Largeure,Hauteure-70,"http://www.gansta93.com")
Repeat
ActivateGadget(4)
StatusBarText(0,0,GetGadgetText(4))
Select WaitWindowEvent()
Case #pb_eventgadget
Select EventGadgetID()
Case 0
SetGadgetState(4,#pb_web_back)
Case 1
SetGadgetState(4,#pb_web_forward)
Case 2
SetGadgetState(4,#pb_web_refresh)
Case 3
SetGadgetState(4,#pb_web_stop)
EndSelect
Case #pb_eventmenu
Select EventMenuID()
Case 0
SetGadgetState(4,#pb_web_back)
Case 1
SetGadgetState(4,#pb_web_forward)
Case 2
SetGadgetState(4,#pb_web_refresh)
Case 3
SetGadgetState(4,#pb_web_stop)
EndSelect
Case #pb_EventCloseWindow
quit=1
EndSelect
Delay(20)
Until quit=1
Else
MessageRequester("Erreur","Erreur initialisation.",#mb_ok|#mb_iconstop)
EndIf
Else
MessageRequester("Erreur","Impossible d'optenire la résolution d'écran requise.",#mb_ok|#mb_iconstop)
EndIf
End
PS: dsl pour l'absance de mise en formes, mais j'ai pas PBSyntaxes sur moi et je ne peux pas le télécharger
