Hallo Uwe,
wir verwenden bei ME10 V12 Win eine Mischform von Symbolleisten von Frank Schalla und eigenen Anpassungen. Hier ein Beispiel; einmal eine Erweiterung der Symbolleiste Infos und dann das Einschalten der Symbolleiste fuer den Workmanager.
{---------------------------------------------------------------------------------}
{zusaetzliche Layerauswahl bei Infos hinzugefuegt}
TOOLBAR DEL_OLD 'tlb_InfosEdit' END
TOOLBAR_ITEM OVER_WRITE 'btn_EditSelectElem_Layer' CAPTION 'Element waehlen (Layer)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'EDIT_ELEM_INFO INFO_NAMESPACE "SYS:LAYER_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_EditSelectElem_HiddenLine' CAPTION 'Element waehlen (HiddenLine)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'EDIT_ELEM_INFO INFO_NAMESPACE "SYS:HL_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_EditSelectElem_Default' CAPTION 'Element waehlen (Default)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'EDIT_ELEM_INFO' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'Separator' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_EditCurrElem_Layer' CAPTION 'Aktuelles Element (Layer)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'EDIT_CURRENT_INFO_NAMESPACE "SYS:LAYER_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_EditCurrElem_HiddenLine' CAPTION 'Aktuelles Element(HiddenLine)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'EDIT_CURRENT_INFO_NAMESPACE "SYS:HL_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_EditCurrElem_Default' CAPTION 'Aktuelles Element (Default)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'EDIT_CURRENT_INFO' ADD_TO_TOOLBAR 0 END
TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Edit') VISIBLE OFF DESTROY_ON_CLOSE ON END
TOOLBAR DEL_OLD 'tlb_Add' END
TOOLBAR_ITEM OVER_WRITE 'btn_Screen' CAPTION (DGETTEXT 'me10lt' 'Screen') CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'SCREEN' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'Separator' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_AddSelectElem_Layer' CAPTION 'Element waehlen (Layer)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'ADD_ELEM_INFO INFO_NAMESPACE "SYS:LAYER_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_AddSelectElem_HiddenLine' CAPTION 'Element waehlen (HiddenLine)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'ADD_ELEM_INFO INFO_NAMESPACE "SYS:HL_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_AddSelectElem_Default' CAPTION 'Element waehlen (Default)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'ADD_ELEM_INFO' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'Separator' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_AddCurrElem_Layer' CAPTION 'Aktuelles Element (Layer)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'ADD_CURRENT_INFO INFO_NAMESPACE "SYS:LAYER_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_AddCurrElem_HiddenLine' CAPTION 'Aktuelles Element(HiddenLine)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'ADD_CURRENT_INFO INFO_NAMESPACE "SYS:HL_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_AddCurrElem_Default' CAPTION 'Aktuelles Element (Default)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'ADD_CURRENT_INFO' ADD_TO_TOOLBAR 0 END
TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Add') VISIBLE OFF DESTROY_ON_CLOSE ON END
TOOLBAR DEL_OLD 'tlb_Delete' END
TOOLBAR_ITEM OVER_WRITE 'btn_DeleteSelectElem_Layer' CAPTION 'Element waehlen (Layer)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'DELETE_ELEM_INFO INFO_NAMESPACE "SYS:LAYER_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_DeleteSelectElem_HiddenLine' CAPTION 'Element waehlen (HiddenLine)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'DELETE_ELEM_INFO INFO_NAMESPACE "SYS:HL_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_DeleteSelectElem_Default' CAPTION 'Element waehlen (Default)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'DELETE_ELEM_INFO' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'Separator' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_DeleteCurrElem_Layer' CAPTION 'Aktuelles Element (Layer)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'DELETE_CURRENT_INFO INFO_NAMESPACE "SYS:LAYER_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_DeleteElem_HiddenLine' CAPTION 'Aktuelles Element(HiddenLine)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'DELETE_CURRENT_INFO INFO_NAMESPACE "SYS:HL_SCOPE"' ADD_TO_TOOLBAR 0 END
TOOLBAR_ITEM OVER_WRITE 'btn_DeleteCurrElem_Default' CAPTION 'Aktuelles Element (Default)' CATEGORY (DGETTEXT 'me10lt' 'Infos') ON_ACTION 'DELETE_CURRENT_INFO' ADD_TO_TOOLBAR 0 END
TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Delete') VISIBLE OFF DESTROY_ON_CLOSE ON END
TOOLBAR DEL_OLD 'tlb_Smash' END
TOOLBAR_ITEM OVER_WRITE 'btn_SmashMove' CAPTION (DGETTEXT 'me10lt' 'Move') CATEGORY (DGETTEXT 'me10lt' 'Parts') ON_ACTION 'SMASH_SUBPART' ADD_TO_TOOLBAR 1 END
TOOLBAR_ITEM OVER_WRITE 'btn_MoveKeepData' CAPTION (DGETTEXT 'me10lt' 'Move Keep Scale') CATEGORY (DGETTEXT 'me10lt' 'Parts') ON_ACTION 'SMASH_SUBPART KEEP_DATA' ADD_TO_TOOLBAR 2 END
TOOLBAR_ITEM OVER_WRITE 'btn_MoveKeepDisplay' CAPTION (DGETTEXT 'me10lt' 'Move Keep Display') CATEGORY (DGETTEXT 'me10lt' 'Parts') ON_ACTION 'SMASH_SUBPART KEEP_DISPLAY' ADD_TO_TOOLBAR 3 END
TOOLBAR CAPTION (DGETTEXT 'me10lt' 'Smash') VISIBLE OFF DESTROY_ON_CLOSE ON END
{---------------------------------------------------------------------------------}
DEFINE Workmanager_menues_bereitstellen
Wui_data_management
{TOOLBAR 'tlb_DesignManager' VISIBLE OFF END}
TOOLBAR 'tlb_DesignManager' VISIBLE ON DOCK TOP 2 1 0 END
END_DEFINE
Workmanager_menues_bereitstellen
DELETE_MACRO Workmanager_menues_bereitstellen
{---------------------------------------------------------------------------------}
TOOLBAR_LAYOUT REFRESH END
{---------------------------------------------------------------------------------}
Einfach in eine Datei schreiben und diese nachladen sollte genuegen.
Ich hoffe das ist das, was du suchst.
Viele Gruesse
Juergen
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP