glegend_98s.idlg

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

/*
  glegend_98s.idlg Include for graphics legends
  **Special version for Windows95/98
  ** Extra small

*!  VERSION 1.0.3  31mar2005

  This idlg assumes you are using _graph.idlg include and _std_graph.idlg
  include to set the proper lengths, widths and heights.
*/

DIALOG glegend, tabtitle("Legend")
BEGIN

  /* LEFT SIDE */
  GROUPBOX  gb_main    _lft        _top      _gwd1       _ht5h,		/*
  		*/ label("Legend controls ")
  DEFINE    ytop @y
  /* LEFT SIDE-- Legend col(1) */
  TEXT     tx_legend   _igft       _ms       _txwd       .,		/*
  		*/ label("Use legend:") 				/*
		*/ right
  COMBOBOX cb_legend   _txsep      @         _txr2b4g    .,		/*
  		*/ dropdownlist						/*
  		*/ label("Use legend")					/*
  		*/ contents(yesno)					/*
  		*/ values(glegend_legend_values)			/*
  		*/ onselchangelist(glegend_legend_action)
  DEFINE   y @y
  TEXT     tx_sympl    _igft       _ms       _txwd       .,		/*
		*/ label("Symbol:")					/*
		*/ right
  COMBOBOX cb_sympl    _txsep      @         _txr2b4g    .,		/*
  		*/ dropdownlist						/*
  		*/ contents(compass) 					/*
  		*/ option(symplacement)

  /* LEFT SIDE-- Legend col(2) */
  TEXT     tx_layout   _gft4_2     y         _txwd       .,		/*
		*/ label("Layout:") 					/*
		*/ right
  COMBOBOX cb_layout   _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ label("Layout")					/*
		*/ contents(glegend_layout)				/*
		*/ onselchangelist(glegend_layout_action)		/*
  		*/ values(glegend_layout_values)
  TEXT     tx_layoutsp _gft4_2     _ms       _txwd       .,		/*
  		*/ right						/*
  		*/ label("")  /* use setlabel below */
  SPINNER  sp_rownum   _txsep      @         _spwd       .,		/*
  		*/ label("Number of Rows")				/*
  		*/ min(1) max(100) default(1)
  SPINNER  sp_colnum   @           @         _spwd       .,		/*
  		*/ label("Number of Columns")				/*
  		*/ min(1) max(100) default(1)

  /* LEFT SIDE lower box */
  GROUPBOX  gb_region  _lft        _xls      _gwd1       _ht9,		/*
  		*/ label("Region options ")
  /* LEFT SIDE-- Region col(1) */
  TEXT     tx_rpos     _igft       _ms       _txwd       .,		/*
		*/ label("Position:") 					/*
		*/ right
  COMBOBOX cb_rpos     _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ contents(clockpos) 					/*
		*/ option(position)
  CHECKBOX ck_ring     @           _ls       _txr2gi     .,             /*
  		*/ label("Inside plot region")				/*
		*/ clickon(program glegend_ring_check)			/*
                */ clickoff(program glegend_ring_check)			/*
                */ option(ring(0))
  CHECKBOX ck_span     @           _ms       _txr2gi     .,             /*
  		*/ label("Span width of graph")				/*
		*/ clickon(program glegend_span_check)			/*
		*/ clickoff(program glegend_span_check)			/*
		*/ option(span)

  /**********************************************************************/
  /* RIGHT SIDE */
  /**********************************************************************/
  /* Right Side Upper titles / captions */
  GROUPBOX gb_title    _lft2g      ytop     _gwd1       _ht10,		/*
  		*/ label("Title / Caption ")
  COMBOBOX cb_mode     _igft2      _ss       _tcr2b4g    .,		/*
  		*/ label("Title Mode")					/*
  		*/ dropdownlist						/*
  		*/ contents(glegend_mode)				/*
  		*/ onselchangelist(glegend_mode_action)
  TEXT     tx_mode     _tcr2b4gsep @         _txr2b4g    .,		/*
  		*/ label("")
  TEXT     tx_mark2    _igft2      _ls       0           0,
  DEFINE   rty @y
  /**********************************************************************/
  /* Right Side Upper Title col(1) */
  TEXT     tx_title    _igft2      rty       _txwd       .,		/*
    		*/ label("Title:")					/*
    		*/ right
  EDIT     ed_title    _txsep      @         _txr2gi     .,		/*
  		*/ label("Title")
  TEXT     tx_ttlsize  _igft2      _ms       _txwd       .,		/*
		*/ label("Size:") 					/*
		*/ right
  COMBOBOX cb_ttlsize  _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ contents(textsizes) 					/*
		*/ option(size)
  DEFINE   y @y
  TEXT     tx_ttlpos   _igft2      _ms       _txwd       .,		/*
		*/ label("Position:")					/*
		*/ right
  COMBOBOX cb_ttlpos   _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ contents(clockpos) 					/*
		*/ option(position)
  TEXT     tx_ttlmark  _igft2      _ss       0           0,
  /* Right Side Upper Title col(2) */
  TEXT     tx_ttlmrgn  _gft4_4     y         _txwd       .,		/*
		*/ label("Margin:")					/*
		*/ right
  COMBOBOX cb_ttlmrgn  _txsep      @         _txr2b4g    .,		/*
		*/ dropdown						/*
		*/ contents(margin) 					/*
		*/ option(margin)

  /**********************************************************************/
  /* Right Side Upper Caption col(1) */
  TEXT     tx_caption  _igft2      rty       _txwd       .,		/*
    		*/ label("Caption:")					/*
    		*/ right
  EDIT     ed_caption    _txsep      @         _txr2gi   .,		/*
  		*/ label("Caption")
  TEXT     tx_capsize  _igft2      _ms       _txwd       .,		/*
		*/ label("Size:") 					/*
		*/ right
  COMBOBOX cb_capsize  _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ contents(textsizes) 					/*
		*/ option(size)
  DEFINE   y @y
  TEXT     tx_cappos   _igft2      _ms       _txwd       .,		/*
		*/ label("Position:")					/*
		*/ right
  COMBOBOX cb_cappos   _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ contents(clockpos) 					/*
		*/ option(position)
  TEXT     tx_capmark  _igft2      _ss       0           0,
  /* Right Side Upper Caption col(2) */
  TEXT     tx_capmrgn  _gft4_4     y         _txwd       .,		/*
		*/ label("Margin:")					/*
		*/ right
  COMBOBOX cb_capmrgn  _txsep      @         _txr2b4g    .,		/*
		*/ dropdown						/*
		*/ contents(margin) 					/*
		*/ option(margin)

  /**********************************************************************/
  /**********************************************************************/
  /* Right Side Lower label options*/
  GROUPBOX  gb_label   _lft2g      _xxxls    _gwd1       _ht4h,		/*
  		*/ label("Label options ")

  /* RIGHT SIDE-- Label col(1)*/
  TEXT     tx_lab_ord  _igft2      _ss       _txwd       .,		/*
    		*/ label("Labels")					/*
    		*/ right
  EDIT     ed_lab_ord  _txsep      @         _tcr2gi    .,		/*
    		*/ label("Labels")					/*
    		*/ option(order)
  BUTTON   bt_lab_ord  _tcr2gisep  @         _btwd       .,		/*
  		*/ label("?")						/*
  		*/ onpush(view help legend_order##|_new)
  TEXT     tx_lsize    _igft2      _ms       _txwd       .,		/*
		*/ label("Size:")					/*
		*/ right
  DEFINE   y @y
  COMBOBOX cb_lsize    _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist 					/*
		*/ contents(textsizes) 					/*
		*/ option(size)
END

LIST glegend_legend_values
BEGIN
	""
	"on"
	"off"
END

/* Begin Enable All */
SCRIPT glegend_enable
BEGIN
	glegend.gb_main.enable
	glegend.tx_legend.enable
	glegend.cb_legend.enable
	glegend.cb_legend.withvalue glegend.cb_legend.setvalue "@"
END
/* End Enable All */

/* Begin Disable All */
SCRIPT glegend_disable
BEGIN
	glegend.gb_main.disable
	glegend.tx_legend.disable
	glegend.cb_legend.disable
	script glegend_disable_sub
END
/* End Disable All */

LIST glegend_legend_action
BEGIN
	program glegend_enable_sub
	program glegend_enable_sub
	script glegend_disable_sub
END

PROGRAM glegend_ring_check
BEGIN
	if !H(glegend.ck_ring) {
		if glegend.ck_ring {
			call gaction glegend.ck_span.disable
		}
		if !glegend.ck_ring {
			call gaction glegend.ck_span.enable
		}
	}
END

PROGRAM glegend_span_check
BEGIN
	if !H(glegend.ck_span) {
		if glegend.ck_span {
			call gaction glegend.ck_ring.disable
		}
		if !glegend.ck_span {
			call gaction glegend.ck_ring.enable
		}
	}
END

PROGRAM glegend_enable_sub
BEGIN
	if !H(glegend.cb_legend) {
		call script glegend_controls_on
		call program glegend_region_opt_on
		call program glegend_text_opt_on
		call script glegend_label_opt_on
	}
END

SCRIPT glegend_disable_sub
BEGIN
	script glegend_controls_off
	script glegend_region_opt_off
	script glegend_text_opt_off
	script glegend_label_opt_off
END

SCRIPT glegend_controls_on
BEGIN
	glegend.tx_layout.enable
	glegend.cb_layout.enable
	glegend.tx_layoutsp.enable
	glegend.sp_rownum.enable
	glegend.sp_colnum.enable
	glegend.tx_sympl.enable
	glegend.cb_sympl.enable
END

SCRIPT glegend_controls_off
BEGIN
	glegend.tx_layout.disable
	glegend.cb_layout.disable
	glegend.tx_layoutsp.disable
	glegend.sp_rownum.disable
	glegend.sp_colnum.disable
	glegend.tx_sympl.disable
	glegend.cb_sympl.disable
END

PROGRAM glegend_region_opt_on
BEGIN
	call gaction glegend.gb_region.enable
	call gaction glegend.tx_rpos.enable
	call gaction glegend.cb_rpos.enable
	if !glegend.ck_span {
		call gaction glegend.ck_ring.enable
	}
	if !glegend.ck_ring {
		call gaction glegend.ck_span.enable
	}
END

SCRIPT glegend_region_opt_off
BEGIN
	glegend.gb_region.disable
	glegend.tx_rpos.disable
	glegend.cb_rpos.disable
	glegend.ck_ring.disable
	glegend.ck_span.disable
END