gby.idlg

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

/*
  gby.idlg Include for graphics by

*!  VERSION 1.1.5  31mar2005

  	// SCRIPTS and PROGRAMS for external use

  		* SCRIPT gby_total_disable
  		* SCRIPT gby_missing_disable
  		* SCRIPT gby_setViewByopts
  		* SCRIPT gby_setViewByopts_Total

  		* SCRIPT gby_enable
  		* SCRIPT gby_disable
  		* PROGRAM gby_byopts_output
  		* PROGRAM gby_output
*/

SCRIPT gby_PREINIT
BEGIN
	create BOOLEAN _gby_isenabled
	_gby_isenabled.settrue
END

DIALOG gby, tabtitle("By")
BEGIN
  /* LEFT SIDE */
  GROUPBOX  gb_main    _lft        _top      _gwd1       _ht17h,	///
	label("By controls ")
  DEFINE    ytop @y
  /* LEFT SIDE-- By col(1) */
  TEXT     tx_vars     _igft       _ms       _txwd       .,		///
	label("Variables:") right
  VARLIST  vl_vars     _txsep      @         _txr2gi     .,		///
	label("Variables:")
  CHECKBOX ck_total    @           _ms       _txr2b4g    .,		///
	label("Graph total") option(total)
  DEFINE   y @y
  CHECKBOX ck_missing  @           _ms       105         .,		///
	label("Graph missing") option(missing)
  CHECKBOX ck_colfirst @           _ms       _txr2b4g    .,		///
	label("Column first") option(colfirst)
  TEXT     tx_holes    _igft       _ms       _txwd       .,		///
	label("Holes:")	right
  EDIT     ed_holes    _txsep      @         _tcr2b4g    .,		///
	option(holes)
  BUTTON   bu_holes    _tcr2b4gsep @         _btwd       .,		///
	label("?") onpush(view help numlist##|_new)
  TEXT     tx_layout   _igft       _ms       _txwd       .,             ///
	label("Layout:") right
  COMBOBOX cb_layout   _txsep      @         _txr2b4g    .,             ///
  	dropdownlist contents(gby_layout) values(gby_layout_values)	///
	onselchangelist(gby_layout_action)
  TEXT     tx_layoutsp _igft       _ms       _txwd       .,		///
	right	/* uses setlabel below */
  SPINNER  sp_rowcol   _txsep      @         _spwd       .,		///
	min(1) max(100) default(1)
  /* LEFT SIDE-- By col(2) */
  TEXT     tx_style    _gft4_2     y         _txwd       .,		///
	label("Style:")	right
  COMBOBOX cb_style    _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(bygraph) option(style)
  TEXT     tx_imargin  _gft4_2     _ms       _txwd       .,		///
	label("Margin:") right
  COMBOBOX cb_imargin  _txsep      @         _txr2b4g    .,		///
	dropdown contents(margin) option(imargin)
  TEXT     tx_iscale   _gft4_2     _ms       _txwd       .,		///
	label("Scale text:") right
  EDIT     ed_iscale   _txsep      @         _en7wd      .,		///
	numonly	option(iscale) default(1)
  TEXT     tx_xrescale _gft4_2     _ms       _txwd       .,		///
	label("X-Rescale:") right
  COMBOBOX cb_xrescale _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(yesno) values(gby_xrescale_values)
  TEXT     tx_yrescale _gft4_2     _ms       _txwd       .,		///
	label("Y-Rescale:") right
  COMBOBOX cb_yrescale _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(yesno) values(gby_yrescale_values)

  /* LEFT SIDE LOWER Region options */
  TEXT     tx_space    _lft        _xxxls    0		 0,
  DEFINE   y @y
  /* Col(1) */
  GROUPBOX gb_gregion  _lft        y         _cwd4_g     _ht9h,		///
	label("Graph region ")
  TEXT     tx_gregfclr _lft4_1gi   _ss       _txwd    .,		///
	label("Fill color:") right
  COMBOBOX cb_gregfclr _txsep      @         _tcr4gi  .,		///
	contents(colors) dropdownlist option(fcolor)			///
	onselchangelist(gby_cl_gregfclr_sel)
  COLOR    cl_gregfclr _tcr4gisep  @         _colorwd ., option(fcolor)
  TEXT     tx_greglclr _lft4_1gi   _ms       _txwd    .,		///
	label("Line color:") right
  COMBOBOX cb_greglclr _txsep      @         _tcr4gi  .,		///
	contents(colors) dropdownlist option(lcolor)			///
	onselchangelist(gby_cl_greglclr_sel)
  COLOR    cl_greglclr _tcr4gisep  @         _colorwd ., option(lcolor)
  TEXT     tx_greglwd  _lft4_1gi   _ms       _txwd    .,		///
	label("Line width:") right
  COMBOBOX cb_greglwd  _txsep      @         _txr4gi  .,		///
	contents(linewidths) dropdownlist option(lwidth)
  TEXT     tx_gregmarg _lft4_1gi   _ms       _txwd    .,		///
	label("Margin:") right
  COMBOBOX cb_gregmarg _txsep      @         _txr4gi  .,		///
	contents(margin) dropdown option(margin)
  /* Col(2) */
  GROUPBOX gb_pregion  _lft4_2g    y         _cwd4_g  _ht9h,		///
	label("Plot region ")
  TEXT     tx_pregfclr _lft4_2gi   _ss       _txwd    .,		///
	label("Fill color:") right
  COMBOBOX cb_pregfclr _txsep      @         _tcr4gi  .,		///
	contents(colors) dropdownlist option(fcolor)			///
	onselchangelist(gby_cl_pregfclr_sel)
  COLOR    cl_pregfclr _tcr4gisep  @         _colorwd ., option(fcolor)
  TEXT     tx_preglclr _lft4_2gi   _ms       _txwd    .,		///
	label("Line color:") right
  COMBOBOX cb_preglclr _txsep      @         _tcr4gi  .,		///
	contents(colors) dropdownlist option(lcolor)			///
	onselchangelist(gby_cl_preglclr_sel)
  COLOR    cl_preglclr _tcr4gisep  @         _colorwd ., option(lcolor)
  TEXT     tx_preglwd  _lft4_2gi   _ms       _txwd    .,		///
	label("Line width:") right
  COMBOBOX cb_preglwd  _txsep      @         _txr4gi  .,		///
	contents(linewidths) dropdownlist option(lwidth)
  TEXT     tx_pregmarg _lft4_2gi   _ms       _txwd    .,		///
	label("Margin:") right
  COMBOBOX cb_pregmarg _txsep      @         _txr4gi  .,		///
	contents(margin) dropdown option(margin)

  /**********************************************************************/
  /* RIGHT SIDE */
  /**********************************************************************/
  /* Right Side Upper titles captions notes*/
  GROUPBOX gb_title    _lft2g      ytop     _gwd1       _ht19h,		///
	label("Title / Subtitle / Caption / Note ")
  COMBOBOX cb_mode     _igft2      _ss       _tcr2b4g    .,		///
	dropdownlist contents(gby_mode) onselchangelist(gby_mode_action)
  TEXT     tx_mode     _tcr2b4gsep @         _txr2b4g    .,
  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     .,
  TEXT     tx_ttlsize  _igft2      _ms       _txwd       .,		///
	label("Size:") right
  COMBOBOX cb_ttlsize  _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(textsizes) option(size)
  DEFINE   y @y
  TEXT     tx_ttlclr   _igft2      _ms       _txwd       .,		///
	label("Color:")	right
  COMBOBOX cb_ttlclr   _txsep      @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(color)			///
	onselchangelist(gby_cl_ttlclr_sel)
  COLOR    cl_ttlclr   _tcr2b4gsep @         _colorwd    ., option(color)
  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,
  DEFINE   bxy @y
  /* Right Side Upper Title col(2) */
  TEXT     tx_ttljust  _gft4_4     y         _txwd       .,		///
	label("Justify:") right
  COMBOBOX cb_ttljust  _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(justification) option(justification)
  TEXT     tx_ttlgp    _gft4_4     _ms       _txwd       .,		///
	label("Line gap:") right
  EDIT     ed_ttlgp    _txsep      @         _txr2b4g    .,		///
	label("Line gap") option(linegap)
  /* Right Side Upper Title box */
  CHECKBOX ck_ttlbox   _igft2      bxy       _cwd1gb     _ht4h,		///
	groupbox label("Box") option(box) 				///
	onclickon(script by_ttlbox_on) onclickoff(script by_ttlbox_off)
    /* col(1) */
  TEXT     tx_ttlbclr  _iigft2     _ss       _txswd      .,		///
	label("Fill color:") right
  COMBOBOX cb_ttlbclr  _txssep     @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(fcolor)			///
	onselchangelist(gby_cl_ttlbclr_sel)
  COLOR    cl_ttlbclr  _tcr2b4gsep @         _colorwd    ., option(fcolor)
  DEFINE   y3 @y
  TEXT     tx_ttlblclr _iigft2     _ms       _txswd      .,		///
	label("Line color:") right
  COMBOBOX cb_ttlblclr _txssep     @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(lcolor)			///
	onselchangelist(gby_cl_ttlblclr_sel)
  COLOR    cl_ttlblclr _tcr2b4gsep @         _colorwd    ., option(lcolor)
    /* col(2) */
  TEXT     tx_ttlmarg  _gft4_4     y3        _txswd      .,		///
	label("Margin:") right
  COMBOBOX cb_ttlmarg  _txssep     @         _txr2b4g    .,		///
	dropdownlist contents(margin) 	option(margin)
  CHECKBOX ck_ttlexp   @           _ms       _txr2b4g    .,		///
	label("Ignore text") option(bexpand)
  /**********************************************************************/
  /* Right Side Upper Subtitle col(1) */
  TEXT     tx_stitle    _igft2     rty       _txwd       .,		///
	label("Subtitle:") right
  EDIT     ed_stitle    _txsep     @         _txr2gi     .,		///
	label("Subtitle")
  TEXT     tx_stlsize  _igft2      _ms       _txwd       .,		///
	label("Size:") right
  COMBOBOX cb_stlsize  _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(textsizes) option(size)
  DEFINE   y @y
  TEXT     tx_stlclr   _igft2      _ms       _txwd       .,		///
	label("Color:") right
  COMBOBOX cb_stlclr   _txsep      @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(color)			///
	onselchangelist(gby_cl_stlclr_sel)
  COLOR    cl_stlclr   _tcr2b4gsep @         _colorwd    ., option(color)
  TEXT     tx_stlpos   _igft2      _ms       _txwd       .,		///
	label("Position:") right
  COMBOBOX cb_stlpos   _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(clockpos)	option(position)
  TEXT     tx_stlmark  _igft2      _ss       0           0,
  DEFINE   bxy @y
  /* Right Side Upper Subtitle col(2) */
  TEXT     tx_stljust  _gft4_4     y         _txwd       .,		///
	label("Justify:") right
  COMBOBOX cb_stljust  _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(justification) option(justification)
  TEXT     tx_stlgp    _gft4_4     _ms       _txwd       .,		///
	label("Line gap:") right
  EDIT     ed_stlgp    _txsep      @         _txr2b4g    .,		///
	option(linegap)
  /* Right Side Upper Subtitle box */
  CHECKBOX ck_stlbox   _igft2      bxy       _cwd1gb     _ht4h,		///
	groupbox label("Box") option(box)				///
	onclickon(script by_stlbox_on) onclickoff(script by_stlbox_off)
    /* col(1) */
  TEXT     tx_stlbclr  _iigft2     _ss       _txswd      .,		///
	label("Fill color:") right
  COMBOBOX cb_stlbclr  _txssep     @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(fcolor)			///
	onselchangelist(gby_cl_stlbclr_sel)
  COLOR    cl_stlbclr  _tcr2b4gsep @         _colorwd    ., option(fcolor)
  DEFINE   y3 @y
  TEXT     tx_stlblclr _iigft2     _ms       _txswd      .,		///
	label("Line color:") right
  COMBOBOX cb_stlblclr _txssep     @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(fcolor)			///
	onselchangelist(gby_cl_stlblclr_sel)
  COLOR    cl_stlblclr _tcr2b4gsep @         _colorwd    ., option(lcolor)
    /* col(2) */
  TEXT     tx_stlmarg  _gft4_4     y3        _txswd      ., 		///
	label("Margin:") right
  COMBOBOX cb_stlmarg  _txssep     @         _txr2b4g    .,		///
	dropdownlist contents(margin) option(margin)
  CHECKBOX ck_stlexp   @           _ms       _txr2b4g    .,		///
	label("Ignore text") option(bexpand)
  /**********************************************************************/
  /* Right Side Upper Caption col(1) */
  TEXT     tx_caption  _igft2      rty       _txwd       .,		///
	label("Caption:") right
  EDIT     ed_caption    _txsep    @         _txr2gi     .,
  TEXT     tx_capsize  _igft2      _ms       _txwd       .,		///
	label("Size:") right
  COMBOBOX cb_capsize  _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(textsizes) option(size)
  DEFINE   y @y
  TEXT     tx_capclr   _igft2      _ms       _txwd       .,		///
	label("Color:")	right
  COMBOBOX cb_capclr   _txsep      @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(color)			///
	onselchangelist(gby_cl_capclr_sel)
  COLOR    cl_capclr   _tcr2b4gsep @         _colorwd    ., option(color)
  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,
  DEFINE   bxy @y
  /* Right Side Upper Caption col(2) */
  TEXT     tx_capjust  _gft4_4     y         _txwd       .,		///
	label("Justify:") right
  COMBOBOX cb_capjust  _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(justification) option(justification)
  TEXT     tx_capgp    _gft4_4     _ms       _txwd       .,		///
	label("Line gap:") right
  EDIT     ed_capgp    _txsep      @         _txr2b4g    .,		///
	option(linegap)
  /* Right Side Upper Caption box */
  CHECKBOX ck_capbox   _igft2      bxy       _cwd1gb     _ht4h,		///
	groupbox label("Box") option(box)				///
	onclickon(script by_capbox_on) onclickoff(script by_capbox_off)
    /* col(1) */
  TEXT     tx_capbclr  _iigft2     _ss       _txswd      .,		///
	label("Fill color:") right
  COMBOBOX cb_capbclr  _txssep     @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(fcolor)			///
	onselchangelist(gby_cl_capbclr_sel)
  COLOR    cl_capbclr  _tcr2b4gsep @         _colorwd    ., option(fcolor)
  DEFINE   y3 @y
  TEXT     tx_capblclr _iigft2     _ms       _txswd      .,		///
	label("Line color:") right
  COMBOBOX cb_capblclr _txssep     @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(lcolor)			///
	onselchangelist(gby_cl_capblclr_sel)
  COLOR    cl_capblclr _tcr2b4gsep @         _colorwd    ., option(lcolor)
    /* col(2) */
  TEXT     tx_capmarg  _gft4_4     y3        _txswd      .,		///
	label("Margin:") right
  COMBOBOX cb_capmarg  _txssep     @         _txr2b4g    .,		///
	dropdownlist contents(margin)  option(margin)
  CHECKBOX ck_capexp   @           _ms       _txr2b4g    .,		///
	label("Ignore text") option(bexpand)
  /**********************************************************************/
  /* Right Side Upper Note col(1) */
  TEXT     tx_note     _igft2      rty       _txwd       .,		///
	label("Note:") right
  EDIT     ed_note     _txsep      @         _txr2gi     .,		///
	label("Note")
  TEXT     tx_notsize  _igft2      _ms       _txwd       .,		///
	label("Size:")  right
  COMBOBOX cb_notsize  _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(textsizes) option(size)
  DEFINE   y @y
  TEXT     tx_notclr   _igft2      _ms       _txwd       .,		///
	label("Color:") right
  COMBOBOX cb_notclr   _txsep      @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(color)			///
	onselchangelist(gby_cl_notclr_sel)
  COLOR    cl_notclr   _tcr2b4gsep @         _colorwd    ., option(color)
  TEXT     tx_notpos   _igft2      _ms       _txwd       .,		///
	label("Position:") right
  COMBOBOX cb_notpos   _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(clockpos)	option(position)
  TEXT     tx_notmark  _igft2      _ss       0           0,
  DEFINE   bxy @y
  /* Right Side Upper Note col(2) */
  TEXT     tx_notjust  _gft4_4     y         _txwd       .,		///
	label("Justify:") right
  COMBOBOX cb_notjust  _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(justification) option(justification)
  TEXT     tx_notgp    _gft4_4     _ms       _txwd       .,		///
	label("Line gap:") right
  EDIT     ed_notgp    _txsep      @         _txr2b4g    ., option(linegap)
  /* Right Side Upper Note box */
  CHECKBOX ck_notbox   _igft2      bxy       _cwd1gb     _ht4h,		///
	groupbox label("Box") option(box)				///
	onclickon(script by_notbox_on) onclickoff(script by_notbox_off)
    /* col(1) */
  TEXT     tx_notbclr  _iigft2     _ss       _txswd      .,		///
	label("Fill color:") right
  COMBOBOX cb_notbclr  _txssep     @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(fcolor)			///
	onselchangelist(gby_cl_notbclr_sel)
  COLOR    cl_notbclr  _tcr2b4gsep @         _colorwd    ., option(fcolor)
  DEFINE   y3 @y
  TEXT     tx_notblclr _iigft2     _ms       _txswd      .,		///
	label("Line color:") right
  COMBOBOX cb_notblclr _txssep     @         _tcr2b4g    .,		///
	dropdownlist contents(colors) option(lcolor)			///
	onselchangelist(gby_cl_notblclr_sel)
  COLOR    cl_notblclr _tcr2b4gsep @         _colorwd    ., option(lcolor)
    /* col(2) */
  TEXT     tx_notmarg  _gft4_4     y3        _txswd      .,		///
	label("Margin:") right
  COMBOBOX cb_notmarg  _txssep     @         _txr2b4g    .,		///
	dropdownlist contents(margin) option(margin)
  CHECKBOX ck_notexp   @           _ms       _txr2b4g    .,		///
  	label("Ignore text") option(bexpand)

  /**********************************************************************/
  /**********************************************************************/
  /* RIGHT SIDE LOWER Legend options */
  GROUPBOX  gb_legend  _lft2g      _xls      _gwd1       _ht7h,		///
	label("Legend options ")
  /* col(1) */
  TEXT     tx_legend   _igft2      _ms       _txwd       .,		///
	label("Use legend:") right
  DEFINE   y @y
  COMBOBOX cb_legend   _txsep      @         _txr2b4g    .,		///
	dropdownlist  contents(yesno) values(gby_legend_values)		///
	onselchangelist(gby_legend_action)
  CHECKBOX ck_leghole  @           _ms       _txr2b4g    .,		///
	label("Show in hole")						///
	onclickon(script gby_leghole_on) onclickoff(script gby_leghole_off)
  CHECKBOX ck_legspan  @           _ms       180         .,		///
	label("Span width of graph") option(span)
  /* col(2) */
  TEXT     tx_legpos   _gft4_4     y         _txwd       .,		///
	label("Position:") right
  DEFINE   y @y
  COMBOBOX cb_legpos   _txsep      @         _txr2b4g    .,		///
	dropdownlist contents(clockpos)	option(position)
  TEXT     tx_leghole  _gft4_4     _ms       _txwd       ., 		///
	label("Hole:") right
  EDIT     ed_leghole  _txsep      @         _en7wd      ., numonly	///
  	label("Hole")
END

SCRIPT gby_total_disable
BEGIN
	gby.ck_total.disable
END

SCRIPT gby_missing_disable
BEGIN
	gby.ck_missing.disable
END

SCRIPT gby_setViewByopts
BEGIN
	gby.tx_vars.hide
	gby.vl_vars.hide
	gby.ck_total.hide
	gby.ck_missing.hide
	gby.ck_colfirst.setposition . 30
	gby.tx_style.setposition . 30