gtaxis_98s.idlg

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

/*
  gtaxis_98s.idlg Include for graphics t-axis
  ** Special version for Windows95/98
  ** Extra small

*! VERSION 1.0.2  31mar2005

  Note: This include file is closely related to gyaxis_98.idlg and
  graxis_98.idlg.  Any changes should be reflected in those files.

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

DIALOG gtaxis, label("T-Axis") tabtitle("T-Axis")
BEGIN

  /* LEFT SIDE-- Title */
  GROUPBOX gb_title    _lft        _top      _gwd1       _ht5,		/*
		*/ label("Title ")
  EDIT     ed_title    _lft1g      _ss       _cwd1gb     .,		/*
		*/ label("Title")					/*
		*/ option(xtitle)
  /* LEFT SIDE-- Title col(1) */
  TEXT     tx_size     _igft       _ms       _txwd       .,		/*
		*/ label("Size:") 					/*
		*/ right
  DEFINE   y @y
  COMBOBOX cb_size     _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist	contents(textsizes) option(size)
  TEXT     tx_mark     _igft       _xls      _txr2b4g    0,
  DEFINE   y2 @y

  /* LEFT SIDE-- Options */
  GROUPBOX gb_option   _lft        y2        _gwd1       _ht7,		/*
		*/ label("Scale options ")
  /* LEFT SIDE-- Options col(1) */
  TEXT     tx_range    _igft       _ss       _txwd       .,		/*
  		*/ label("Range:") right
  EDIT     ed_range    _txsep      @         150         .,		/*
  		*/ label("T-Axis Range") 				/*
  		*/ option(range)

  /* LEFT SIDE-- Options col(2) */
  TEXT     tx_scfake   _gft4_2     @         0           0,		/*
  		*/ label("")
  CHECKBOX ck_scaleoff _txsep	   @	     _tcr2b4g    .,		/*
  		*/ label("Hide axis") 					/*
  		*/ clickon(program gtaxis_hide_scale_check)		/*
  		*/ clickoff(program gtaxis_hide_scale_check)		/*
  		*/ option(off)
  CHECKBOX ck_log      @           _ms       _tcr2b4g    .,		/*
		*/ label("Log")						/*
		*/ option(log)
  CHECKBOX ck_rev      @           _ms       _tcr2b4g    .,		/*
		*/ label("Reverse")					/*
		*/ option(reverse)

  /**************************************************************/

  /* RIGHT SIDE-- Ticks / Lines */
  GROUPBOX gb_mode     _lft2g      _top      _gwd1       _ht20,	 	/*
		*/ label("Ticks / Lines ")
  COMBOBOX cb_tkmode   _igft2      _ss       _cwd4_6     .,		/*
  		*/ label("Tick mode")					/*
  		*/ dropdownlist						/*
  		*/ contents(gxtick_opt)					/*
  		*/ onselchangelist(gxmode_change)
  TEXT     tx_tkmode   +150        @         _cwd4_6     .,		/*
  		*/ label("")
  TEXT     tx_mark2    _igft2      _ms       0           0,
  DEFINE   rty @y
  /**************************************************************/
  /* RIGHT SIDE-- Major Ticks */
  TEXT     tx_rule     _igft2      rty       _txwd	 .,		/*
  		*/ label("Rule:")					/*
  		*/ right
  EDIT     ed_rule     _txsep      @         _tcr2gi     .,		/*
  		*/ label("Rule")
  BUTTON   bt_rule     _tcr2gisep  @         _btwd       .,		/*
  		*/ label("?")						/*
  		*/ onpush(view help major_tick_rule##|_new)
  TEXT     tx_cstm     _igft2      _ms       _txwd	 .,		/*
  		*/ label("Custom:")					/*
  		*/ right
  EDIT     ed_cstm     _txsep      @         _tcr2gi     .,		/*
  		*/ label("Custom")
  BUTTON   bt_cstm     _tcr2gisep  @         _btwd       .,		/*
  		*/ label("?")						/*
  		*/ onpush(view help custom_tick_labels##|_new)

  TEXT     tx_ang      _igft2     _ms       _txwd       .,		/*
		*/ label("Angle:")					/*
		*/ right
  COMBOBOX cb_ang      _txsep      @         _txr2b4g    .,	   	/*
		*/ dropdownlist	contents(angles) option(angle)
  TEXT     tx_lsize    _gft4_4     @         _txwd       .,		/*
		*/ label("Label size:")					/*
		*/ right
  COMBOBOX cb_lsize    _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist	contents(textsizes) option(labsize)
  TEXT     tx_fmt      _igft2      _ms       _txwd       .,		/*
  		*/ label("Format:")					/*
  		*/ right
  EDIT     ed_fmt      _txsep      @         _tcr2b4g    .,		/*
		*/ label("Format")					/*
		*/ option(format)
  BUTTON   bt_fmt      _tcr2b4gsep @         _btwd       .,		/*
  		*/ label("?")						/*
  		*/ onpush(view help format##|_new)

  /* RIGHT SIDE-- Major Ticks lower*/
  CHECKBOX ck_grid     _igft2      _ls       _gwd2       _ht4,		/*
		*/ groupbox						/*
		*/ clickon(script gxgrid_enable)			/*
		*/ clickoff(script gxgrid_disable)			/*
		*/ label ("Grid ")  					/*
		*/ option(grid)
 /* RIGHT SIDE-- Major Ticks lower col(1)*/
 CHECKBOX ck_gclr      _iigft2     _ls       _txswd      .,		/*
 		*/ label("Color")					/*
 		*/ clickon(gaction gtaxis.cl_gclr.show)			/*
 		*/ clickoff(gaction gtaxis.cl_gclr.hide)
 COLOR    cl_gclr      _txssep     @         _txr2b4g    .,		/*
 		*/ label("Color")					/*
 		*/ option(glcolor)					/*
		*/ default(255 0 0)
  /* RIGHT SIDE-- Major Ticks lower col(2)*/
  TEXT     tx_pat      _gft4_4     @         _txswd      .,		/*
		*/ label("Pattern:")					/*
		*/ right
  COMBOBOX cb_pat      _txssep     @         _txr2b4g    .,		/*
		*/ dropdownlist	contents(linepatterns) option(glpattern)
  /**************************************************************/
  /* RIGHT SIDE-- Minor Ticks */
  TEXT     tx_mrule    _igft2      rty       _txwd       .,		/*
  		*/ label("Rule:")					/*
  		*/ right
  EDIT     ed_mrule    _txsep      @         _tcr2gi     .,		/*
  		*/ label("Rule")
  BUTTON   bt_mrule    _tcr2gisep  @         _btwd       .,		/*
  		*/ label("?")						/*
  		*/ onpush(view help minor_tick_rule##|_new)
  TEXT     tx_mcstm    _igft2      _ms       _txwd	 .,		/*
  		*/ label("Custom:")					/*
  		*/ right
  EDIT     ed_mcstm    _txsep      @         _tcr2gi     .,		/*
  		*/ label("Custom")
  BUTTON   bt_mcstm    _tcr2gisep  @         _btwd       .,		/*
  		*/ label("?")						/*
  		*/ onpush(view help custom_tick_labels##|_new)
  TEXT     tx_mang     _igft2      _ms       _txwd       .,		/*
		*/ label("Angle:")					/*
		*/ right
  COMBOBOX cb_mang     _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist	contents(angles) option(angle)
  TEXT     tx_mlsize   _gft4_4     @         _txwd       .,		/*
		*/ label("Label size:")					/*
		*/ right
  COMBOBOX cb_mlsize   _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist	contents(textsizes) option(labsize)
  TEXT     tx_mfmt     _igft2      _ms       _txwd       .,		/*
  		*/ label("Format:")					/*
  		*/ right
  EDIT     ed_mfmt     _txsep      @         _tcr2b4g    .,		/*
		*/ label("Format")					/*
		*/ option(format)
  BUTTON   bt_mfmt     _tcr2b4gsep @         _btwd       .,		/*
  		*/ label("?")						/*
  		*/ onpush(view help format##|_new)

  /* RIGHT SIDE-- Minor Ticks lower*/
  CHECKBOX ck_mgrid    _igft2      _ls       _cwd1gb     _ht4,		/*
		*/ groupbox						/*
		*/ clickon(script gxmgrid_enable)			/*
		*/ clickoff(script gxmgrid_disable)			/*
		*/ label ("Grid ") 					/*
		*/ option(grid)
/* RIGHT SIDE-- Minor Ticks lower col(1)*/
  CHECKBOX ck_mgclr    _iigft2     _ls       _txswd        .,		/*
		*/ label("Color")					/*
		*/ clickon(gaction gtaxis.cl_mgclr.show)		/*
		*/ clickoff(gaction gtaxis.cl_mgclr.hide)
  COLOR    cl_mgclr    _txssep     @         _txr2b4g   .,		/*
		*/ label("Color")					/*
		*/ option(glcolor)					/*
		*/ default(255 0 0)
  /* RIGHT SIDE-- Minor Ticks lower col(2)*/

  TEXT     tx_mpat     _gft4_4     @         _txswd      .,		/*
		*/ label("Pattern:")					/*
		*/ right
  COMBOBOX cb_mpat     _txssep     @         _txr2b4g    .,		/*
		*/ dropdownlist	 contents(linepatterns) option(glpattern)

  /**************************************************************/
  /* Line options */
  TEXT     tx_lline    _igft2      rty       _txwd       .,		/*
    		*/ label("Values:")					/*
    		*/ right
  EDIT     ed_lline    _txsep      @         _txr2gi     .,		/*
  		*/ label("Values")
  /* Line options col(1) */
  CHECKBOX ck_llclr    _igft2     _ms       _txwd       .,		/*
		*/ label("Color")					/*
		*/ clickon(gaction gtaxis.cl_llclr.show)		/*
		*/ clickoff(gaction gtaxis.cl_llclr.hide)
  COLOR    cl_llclr    _txsep      @         _txr2b4g    .,		/*
		*/ label("Colors")					/*
		*/ option(lcolor)					/*
		*/ default(255 0 0)
  /* Line options col(2) */

  TEXT     tx_llpat    _gft4_4     @         _txwd       .,		/*
		*/ label("Pattern:")					/*
		*/ right
  COMBOBOX cb_llpat    _txsep      @         _txr2b4g    .,	   	/*
		*/ dropdownlist	contents(linepatterns) option(lpattern)
END

LIST gxtick_opt
BEGIN
	"Major ticks"
	"Minor ticks"
	"Additional lines"
END

LIST gxmode_change
BEGIN
	script gxmajor_on
	script gxminor_on
	script gxlines_on
END

PROGRAM gtaxis_hide_scale_check
BEGIN
	if !H(gtaxis.ck_scaleoff) {
		if gtaxis.ck_scaleoff {
			call script gtaxis_hide_scale_on
		}
		if !gtaxis.ck_scaleoff {
			call script gtaxis_hide_scale_off
		}
	}

END

SCRIPT gtaxis_hide_scale_off
BEGIN
	program gxtitle_enable
	program gxmajor_enable
	program gxminor_enable
END

PROGRAM gxtitle_enable
BEGIN
	call gaction gtaxis.gb_title.enable
	call gaction gtaxis.ed_title.enable
	call gaction gtaxis.tx_size.enable
	call gaction gtaxis.cb_size.enable
END

PROGRAM gxmajor_enable
BEGIN
	/* Major ticks */
	call gaction gtaxis.tx_rule.enable
	call gaction gtaxis.ed_rule.enable
	call gaction gtaxis.bt_rule.enable
	call gaction gtaxis.tx_cstm.enable
	call gaction gtaxis.ed_cstm.enable
	call gaction gtaxis.bt_cstm.enable
	call gaction gtaxis.tx_ang.enable
	call gaction gtaxis.cb_ang.enable
	call gaction gtaxis.tx_fmt.enable
	call gaction gtaxis.ed_fmt.enable
	call gaction gtaxis.bt_fmt.enable
	call gaction gtaxis.tx_lsize.enable
	call gaction gtaxis.cb_lsize.enable
	call gaction gtaxis.ck_grid.enable
	if gtaxis.ck_grid {
		call script gxgrid_enable
	}
END

PROGRAM gxminor_enable
BEGIN
	/* Minor ticks */
	call gaction gtaxis.tx_mrule.enable
	call gaction gtaxis.ed_mrule.enable
	call gaction gtaxis.bt_mrule.enable
	call gaction gtaxis.tx_mcstm.enable
	call gaction gtaxis.ed_mcstm.enable
	call gaction gtaxis.bt_mcstm.enable
	call gaction gtaxis.tx_mang.enable
	call gaction gtaxis.cb_mang.enable
	call gaction gtaxis.tx_mfmt.enable
	call gaction gtaxis.ed_mfmt.enable
	call gaction gtaxis.bt_mfmt.enable
	call gaction gtaxis.tx_mlsize.enable
	call gaction gtaxis.cb_mlsize.enable
	call gaction gtaxis.ck_mgrid.enable
	if gtaxis.ck_mgrid {
		call script gxmgrid_enable
	}
END

/* Begin Enable All */
SCRIPT gtaxis_enable
BEGIN
	program gtaxis_enable_pr
END

PROGRAM gtaxis_enable_pr
BEGIN
	call gaction gtaxis.gb_option.enable

	call gaction gtaxis.ed_range.enable
	call gaction gtaxis.tx_range.enable

	call gaction gtaxis.ck_log.enable
	call gaction gtaxis.ck_rev.enable
	call gaction gtaxis.ck_scaleoff.enable
	if !gtaxis.ck_scaleoff {
		call program gxtitle_enable
		call program gxmajor_enable
		call program gxminor_enable

	}

	call gaction gtaxis.gb_mode.enable
	call gaction gtaxis.cb_tkmode.enable
	call gaction gtaxis.tx_tkmode.enable

	/* Line options */
	call gaction gtaxis.tx_lline.enable
	call gaction gtaxis.ed_lline.enable
	call gaction gtaxis.ck_llclr.enable
	call gaction gtaxis.cl_llclr.enable
	call gaction gtaxis.tx_llpat.enable
	call gaction gtaxis.cb_llpat.enable
END
/* End Enable All */

SCRIPT gxtitle_disable
BEGIN
	gtaxis.gb_title.disable
	gtaxis.ed_title.disable
	gtaxis.tx_size.disable
	gtaxis.cb_size.disable
END

SCRIPT gxmajor_disable
BEGIN
	/* Major ticks */
	gtaxis.tx_rule.disable
	gtaxis.ed_rule.disable
	gtaxis.bt_rule.disable
	gtaxis.tx_cstm.disable
	gtaxis.ed_cstm.disable
	gtaxis.bt_cstm.disable
	gtaxis.tx_ang.disable
	gtaxis.cb_ang.disable
	gtaxis.tx_fmt.disable
	gtaxis.ed_fmt.disable
	gtaxis.bt_fmt.disable
	gtaxis.tx_lsize.disable
	gtaxis.cb_lsize.disable
	gtaxis.ck_grid.disable
	script gxgrid_disable
END

SCRIPT gxminor_disable
BEGIN