PureBasic

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