gyaxis_98s.idlg

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

/*
  gyaxis_98.idlg Include for graphics y-axis
  ** Special version for Windows95/98
  ** Extra small

*!  VERSION 1.0.2  31mar2005

  Note: This include file is closely related to gxaxis_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 gyaxis, label("Y-Axis") tabtitle("Y-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						/*
		*/ label("Size")					/*
		*/ 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) */
  CHECKBOX ck_range    _igft       _ss       _txwd       .,		/*
  		*/ label("Range:")					/*
  		*/ clickon(script gyaxis_range_enable)			/*
  		*/ clickoff(script gyaxis_range_disable)
  EDIT     ed_rangefm  _txsep      @         _en7wd      .,		/*
  		*/ label("Y-Axis Range from:") default(.)		/*
  		*/ option(range)
  TEXT     tx_rangeto  _en7sep     @         20          .,		/*
  		*/ label("to:")
  EDIT     ed_rangeto  +25         @         _en7wd      .,		/*
  		*/ label("Y-Axis Range to:") default(.)

  /* LEFT SIDE-- Options col(2) */
  TEXT     tx_scfake   _gft4_2     @         0           0,		/*
  		*/ label("")
  CHECKBOX ck_scaleoff _txsep	   @	     _tcr2b4g    .,		/*
  		*/ label("Hide axis") 					/*
  		*/ clickon(program gyaxis_hide_scale_check)		/*
  		*/ clickoff(program gyaxis_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(gytick_opt)					/*
  		*/ onselchangelist(gymode_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						/*
		*/ label("Angle")					/*
		*/ contents(angles) 					/*
		*/ option(angle)
  TEXT     tx_lsize    _gft4_4     @         _txwd       .,		/*
		*/ label("Label size:")					/*
		*/ right
  COMBOBOX cb_lsize    _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ label("Label size")					/*
		*/ 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 gygrid_enable)			/*
		*/ clickoff(script gygrid_disable)			/*
		*/ label ("Grid ")  					/*
		*/ option(grid)
 /* RIGHT SIDE-- Major Ticks lower col(1)*/
 CHECKBOX ck_gclr      _iigft2     _ls       _txswd      .,		/*
 		*/ label("Color")					/*
 		*/ clickon(gaction gyaxis.cl_gclr.show)			/*
 		*/ clickoff(gaction gyaxis.cl_gclr.hide)
 COLOR    cl_gclr      _txssep     @         _txr2b4g    .,		/*
 		*/ option(glcolor)
  /* RIGHT SIDE-- Major Ticks lower col(2)*/
  TEXT     tx_pat      _gft4_4     @         _txswd      .,		/*
		*/ label("Pattern:")					/*
		*/ right
  COMBOBOX cb_pat      _txssep     @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ label("Pattern")					/*
		*/ 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						/*
		*/ label("Angle")					/*
		*/ contents(angles) 					/*
		*/ option(angle)
  TEXT     tx_mlsize   _gft4_4     @         _txwd       .,		/*
		*/ label("Label size:")					/*
		*/ right
  COMBOBOX cb_mlsize   _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ label("Label size")					/*
		*/ 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 gymgrid_enable)			/*
		*/ clickoff(script gymgrid_disable)			/*
		*/ label ("Grid ") 					/*
		*/ option(grid)
/* RIGHT SIDE-- Minor Ticks lower col(1)*/
  CHECKBOX ck_mgclr    _iigft2     _ls       _txswd        .,		/*
		*/ label("Color")					/*
		*/ clickon(gaction gyaxis.cl_mgclr.show)		/*
		*/ clickoff(gaction gyaxis.cl_mgclr.hide)
  COLOR    cl_mgclr    _txssep     @         _txr2b4g   .,		/*
		*/ option(glcolor)
  /* RIGHT SIDE-- Minor Ticks lower col(2)*/

  TEXT     tx_mpat     _gft4_4     @         _txswd      .,		/*
		*/ label("Pattern:")					/*
		*/ right
  COMBOBOX cb_mpat     _txssep     @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ label("Pattern")					/*
		*/ 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 gyaxis.cl_llclr.show)		/*
		*/ clickoff(gaction gyaxis.cl_llclr.hide)
  COLOR    cl_llclr    _txsep      @         _txr2b4g    .,		/*
		*/ option(lcolor)
  /* Line options col(2) */

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

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

LIST gymode_change
BEGIN
	script gymajor_on
	script gyminor_on
	script gylines_on
END

PROGRAM gyaxis_hide_scale_check
BEGIN
	if !H(gyaxis.ck_scaleoff) {
		if gyaxis.ck_scaleoff {
			call script gyaxis_hide_scale_on
		}
		if !gyaxis.ck_scaleoff {
			call script gyaxis_hide_scale_off
		}
	}

END

SCRIPT gyaxis_hide_scale_off
BEGIN
	program gytitle_enable
	program gymajor_enable
	program gyminor_enable
END

PROGRAM gytitle_enable
BEGIN
	call gaction gyaxis.gb_title.enable
	call gaction gyaxis.ed_title.enable
	call gaction gyaxis.tx_size.enable
	call gaction gyaxis.cb_size.enable
END

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

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

/* Begin Enable All */
SCRIPT gyaxis_enable
BEGIN
	program gyaxis_enable_pr
END

PROGRAM gyaxis_enable_pr
BEGIN
	call gaction gyaxis.gb_option.enable
	call gaction gyaxis.ck_range.enable
	if gyaxis.ck_range {
		call script gyaxis_range_enable
	}
	call gaction gyaxis.ck_log.enable
	call gaction gyaxis.ck_rev.enable
	call gaction gyaxis.ck_scaleoff.enable
	if !gyaxis.ck_scaleoff {
		call program gytitle_enable
		call program gymajor_enable
		call program gyminor_enable

	}

	call gaction gyaxis.gb_mode.enable
	call gaction gyaxis.cb_tkmode.enable
	call gaction gyaxis.tx_tkmode.enable

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

SCRIPT gytitle_disable
BEGIN
	gyaxis.gb_title.disable
	gyaxis.ed_title.disable
	gyaxis.tx_size.disable
	gyaxis.cb_size.disable
END

SCRIPT gymajor_disable
BEGIN
	/* Major ticks */
	gyaxis.tx_rule.disable
	gyaxis.ed_rule.disable
	gyaxis.bt_rule.disable
	gyaxis.tx_cstm.disable
	gyaxis.ed_cstm.disable
	gyaxis.bt_cstm.disable
	gyaxis.tx_ang.disable
	gyaxis.cb_ang.disable
	gyaxis.tx_fmt.disable
	gyaxis.ed_fmt.disable
	gyaxis.bt_fmt.disable
	gyaxis.tx_lsize.disable
	gyaxis.cb_lsize.disable
	gyaxis.ck_grid.disable