je ne sais pas si quelqu'un a déjà parler de ceci,
Après avoir passé un mauvais paramètre à un "textgadget"
je me suis retrouvé avec une autre fenêtre dans ma fenêtre.
cela m'as permis de découvrir tout un tas d'options pour ce gadget,
si bien que qu'il peut devenir une alternative à "Frame3DGadget"
voila, pêlemêle quelques exemples... j'ai aussi remarqué qu'un nombre pair
2 ou 8 a la fin de la séquence permet de mettre des couleurs de fonds.
j'aurais aimé aussi retrouvé le choix des patterns par la même occasion.
Code : Tout sélectionner
LoadImage(50,"c:\purebasic\examples\sources\data\Geebee2.bmp")
LoadFont(0, "Arial", 24)
OpenWindow(0,20,0,700,705,"OPTIONS CACHEE DE TEXTGADGET",#PB_Window_SystemMenu)
TextGadget(0,20,30,100,100,"",$D2F89)
TextGadget(1,130,30,100,100,"",$B7888)
TextGadget(2,240,30,100,100,"",$F4444)
TextGadget(3,350,30,100,100,"",$F6F89)
TextGadget(4,460,30,100,100,"",$B2)
TextGadget(5,570,30,100,100,"",$22066)
TextGadget(6,20,140,100,100,"",$F6666)
TextGadget(7,130,140,100,100,"",$6F666)
TextGadget(8,240,140,100,100,"",$F8888)
TextGadget(9,350,140,100,100,"",$D4898)
TextGadget(10,460,140,100,100,"",$A0665)
TextGadget(11,570,140,100,100,"",$8C668)
TextGadget(12,20,250,100,100,"",$8C9C9)
TextGadget(13,130,250,100,100,"",$6F9F9)
TextGadget(14,240,250,100,100,"",$F0F0F)
TextGadget(15,350,250,100,100,"",$5D9C9)
TextGadget(16,460,250,100,100,"",$50505)
TextGadget(17,570,250,100,100,"",$60505)
TextGadget(18,20,360,100,100,"",$D2212)
TextGadget(19,130,360,100,100,"",$DB632)
TextGadget(20,240,360,100,100,"",$44402)
TextGadget(21,350,360,100,100,"",$55505)
TextGadget(22,460,360,100,100,"",$44606)
TextGadget(23,570,360,100,100,"",$88787)
TextGadget(24,20,470,100,100,"",$A0FDFD2)
TextGadget(25,130,470,100,100,"",$A052727)
TextGadget(26,240,470,100,100,"",$A01B007)
TextGadget(27,350,470,100,100,"",$A003332)
TextGadget(28,460,470,100,100,"",$A009909)
TextGadget(29,570,470,100,100,"",$A073622)
TextGadget(30,20,580,100,100,"",$A073622)
TextGadget(31,130,580,100,100,"",$F0F02)
TextGadget(32,240,580,100,100,"",RGB(0,0,255))
TextGadget(33,380,580,290,60,"TextGadget"+Space(10),$C466222)
SetGadgetFont(33, FontID(0))
SetGadgetColor(9,#PB_Gadget_BackColor,RGB(110,180,50))
SetGadgetColor(30,#PB_Gadget_BackColor,RGB(0,0,255))
SetGadgetColor(33,#PB_Gadget_BackColor,RGB(210,210,210))
StartDrawing(WindowOutput(0))
DrawImage(ImageID(50), 574,474,92,92)
DrawImage(ImageID(50), 137,587,87,87)
StopDrawing()
ButtonGadget(100,265,170,50,40,"bouton")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
End
Case #PB_Event_Gadget
Select EventGadget()
Case 100
MessageRequester("Info","Le bouton a été appuyé !",#PB_MessageRequester_Ok)
EndSelect
EndSelect
Until WindowEvent()=#PB_Event_CloseWindow
cordialement
