XProfan

WINDOWSTYLE 31
WINDOWTITLE "Button als Schalter"
WINDOW 0,0-640,440
Declare 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)
UsePen 1,2,@RGB(255,255,255)
Ellipse 4,4 - 16,16
EndPaint
var bmp&=@Create("hPic",0,"&MEMBMP")
MCLS 20,20
StartPaint -1
UseBrush 1,@RGB(0,255,0)
Fill 2,2,@RGB(255,0,0)
UsePen 1,2,@RGB(255,255,255)
UsePen 0,3,@RGB(0,0,0)
line 9,13-9,6
EndPaint
var bmp1&=@Create("hPic",0,"&MEMBMP")
SendMessage(Schalter&,$00F7,0,bmp&)
SetCheck Schalter&,0

while 0=0

    WaitInput

    if @Clicked(Schalter&)

        Drawtext 0,0,@str$(@GetCheck(Schalter&))
        case @GetCheck(Schalter&)=0:SendMessage(Schalter&,$00F7,0,bmp&)
        case @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

    Parameters 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 als Schalter"
WINDOW 0,0-640,440
cls GetSysColor(15)
Declare Schalter&
Schalter&=Control("Button","   Test    ",$54011003,0,0,0,0,%hwnd,1001,%hInstance)
B_Stil Schalter&,0
SetCheck Schalter&,0

while 0=0

    WaitInput

    if @Clicked(Schalter&)

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

    EndIf

wend

End

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

while 0=0

    WaitInput

    if @Clicked(Schalter&)

        Drawtext 0,0,@str$(@GetCheck(Schalter&))
        case @GetCheck(Schalter&)=0:SendMessage(Schalter&,$00F7,0,bmp&)
        case @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 als Schalter"
WINDOW 0,0-150,160
cls GetSysColor(15)
Declare Schalter&
Schalter&=Control("Button","",$54021083,40,40,45,45,%hwnd,1001,%hInstance)
var bmp&=@Create("hPic",-1,"images/refresh.bmp")
SendMessage(Schalter&,$00F7,0,bmp&)
SetCheck Schalter&,0

while 0=0

    WaitInput

    if @Clicked(Schalter&)

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

    EndIf

wend

DeleteObject bmp&
End

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

while 0=0

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

wend

DeleteObject bmp&
End