XProfan

Declare hToolBar&, hBild&, end%
Window Style 63
Cls
hToolbar& = Create("TOOLBAR", &hWnd, 0, 0, 2, 2000, 1)
Toolbar("AddButton", hToolBar&, 0, 2000, "Button 1", 1)
Toolbar("Separator", hToolbar&)
Toolbar("AddButton", hToolBar&, 5, 2005, "ENDE")

WhileNot end%

    WaitInput
    locate 10,30

    If %KEY = 2

        end% = 1

    ElseIf %KEY = 4

        SetWindowPos hToolbar& = 0, 0 - 0, 0; 0

    ElseIf MenuItem(2000)

        MessageBox("Schnipp schnapp!", "Test", 0)
        cls rgb(255,255,255)

    ElseIf DropDown(2000)

        CreateMenu
        AppendMenu 101,"&blau"
        AppendMenu 102,"&rot"
        AppendMenu 103,"&grün"
        Separator
        AppendMenu 2005,"&Ende"
        TrackMenu %MouseX,32

    EndIf

    If MenuItem(2005)

        end% = 1

    ElseIf MenuItem(101)

        cls rgb(0,0,255)

    ElseIf MenuItem(102)

        cls rgb(255,0,0)

    ElseIf MenuItem(103)

        cls rgb(0,255,0)

    EndIf

EndWhile

DeleteObject hBild&
End

Declare string Dateiname, Schluessel, worth, \
long js,                            \
hash HashArray[]
window 1500,1000
Dateiname = LoadFile $("Wähle a JSON-Datei","*.json")

If Dateiname > ""

    js = Create("json", Dateiname)
    HashArray[] = json("Hash", js)
    ForEach HashArray[], Schluessel, worth
    Print Schluessel + " = " + worth
    EndFor

EndIf

Print
Print "Taste pressing ..."
WaitInput
End

editor = Xema
number = 1234-5678-9012-3456
hedging = 2000000
Waehrung = EURO
Inhaber = {2}
Inhaber|name = Mustermann
Inhaber|First name = Max
Inhaber|maennlich = *TRUE*
Inhaber|Hobbys = [3]
Inhaber|Hobbys|0 = riding
Inhaber|Hobbys|1 = Golfen
Inhaber|Hobbys|2 = reading
Inhaber|old = 42
Inhaber|children = [4]
Inhaber|partner = *NULL*