gboxstyle_98s.idlg

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

/*
	gboxstyle_98s.idlg - include file for boxstyle options on graph box
	and graph hbox
	**Special version for Windows95/98
	** Extra small
	
*!  VERSION 1.0.1  20mar2005
*/

DIALOG gb, label("") /*
		*/ tabtitle("Boxes")
BEGIN
  /*--+----1----+----2----+----3----+----4----+----5----+----6----+----7----+*/ 
  TEXT     tx_ogap       _lft       _top       _txwd     .,		/*
  		*/label("Outer gap:") right
  EDIT     ed_ogap       _txsep     @          _txr4g    .,		/*
  		*/label("Outer gap") option(outergap)
  TEXT     tx_boxgap     _gft4_2    @          _txwd     .,		/*
  		*/label("Box gap:") right
  EDIT     en_boxgap     _txsep     @          _txr4g    .,		/*
  		*/label("Box gap") option(boxgap) default(0) numonly
  TEXT     tx_fint       _gft4_3    @          _txlwd    .,		/*
  		*/label("Fill intensity:") right
  EDIT     ed_fint       _txlsep    @          _en7wd    .,		/*
  		*/label("Fill intensity") option(intensity)
  GROUPBOX gb_box        _lft       _ms        _gwd1     _ht12,		/*
		*/label("Colors for boxes")
  CHECKBOX ck_bcol1A    _lft4_1gi   _ms        _txwd     .,		/*
  		*/ label("Box 1") clickon(gaction gb.cl_bcol1A.show)	/*
  		*/ clickoff(gaction gb.cl_bcol1A.hide)
  DEFINE _topy @y
  COLOR    cl_bcol1A     _txsep     @          _txr4gi   .,		/*
  		*/ option(bcolor) 
  CHECKBOX ck_bcol1B    _lft4_1gi   _ls        _txwd     .,		/*
  		*/ label("Box 2") clickon(gaction gb.cl_bcol1B.show)	/*
  		*/ clickoff(gaction gb.cl_bcol1B.hide)
  COLOR    cl_bcol1B     _txsep     @          _txr4gi  .,		/*
  		*/  option(bcolor) 
  CHECKBOX ck_bcol1C    _lft4_1gi   _ls        _txwd     .,		/*
  		*/ label("Box 3") clickon(gaction gb.cl_bcol1C.show)	/*
  		*/ clickoff(gaction gb.cl_bcol1C.hide)
  COLOR    cl_bcol1C     _txsep     @          _txr4gi  .,		/*
  		*/ option(bcolor) 
  CHECKBOX ck_bcol1D    _lft4_1gi   _ls        _txwd     .,		/*
  		*/ label("Box 4") clickon(gaction gb.cl_bcol1D.show)	/*
  		*/ clickoff(gaction gb.cl_bcol1D.hide)
  COLOR    cl_bcol1D     _txsep     @          _txr4gi   .,		/*
  		*/ option(bcolor) 
  	
  /* Column 2 */
  CHECKBOX ck_bcol1E    _lft4_2g    _topy      _txwd     .,		/*
  		*/ label("Box 5") clickon(gaction gb.cl_bcol1E.show)	/*
  		*/ clickoff(gaction gb.cl_bcol1E.hide)
  COLOR    cl_bcol1E     _txsep     @          _txr4gi   .,		/*
  		*/ option(bcolor)
  CHECKBOX ck_bcol1F    _lft4_2g    _ls        _txwd     .,		/*
  		*/ label("Box 6") clickon(gaction gb.cl_bcol1F.show)	/*
  		*/ clickoff(gaction gb.cl_bcol1F.hide)
  COLOR    cl_bcol1F     _txsep     @          _txr4gi   .,		/*
  		*/ option(bcolor) 
  CHECKBOX ck_bcol2A    _lft4_2g    _ls        _txwd     .,		/*
  		*/ label("Box 7") clickon(gaction gb.cl_bcol2A.show)	/*
  		*/ clickoff(gaction gb.cl_bcol2A.hide)
  COLOR    cl_bcol2A     _txsep     @          _txr4gi   .,		/*
  		*/ option(bcolor) 
  CHECKBOX ck_bcol2B    _lft4_2g    _ls        _txwd     .,		/*
  		*/ label("Box 8") clickon(gaction gb.cl_bcol2B.show)	/*
  		*/ clickoff(gaction gb.cl_bcol2B.hide)
  COLOR    cl_bcol2B     _txsep     @          _txr4gi  .,		/*
  		*/ option(bcolor) 

END

PROGRAM gbstyle_b1
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol1A
    endoptions
END

PROGRAM gbstyle_b2
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol1B
    endoptions
END

PROGRAM gbstyle_b3
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol1C
    endoptions
END

PROGRAM gbstyle_b4
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol1D
    endoptions
END

PROGRAM gbstyle_b5
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol1E
    endoptions
END

PROGRAM gbstyle_b6
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol1F
    endoptions
END

PROGRAM gbstyle_b7
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol2A
    endoptions
END

PROGRAM gbstyle_b8
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol2B
    endoptions
END

PROGRAM gboxstyle_output
BEGIN
	optionarg gb.ed_ogap
	optionarg /hidedefault gb.en_boxgap
	optionarg /hidedefault gb.ed_fint
	if gb.ck_bcol1A {
		put "box(1"
		put /program gbstyle_b1
		put ") "
	}
	if gb.ck_bcol1B {
		put "box(2"
		put /program gbstyle_b2
		put ") "
	}
	if gb.ck_bcol1C {
		put "box(3"
		put /program gbstyle_b3
		put ") "
	}
	if gb.ck_bcol1D {
		put "box(4"
		put /program gbstyle_b4
		put ") "
	}
	if gb.ck_bcol1E {
		put "box(5"
		put /program gbstyle_b5
		put ") "
	}
	if gb.ck_bcol1F {
		put "box(6"
		put /program gbstyle_b6
		put ") "
	}
	
	if gb.ck_bcol2A {
		put "box(7"
		put /program gbstyle_b7
		put ") "
	}
	if gb.ck_bcol2B {
		put "box(8"
		put /program gbstyle_b8
		put ") "
	}
END