Forums PureBasic - Français
http://forums.purebasic.com/french/
Apparamment c'est possible avec un SendMessage_().MSDN a écrit :Toolbar styles Description
TBSTYLE_AUTOSIZE Calculates a button width based on the text of the button, not on the size of the image.
TBSTYLE_BUTTON Creates a toolbar button that looks like a standard Windows CE push button.
TBSTYLE_CHECK Creates a button that toggles between the pressed and not pressed states each time the user clicks it. The button has a different background color when it is in the pressed state.
TBSTYLE_CHECKGROUP Creates a check button that stays pressed until another button in the group is pressed.
TBSTYLE_CUSTOMERASE Creates a toolbar that generates NM_CUSTOMDRAW notification messages when it processes WM_ERASEBKGND messages.
TBSTYLE_DROPDOWN Creates a drop-down list button.
TBSTYLE_FLAT Creates a flat toolbar, in which both the toolbar and the buttons are transparent. Button text appears under button bitmaps.
TBSTYLE_GROUP Creates a button that stays pressed until another button in the group is pressed.
TBSTYLE_LIST Places button text to the right of button bitmaps. This style can only be used with the TBSTYLE_FLAT style. In Windows CE, the TBSTYLE_LIST style creates a toolbar with variable width buttons. If you want to use the TBSTYLE_LIST style with fixed width buttons, you can override the default behavior by sending a TB_SETBUTTONSIZE or TB_SETBUTTONWIDTH message.
TBSTYLE_SEP Creates a separator, which provides a small gap between button groups. A button that has this style does not receive user input.
TBSTYLE_TOOLTIPS Creates a ToolTip control that an application can use to display descriptive text for the buttons in the toolbar.
TBSTYLE_TRANSPARENT Creates a transparent toolbar, in which the toolbar is transparent, but the buttons are not. Button text appears under button bitmaps.
TBSTYLE_WRAPABLE Creates a toolbar that can have multiple rows of buttons. Toolbar buttons can wrap to the next line when the toolbar becomes too narrow to include all buttons on the same line. Wrapping occurs on separation and non-group boundaries.
)Code : Tout sélectionner
ListeIcone$(#Icone_Nouveau) = "Icônes\New Doc.ico"
ListeIcone$(#Icone_Ouvrir) = "Icônes\Browse 3.ico"
ListeIcone$(#Icone_Sauver) = "Icônes\Save.ico"
ListeIcone$(#Icone_Couper) = "Icônes\Cut.ico"
ListeIcone$(#Icone_Copier) = "Icônes\Copy.ico"
ListeIcone$(#Icone_Coller) = "Icônes\Paste.ico"
ListeIcone$(#Icone_Annuler) = "Icônes\Back 2.ico"
ListeIcone$(#Icone_Retablir) = "Icônes\Forward 2.ico"
ListeIcone$(#Icone_Quitter) = "Icônes\Stop 2.ico"
For Icone = #Icone_Nouveau To #Icone_Quitter
LoadImage(Icone, ListeIcone$(Icone))
NextCode : Tout sélectionner
If CreateToolBar(#BarreOutil, WindowID(#Fenetre))
ToolBarImageButton(#Nouveau,UseImage(#Icone_nouveau))
ToolBarToolTip(#Nouveau, TexteGUI$(#Menutxt07))
ToolBarImageButton(#Ouvrir, UseImage(#Icone_Ouvrir))
ToolBarToolTip(#Ouvrir, TexteGUI$(#Menutxt08))
ToolBarImageButton(#Sauver, UseImage(#Icone_Sauver))
ToolBarToolTip(#Sauver, TexteGUI$(#Menutxt09))
ToolBarSeparator()
ToolBarImageButton(#Couper, UseImage(#Icone_Couper))
ToolBarToolTip(#Couper, TexteGUI$(#Menutxt01))
ToolBarImageButton(#Copier, UseImage(#Icone_Copier))
ToolBarToolTip(#Copier, TexteGUI$(#Menutxt02))
ToolBarImageButton(#Coller, UseImage(#Icone_Coller))
ToolBarToolTip(#Coller, TexteGUI$(#Menutxt03))
ToolBarSeparator()
ToolBarImageButton(#Annuler, UseImage(#Icone_Annuler))
ToolBarToolTip(#Annuler, TexteGUI$(#Menutxt04))
ToolBarImageButton(#Retablir, UseImage(#Icone_retablir))
ToolBarToolTip(#Retablir, TexteGUI$(#Menutxt05))
ToolBarSeparator()
ToolBarImageButton(#Quitter, UseImage(#Icone_Quitter))
ToolBarToolTip(#Quitter, TexteGUI$(#Menutxt21))
EndIfCode : Tout sélectionner
#Fenetre = 0
#BarreOutil = 1
#TB_SETIMAGELIST = 1072
If OpenWindow(#Fenetre, 0, 0, 200, 320, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "Toolbars 32x32")
ShowWindow_(WindowID(), #SW_MAXIMIZE)
ToolBarHwnd = CreateToolBar(1, WindowID())
; on charge l'imae
LoadImage(1000, "")
If ToolBarHwnd
; on récupère le handle de la listimage si elle existe
ListImageHwnd = SendMessage_(ToolBarHwnd, #TB_GETIMAGELIST, 0, 0)
If ListImageHwnd
; on redimensionne la taille des images de la listimage en 32x 32
; après redimensionnement, la listeIlmage est vide
If ImageList_SetIconSize_(ListImageHwnd, 32, 32)
; si ImageList_SetIconSize réussi, le resultat retourné est <> 0
; on ajoute la première image puisque la liste est vide
ToolBarImageButton(1001 , UseImage(1000))
; etc ...
EndIf
EndIf
Else
End
EndIf
While WaitWindowEvent() <> #PB_EventCloseWindow And EventWindowID() <> WindowID()
Wend
EndIf
End
J'ai d'abord essayé l'API MoveWindow() pour redimensionner en récupérant les infos avec l'API GetWindowInfo() mais la Toolbar n'était pas redimensionnée. J'ai consulté la doc et là, donc il faut envoyer un message TB_SETBUTTONSIZE avant d'envoyer des images pour dimensionner la hauteur de la Toolbar.Specifying Toolbar Size and Position
If you create a toolbar using CreateToolbarEx, the function enables you to specify in pixels the height and width of the toolbar. However, the CreateWindowEx function does not have parameters for specifying toolbar size. The toolbar window procedure automatically sets the size and position of the toolbar window. The height is based on the height of the buttons in the toolbar. The width is the same as the width of the parent window's client area. To change the automatic size settings, send a TB_SETBUTTONSIZE message. The CCS_TOP and CCS_BOTTOM common control styles determine whether the toolbar is positioned along the top or bottom of the client area. By default, a toolbar has the CCS_TOP style.
Code : Tout sélectionner
TailleBouton = 32
TailleBouton << 16 + 32
Debug TailleBouton
Debug SendMessage_(ToolBarHwnd, #TB_SETBITMAPSIZE, 0, TailleBouton)
)Code : Tout sélectionner
Hauteur = 72
Largeur = 72
hImage_0 = CreateImage(0,72,72)
StartDrawing(ImageOutput())
Box(0,0,72,72,RGB($0,$0,$FF))
StopDrawing()
hImage_1 = CreateImage(1,72,72)
StartDrawing(ImageOutput())
Box(0,0,72,72,RGB($FF,$0,$0))
StopDrawing()
If OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_SizeGadget, "ToolBar example")
hToolBar = CreateToolBar(0, WindowID())
SendMessage_(hToolBar, #TB_SETBUTTONSIZE, 0, Largeur + (Hauteur<<16))
ToolBarImageButton(5, hImage_0)
ToolBarImageButton(10, hImage_1)
;SendMessage_(hToolBar, #TB_SETBITMAPSIZE, 0, Largeur + (Hauteur<<16))
If CreateMenu(0, WindowID())
MenuTitle("")
; MenuItem(0, "New")
; MenuItem(1, "Open")
; MenuItem(2, "Save")
EndIf
Repeat
EventID = WaitWindowEvent()
Select EventID
Case #PB_EventMenu
MessageRequester("Information", "ToolBar or Menu ID: "+Str(EventMenuID()), 0)
Case #PB_EventCloseWindow
Quit = 1
EndSelect
Until Quit = 1
EndIf
End