XProfan

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,Button 3)
    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())
        DeleteObject TB#bewirkt nichts
        Clear TB#Fehlermeldung
        MyToolBarFehlermeldung

    ElseIf TBClicked(2001)

        WindowTitle Button 2 gedrückt

    ElseIf TBClicked(2002)

        WindowTitle Button 3 gedrückt

    ElseIf TBClicked(2003)

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

    ElseIf TBClicked(2004)

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

    EndIfclass=s4 href='./../../funktionsreferenzen/XProfan/wend/'>Wend