gregion_common_98s_sc.idlg

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

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

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.ck_fill1.disable
	rg.cl_fill1.disable
	rg.tx_addl.disable
	rg.ed_addl.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.ck_fill1.enable
	call gaction rg.cl_fill1.enable
	call gaction rg.tx_addl.enable
	call gaction rg.ed_addl.enable
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 !H(rg.cl_fill1) | rg.cb_margin {
		put "graphregion("
		put /program rg_graphregion_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
	}
END
/* End gregion_common_98_sc.idlg */