XProfan

Declare hToolBar&, hBild&, ende%
WindowStyle 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 ende%

    WaitInput
    locate 10,30

    If %KEY = 2

        ende% = 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)

        ende% = 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, Wert, \
long js,                            \
hash HashArray[]
window 1500,1000
Dateiname = LoadFile$("Wähle eine JSON-Datei","*.json")

If Dateiname > ""

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

EndIf

Print
Print "Taste drücken ..."
WaitInput
End

Herausgeber = Xema
Nummer = 1234-5678-9012-3456
Deckung = 2000000
Waehrung = EURO
Inhaber = {2}
Inhaber|Name = Mustermann
Inhaber|Vorname = Max
Inhaber|maennlich = *TRUE*
Inhaber|Hobbys = [3]
Inhaber|Hobbys|0 = Reiten
Inhaber|Hobbys|1 = Golfen
Inhaber|Hobbys|2 = Lesen
Inhaber|Alter = 42
Inhaber|Kinder = [4]
Inhaber|Partner = *NULL*