XProfan

Class MYTest = get@,out$(40),MYTest@

Proc MYTest.MYTest

    Parameters in$,l%
    .out$=in$ + " " + Str$(l%)

EndProc

Proc MYTest.get

    Return .out$

EndProc

Proc Erneuern

    If ClassOf(Test#[0]) = "MYTEST"

        Dispose Test#[]
        n%=1
        Declare Test#[4]Das kann natürlich nicht funktionieren, da die Variable jetzt ja nur lokal bekannt ist.
        Goto "Neu"wieder neu global deklarieren funktioniert aber auch nicht!
        Zurück:
        Clear n%

    EndIf

    WhileLoop 0,3

        Test#[&Loop]=New(MYTest,Chr$(Rnd(26) + 65) +Chr$(Rnd(26) + 65) + Chr$(Rnd(26) + 65) +Chr$(Rnd(26) + 65),&Loop)

    Wend

    WhileLoop 0,3

        print Test#[&Loop].get()

    Wend

EndProc

Cls
Declare n%
Neu:
Declare Test#[4]
Case n% = 1:Goto "Zurück"
Randomize
Erneuern
Erneuernwarum gehts zweimal, aber nicht mehr?
Erneuern
WaitInput
Dispose

Declare appexit%,TB#
 $H WINDOWS.PH
 $H commctrl.ph
 $I RGHTOOLBAR.INC
Def GetSysColor(1) !"USER32","GetSysColor"
Def TBClicked(1) Abs(%menuitem) = &(1)
UserMessages 16

Proc MyToolBar

    TB# = New(RGHToolbar,%HWnd,0,2,0,2000,0)
    TB#.AddButton(0,2000,"Button 1")
    TB#.Separator()
    TB#.AddButton(10,2001,"Button 2")
    TB#.AddButton(10,2002,Time$(0) + ":" + Time$(1))
    TB#.Separator()
    TB#.AddButton(3,2003,"Button 4")
    TB#.AddButton(4,2004,"Button 5")
    TB#.CheckButton(2004,1)
    TB#.HideButton(2004)
    TB#.Separator()
    TB#.AddButton(3,2005,"Ende")

EndProc

WindowTitle "Test"
WindowStyle $023A
SetTrueColor 1
Window 100,100-270,64
Cls GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
MyToolBar

WhileNot appexit%

    WaitInput
    Case Or(%umessage = 16,appexit% > 0):Break

    If TBClicked(2005)

        appexit% = 1

    ElseIf TBClicked(2000)

        DestroyWindow( TB#.GetHandle())
        WindowTitle Time$(0) + ":" + Time$(1)
        Dispose TB#
        Declare TB#
        MyToolBar

    ElseIf TBClicked(2001)

        WindowTitle "Button 2 gedrückt"

    ElseIf TBClicked(2002)

        WindowTitle "Button 3 gedrückt"

    ElseIf TBClicked(2003)

        TB#.HideButton(2003)
        TB#.ShowButton(2004)

    ElseIf TBClicked(2004)

        Engage% = 0
        TB#.HideButton(2004)
        TB#.ShowButton(2003)

    EndIf

Wend