gbarlabel_98.idlg

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

/*
  gbarlabel_98.idlg Include for graphics labels
  **Special version for Windows95/98

*!  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 gbarlabel, tabtitle("Labels")
BEGIN

  /* LEFT SIDE-- Label */
  GROUPBOX gb_label    _lft        _top      _gwd1       _ht10,		/*
		*/ label("Label options ")
  /* LEFT SIDE-- Label col(1) */
  TEXT     tx_type     _igft       _ms       _txwd       ., 		/*
  		*/ label("Label type:")					/*
  		*/ right
  COMBOBOX cb_type     _txsep      @         _txr2b4g    .,		/*
  		*/ dropdownlist						/*
  		*/ label("Label type:")					/*
  		*/ contents(gbarlabel_type)				/*
  		*/ values(gbarlabel_type_values)
  DEFINE   y @y
  TEXT     tx_size     _igft       _ms       _txwd       .,		/*
		*/ label("Size:")					/*
		*/ right
  COMBOBOX cb_size     _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist contents(textsizes) option(size)
  TEXT     tx_posit    _igft       _ms       _txwd       .,		/*
		*/ label("Position:")					/*
		*/ right
  COMBOBOX cb_posit    _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ label("Position")					/*
		*/ contents(gbarlabel_position)				/*
		*/ values(gbarlabel_position_values)			/*
		*/ option(position)
  CHECKBOX ck_clr      _igft       _ms       _txwd       .,		/*
		*/ label("Color")					/*
		*/ clickon(gaction gbarlabel.cl_clr.show)		/*
		*/ clickoff(gaction gbarlabel.cl_clr.hide)
  COLOR    cl_clr      _txsep      @         _txr2b4g    .,		/*
		*/ option(color)

  /* LEFT SIDE-- Label upper col(2)*/

  TEXT     tx_margin   _lft4_2g    y         _txwd       .,		/*
		*/ label("Margin:")					/*
		*/ right
  COMBOBOX cb_margin   _txsep      @         _txr2b4g    .,		/*
		*/ dropdown contents(margin) option(margin)
  TEXT     tx_gap      _lft4_2g    _ms       _txwd       .,		/*
  		*/ label("Label gap:")					/*
  		*/ right
  EDIT     ed_gap      _txsep      @	     _txr2b4g    .,		/*
  		*/ label("Label gap")					/*
  		*/ option(gap)
  TEXT     tx_fmt      _lft4_2g    _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)
END

LIST gbarlabel_type
BEGIN
	"None"
	"Bar"
	"Total"
	"Name"
	"Group"
END

LIST gbarlabel_type_values
BEGIN
	""
	"bar"
	"total"
	"name"
	"group"
END

LIST gbarlabel_position
BEGIN
	"Default"
	"Outside"
	"Inside"
	"Base"
	"Center"
END

LIST gbarlabel_position_values
BEGIN
	""
	"outside"
	"inside"
	"base"
	"center"
END

/* Script to enable this tab */
SCRIPT gbarlabel_enable
BEGIN
	program gbarlabel_enable_pr
END

PROGRAM gbarlabel_enable_pr
BEGIN
	call gaction gbarlabel.gb_label.enable
	call gaction gbarlabel.tx_type.enable
	call gaction gbarlabel.cb_type.enable
	call gaction gbarlabel.tx_size.enable
	call gaction gbarlabel.cb_size.enable
	call gaction gbarlabel.ck_clr.enable
	call gaction gbarlabel.cl_clr.enable
	call gaction gbarlabel.tx_posit.enable
	call gaction gbarlabel.cb_posit.enable
	call gaction gbarlabel.tx_margin.enable
	call gaction gbarlabel.cb_margin.enable
	call gaction gbarlabel.tx_fmt.enable
	call gaction gbarlabel.ed_fmt.enable
	call gaction gbarlabel.bt_fmt.enable
	call gaction gbarlabel.tx_gap.enable
	call gaction gbarlabel.ed_gap.enable
END

/* Script to disable this tab */
SCRIPT gbarlabel_disable
BEGIN
	gbarlabel.gb_label.disable
	gbarlabel.tx_type.disable
	gbarlabel.cb_type.disable
	gbarlabel.tx_size.disable
	gbarlabel.cb_size.disable
	gbarlabel.ck_clr.disable
	gbarlabel.cl_clr.disable
	gbarlabel.tx_posit.disable
	gbarlabel.cb_posit.disable
	gbarlabel.tx_margin.disable
	gbarlabel.cb_margin.disable
	gbarlabel.tx_fmt.disable
	gbarlabel.ed_fmt.disable
	gbarlabel.bt_fmt.disable
	gbarlabel.tx_gap.disable
	gbarlabel.ed_gap.disable
END

PROGRAM gbarlabel_label_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault gbarlabel.cb_size
      		if !H(gbarlabel.cl_clr) {
			optionarg /quoted gbarlabel.cl_clr
		}
		optionarg /hidedefault gbarlabel.cb_posit
		optionarg /hidedefault gbarlabel.cb_margin
		optionarg /hidedefault gbarlabel.ed_gap
		optionarg /hidedefault gbarlabel.ed_fmt
	endoptions
END

PROGRAM gbarlabel_output
BEGIN
    if !H(gbarlabel.cb_type) & gbarlabel.cb_type {
	put "blabel(" gbarlabel.cb_type
	put /program gbarlabel_label_opt_pr
	put ") "
    }
END