Ajoute un bouton standard à la barre d'outils en cours de construction. La fonction
CreateToolBar() doit avoir été appelée avant d'utiliser cette fonction. Un bouton
standard est une icône disponible dans le système d'exploitation. La constante
IconeBouton doit être l'une des constantes suivantes :
#PB_ToolBarIcon_New (Nouveau fichier)
#PB_ToolBarIcon_Open (Ouvre Fichier)
#PB_ToolBarIcon_Save (Enregistre Fichier)
#PB_ToolBarIcon_Print (Imprime)
#PB_ToolBarIcon_PrintPreview (Aperçu avant impression)
#PB_ToolBarIcon_Find (Cherche une occurence)
#PB_ToolBarIcon_Replace (Remplace une occurence)
#PB_ToolBarIcon_Cut (Couper)
#PB_ToolBarIcon_Copy (Copier)
#PB_ToolBarIcon_Paste (Coller)
#PB_ToolBarIcon_Undo (Annule l'action)
#PB_ToolBarIcon_Redo (Repète l'action)
#PB_ToolBarIcon_Delete (Efface)
#PB_ToolBarIcon_Properties (Propriétés)
#PB_ToolBarIcon_Help (Aide)
Le paramètre factultatif 'Mode' peut prendre l'une des valeurs suivantes:
#PB_ToolBar_Normal: le bouton sera un bouton standard (mode par défaut)
#PB_ToolBar_Toggle: le bouton sera un bouton de type switch (soit enfoncé, soit relâché)
Les commandes GetToolBarButtonState() et
SetToolBarButtonState() permettent de charger l'état d'un bouton de
type #PB_ToolBar_Toggle.
La détection des évènements sur les barres d'outils est similaire à celle des menus, et nécessite
donc la commande EventMenu().
If OpenWindow(0, 0, 0, 150, 25, "Barre d'outils", #PB_Window_SystemMenu |#PB_Window_ScreenCentered)
If CreateToolBar(0, WindowID(0))
ToolBarStandardButton(0, #PB_ToolBarIcon_New)
ToolBarStandardButton(1, #PB_ToolBarIcon_Open)
ToolBarStandardButton(2, #PB_ToolBarIcon_Save)
EndIf
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Menu
Debug "Identifiant de la barre d'outils : "+Str(EventMenu())
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
