irf_cgraph_opts.idlg

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

/*
    irf_cgraph_opts.idlg

*!  VERSION 1.1.1  31mar2005

*/


DIALOG opt1, tabtitle("Options")
BEGIN

  GROUPBOX gb_opts	     _lft      _top      _cwd1     _ht9,	///
  		label("Common options")
  TEXT     tx_fill           _ilft     _ms       0         0,
  DEFINE   _x  _cksep
  DEFINE   _cx _ckspr2b
  DEFINE   _y  @
  INCLUDE  _sp_level

  CHECKBOX ck_lstep	     _ilft     _ls       _ckwd     .,		///
		onclickon(program lstep_check)				///
		onclickoff(program lstep_check)
DEFINE x @x
  SPINNER  sp_lstep	     _cksep    @         _spwd     .,		///
		min(1)							///
		max(500)						///
		default(0)						///
		option(lstep)						///
		label("Common first step")


  TEXT     tx_lstep	     _spsep    @         _ckspr2b  .,		///
		label("Common first step")
  CHECKBOX ck_ustep	     x        _ls       _ckwd     .,		///
		onclickon(program ustep_check)				///
		onclickoff(program ustep_check)

  DEFINE x @x
  SPINNER  sp_ustep	     _cksep    @         _spwd     .,		///
		min(1)							///
		max(500)						///
		default(1)						///
		option(ustep)						///
		label("Common maximum step")
  TEXT     tx_ustep	     _spsep    @         _ckspr2b  .,		///
		label("Common maximum step")


  GROUPBOX gb_combine        _lft2     _top    	 _cwd1     _ht23h,	///
  		label("Graph combine options")

  CHECKBOX ck_colf           _ilft2    _ms       _cwd3_1   .,		///
  		label("Display down columns first") option(colfirst)
  CHECKBOX ck_ycom           @         _ms       @         .,		///
  		label("Common scale for Y-axes") option(ycommon)
  CHECKBOX ck_xcom           @         _ms       @         .,		///
  		label("Common scale for X-axes") option(xcommon)

  TEXT     tx_margin         @         _ls       _txwd     .,		///
  		label("Margins:")
DEFINE y @y
  COMBOBOX cb_margin         @         _ss       _txr4g    .,		///
  		label("Margins") option(imargin) contents(margin)	///
  		dropdownlist

  TEXT     tx_holes          _ilft4_4  y         _txwd     .,		///
  		label("Holes:")
  EDIT     ed_holes          @         _ss       _tcr4gi    .,		///
  		label("Holes") option(holes)
  BUTTON   bu_holes          _tcr4gisep @        _btwd     ., 		///
  		label("?") onpush(view help numlist##|_new)


  TEXT     tx_layout         _ilft2    _ls       _txwd     ., 		///
  		label("Layout:")
  TEXT     tx_scale          _ilft4_4  @         _txwd     .,		///
  		label("Scale text:")

  COMBOBOX cb_layout         _ilft2    _ss       _txr4g    .,		///
  		label("Layout") contents(opt1_layout) dropdownlist	///
  		onselchangelist(opt1_layout_action)
  EDIT     en_scale          _ilft4_4  @         _tcr4gi   .,		///
  		label("Scale text") numonly option(iscale)


  TEXT     tx_rows           _ilft2    _ls       _txwd     .,		///
  		label("Rows:")
  TEXT     tx_cols           @         @         _txwd     .,		///
  		label("Columns:")

  SPINNER  sp_rows           @         _ss       _spwd     .,		///
 		label("Number of rows") default(1) min(1) max(100) 	///
 		option(rows)
  SPINNER  sp_cols           @         @         _spwd     .,		///
  		label("Number of columns") min(1) default(1) max(100) 	///
  		option(cols)
END

PROGRAM lstep_check
BEGIN
	if opt1.ck_lstep {
		call gaction opt1.sp_lstep.enable
	}
	if !opt1.ck_lstep {
		call gaction opt1.sp_lstep.disable
	}
END

PROGRAM ustep_check
BEGIN
	if opt1.ck_ustep {
		call gaction opt1.sp_ustep.enable
	}
	if !opt1.ck_ustep {
		call gaction opt1.sp_ustep.disable
	}
END

LIST opt1_layout
BEGIN
	Default
	Rows
	Columns
END

LIST opt1_layout_action
BEGIN
	script opt1_hide_rc
	script opt1_rows_show
	script opt1_cols_show
END

SCRIPT opt1_rows_show
BEGIN
	opt1.tx_rows.show
	opt1.sp_rows.show
	opt1.tx_cols.hide
	opt1.sp_cols.hide
END

SCRIPT opt1_cols_show
BEGIN
	opt1.tx_cols.show
	opt1.sp_cols.show
	opt1.tx_rows.hide
	opt1.sp_rows.hide
END

SCRIPT opt1_hide_rc
BEGIN
	opt1.tx_cols.hide
	opt1.tx_rows.hide
	opt1.sp_rows.hide
	opt1.sp_cols.hide
END

PROGRAM irf_cgraph_opts_output
BEGIN
	optionarg /hidedefault opt1.sp_level
	if opt1.ck_lstep {
		optionarg opt1.sp_lstep
	}
	if opt1.ck_ustep {
		optionarg opt1.sp_ustep
	}
	option opt1.ck_colf
	option opt1.ck_ycom
	option opt1.ck_xcom
	optionarg /hidedefault opt1.cb_margin
	optionarg opt1.ed_holes
	optionarg opt1.en_scale
	optionarg opt1.sp_rows
	optionarg opt1.sp_cols
END