
Pour cette nouvelle année qui pointe, ce serait bien que tu agrémentes PB de quelques fonctions de colorisation des gadgets. Cela permettrait un peu de fun aux applications sans avoir à utiliser des Libs externes.
Merci
Code : Tout sélectionner
DEF colordlg:DIALOG
DECLARE "user32",GetSysColor(index:int),int
DIALOG colordlg,0,0,317,255,0x80C80080,0,"Color Control Demo",Handler
CONTROL colordlg,"B,Button1,38,31,70,20,0x50000000,1"
CONTROL colordlg,"B,Button2,123,31,70,20,0x50000000,2"
CONTROL colordlg,"B,Button3,208,31,70,20,0x50000000,3"
CONTROL colordlg,"B,Button4,38,65,70,20,0x50000000,4"
CONTROL colordlg,"B,Button5,123,65,70,20,0x50000000,5"
CONTROL colordlg,"B,Flat,208,65,70,20,0x50008000,6"
CONTROL colordlg,"E,Edit1,37,101,231,19,0x50800000,7"
CONTROL colordlg,"C,Check1,43,133,70,20,0x50000003,8"
CONTROL colordlg,"L,ListBox1,121,135,70,60,0x50800140,9"
CONTROL colordlg,"B,Close,123,227,70,20,0x50000001,10"
CONTROL colordlg,"R,Radio1,214,134,70,20,0x50000009,11"
domodal colordlg
end
SUB handler
SELECT @CLASS
CASE @IDINITDIALOG
SETCONTROLCOLOR colordlg,1,0,RGB(255,255,0)
SETCONTROLCOLOR colordlg,2,RGB(0,0,255),0
SETCONTROLCOLOR colordlg,3,RGB(200,200,0),RGB(255,255,255)
SETCONTROLCOLOR colordlg,4,RGB(255,255,255),RGB(0,0,255)
SETCONTROLCOLOR colordlg,5,RGB(200,80,200),RGB(0,155,0)
SETCONTROLCOLOR colordlg,6,0,RGB(0,255,255)
SETCONTROLCOLOR colordlg,7,RGB(255,0,255),0
SETCONTROLCOLOR colordlg,8,RGB(0,0,255),RGB(255,255,255)
SETCONTROLCOLOR colordlg,9,0,RGB(0,255,0)
ADDSTRING colordlg,9,"Text"
SETCONTROLCOLOR colordlg,11,RGB(128,7,43),GetSysColor(15)
CASE @IDCLOSEWINDOW
CLOSEDIALOG colordlg,@IDOK
CASE @IDCONTROL
IF(@CONTROLID = 10) THEN CLOSEDIALOG colordlg,@IDOK
ENDSELECT
RETURN
ben je le regarde depuis ce matin (28/12/2004) !Oh mon ancien language, t'es sur Ibasic depuis combien de temps
Ma librairie MoregadgetCOlor était une beta de chez beta, il y a des problèmes (pas mal avec les thèmes XP)gnozal a écrit :Il existe plusieurs bibliothèques utilisateur qui permettent de coloriser les gadgets avec un minimum d'effort :
MoreGadgetColor (de Denis) : http://purebasic.hmt-forum.com/viewtopi ... adgetcolor
PureCOLOR (de moi) : http://purebasic.myforums.net/viewtopic.php?t=12892