#Include "DeGUI.bi"

DEGUIErrOut()

Screenres 400, 400, 32
Color &hFFFFFF, &hDDDDDD

Declare Sub Ev(ID as String)

Dim as GUI G

Dim Shared as TextField PTR TF
Dim Shared as PWTextField PTR PWTF
Dim Shared as RollTextField PTR RTF
Dim Shared as CheckBox PTR CB
Dim Shared as RadioButton PTR RB, RB2
Dim as ElementList PTR E
Dim as DropDown PTR DD
Dim as StrictTextArea PTR STA

G.NewLabel(80, 10, "Ich bin ein Label der DeGUI")
TF = G.GetTextFieldPTR(G.NewTextField(60, 50, 30, "Testtext im TextField"))
RTF = G.GetRollTextFieldPTR(G.NewRollTextField(60, 65, 30, "Testtext im RollTextField"))
G.NewLabel(60, 85, "Hier ist ein PWTextField")
PWTF = G.GetPWTextFieldPTR(G.NewPWTextField(60, 100, 30))
CB = G.GetCheckBoxPTR(G.NewCheckBox(10, 110, "checkbox1", @Ev))
CB->Checked = 1
G.NewButton("Error", 10, 130, "Button1ID", @Ev)
G.NewButton("Ein weiterer Testbutton", 80, 130, "Button2ID", @Ev)
G.NewLabel(70, 175, "RadioButton ID: RB1")
G.NewLabel(70, 190, "RadioButton ID: RB2")
RB = G.GetRadioButtonPTR(G.NewRadioButton("RB1", @Ev))
RB->NewRadioButton(10, 175)
RB->NewRadioButton(25, 175)
RB->NewRadioButton(40, 175)
RB->NewRadioButton(55, 175)
RB2 = G.GetRadioButtonPTR(G.NewRadioButton("RB2", @Ev))
RB2->NewRadioButton(10, 190)
RB2->NewRadioButton(25, 190)
RB2->NewRadioButton(40, 190)
RB2->NewRadioButton(55, 190)
E = G.GetElementListPTR(G.NewElementList(10, 230, "ElementList", Len("ElementList"), @Ev))
E->NewElement("Test1", "EL1")
E->NewElement("Test2", "EL2")
E->NewElement("ENDE",  "EL3")
STA = G.GetStrictTextAreaPTR(G.NewStrictTextArea(10, 300, 40, 10))
DD = G.GetDropDownPTR(G.NewDropDown(150, 230, "Test", 20))
DD->NewElement("TestSTR1")
DD->NewElement("ololol")
DD->NewElement("1337 h4x w79")



While(NOT Multikey(&h01))
    G.Control()
    ScreenLock
        'G.GClear()
        CLS
        G.G()
    ScreenUnlock
    Sleep 10
Wend 

Sub Ev(ID as String)
    If ID = "checkbox1" then
        If CB->Checked = 0 then TF->Text = "Pls click the checkbox" : TF->LockElement() Else TF->Text = "Checkbox clicked^^" : TF->UnlockElement()
    Endif
    If ID = "Button1ID" then RTF->Text = "Button 1 clicked" : DEGUIError("TestError", "Der TestError erscheint weil du den Error-Button geklickt hast. Das ist ein weiterer Testsatz" &  CHR(13) & "Das ist eine Funktion der DeGUI V1.8") : End 0
    If ID = "Button2ID" then RTF->Text = "Button 2 clicked"
    If ID = "RB1" then RTF->Text = "RadioButton1 Element " & RB->Active & " Aktiv"
    If ID = "RB2" then RTF->Text = "RadioButton2 Element " & RB2->Active & " Aktiv"
    If ID = "EL1" Or ID = "EL2" then TF->Text = ID
    If ID = "EL3" then End 0
End Sub