XProfan

WINDOWSTYLE 31
WINDOWTITLE "Button como Schalter"
WINDOW 0,0-640,440
Declarar Schalter&
Schalter&=Control("Button","",$54021083,100,100,22,22,%hwnd,1001,%hInstance)
MCLS 20,20
StartPaint -1
UseBrush 1,@RGB(255,0,0)
Fill 2,2,@RGB(255,0,0)
USEP 1,2,@RGB(255,255,255)
Ellipse 4,4 - 16,16
EndPaint
var bmp&=@Crear("HPIC",0,"& MEMBMP")
MCLS 20,20
StartPaint -1
UseBrush 1,@RGB(0,255,0)
Fill 2,2,@RGB(255,0,0)
USEP 1,2,@RGB(255,255,255)
USEP 0,3,@RGB(0,0,0)
line 9,13-9,6
EndPaint
var bmp1&=@Crear("HPIC",0,"& MEMBMP")
SendMessage(Schalter&,$00F7,0,bmp&)
SetCheck Schalter&,0

mientras que 0=0

    WaitInput

    if @Clicked(Schalter&)

        Drawtext 0,0,@str$(@GetCheck(Schalter&))
        caso @GetCheck(Schalter&)=0:SendMessage(Schalter&,$00F7,0,bmp&)
        caso @GetCheck(Schalter&)=1:SendMessage(Schalter&,$00F7,0,bmp1&)
        SetFocus(%hwnd)

    EndIf

wend

DeleteObject bmp&
DeleteObject bmp1&
End

DEF SetWindowLong(3) !"USER32","SetWindowLongA"
DEF GetWindowLong(2) !"USER32","GetWindowLongA"
Def GetSysColor(1) !"USER32","GetSysColor"

proc B_Stil

    Parámetros h&,border%
    SetWindowPos h&=0,0 - 0,0
    var xstyle%=1
    Case border%:xstyle%=$200
    SetWindowLong(h&,-20,xstyle%)
    SetWindowPos h&=100,100 - 100,30

ENDPROC

WINDOWSTYLE 31
WINDOWTITLE "Button como Schalter"
WINDOW 0,0-640,440
cls GetSysColor(15)
Declarar Schalter&
Schalter&=Control("Button","   Test    ",$54011003,0,0,0,0,%hwnd,1001,%hInstance)
B_Stil Schalter&,0
SetCheck Schalter&,0

mientras que 0=0

    WaitInput

    if @Clicked(Schalter&)

        Drawtext 0,0,@str$(@GetCheck(Schalter&))
        caso @GetCheck(Schalter&)=0:B_Stil Schalter&,0
        caso @GetCheck(Schalter&)=1:B_Stil Schalter&,1
        SetFocus(%hwnd)

    EndIf

wend

End

Def GetSysColor(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
WINDOWTITLE "Button como Schalter"
WINDOW 0,0-640,440
cls GetSysColor(15)
Declarar Schalter&
Schalter&=Control("Button","",$54021083,100,100,96,26,%hwnd,1001,%hInstance)
var bmp&=@Crear("HPIC",-1,"B1.png")
var bmp1&=@Crear("HPIC",-1,"B2.png")
SendMessage(Schalter&,$00F7,0,bmp&)
SetCheck Schalter&,0

mientras que 0=0

    WaitInput

    if @Clicked(Schalter&)

        Drawtext 0,0,@str$(@GetCheck(Schalter&))
        caso @GetCheck(Schalter&)=0:SendMessage(Schalter&,$00F7,0,bmp&)
        caso @GetCheck(Schalter&)=1:SendMessage(Schalter&,$00F7,0,bmp1&)
        SetFocus(%hwnd)

    EndIf

wend

DeleteObject bmp&
DeleteObject bmp1&
End

Def GetSysColor(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
WINDOWTITLE "Button como Schalter"
WINDOW 0,0-150,160
cls GetSysColor(15)
Declarar Schalter&
Schalter&=Control("Button","",$54021083,40,40,45,45,%hwnd,1001,%hInstance)
var bmp&=@Crear("HPIC",-1,"images/refresh.bmp")
SendMessage(Schalter&,$00F7,0,bmp&)
SetCheck Schalter&,0

mientras que 0=0

    WaitInput

    if @Clicked(Schalter&)

        Drawtext 0,0,@str$(@GetCheck(Schalter&))
        caso @GetCheck(Schalter&)=0:SendMessage(Schalter&,$00F7,0,bmp&)
        caso @GetCheck(Schalter&)=1:SendMessage(Schalter&,$00F7,0,bmp&)
        SetFocus(%hwnd)

    EndIf

wend

DeleteObject bmp&
End

Def GetSysColor(1) !"USER32","GetSysColor"
WINDOWSTYLE 31
WINDOWTITLE "Button como Schalter"
WINDOW 0,0-150,160
cls GetSysColor(15)
var bmp& = @Crear("hIcon", "bau.ico",0)
var Schalter&=Control("BUTTON","",$50001043,30,30,30,30,%hwnd,2112,%hInstance)
SendMessage(Schalter&,$00F7,1,bmp&)

mientras que 0=0

    WaitInput
    caso @Clicked(Schalter&): Drawtext 0,0,@str$(@GetCheck(Schalter&))

wend

DeleteObject bmp&
End