glegend.idlg

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

/*
  glegend.idlg Include for graphics legends

*!  VERSION 1.1.3  24jun2005

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

*/

DIALOG glegend, tabtitle("Legend")
BEGIN
  /* LEFT SIDE */
  GROUPBOX  gb_main    _lft        _top      _gwd1       _ht15,	///
	label("Legend controls ")
  DEFINE    ytop @y
  /* LEFT SIDE-- Legend col(1) */
  TEXT     tx_legend   _igft       _ms       _txwd       .,	///
	label("Use legend:") right
  COMBOBOX cb_legend   _txsep      @         _txr2b4g    .,	///
	dropdownlist 						///
	contents(yesno) values(glegend_legend_values)		///
	onselchangelist(glegend_legend_action)
  DEFINE   y @y
  TEXT     tx_colfirst _igft       _ms       _txwd       .,	///
	label("Col. first:") right
  COMBOBOX cb_colfirst _txsep      @         _txr2b4g    .,	///
	dropdownlist contents(yesno) values(glegend_colfirst_values)
  TEXT     tx_txfirst  _igft       _ms       _txwd       .,	///
	label("Text first:") right
  COMBOBOX cb_txfirst  _txsep      @         _txr2b4g    .,	///
	dropdownlist contents(yesno) values(glegend_txfirst_values)
  TEXT     tx_stack    _igft       _ms       _txwd       .,	///
	label("Stack:") right
  COMBOBOX cb_stack    _txsep      @         _txr2b4g    .,	///
	dropdownlist contents(yesno) values(glegend_stack_values)
  TEXT     tx_layout   _igft       _ms       _txwd       .,	///
	label("Layout:") right
  COMBOBOX cb_layout   _txsep      @         _txr2b4g    .,	///
	dropdownlist onselchangelist(glegend_layout_action)	///
	contents(glegend_layout) values(glegend_layout_values)
  TEXT     tx_layoutsp _igft       _ms       _txwd       .,	///
	right	/* use setlabel below */
  SPINNER  sp_rowcol   _txsep      @         _spwd       .,	///
	min(1) max(100) default(1)
  TEXT     tx_mark     @           +35       0           0,
  DEFINE   y2 @y

  /* LEFT SIDE-- Legend col(2) */
  TEXT     tx_sympl    _gft4_2     y         _txwd       .,	///
	label("Symbol:") right
  COMBOBOX cb_sympl    _txsep      @         _txr2b4g    .,	///
	dropdownlist contents(compass) option(symplacement)
  TEXT     tx_rowgp    _gft4_2     _ms       _txwd       .,	///
	label("Row gap:") right
  EDIT     ed_rowgp    _txsep      @         _txr2b4g    .,	///
	label("Row gap") option(rowgap)
  TEXT     tx_colgp    _gft4_2     _ms       _txwd       .,	///
	label("Col. gap:") right
  EDIT     ed_colgp    _txsep      @         _txr2b4g    .,	///
	label("Column gap") option(colgap)
  TEXT     tx_keygp    _gft4_2     _ms       _txwd       .,	///
	label("Key gap:") right
  EDIT     ed_keygp    _txsep      @         _txr2b4g    .,	///
	option(keygap)

  /* LEFT SIDE lower box */
  GROUPBOX  gb_region  _lft        y2        _gwd1       _ht12,	///
	label("Region options ")
  /* LEFT SIDE-- Region col(1) */
  TEXT     tx_rcolor   _igft       _ss       _txwd       .,	///
	label("Fill color:") right
  DEFINE   y @y
  COMBOBOX cb_rcolor   _txsep      @         _tcr2b4g    .,	///
	dropdownlist contents(colors) option(fcolor)		///
	onselchangelist(glegend_cl_rcolor_sel)
  COLOR    cl_rcolor   _tcr2b4gsep @         _colorwd    ., option(fcolor)
  TEXT     tx_rlcolor  _igft       _ms       _txwd       .,	///
	label("Line color:") right
  COMBOBOX cb_rlcolor  _txsep      @         _tcr2b4g    .,	///
	dropdownlist contents(colors) option(lcolor) 		///
	onselchangelist(glegend_cl_rlcolor_sel)
  COLOR    cl_rlcolor  _tcr2b4gsep @         _colorwd    ., option(lcolor)
  TEXT     tx_rpos     _igft       _ms       _txwd       .,	///
	label("Position:") right
  COMBOBOX cb_rpos     _txsep      @         _txr2b4g    .,	///
	dropdownlist contents(clockpos)	option(position)
  CHECKBOX ck_ring     @           _ms       _txr2gi     .,	///
	label("Inside plot region")				///
	onclickon(program glegend_ring_check)			///
	onclickoff(program glegend_ring_check)			///
	option(ring(0))
  CHECKBOX ck_span     @           _ms       _txr2gi     ., 	///
	label("Span width of graph")				///
	onclickon(program glegend_span_check)			///
	onclickoff(program glegend_span_check)			///
	option(span)
  DEFINE temp @y
  /* LEFT SIDE-- Region col(2) */
  TEXT     tx_rmargin  _gft4_2     y         _txwd       .,	///
	label("Margin:") right
  COMBOBOX cb_rmargin  _txsep      @         _txr2b4g    .,	///
	dropdown contents(margin) option(margin)
  TEXT     tx_rlwd     _gft4_2     _ms       _txwd       .,	///
	label("Line width:") right
  COMBOBOX cb_rlwd     _txsep      @         _txr2b4g    .,	///
	dropdownlist contents(linewidths) option(lwidth)

  /**********************************************************************/
  /* 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(glegend_mode)			///
	onselchangelist(glegend_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(glegend_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_ttlmrgn  _gft4_4     _ms       _txwd       .,	///
	label("Margin:") right
  COMBOBOX cb_ttlmrgn  _txsep      @         _txr2b4g    .,	///
	dropdown contents(margin) option(margin)
  TEXT     tx_ttlgp    _gft4_4     _ms       _txwd       .,	///
	label("Line gap:") right
  EDIT     ed_ttlgp    _txsep      @         _txr2b4g    .,	///
	option(linegap)
  /* Right Side Upper Title box */
  CHECKBOX ck_ttlbox   _igft2      bxy       _cwd1gb     _ht4h,	///
	groupbox label("Box") option(box)			///
	onclickon(script legend_ttlbox_on)			///
	onclickoff(script legend_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(glegend_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(glegend_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(bmargin)
  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     .,
  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(glegend_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_stlmrgn  _gft4_4     _ms       _txwd       .,	///
	label("Margin:") right
  COMBOBOX cb_stlmrgn  _txsep      @         _txr2b4g    .,	///
	dropdown contents(margin) option(margin)
  TEXT     tx_stlgp    _gft4_4     _ms       _txwd       .,	///
	label("Line gap:") right
  EDIT     ed_stlgp    _txsep      @         _txr2b4g    .,	///
	label("Line gap") option(linegap)
  /* Right Side Upper Subtitle box */
  CHECKBOX ck_stlbox   _igft2      bxy       _cwd1gb     _ht4h,	///
	groupbox label("Box") option(box)			///
	onclickon(script legend_stlbox_on)			///
	onclickoff(script legend_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(glegend_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(lcolor)		///
	onselchangelist(glegend_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(bmargin)
  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     .,	///
	label("Caption")
  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(glegend_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_capmrgn  _gft4_4     _ms       _txwd       .,	///
	label("Margin:") right
  COMBOBOX cb_capmrgn  _txsep      @         _txr2b4g    .,	///
	dropdown contents(margin) option(margin)
  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 legend_capbox_on)			///
	onclickoff(script legend_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(glegend_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(glegend_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(bmargin)
  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     .,
  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(glegend_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_notmrgn  _gft4_4     _ms       _txwd       .,	///
	label("Margin:") right
  COMBOBOX cb_notmrgn  _txsep      @         _txr2b4g    .,	///
	dropdown contents(margin) option(margin)
  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 legend_notbox_on)			///
	onclickoff(script legend_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(glegend_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(glegend_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(bmargin)
  CHECKBOX ck_notexp   @           _ms       _txr2b4g    .,	///
	label("Ignore text") option(bexpand)

  /**********************************************************************/
  /**********************************************************************/
  /* Right Side Lower label options*/
  GROUPBOX  gb_label   _lft2g      _xls      _gwd1       _ht7h,	///
	label("Label options ")

  /* RIGHT SIDE-- Label col(1)*/
  TEXT     tx_lab_ord  _igft2      _ss       _txwd       .,	///
	label("Labels")	 right
  EDIT     ed_lab_ord  _txsep      @         _tcr2gi    .,	///
	option(order)
  BUTTON   bt_lab_ord  _tcr2gisep  @         _btwd       .,	///
	label("?") onpush(view help legend_order##|_new)
  TEXT     tx_lsize    _igft2      _ms       _txwd       .,	///
	label("Size:") right
  DEFINE   y @y
  COMBOBOX cb_lsize    _txsep      @         _txr2b4g    .,	///
	dropdownlist contents(textsizes) option(size)
  TEXT     tx_lclr     _igft2      _ms       _txwd       .,	///
	label("Color:") right
  COMBOBOX cb_lclr     _txsep      @         _tcr2b4g    .,	///
	dropdownlist contents(colors) option(color)		///
	onselchangelist(glegend_cl_lclr_sel)
  COLOR    cl_lclr     _tcr2b4gsep @         _colorwd    ., option(color)
  /* RIGHT SIDE-- Label col(2)*/
  TEXT     tx_ljust    _gft4_4     y         _txwd       .,	///
	label("Justify:") right
  COMBOBOX cb_ljust    _txsep      @         _txr2b4g    .,	///
	dropdownlist contents(justification) option(justification)
  CHECKBOX ck_lallkey  @           _ms       _txr2b4g    .,	///
	label("All keys") option(all)
END