Hauteur Menu et StatuBar
Publié : mer. 27/mars/2013 20:43
Bonjour a tous !
J'ai besoin de connaître la hauteur d'un menu et dune StatuBar !
Pour le Menu, il y a MenuHeight() !
Seulement voilà, ça veut pas marché ! Es-ce que c'est moi qui foire ?
Je suis sous linux, et je pensais que cette commande était bien supportée (selon la doc )
Si vous pouviez tester le code qui suit et me dire où ça bug (moi ou autre)
Pour la hauteur d'une StatuBar, j'ai pas trouvé (ou j'ai mal vu)
Si quelqu'un a une solution "multiplateforme" ! Merci d'avance
Merci de tester !
Ulix
J'ai besoin de connaître la hauteur d'un menu et dune StatuBar !
Pour le Menu, il y a MenuHeight() !
Seulement voilà, ça veut pas marché ! Es-ce que c'est moi qui foire ?
Je suis sous linux, et je pensais que cette commande était bien supportée (selon la doc )
Si vous pouviez tester le code qui suit et me dire où ça bug (moi ou autre)
Pour la hauteur d'une StatuBar, j'ai pas trouvé (ou j'ai mal vu)
Si quelqu'un a une solution "multiplateforme" ! Merci d'avance
Code : Tout sélectionner
Enumeration
#f1
#BoutonQuitter
#StatusBar
#Menu
EndEnumeration
If OpenWindow(#f1, 0, 0, 500, 200, " Hauteur Menu et statusBar ??",#PB_Window_SystemMenu)
ButtonGadget(#BoutonQuitter, 100, 100, 100, 25, "Quitter")
If CreateMenu(#Menu, WindowID(#f1))
MenuTitle("Project")
EndIf
If CreateStatusBar(#StatusBar, WindowID(#f1))
AddStatusBarField(#PB_Ignore)
EndIf
; Hauteur d'un menu
HautMenu = MenuHeight()
Debug HautMenu
; Hauteur d'une statuBar ????
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #BoutonQuitter : quit = 1
EndSelect
Case #PB_Event_CloseWindow : quit = 1
EndSelect
Until quit = 1
End
EndIf
Merci de tester !
Ulix