DEFINE GD_scale_menu_toolbar_init
  TOOLBAR DEL_OLD 'tlb_gd_scale_menu' PERSISTENT OFF VISIBLE ON END
  TOOLBAR ON_RIGHT_CLICK '' END
  TOOLBAR CAPTION 'Scale' DOCK TOP 2 2 0 END
  GD_scale_menu_add_item
  TOOLBAR_LAYOUT REFRESH END
END_DEFINE

DEFINE GD_scale_menu_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 'pop_gd_scale'
    CAPTION 'M ?'
    ITEM_TYPE POPUP_BUTTON 'pop_gd_scale_aendern_menu'
    CATEGORY 'gd_pool'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P
END_DEFINE



DEFINE GD_scale_aendern_toolbar_init
  TOOLBAR DEL_OLD 'pop_gd_scale_aendern_menu' PERSISTENT OFF VISIBLE OFF END
  TOOLBAR ON_RIGHT_CLICK '' END
  TOOLBAR CAPTION 'GD_scale_aendern' FLOAT 20 99 1 END
  GD_scale_aendern_add_item
  TOOLBAR_LAYOUT REFRESH END
END_DEFINE


DEFINE GD_scale_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_scale'
    CAPTION '?'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P
  S_
  
  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale_100'
    CAPTION '100:1'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE 100'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P

  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale_50'
    CAPTION '50:1'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE 50'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P
  S_
 
  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale_10'
    CAPTION '10:1'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE 10'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P

  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale_5'
    CAPTION '5:1'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE 5'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P

  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale_2'
    CAPTION '2:1'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE 2'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P
  S_

  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale_1'
    CAPTION '1:1'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE 1'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P
  S_

  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale-2'
    CAPTION '1:2'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE -2'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P

  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale-5'
    CAPTION '1:5'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE -5'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P

  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale-10'
    CAPTION '1:10'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE -10'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P
  S_

  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale-50'
    CAPTION '1:50'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE -50'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P

  TOOLBAR_ITEM OVER_WRITE 'btn_gd_scale-100'
    CAPTION '1:100'
    ITEM_TYPE PUSH_BUTTON
    CATEGORY 'gd_pool'
    ON_ACTION 'DRAWING_SCALE -100'
    ON_RIGHT_CLICK ''
    PERSISTENT OFF
    ADD_TO_TOOLBAR P
  END
  Erhoehe_P

END_DEFINE