XProfan

DEF @LoadImage(6) !"USER32","LoadImageA"
Declarar Hintergrundfarbe&,DLL&,Textfarbe&,Fenstertext#,IMG&[0],IMG$[0],REFRESH&
Windowstyle 31+512
Título de la ventana "Colorbutton con Image"
Ventana 0,0-640,440
SETTRUECOLOR 1
Usermessages $10
LET Hintergrundfarbe&=@RGB(255,255,240)
CLS Hintergrundfarbe&
LET DLL&=@USEDLL("SKCONTROL.DLL")
 $I SKCONTROL.INC
@SKCtrl_InitDll()
Controls redactar
DIM Fenstertext#,256
LET IMG$[0]="BAUM"
Let IMG&[0]=@LoadImage(%HINSTANCE,@ADDR(IMG$[0]),$1,18,18,$0)
String Fenstertext#,0="Colorbutton con Image"
LET Textfarbe&=@SKCtrl_RGB(180,0,0)
LET HINTERGRUNDFARBE&=@SKCtrl_RGB(255,255,255)
LET REFRESH&=@SKCtrl_CreateClrImageButton(%HWND,IMG&[0],Fenstertext#,Textfarbe&,HINTERGRUNDFARBE&,0,1,350,20,-200,30,%HINSTANCE)
@SKCtrl_SetColor(REFRESH&,1,Textfarbe&)
@SKCtrl_SetColor(REFRESH&,2,HINTERGRUNDFARBE&)
Disponer Fenstertext#

Mientras que %Umessage<>$10

    Waitinput

wend

DeleteObject IMG&[0]
@SKCtrl_DeInitDll()
FreeDLL DLL&
FIN

LET REFRESH&=@SKCtrl_CreateClrImageButton(%HWND,IMG&[0],Fenstertext#,1,1,Textfarbe&,HINTERGRUNDFARBE&,350,20,-200,30,%HINSTANCE)