XProfan

WINDOWSTYLE 31
WINDOWTITLE "Button comme Schalter"
WINDOW 0,0-640,440
Déclarer Schalter&
Schalter&=Contrôle("Button",»,$54021083,100,100,22,22,%hwnd,1001,%hInstance)
MCLS 20,20
Début de peinture -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&=@Créer(«PCSI»,0,"& MEMBMP")
MCLS 20,20
Début de peinture -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&=@Créer(«PCSI»,0,"& MEMBMP")
SendMessage(Schalter&,$00F7,0,bmp&)
SetCheck Schalter&,0

tandis que 0=0

    WaitInput

    si @Clicked(Schalter&)

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

    EndIf

Wend

DeleteObject bmp&
DeleteObject bmp1&
Fin

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

proc B_Stil

    Paramètres h&,border%
    SetWindowPos h&=0,0 - 0,0
    var xstyle%=1
    Cas border%:xstyle%=$200
    SetWindowLong(h&,-20,xstyle%)
    SetWindowPos h&=100,100 - 100,30

endproc

WINDOWSTYLE 31
WINDOWTITLE "Button comme Schalter"
WINDOW 0,0-640,440
cls GetSysColor(15)
Déclarer Schalter&
Schalter&=Contrôle("Button","   Test    ",$54011003,0,0,0,0,%hwnd,1001,%hInstance)
B_Stil Schalter&,0
SetCheck Schalter&,0

tandis que 0=0

    WaitInput

    si @Clicked(Schalter&)

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

    EndIf

Wend

Fin

Def GetSysColor(1) !"User32","GetSysColor"
WINDOWSTYLE 31
WINDOWTITLE "Button comme Schalter"
WINDOW 0,0-640,440
cls GetSysColor(15)
Déclarer Schalter&
Schalter&=Contrôle("Button",»,$54021083,100,100,96,26,%hwnd,1001,%hInstance)
var bmp&=@Créer(«PCSI»,-1,"B1.png")
var bmp1&=@Créer(«PCSI»,-1,"B2.png")
SendMessage(Schalter&,$00F7,0,bmp&)
SetCheck Schalter&,0

tandis que 0=0

    WaitInput

    si @Clicked(Schalter&)

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

    EndIf

Wend

DeleteObject bmp&
DeleteObject bmp1&
Fin

Def GetSysColor(1) !"User32","GetSysColor"
WINDOWSTYLE 31
WINDOWTITLE "Button comme Schalter"
WINDOW 0,0-150,160
cls GetSysColor(15)
Déclarer Schalter&
Schalter&=Contrôle("Button",»,$54021083,40,40,45,45,%hwnd,1001,%hInstance)
var bmp&=@Créer(«PCSI»,-1,"images/refresh.bmp")
SendMessage(Schalter&,$00F7,0,bmp&)
SetCheck Schalter&,0

tandis que 0=0

    WaitInput

    si @Clicked(Schalter&)

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

    EndIf

Wend

DeleteObject bmp&
Fin

Def GetSysColor(1) !"User32","GetSysColor"
WINDOWSTYLE 31
WINDOWTITLE "Button comme Schalter"
WINDOW 0,0-150,160
cls GetSysColor(15)
var bmp& = @Créer("hIcon", "bau.ico",0)
var Schalter&=Contrôle("BUTTON",»,$50001043,30,30,30,30,%hwnd,2112,%HINSTANCE)
SendMessage(Schalter&,$00F7,1,bmp&)

tandis que 0=0

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

Wend

DeleteObject bmp&
Fin