{==========================================================================} {=== gd_aendern_menu.m os / 30.09.2003 =================================} {=== 1) Gd_aendern_menu_toolbar_init =================================} {=== 2) Gd_aendern_add_item =================================} {==========================================================================} {=== 1) Gd_aendern_menu_toolbar_init =================================} DEFINE Gd_aendern_menu_toolbar_init TOOLBAR DEL_OLD 'tlb_gd_aendern_menu' PERSISTENT OFF VISIBLE ON END TOOLBAR ON_RIGHT_CLICK '' END TOOLBAR CAPTION 'GD_Aendern' DOCK TOP 1 3 0 END Gd_aendern_add_item TOOLBAR_LAYOUT REFRESH END END_DEFINE {=== 2) Gd_aendern_add_item =================================} DEFINE Gd_aendern_add_item LOCAL Erhoehe_P LOCAL P LOCAL S_ LET P 1 DEFINE Erhoehe_P LET P (P + 1) END_DEFINE DEFINE S_ TOOLBAR_ITEM OVER_WRITE 'Separator' ADD_TO_TOOLBAR P END Erhoehe_P END_DEFINE TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_stretch_only' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\stretch_2d_2p.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'Stretch') ON_ACTION 'STRETCH Assistance' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_move_only' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\move_2d_2p.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'Move') ON_ACTION 'MODIFY Assistance' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P S_ TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_stretch' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\stretch_2d.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'Stretch') ON_ACTION 'STRETCH Assistance MOVE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_move' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\move_2d.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'Move') ON_ACTION 'MODIFY Assistance MOVE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_mirror' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\mirror_2d.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'Mirror') ON_ACTION 'MODIFY Assistance MIRROR' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_rotate' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\rotate_2d.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'Rotate') ON_ACTION 'MODIFY Assistance ROTATE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P S_ TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_copy' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\copy.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'Copy') ON_ACTION 'COPY' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P S_ TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_2pts' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\2_punkte.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' '2 Points') ON_ACTION 'MODIFY Assistance ROTATE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_hori' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\horizontal.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'Horizontal') ON_ACTION 'HORIZONTAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_vert' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\vertical.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'Vertical') ON_ACTION 'VERTICAL' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_mitte' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\mitte.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'Center') ON_ACTION 'CENTER' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P TOOLBAR_ITEM OVER_WRITE 'btn_gd_aendern_text_readable' IMAGE FROM_FILE (GDM_ME10CUST_DIR+'\bmp\Text_readable.bmp') ITEM_TYPE PUSH_BUTTON CATEGORY 'gd_pool' TOOLTIP (DGETTEXT 'gd_aendern' 'keep readable') ON_ACTION 'KEEP_READABLE' ON_RIGHT_CLICK '' PERSISTENT OFF ADD_TO_TOOLBAR P END Erhoehe_P END_DEFINE Gd_aendern_menu_toolbar_init