TBeBar

//##############################################################################
//##############################################################################
// Online-Hilfe Beispiel für die Klasse 'TBeBar'
//##############################################################################
//##############################################################################

|
   oBarManager, oForm, oBar, oSubItem, btn_BarButton1, btn_SubItemButton1,
   pnl_Main, oActionList, aActionButton1
|

//##############################################################################
//##############################################################################
// Eventhandler
//##############################################################################
//##############################################################################

//******************************************************************************
//
// @Result: null
//******************************************************************************
function A_DeleteToolbar  ( Sender )
   startseq,
     oBarManager.CbDeleteToolBar(oBar),
   onerror
      GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
   stopseq,
end,

//******************************************************************************
// InitForm lädt das Formular
// @Result: null
//******************************************************************************
function InitForm()
   oForm             := CreateObject('TFormEx', 'TFormEx'),
   oForm.BorderStyle := bsSingle,
   oForm.Width       := 500,
   oForm.Height      := 500,
   oForm.OrigCapt    := 'Beispielprogramm',
   oForm.Position    := poScreenCenter,
end,

//******************************************************************************
// LoadGUI lädt sämtliche Komponenten die für die Oberfläche benötigt werden
// @Result: null
//******************************************************************************
function LoadGUID()
   pnl_Main         := CreateObject('TBePanel', 'Main', oForm, oForm),
   pnl_Main.Align   := alClient,
   pnl_Main.Caption := '',

   // Erzeugt einen BarManager
   oBarManager        := CreateObject('TBeBarManager', 'barMan', oForm),
   oBarManager.Images := BeImageList(nImageListMain16),
   oBar               := oBarManager.CbAddToolbar(),

   oActionList        := CreateObject('TBeActionList', 'actions', oForm, oForm),
   oActionList.Images := BeImageList(nImageListMain16),

   aActionButton1            := CreateObject('TBeAction', 'A_DeleteToolbar', oForm, oForm),
   aActionButton1.ActionList := oActionList,
   aActionButton1.Caption    := 'Delete Toolbar',
   aActionButton1.ImageIndex := 928,

   // Erzeugt einen Button auf der Toolbar
   btn_BarButton1            := oBar.CbAddButton(),
   btn_BarButton1.Action     := aActionButton1,
   btn_BarButton1.PaintStyle := psCaptionGlyph,
   AssignEvent(aActionButton1, 'OnExecute', 'A_DeleteToolbar'),

   // Erzeugt ein SubItem auf der Toolbar
   oSubItem         := oBar.CbAddSubItem(),
   oSubItem.Caption := 'SubItem',

   // Erzeugt einen Button im SubItem
   btn_SubItemButton1            := oSubItem.CbAddButton(),
   btn_SubItemButton1.Action     := aActionButton1,
   btn_SubItemButton1.PaintStyle := psCaptionGlyph,
   AssignEvent(aActionButton1, 'OnExecute', 'A_DeleteToolbar'),
end,


//##############################################################################
//##############################################################################
// Hauptprogramm
//##############################################################################
//##############################################################################
startseq,
   InitForm(),
   LoadGUID(),
   ShowModal(oForm),

   DestroyObject(oBarManager),
   DestroyObject(oActionList),
onerror
   DestroyObject(oBarManager),
   DestroyObject(oActionList),
   DestroyObject(oForm),
   GU_ShowStdErrorMessage(GetErrorText(), GetErrorObj()),
stopseq,