gregion_common_98_sc.idlg

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

 /*
   common scripts for graph overall options (region options) 
   ** Special version for Windows 95/98
   
*!  VERSION 1.0.1  27apr2004
 
*/

SCRIPT gregion_disable
BEGIN
	rg.tx_gname.disable
	rg.ed_gname.disable
	rg.ck_replace.disable
	rg.tx_scheme.disable
	rg.cb_scheme.disable
	rg.gb_gregion.disable
	rg.tx_height.disable
	rg.en_height.disable
	rg.tx_margin.disable
	rg.cb_margin.disable
	rg.tx_width.disable
	rg.en_width.disable
	rg.tx_text.disable
	rg.en_text.disable
	rg.gb_outer1.disable
	rg.ck_fill1.disable
	rg.cl_fill1.disable
	rg.gb_inner.disable
	rg.ck_fill2.disable
	rg.cl_fill2.disable
	rg.ck_adv.disable
	rg.tx_abs.disable
	rg.ck_height2.disable
	rg.en_height2.disable
	rg.ck_width2.disable
	rg.en_width2.disable
	rg.tx_addl.disable
	rg.ed_addl.disable
	rg.gb_pregion.disable
	rg.tx_margin2.disable
	rg.cb_margin2.disable
	rg.gb_outer2.disable
	rg.ck_fill3.disable
	rg.cl_fill3.disable
	rg.gb_inner2.disable
	rg.ck_fill4.disable
	rg.cl_fill4.disable
END 

SCRIPT gregion_enable
BEGIN
	program gr_enable
END

PROGRAM gr_enable
BEGIN
	call gaction rg.tx_gname.enable
	call gaction rg.ed_gname.enable
	call gaction rg.ck_replace.enable
	call gaction rg.tx_scheme.enable
	call gaction rg.cb_scheme.enable
	call gaction rg.gb_gregion.enable
	call gaction rg.tx_height.enable
	call gaction rg.en_height.enable
	call gaction rg.tx_margin.enable
	call gaction rg.cb_margin.enable
	call gaction rg.tx_width.enable
	call gaction rg.en_width.enable
	call gaction rg.tx_text.enable
	call gaction rg.en_text.enable
	call gaction rg.gb_outer1.enable
	call gaction rg.ck_fill1.enable
	call gaction rg.cl_fill1.enable
	call gaction rg.gb_inner.enable
	call gaction rg.ck_fill2.enable
	call gaction rg.cl_fill2.enable
	call gaction rg.ck_adv.enable
	if rg.ck_adv {
		call program rg_adv_on
	}
	call gaction rg.tx_addl.enable
	call gaction rg.ed_addl.enable
	call gaction rg.gb_pregion.enable
	call gaction rg.tx_margin2.enable
	call gaction rg.cb_margin2.enable
	call gaction rg.gb_outer2.enable
	call gaction rg.ck_fill3.enable
	call gaction rg.cl_fill3.enable
	call gaction rg.gb_inner2.enable
	call gaction rg.ck_fill4.enable
	call gaction rg.cl_fill4.enable
END 

PROGRAM rg_adv_on
BEGIN
	call gaction rg.tx_abs.enable
	call gaction rg.ck_height2.enable
	if rg.ck_height2 {
		call gaction rg.en_height2.enable
	}
	call gaction rg.ck_width2.enable
	if rg.ck_width2 {
		call gaction rg.en_width2.enable
	}
END

SCRIPT rg_adv_off
BEGIN
	rg.tx_abs.disable
	rg.ck_height2.disable
	rg.en_height2.disable
	rg.ck_width2.disable
	rg.en_width2.disable
END

PROGRAM gregion_common_output
BEGIN
	if rg.ed_gname {
		if rg.ck_replace {
			put " " "name(" rg.ed_gname ", replace) "
		}
		if !rg.ck_replace {
			optionarg rg.ed_gname
		}
	}
	optionarg rg.cb_scheme
	optionarg rg.en_height
	optionarg rg.en_width
	if rg.ck_adv {
		if rg.ck_height2 {
			optionarg rg.en_height2
		}
		if rg.ck_width2 {
			optionarg rg.en_width2
		}
	}
	optionarg /hidedefault rg.en_text

	if !H(rg.cl_fill1) | !H(rg.cl_fill2) | rg.cb_margin {
		put "graphregion("
		put /program rg_graphregion_output
		put ") "
	}
	if !H(rg.cl_fill3) | !H(rg.cl_fill4) | rg.cb_margin2 {
		put "plotregion("
		put /program rg_plotregion_output
		put ") "
	}
	put rg.ed_addl
END

PROGRAM rg_graphregion_output
BEGIN
	optionarg rg.cb_margin
	if !H(rg.cl_fill1) {
		optionarg rg.cl_fill1
	}
	if !H(rg.cl_fill2) {
		optionarg rg.cl_fill2
	}
END

PROGRAM rg_plotregion_output
BEGIN
	optionarg /hidedefault rg.cb_margin2
	if !H(rg.cl_fill3) {
		optionarg rg.cl_fill3
	}
	if !H(rg.cl_fill4) {
		optionarg rg.cl_fill4
	}
END

/* End gregion_common_98_sc.idlg */