Hier ein Codeauszug für die Bestückung der Toolbar:
Code: Alles auswählen
oApp := GetApp()
oApp:Toolbar:AddItem( TB_EXIT , {ICO_EXIT, TB_ICON} , {||TabPage_pB_End_Action( ::nViewCloseID)}, "Modul verlassen" )
oApp:Toolbar:AddItem( ITEM_SEPARATOR )
oApp:Toolbar:AddItem( TB_FILTER , {ICO_LENS, TB_ICON} , {|| ::TabPage_pB_Scope_Action( self) }, "[F2] Datensätze selektieren" )
oApp:Toolbar:AddItem( TB_NEW , {ICO_NEW , TB_ICON} , {|| ::TabPage_pB_New_Action() }, "[F3] Neuen Datensatz erfassen" )
oApp:Toolbar:AddItem( TB_GO_BACK , {ICO_LEFT, TB_ICON} , {|| ::TabPage_pB_SkipBack_Action() }, "[+] Vorheriger Datensatz")
oApp:Toolbar:AddItem( TB_GO_NEXT , {ICO_RIGHT, TB_ICON}, {|| ::TabPage_pB_SkipNext_Action() }, "[-] Nächster Datensatz")
oApp:Toolbar:AddItem( TB_PRINT , {ICO_PRINT, TB_ICON}, {|| ::TabPage_pB_Print_Action() }, "[ALT-D] Druck-Menü")
oApp:Toolbar:AddItem( TB_DEL , {ICO_WASTE, TB_ICON}, {|| ::TabPage_pB_Del_Action() }, "Aktuellen Datensatz löschen")
oApp:Toolbar:AddItem( ITEM_SEPARATOR )
Return NIL
Nachfolgend ein visueller Eindruck meines Problems.
Normale Anzeige Item wurde disabelt: Item wurde ein 2.tes Mal disabelt und ist nun sichtbar: