gbarstyle_98s.idlg

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

/*
	gbarstyle_98s.idlg - include file for boxstyle options on graph bar
	and hbar
	
	**Special version for Windows95/98
	** Extra small

*!  VERSION 1.0.1  20mar2005
*/

DIALOG gb, label("") /*
		*/ tabtitle("Bars")
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_bargap     _gft4_2    @          _txwd     .,		/*
  		*/label("Bar gap:") right
  EDIT     en_bargap     _txsep     @          _txr4g    .,		/*
  		*/label("Bar gap") option(bargap) default(0) numonly
  GROUPBOX gb_box        _lft       _ms        _gwd1     _ht12,		/*
		*/label("Colors for bars")
  CHECKBOX ck_bcol1A    _lft4_1gi   _ms        _txwd     .,		/*
  		*/ label("Bar 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("Bar 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("Bar 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("Bar 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("Bar 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("Bar 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("Bar 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("Bar 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 gbarstyle_output
BEGIN
	optionarg gb.ed_ogap
	optionarg /hidedefault gb.en_bargap
	if gb.ck_bcol1A {
		put "bar(1"
		put /program gbstyle_b1
		put ") "
	}
	if gb.ck_bcol1B {
		put "bar(2"
		put /program gbstyle_b2
		put ") "
	}
	if gb.ck_bcol1C {
		put "bar(3"
		put /program gbstyle_b3
		put ") "
	}
	if gb.ck_bcol1D {
		put "bar(4"
		put /program gbstyle_b4
		put ") "
	}
	if gb.ck_bcol1E {
		put "bar(5"
		put /program gbstyle_b5
		put ") "
	}
	if gb.ck_bcol1F {
		put "bar(6"
		put /program gbstyle_b6
		put ") "
	}
	
	if gb.ck_bcol2A {
		put "bar(7"
		put /program gbstyle_b7
		put ") "
	}
	if gb.ck_bcol2B {
		put "bar(8"
		put /program gbstyle_b8
		put ") "
	}
END