XProfan

Windowstyle 24
Windowtitle "Beispiel zum Erstellen einer Groupbox mit Checkbox"
Window 100,200-250,180
cls External("USER32","GetSysColor",15)
var gb&=Create("GroupBox",%hwnd,"",20,20,width(%hwnd)-40,height(%hwnd)-40)
Create("CheckBox",gb&,"Groupbox Text",10,3,115,18)

while 1

End

Windowstyle 24
Windowtitle "Beispiel para Erstellen uno Groupbox con Checkbox"
Ventana 100,200-450,280
Declarar x%,text&
x%=1
cls Externo("USER32","GetSysColor",15)
'Checkbox en Groupbox
var gb&=Crear("GroupBox",%hwnd,"",20,20,width(%hwnd)-40,height(%hwnd)-40)
Crear("CheckBox",gb&,"Groupbox Text",10,3,115,18)
'Button en Button
text&=Crear("Text",%hwnd,"Button en Button.. el kleine Button final Programm",40,80,380,18)
Var test&=Crear("Button",%hwnd,"      Test",100,100,160,30)
Var a&=Crear("Button",test&,"1",10,4,22,22)
' Editar en Button
text&=Crear("Text",%hwnd,"Checkbox en Editar y Editar en Button..va....",40,130,380,18)
Var test2&=Crear("Button",%hwnd,"          Test 2",100,150,160,30)
Var b&=Crear("Edit",Test2&,"An",5,4,50,22)
Var c&=Crear("CHeckbox",b&,"",33,1,16,18)
' Button en Editar
text&=Crear("Text",%hwnd,"...y Button en Editar va auch, pero no así fresco...",40,180,380,18)
Var edit&=Crear("Edit",%hwnd,"Der Test",100,200,160,24)
Var d&=Crear("Button",edit&,"HiHi",100,0,40,20)

mientras que 1

    If x%>99

        x%=1
        settext a&,str$(x%)
        setfocus(%hwnd)

    Endif

    If Getfocus(a&)

        romper

    EndIf

    If Getfocus(test&)

        settext b&,"An"
        setcheck c&,0
        inc x%
        settext a&,str$(x%)
        setfocus(%hwnd)

    EndIf

    If Getfocus(test2&)

        If gettext$(b&)="An"

            settext b&,"Aus"
            setcheck c&,1

        EndIf

    EndIf

    If getfocus(d&)

        inc x%,10
        settext a&,str$(x%)
        setfocus(%hwnd)

    Endif

Endwhile