{===============================================================================================================}
{Toolbar_zoom	os / 23.04.2003				                                                        }
{===============================================================================================================}

{---------------------------------------------------------------------------------------------------------------}
{--- 1. Icon Definition ----------------------------------------------------------------------------------------}

LET GD_detail_icon     ((CHR 255)+(CHR 11)+(CHR 8)+(CHR 12)+(CHR 12)+(CHR 11)+(CHR 15)+(CHR 7)+
			(CHR 16)+(CHR 4)+(CHR 15)+(CHR 2)+(CHR 11)+(CHR 4)+(CHR 8)+(CHR 8)+
			(CHR 6)+(CHR 11)+(CHR 8)+(CHR 255)+(CHR 12)+(CHR 8)+(CHR 11)+(CHR 7)+
			(CHR 18)+(CHR 1)+(CHR 19)+(CHR 2)+(CHR 12)+(CHR 8)+(CHR 13)+(CHR 12)+
			(CHR 11)+(CHR 16)+(CHR 7)+(CHR 17)+(CHR 3)+(CHR 15)+(CHR 1)+(CHR 11)+
			(CHR 3)+(CHR 7)+(CHR 8)+(CHR 5)+(CHR 11)+(CHR 7))

LET GD_last_icon       ((CHR 255)+(CHR 18)+(CHR 3)+(CHR 16)+(CHR 3)+(CHR 255)+(CHR 13)+(CHR 4)+
			(CHR 18)+(CHR 4)+(CHR 255)+(CHR 18)+(CHR 5)+(CHR 11)+(CHR 5)+(CHR 255)+
			(CHR 9)+(CHR 6)+(CHR 18)+(CHR 6)+(CHR 255)+(CHR 18)+(CHR 7)+(CHR 7)+
			(CHR 7)+(CHR 255)+(CHR 4)+(CHR 8)+(CHR 18)+(CHR 8)+(CHR 255)+(CHR 18)+
			(CHR 16)+(CHR 16)+(CHR 15)+(CHR 18)+(CHR 15)+(CHR 18)+(CHR 16)+(CHR 255)+
			(CHR 16)+(CHR 15)+(CHR 13)+(CHR 14)+(CHR 11)+(CHR 13)+(CHR 9)+(CHR 12)+
			(CHR 7)+(CHR 11)+(CHR 4)+(CHR 10)+(CHR 2)+(CHR 9)+(CHR 18)+(CHR 9)+
			(CHR 18)+(CHR 2)+(CHR 2)+(CHR 9)+(CHR 255)+(CHR 13)+(CHR 14)+(CHR 18)+
			(CHR 14)+(CHR 18)+(CHR 15)+(CHR 255)+(CHR 11)+(CHR 13)+(CHR 18)+(CHR 13)+
			(CHR 18)+(CHR 14)+(CHR 255)+(CHR 9)+(CHR 12)+(CHR 18)+(CHR 12)+(CHR 18)+
			(CHR 13)+(CHR 255)+(CHR 7)+(CHR 11)+(CHR 18)+(CHR 11)+(CHR 18)+(CHR 12)+
			(CHR 255)+(CHR 4)+(CHR 10)+(CHR 18)+(CHR 10)+(CHR 18)+(CHR 11)+(CHR 255)+
			(CHR 18)+(CHR 9)+(CHR 18)+(CHR 10))

LET GD_redraw_icon     ((CHR 255)+(CHR 11)+(CHR 11)+(CHR 16)+(CHR 16)+(CHR 16)+(CHR 16)+(CHR 12)+
			(CHR 10)+(CHR 15)+(CHR 7)+(CHR 15)+(CHR 7)+(CHR 255)+(CHR 16)+(CHR 16)+
			(CHR 17)+(CHR 15)+(CHR 12)+(CHR 10)+(CHR 255)+(CHR 16)+(CHR 16)+(CHR 16)+
			(CHR 16)+(CHR 11)+(CHR 11)+(CHR 11)+(CHR 11)+(CHR 12)+(CHR 10)+(CHR 255)+
			(CHR 2)+(CHR 8)+(CHR 6)+(CHR 12)+(CHR 6)+(CHR 12)+(CHR 14)+(CHR 6)+
			(CHR 13)+(CHR 5)+(CHR 6)+(CHR 12)+(CHR 255)+(CHR 6)+(CHR 12)+(CHR 7)+
			(CHR 13)+(CHR 8)+(CHR 14)+(CHR 11)+(CHR 11)+(CHR 255)+(CHR 7)+(CHR 13)+
			(CHR 15)+(CHR 7)+(CHR 14)+(CHR 6)+(CHR 255)+(CHR 11)+(CHR 6)+(CHR 9)+
			(CHR 3)+(CHR 7)+(CHR 4)+(CHR 6)+(CHR 5)+(CHR 5)+(CHR 6)+(CHR 4)+(CHR 7)+
			(CHR 2)+(CHR 8)+(CHR 255)+(CHR 10)+(CHR 7)+(CHR 7)+(CHR 4)+(CHR 255)+
			(CHR 6)+(CHR 5)+(CHR 9)+(CHR 8)+(CHR 255)+(CHR 8)+(CHR 9)+(CHR 5)+
			(CHR 6)+(CHR 255)+(CHR 4)+(CHR 7)+(CHR 7)+(CHR 10)+(CHR 255)+(CHR 13)+
			(CHR 5)+(CHR 10)+(CHR 1)+(CHR 9)+(CHR 3)+(CHR 255)+(CHR 11)+(CHR 11)+
			(CHR 15)+(CHR 17)+(CHR 16)+(CHR 16))

LET GD_fit_icon        ((CHR 255)+(CHR 19)+(CHR 9)+(CHR 18)+(CHR 10)+(CHR 16)+(CHR 10)+(CHR 16)+
			(CHR 9)+(CHR 19)+(CHR 9)+(CHR 18)+(CHR 8)+(CHR 16)+(CHR 8)+(CHR 16)+
			(CHR 9)+(CHR 255)+(CHR 17)+(CHR 7)+(CHR 16)+(CHR 6)+(CHR 16)+(CHR 7)+
			(CHR 17)+(CHR 7)+(CHR 255)+(CHR 16)+(CHR 11)+(CHR 16)+(CHR 12)+(CHR 17)+
			(CHR 11)+(CHR 16)+(CHR 11)+(CHR 255)+(CHR 18)+(CHR 8)+(CHR 17)+(CHR 7)+
			(CHR 255)+(CHR 16)+(CHR 7)+(CHR 16)+(CHR 8)+(CHR 255)+(CHR 16)+(CHR 10)+
			(CHR 16)+(CHR 11)+(CHR 255)+(CHR 17)+(CHR 11)+(CHR 18)+(CHR 10)+(CHR 255)+
			(CHR 10)+(CHR 1)+(CHR 9)+(CHR 2)+(CHR 9)+(CHR 4)+(CHR 10)+(CHR 4)+
			(CHR 10)+(CHR 1)+(CHR 11)+(CHR 2)+(CHR 12)+(CHR 3)+(CHR 12)+(CHR 4)+
			(CHR 13)+(CHR 4)+(CHR 12)+(CHR 3)+(CHR 255)+(CHR 11)+(CHR 2)+(CHR 11)+
			(CHR 4)+(CHR 12)+(CHR 4)+(CHR 255)+(CHR 10)+(CHR 4)+(CHR 11)+(CHR 4)+
			(CHR 255)+(CHR 7)+(CHR 4)+(CHR 8)+(CHR 4)+(CHR 8)+(CHR 3)+(CHR 7)+
			(CHR 4)+(CHR 255)+(CHR 8)+(CHR 4)+(CHR 9)+(CHR 4)+(CHR 255)+(CHR 9)+
			(CHR 2)+(CHR 8)+(CHR 3)+
			(CHR 255)+(CHR 1)+(CHR 9)+(CHR 2)+(CHR 8)+(CHR 4)+(CHR 8)+(CHR 4)+
			(CHR 9)+(CHR 1)+(CHR 9)+(CHR 2)+(CHR 10)+(CHR 4)+(CHR 10)+(CHR 4)+
			(CHR 9)+(CHR 255)+(CHR 3)+(CHR 11)+(CHR 4)+(CHR 12)+(CHR 4)+(CHR 11)+
			(CHR 3)+(CHR 11)+(CHR 255)+(CHR 4)+(CHR 7)+(CHR 4)+(CHR 6)+(CHR 3)+
			(CHR 7)+(CHR 4)+(CHR 7)+(CHR 255)+(CHR 2)+(CHR 10)+(CHR 3)+(CHR 11)+
			(CHR 255)+(CHR 4)+(CHR 11)+(CHR 4)+(CHR 10)+(CHR 255)+(CHR 4)+(CHR 8)+
			(CHR 4)+(CHR 7)+(CHR 255)+(CHR 3)+(CHR 7)+(CHR 2)+(CHR 8)+(CHR 255)+
			(CHR 10)+(CHR 17)+(CHR 11)+(CHR 16)+(CHR 11)+(CHR 14)+(CHR 10)+(CHR 14)+
			(CHR 10)+(CHR 17)+(CHR 9)+(CHR 16)+(CHR 8)+(CHR 15)+(CHR 8)+(CHR 14)+
			(CHR 7)+(CHR 14)+(CHR 8)+(CHR 15)+(CHR 255)+(CHR 9)+(CHR 16)+(CHR 9)+
			(CHR 14)+(CHR 8)+(CHR 14)+(CHR 255)+(CHR 10)+(CHR 14)+(CHR 9)+(CHR 14)+
			(CHR 255)+(CHR 13)+(CHR 14)+(CHR 12)+(CHR 14)+(CHR 12)+(CHR 15)+(CHR 13)+
			(CHR 14)+(CHR 255)+(CHR 12)+(CHR 14)+(CHR 11)+(CHR 14)+(CHR 255)+
			(CHR 11)+(CHR 16)+(CHR 12)+(CHR 15))

{---------------------------------------------------------------------------------------------------------------}
{--- 2. Waagrechte Toolbar -------------------------------------------------------------------------------------}

DEFINE Layout_toolbar_zoom_1
(30)   'LAS| Z-| Z+|DET|FIT|RED|DEL|  |  |  '
END_DEFINE

DEFINE Sm_toolbar_zoom_1_layout
  LOCAL Pkt_oben_rechts
  LOCAL Pkt_menu
  INQ_ENV 1
  LET Pkt_oben_rechts (inq 102)
  LET Pkt_menu (PNT_XY ((X_OF Pkt_oben_rechts) - 12) (Y_OF Graphic_area_up_right))
  CURRENT_MENU 'Toolbar_Zoom'					{Name der Iconleiste festlegen}
  CURRENT_SCREEN 1						{Menu im Hauptgrafikfenster anzeigen}
  MENU_LAYOUT Layout_toolbar_zoom_1 Pkt_menu 
  MENU_STATUS ENABLE_INQ					{Menueigenschaften koennen abgefragt werden}
  LET Sm_toolbar_zoom_1_layout_name 'Toolbar_Zoom'
END_DEFINE

DEFINE Toolbar_Zoom
  MENU_BUFFER ON
  Sm_toolbar_zoom_1_layout					{Layout wird geladen, siehe oben}
  CURRENT_MENU Sm_toolbar_zoom_1_layout_name
  CURRENT_SCREEN 1
  T_clear_menu
  MENU Colo0 Bcol3 CENTER	GD_last_icon		'WINDOW LAST_WINDOWS'			1 1
  MENU Colo0 Bcol3 CENTER	'Z-'			'WINDOW ZOOM 0.5'			1 2
  MENU Colo0 Bcol3 CENTER	'Z+'			'WINDOW ZOOM 2'		      		1 3
  MENU Colo0 Bcol3 CENTER	GD_detail_icon		'WINDOW TWO_PTS'	      		1 4
  MENU Colo0 Bcol3 CENTER	GD_fit_icon		'WINDOW_FIT'		      		1 5
  MENU Colo0 Bcol3 CENTER	GD_redraw_icon		'REDRAW'	        		1 6
  MENU Colo0 Bcol2 CENTER	'DEL'			'DELETE'          			1 7
  MENU Colo0 Bcol5 CENTER	Menu_move_icon		'MENU_STATUS MOVE' 			1 8
  MENU Colo0 Bcol5 CENTER	'V'			'MENU_STATUS UNMAP Toolbar_Zoom_senkr'	1 9
  MENU Colo0 Bcol5 CENTER	Menu_delete_icon	'MENU_STATUS UNMAP'			1 10
  REDRAW
END_DEFINE
Toolbar_Zoom

{---------------------------------------------------------------------------------------------------------------}
{--- 3. Senkrechte Toolbar -------------------------------------------------------------------------------------}

DEFINE Layout_toolbar_zoom_2
(24)   '   '
(24)   '   '
(24)   '   '
(24)   '   '
(24)   '   '
(24)   '   '
(24)   '   '
(24)   '   '
(24)   '   '
(24)   '   '
END_DEFINE

DEFINE Sm_toolbar_zoom_2_layout
  LOCAL Pkt_oben_rechts
  LOCAL Pkt_menu_senkr
  INQ_ENV 1
  LET Pkt_oben_rechts (inq 102)
  LET Pkt_menu_senkr (PNT_XY ((X_OF Pkt_oben_rechts)-0) ((Y_OF Pkt_oben_rechts)-270) )
  CURRENT_MENU 'Toolbar_Zoom_senkr'				{Name der Iconleiste festlegen}
  CURRENT_SCREEN 1						{Menu im Hauptgrafikfenster anzeigen}
  MENU_LAYOUT Layout_toolbar_zoom_2 Pkt_menu_senkr 
  MENU_STATUS ENABLE_INQ					{Menueigenschaften koennen abgefragt werden}
  LET Sm_toolbar_zoom_2_layout_name 'Toolbar_Zoom_senkr'
END_DEFINE

DEFINE Toolbar_Zoom_senkr
  MENU_BUFFER ON
  Sm_toolbar_zoom_2_layout					{Layout wird geladen, siehe oben}
  CURRENT_MENU Sm_toolbar_zoom_2_layout_name
  CURRENT_SCREEN 1
  T_clear_menu
  MENU Colo0 Bcol5 CENTER	Menu_delete_icon	'MENU_STATUS UNMAP'			1 1
  MENU Colo0 Bcol5 CENTER	'H'			'MENU_STATUS UNMAP Toolbar_Zoom'	2 1
  MENU Colo0 Bcol5 CENTER	Menu_move_icon		'MENU_STATUS MOVE' 			3 1
  MENU Colo0 Bcol2 CENTER	'DEL'			'DELETE'          			4 1
  MENU Colo0 Bcol3 CENTER	GD_redraw_icon		'REDRAW'	        		5 1
  MENU Colo0 Bcol3 CENTER	GD_fit_icon		'WINDOW_FIT'		      		6 1
  MENU Colo0 Bcol3 CENTER	GD_detail_icon		'WINDOW TWO_PTS'	      		7 1
  MENU Colo0 Bcol3 CENTER	'Z+'			'WINDOW ZOOM 2'		      		8 1
  MENU Colo0 Bcol3 CENTER	'Z-'			'WINDOW ZOOM 0.5'			9 1
  MENU Colo0 Bcol3 CENTER	GD_last_icon		'WINDOW LAST_WINDOWS'			10 1
  REDRAW
END_DEFINE