gmyaxis_98s.idlg

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

/*
  gmyaxis_98s.idlg Include for graph matrix y-axis

*!  VERSION 1.0.2  31mar2005

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

DIALOG gmyaxis, label("Y-Axis") tabtitle("Y-Axis")
BEGIN
  /* LEFT SIDE-- Options */
  GROUPBOX gb_option   _lft        _top      _gwd1       _ht7,		/*
		*/ label("Scale options ")
  /* LEFT SIDE-- Options col(1) */
  CHECKBOX ck_range    _igft       _ss       _txwd       .,		/*
  		*/ label("Range:")					/*
  		*/ clickon(script gmyaxis_range_on)			/*
  		*/ clickoff(script gmyaxis_range_off)
  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(.)
  DEFINE   y @y
  TEXT     tx_outergp  _igft       _ms       _txwd       .,		/*
  		*/ label("Outer gap:")					/*
  		*/ right
  EDIT     ed_outergp  _txsep      @         _txr2b4g    .,		/*
		*/ label("Outer gap")					/*
		*/ option(outergap)
  /* LEFT SIDE-- Options col(2) */
  TEXT     tx_scfake   _gft4_2     y         0           0,		/*
  		*/ label("")
  CHECKBOX ck_hide     _txsep      @         _tcr2b4g   .,		/*
  		*/label("Hide axis") option(off)			/*
  		*/onclickon(script gmyaxis_noaxis)			/*
		*/onclickoff(program gmyaxis_axis)
  CHECKBOX ck_log      @           _ms       _tcr2b4g   .,		/*
		*/ label("Log")						/*
		*/ option(log)
  CHECKBOX ck_rev      @           _ms       _tcr2b4g    .,		/*
		*/ label("Reverse")					/*
		*/ option(reverse)

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

  /* RIGHT SIDE-- Ticks */
  GROUPBOX gb_mode     _lft2g      _top      _gwd1       _ht18h,	/*
		*/ label("Ticks ")
  COMBOBOX cb_tkmode   _igft2      _ss       _cwd4_6     .,		/*
  		*/ label("Tick mode")					/*
  		*/ dropdownlist						/*
  		*/ contents(gmytick_opt)				/*
  		*/ onselchangelist(gmymode_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)

  /* RIGHT SIDE-- Major Ticks upper  */
  TEXT     tx_ang      _igft2      _ms       _txwd       .,		/*
		*/ label("Angle:")					/*
		*/ right
  DEFINE myy @y
  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      _ms       _gwd2       _ht3,		/*
		*/ groupbox						/*
		*/ clickon(script gmygrid_on)				/*
		*/ clickoff(script gmygrid_off)				/*
		*/ label ("Grid ")  					/*
		*/ option(grid)
  /* RIGHT SIDE-- Major Ticks lower col(1)*/
  CHECKBOX ck_gclr     _iigft2     _ms       _txswd      .,		/*
		*/ label("Color:")					/*
		*/ onclickon(gmyaxis.cl_gclr.show)			/*
		*/ onclickoff(gmyaxis.cl_gclr.hide)
  COLOR    cl_gclr     _txssep     @         _txr2b4g    .,		/*
		*/ option(glcolor)
  TEXT     tx_pat      _gft4_4     @         _txswd      .,		/*
		*/ label("Pattern:")					/*
		*/ right
  COMBOBOX cb_pat      _txssep     @         _txr2b4g    .,		/*
		*/ dropdownlist contents(linepatterns) option(glpattern)

  /**************************************************************/
  /* Now for 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 major_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)

  /* RIGHT SIDE-- Minor Ticks upper  */
  TEXT     tx_mang     _igft2      _ms       _txwd       .,		/*
		*/ label("Angle:")					/*
		*/ right
  DEFINE myy @y
  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      _ms       _gwd2       _ht3,		/*
		*/ groupbox						/*
		*/ clickon(script gmymgrid_on)				/*
		*/ clickoff(script gmymgrid_off)			/*
		*/ label ("Grid ")  					/*
		*/ option(grid)
  /* RIGHT SIDE-- Minor Ticks lower col(1)*/
  CHECKBOX ck_mgclr    _iigft2     _ms       _txswd      .,		/*
		*/ label("Color:")					/*
		*/ onclickon(gmyaxis.cl_mgclr.show)			/*
		*/ onclickoff(gmyaxis.cl_mgclr.hide)
  COLOR    cl_mgclr    _txssep     @         _txr2b4g    .,		/*
		*/ option(glcolor)
  TEXT     tx_mpat     _gft4_4     @         _txswd      .,		/*
		*/ label("Pattern:")					/*
		*/ right
  COMBOBOX cb_mpat     _txssep     @         _txr2b4g    .,		/*
		*/ dropdownlist contents(linepatterns) option(glpattern)
END

SCRIPT gmyaxis_range_on
BEGIN
	gmyaxis.ed_rangefm.enable
	gmyaxis.tx_rangeto.enable
	gmyaxis.ed_rangeto.enable
END

SCRIPT gmyaxis_range_off
BEGIN
	gmyaxis.ed_rangefm.disable
	gmyaxis.tx_rangeto.disable
	gmyaxis.ed_rangeto.disable
END

LIST gmytick_opt
BEGIN
	"Major ticks"
	"Minor ticks"
END

LIST gmymode_change
BEGIN
	script gmymajor_on
	script gmyminor_on
END

SCRIPT gmyaxis_noaxis
BEGIN
	gmyaxis.gb_mode.disable
	gmyaxis.cb_tkmode.disable
	gmyaxis.tx_tkmode.disable

	gmyaxis.tx_rule.disable
	gmyaxis.ed_rule.disable
	gmyaxis.bt_rule.disable
	gmyaxis.tx_cstm.disable
	gmyaxis.ed_cstm.disable
	gmyaxis.bt_cstm.disable
	gmyaxis.tx_ang.disable
	gmyaxis.cb_ang.disable
	gmyaxis.tx_fmt.disable
	gmyaxis.ed_fmt.disable
	gmyaxis.bt_fmt.disable
	gmyaxis.tx_lsize.disable
	gmyaxis.cb_lsize.disable
	gmyaxis.ck_grid.disable
	gmyaxis.ck_gclr.disable
	gmyaxis.cl_gclr.disable
	gmyaxis.tx_pat.disable
	gmyaxis.cb_pat.disable

	gmyaxis.tx_mrule.disable
	gmyaxis.ed_mrule.disable
	gmyaxis.bt_mrule.disable
	gmyaxis.tx_mcstm.disable
	gmyaxis.ed_mcstm.disable
	gmyaxis.bt_mcstm.disable
	gmyaxis.tx_mang.disable
	gmyaxis.cb_mang.disable
	gmyaxis.tx_mfmt.disable
	gmyaxis.ed_mfmt.disable
	gmyaxis.bt_mfmt.disable
	gmyaxis.tx_mlsize.disable
	gmyaxis.cb_mlsize.disable
	gmyaxis.ck_mgrid.disable
	gmyaxis.ck_mgclr.disable
	gmyaxis.cl_mgclr.disable
	gmyaxis.tx_mpat.disable
	gmyaxis.cb_mpat.disable
END

PROGRAM gmyaxis_axis
BEGIN
	call gaction gmyaxis.gb_mode.enable
	call gaction gmyaxis.cb_tkmode.enable
	call gaction gmyaxis.tx_tkmode.enable

	call gaction gmyaxis.tx_rule.enable
	call gaction gmyaxis.ed_rule.enable
	call gaction gmyaxis.bt_rule.enable
	call gaction gmyaxis.tx_cstm.enable
	call gaction gmyaxis.ed_cstm.enable
	call gaction gmyaxis.bt_cstm.enable
	call gaction gmyaxis.tx_ang.enable
	call gaction gmyaxis.cb_ang.enable
	call gaction gmyaxis.tx_fmt.enable