gbarstyle_98.idlg

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

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

*!  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        _iwd      _ht18,		/*
		*/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)
  CHECKBOX ck_bcol1E    _lft4_1gi   _ls        _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_1gi   _ls        _txwd     .,		/*
  		*/ label("Bar 6") clickon(gaction gb.cl_bcol1F.show)	/*
  		*/ clickoff(gaction gb.cl_bcol1F.hide)
  COLOR    cl_bcol1F     _txsep     @          _txr4gi  .,		/*
  		*/ option(bcolor) 

  /* Column 2 */
  CHECKBOX ck_bcol2A    _lft4_2g    _topy      _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) 
  CHECKBOX ck_bcol2C    _lft4_2g    _ls        _txwd     .,		/*
  		*/ label("Bar 9") clickon(gaction gb.cl_bcol2C.show)	/*
  		*/ clickoff(gaction gb.cl_bcol2C.hide)
  COLOR    cl_bcol2C     _txsep     @          _txr4gi  .,		/*
  		*/ option(bcolor)
  CHECKBOX ck_bcol2D    _lft4_2g    _ls        _txwd     .,		/*
  		*/ label("Bar 10") clickon(gaction gb.cl_bcol2D.show)	/*
  		*/ clickoff(gaction gb.cl_bcol2D.hide)
  COLOR    cl_bcol2D     _txsep     @          _txr4gi   .,		/*
  		*/ option(bcolor)
  CHECKBOX ck_bcol2E    _lft4_2g    _ls        _txwd     .,		/*
  		*/ label("Bar 11") clickon(gaction gb.cl_bcol2E.show)	/*
  		*/ clickoff(gaction gb.cl_bcol2E.hide)
  COLOR    cl_bcol2E     _txsep     @          _txr4gi  .,		/*
  		*/ option(bcolor) 
  CHECKBOX ck_bcol2F    _lft4_2g    _ls        _txwd     .,		/*
  		*/ label("Bar 12") clickon(gaction gb.cl_bcol2F.show)	/*
  		*/ clickoff(gaction gb.cl_bcol2F.hide)
  COLOR    cl_bcol2F     _txsep     @          _txr4gi  .,		/*
  		*/ option(bcolor)

  /* Column 3 */
  CHECKBOX ck_bcol3A    _lft4_3g    _topy      _txwd     .,		/*
  		*/ label("Bar 13") clickon(gaction gb.cl_bcol3A.show)	/*
  		*/ clickoff(gaction gb.cl_bcol3A.hide)
  COLOR    cl_bcol3A     _txsep     @          _txr4gi   .,		/*
  		*/ option(bcolor) 
  CHECKBOX ck_bcol3B    _lft4_3g    _ls        _txwd     .,		/*
  		*/ label("Bar 14") clickon(gaction gb.cl_bcol3B.show)	/*
  		*/ clickoff(gaction gb.cl_bcol3B.hide)
  COLOR    cl_bcol3B     _txsep     @          _txr4gi  .,		/*
  		*/ option(bcolor) 
  CHECKBOX ck_bcol3C    _lft4_3g    _ls        _txwd     .,		/*
  		*/ label("Bar 15") clickon(gaction gb.cl_bcol3C.show)	/*
  		*/ clickoff(gaction gb.cl_bcol3C.hide)
  COLOR    cl_bcol3C     _txsep     @          _txr4gi  .,		/*
  		*/ option(bcolor)
  CHECKBOX ck_bcol3D    _lft4_3g    _ls        _txwd     .,		/*
  		*/ label("Bar 16") clickon(gaction gb.cl_bcol3D.show)	/*
  		*/ clickoff(gaction gb.cl_bcol3D.hide)
  COLOR    cl_bcol3D     _txsep     @          _txr4gi   .,		/*
  		*/ option(bcolor) 
  CHECKBOX ck_bcol3E    _lft4_3g    _ls        _txwd     .,		/*
  		*/ label("Bar 17") clickon(gaction gb.cl_bcol3E.show)	/*
  		*/ clickoff(gaction gb.cl_bcol3E.hide)
  COLOR    cl_bcol3E     _txsep     @          _txr4gi  .,		/*
  		*/ option(bcolor)
  CHECKBOX ck_bcol3F    _lft4_3g    _ls        _txwd     .,		/*
  		*/ label("Bar 18") clickon(gaction gb.cl_bcol3F.show)	/*
  		*/ clickoff(gaction gb.cl_bcol3F.hide)
  COLOR    cl_bcol3F     _txsep     @          _txr4gi  .,		/*
  		*/ option(bcolor) 

  /* Column 4 */
  CHECKBOX ck_bcol4A    _lft4_4g    _topy      _txwd     .,		/*
  		*/ label("Bar 19") clickon(gaction gb.cl_bcol4A.show)	/*
  		*/ clickoff(gaction gb.cl_bcol4A.hide)
  COLOR    cl_bcol4A     _txsep     @          _txr4gi   .,		/*
  		*/ label("Bar 19") option(bcolor) default(255 0 0)
  CHECKBOX ck_bcol4B    _lft4_4g    _ls        _txwd     .,		/*
  		*/ label("Bar 20") clickon(gaction gb.cl_bcol4B.show)	/*
  		*/ clickoff(gaction gb.cl_bcol4B.hide)
  COLOR    cl_bcol4B     _txsep     @          _txr4gi  .,		/*
  		*/ label("Bar 20") option(bcolor) default(255 0 0)
  CHECKBOX ck_bcol4C    _lft4_4g    _ls        _txwd     .,		/*
  		*/ label("Bar 21") clickon(gaction gb.cl_bcol4C.show)	/*
  		*/ clickoff(gaction gb.cl_bcol4C.hide)
  COLOR    cl_bcol4C     _txsep     @          _txr4gi  .,		/*
  		*/ label("Bar 21") option(bcolor) default(255 0 0)
  CHECKBOX ck_bcol4D    _lft4_4g    _ls        _txwd     .,		/*
  		*/ label("Bar 22") clickon(gaction gb.cl_bcol4D.show)	/*
  		*/ clickoff(gaction gb.cl_bcol4D.hide)
  COLOR    cl_bcol4D     _txsep     @          _txr4gi   .,		/*
  		*/ label("Bar 22") option(bcolor) default(255 0 0)
  CHECKBOX ck_bcol4E    _lft4_4g    _ls        _txwd     .,		/*
  		*/ label("Bar 23") clickon(gaction gb.cl_bcol4E.show)	/*
  		*/ clickoff(gaction gb.cl_bcol4E.hide)
  COLOR    cl_bcol4E     _txsep     @          _txr4gi  .,		/*
  		*/ label("Bar 23") option(bcolor) default(255 0 0)
  CHECKBOX ck_bcol4F    _lft4_4g    _ls        _txwd     .,		/*
  		*/ label("Bar 24") clickon(gaction gb.cl_bcol4F.show)	/*
  		*/ clickoff(gaction gb.cl_bcol4F.hide)
  COLOR    cl_bcol4F     _txsep     @          _txr4gi  .,		/*
  		*/ label("Bar 24") option(bcolor) default(255 0 0)
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 gbstyle_b9
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol2C
    endoptions
END

PROGRAM gbstyle_b10
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol2D
    endoptions
END

PROGRAM gbstyle_b11
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol2E
    endoptions
END

PROGRAM gbstyle_b12
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol2F
    endoptions
END

PROGRAM gbstyle_b13
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol3A
    endoptions
END

PROGRAM gbstyle_b14
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol3B
    endoptions
END

PROGRAM gbstyle_b15
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol3C
    endoptions
END

PROGRAM gbstyle_b16
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol3D
    endoptions
END

PROGRAM gbstyle_b17
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol3E
    endoptions
END

PROGRAM gbstyle_b18
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol3F
    endoptions
END

PROGRAM gbstyle_b19
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol4A
    endoptions
END

PROGRAM gbstyle_b20
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol4B
    endoptions
END

PROGRAM gbstyle_b21
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol4C
    endoptions
END

PROGRAM gbstyle_b22
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol4D
    endoptions
END

PROGRAM gbstyle_b23
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol4E
    endoptions
END

PROGRAM gbstyle_b24
BEGIN
    beginoptions
	optionarg /quoted gb.cl_bcol4F
    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 ") "
	}
	if gb.ck_bcol2C {
		put "bar(9"
		put /program gbstyle_b9
		put ") "
	}
	if gb.ck_bcol2D {
		put "bar(10"
		put /program gbstyle_b10
		put ") "
	}
	if gb.ck_bcol2E {
		put "bar(11"
		put /program gbstyle_b11
		put ") "
	}
	if gb.ck_bcol2F {
		put "bar(12"
		put /program gbstyle_b12
		put ") "
	}
	
	if gb.ck_bcol3A {
		put "bar(13"
		put /program gbstyle_b13
		put ") "
	}
	if gb.ck_bcol3B {
		put " bar(14"
		put /program gbstyle_b14
		put ") "
	}
	if gb.ck_bcol3C {
		put "bar(15"
		put /program gbstyle_b15
		put ") "
	}
	if gb.ck_bcol3D {
		put "bar(16"
		put /program gbstyle_b16
		put ") "
	}
	if gb.ck_bcol3E {
		put "bar(17"
		put /program gbstyle_b17
		put ") "
	}
	if gb.ck_bcol3F {
		put "bar(18"
		put /program gbstyle_b18
		put ") "
	}
	
	if gb.ck_bcol4A {
		put "bar(19"
		put /program gbstyle_b19
		put ") "
	}
	if gb.ck_bcol4B {
		put "bar(20"
		put /program gbstyle_b20
		put ") "
	}
	if gb.ck_bcol4C {
		put "bar(21"
		put /program gbstyle_b21
		put ") "
	}
	if gb.ck_bcol4D {
		put "bar(22"
		put /program gbstyle_b22
		put ") "
	}
	if gb.ck_bcol4E {
		put "bar(23"
		put /program gbstyle_b23
		put ") "
	}
	if gb.ck_bcol4F {
		put "bar(24"
		put /program gbstyle_b24
		put ") "
	}
END