Page 1 sur 1

Menu et Toolbar

Publié : mar. 15/avr./2008 18:19
par Neosis
Salut tous le monde :) ,
J'aimerai savoir comment peut on changé la couleur ou le style de la bar de menu ainsi que la couleur de la toolbar... par la même occasion j'aimerai savoir si il est possible d'agrandir la taille des buttons toolbar et comment rendre le font de mes gadgettext transparent.
Merci de me venir en aide :)

Re: Menu et Toolbar

Publié : mar. 15/avr./2008 18:49
par Backup
Neosis a écrit :Salut tous le monde :) ,
J'aimerai savoir comment peut on changé la couleur ou le style de la bar de menu ainsi que la couleur de la toolbar... par la même occasion j'aimerai savoir si il est possible d'agrandir la taille des buttons toolbar et comment rendre le font de mes gadgettext transparent.
Merci de me venir en aide :)
regarde a "SetGadgetColor(#Gadget, TypeCouleur, Couleur)" dans la doc,

Si ce que tu veux colorer n'est pas pris en charge par cette commande, il ne te reste plus qu'a te tourner vers les librairies
genre : PureColor Par exemple :

http://freenet-homepage.de/gnozal/

a Savoir que l'ajout de la couleur dans Purebasic, c'est très récent, il manque énormément de commande la dessus..
peut etre en 2033 ; sait on jamais :)

Publié : mar. 15/avr./2008 19:23
par Neosis
j'ai déjà regarder "setgadgetcolor" mais je voulais mettre une couleur transparent et puis ça marche pas sur la plus part des gadgets que je veux modifier , sinon je vais jeter un pti coup d'oeil sur purecolor.
Si quelqu'un possède quelques solution :P

Publié : sam. 19/avr./2008 14:29
par Neosis
J'ai trouvé une réponse a l'une de mes questions... comment redimensionné un bouton de la toolbar...
Je met le code source, on ne c'est jamais si ça peut intérréssez quelqu'un ;)

Structure TBSize
x.l
y.l
EndStructure

Procedure MakeLong(low, high)
ProcedureReturn low | (high<<16)
EndProcedure

#WindowFlags = #PB_Window_SizeGadget | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_SystemMenu

Window = OpenWindow(0,0,0,640,380,"",#WindowFlags)

Toolbar = CreateToolBar(0,Window)
ToolBarStandardButton(0, #PB_ToolBarIcon_New)
ToolBarStandardButton(1, #PB_ToolBarIcon_Print)
ToolBarStandardButton(2, #PB_ToolBarIcon_Find)

Size.TBSize
Size\x = 64
Size\y = 64

SendMessage_(Toolbar, #TB_SETBUTTONSIZE, 0, MakeLong(Size\x, Size\y))
ResizeWindow(0,#PB_Ignore,#PB_Ignore,WindowWidth(0)+1,WindowHeight(0)+1)
ResizeWindow(0,#PB_Ignore,#PB_Ignore,WindowWidth(0)-1,WindowHeight(0)-1)

Repeat
Event = WindowEvent()
Delay(10)
Until Event = #PB_Event_CloseWindow
End