gpielabels.idlg

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

END

SCRIPT pl_showstuff5to8
BEGIN
	pl.gb_label1.show
	pl.gb_label1.setlabel "Fifth label"
	pl.tx_slice1.show
	pl.en_slice5.show
	pl.tx_label1.show
	pl.cb_label5.show
	pl.tx_size1.show
	pl.cb_size5.show
	pl.tx_ori1.show
	pl.cb_ori5.show
	pl.tx_col1.show
	pl.cb_col5.show
	pl.cb_col5.withvalue pl.cb_col5.setvalue "@"
	pl.tx_for1.show
	pl.ed_for5.show
	pl.bu_for1.show

	pl.gb_label2.show
	pl.gb_label2.setlabel "Sixth label"
	pl.tx_slice2.show
	pl.en_slice6.show
	pl.tx_label2.show
	pl.cb_label6.show
	pl.tx_size2.show
	pl.cb_size6.show
	pl.tx_ori2.show
	pl.cb_ori6.show
	pl.tx_col2.show
	pl.cb_col6.show
	pl.cb_col6.withvalue pl.cb_col6.setvalue "@"
	pl.tx_for2.show
	pl.ed_for6.show
	pl.bu_for2.show

	pl.gb_label3.show
	pl.gb_label3.setlabel "Seventh label"
	pl.tx_slice3.show
	pl.en_slice7.show
	pl.tx_label3.show
	pl.cb_label7.show
	pl.tx_size3.show
	pl.cb_size7.show
	pl.tx_ori3.show
	pl.cb_ori7.show
	pl.tx_col3.show
	pl.cb_col7.show
	pl.cb_col7.withvalue pl.cb_col7.setvalue "@"
	pl.tx_for3.show
	pl.ed_for7.show
	pl.bu_for3.show

	pl.gb_label4.show
	pl.gb_label4.setlabel "Eighth label"
	pl.tx_slice4.show
	pl.en_slice8.show
	pl.tx_label4.show
	pl.cb_label8.show
	pl.tx_size4.show
	pl.cb_size8.show
	pl.tx_ori4.show
	pl.cb_ori8.show
	pl.tx_col4.show
	pl.cb_col8.show
	pl.cb_col8.withvalue pl.cb_col8.setvalue "@"
	pl.tx_for4.show
	pl.ed_for8.show
	pl.bu_for4.show
END

SCRIPT pl_hidestuff1to4
BEGIN
	pl.gb_label1.hide
	pl.tx_slice1.hide
	pl.en_slice1.hide
	pl.tx_label1.hide
	pl.cb_label1.hide
	pl.tx_size1.hide
	pl.cb_size1.hide
	pl.tx_ori1.hide
	pl.cb_ori1.hide
	pl.tx_col1.hide
	pl.cb_col1.hide
	pl.cl_col1.hide
	pl.tx_for1.hide
	pl.ed_for1.hide
	pl.bu_for1.hide

	pl.gb_label2.hide
	pl.tx_slice2.hide
	pl.en_slice2.hide
	pl.tx_label2.hide
	pl.cb_label2.hide
	pl.tx_size2.hide
	pl.cb_size2.hide
	pl.tx_ori2.hide
	pl.cb_ori2.hide
	pl.tx_col2.hide
	pl.cb_col2.hide
	pl.cl_col2.hide
	pl.tx_for2.hide
	pl.ed_for2.hide
	pl.bu_for2.hide

	pl.gb_label3.hide
	pl.tx_slice3.hide
	pl.en_slice3.hide
	pl.tx_label3.hide
	pl.cb_label3.hide
	pl.tx_size3.hide
	pl.cb_size3.hide
	pl.tx_ori3.hide
	pl.cb_ori3.hide
	pl.tx_col3.hide
	pl.cb_col3.hide
	pl.cl_col3.hide
	pl.tx_for3.hide
	pl.ed_for3.hide
	pl.bu_for3.hide

	pl.gb_label4.hide
	pl.tx_slice4.hide
	pl.en_slice4.hide
	pl.tx_label4.hide
	pl.cb_label4.hide
	pl.tx_size4.hide
	pl.cb_size4.hide
	pl.tx_ori4.hide
	pl.cb_ori4.hide
	pl.tx_col4.hide
	pl.cb_col4.hide
	pl.cl_col4.hide
	pl.tx_for4.hide
	pl.ed_for4.hide
	pl.bu_for4.hide
END

SCRIPT pl_hidestuff5to8
BEGIN
	pl.gb_label1.hide
	pl.tx_slice1.hide
	pl.en_slice5.hide
	pl.tx_label1.hide
	pl.cb_label5.hide
	pl.tx_size1.hide
	pl.cb_size5.hide
	pl.tx_ori1.hide
	pl.cb_ori5.hide
	pl.tx_col1.hide
	pl.cb_col5.hide
	pl.cl_col5.hide
	pl.tx_for1.hide
	pl.ed_for5.hide
	pl.bu_for1.hide

	pl.gb_label2.hide
	pl.tx_slice2.hide
	pl.en_slice6.hide
	pl.tx_label2.hide
	pl.cb_label6.hide
	pl.tx_size2.hide
	pl.cb_size6.hide
	pl.tx_ori2.hide
	pl.cb_ori6.hide
	pl.tx_col2.hide
	pl.cb_col6.hide
	pl.cl_col6.hide
	pl.tx_for2.hide
	pl.ed_for6.hide
	pl.bu_for2.hide

	pl.gb_label3.hide
	pl.tx_slice3.hide
	pl.en_slice7.hide
	pl.tx_label3.hide
	pl.cb_label7.hide
	pl.tx_size3.hide
	pl.cb_size7.hide
	pl.tx_ori3.hide
	pl.cb_ori7.hide
	pl.tx_col3.hide
	pl.cb_col7.hide
	pl.cl_col7.hide
	pl.tx_for3.hide
	pl.ed_for7.hide
	pl.bu_for3.hide

	pl.gb_label4.hide
	pl.tx_slice4.hide
	pl.en_slice8.hide
	pl.tx_label4.hide
	pl.cb_label8.hide
	pl.tx_size4.hide
	pl.cb_size8.hide
	pl.tx_ori4.hide
	pl.cb_ori8.hide
	pl.tx_col4.hide
	pl.cb_col8.hide
	pl.cl_col8.hide
	pl.tx_for4.hide
	pl.ed_for8.hide
	pl.bu_for4.hide

END

PROGRAM labelopt1_output
BEGIN
	beginoptions
		hoptionarg pl.cb_size1
		hoptionarg pl.cb_ori1
		if Hcc(pl.cb_col1) {
			hoptionarg /quoted pl.cl_col1
		}
		if !Hcc(pl.cb_col1) {
			hoptionarg pl.cb_col1
		}
		hoptionarg pl.ed_for1
	endoptions
END

PROGRAM label1_output
BEGIN
	put /hidden pl.en_slice1
	put " " /hidden pl.cb_label1
	put /program labelopt1_output
END


PROGRAM label2_output
BEGIN
	put /hidden pl.en_slice2
	put " " /hidden pl.cb_label2
	beginoptions
		hoptionarg pl.cb_size2
		hoptionarg pl.cb_ori2
		if Hcc(pl.cb_col2) {
			hoptionarg /quoted pl.cl_col2
		}
		if !Hcc(pl.cb_col2) {
			hoptionarg pl.cb_col2
		}
		hoptionarg pl.ed_for2
	endoptions
END

PROGRAM label3_output
BEGIN
	put /hidden pl.en_slice3
	put " " /hidden pl.cb_label3
	beginoptions
		hoptionarg pl.cb_size3
		hoptionarg pl.cb_ori3
		if Hcc(pl.cb_col3) {
			hoptionarg /quoted pl.cl_col3
		}
		if !Hcc(pl.cb_col3) {
			hoptionarg pl.cb_col3
		}
		hoptionarg pl.ed_for3
	endoptions
END

PROGRAM label4_output
BEGIN
	put /hidden pl.en_slice4
	put " " /hidden pl.cb_label4
	beginoptions
		hoptionarg pl.cb_size4
		hoptionarg pl.cb_ori4
		if Hcc(pl.cb_col4) {
			hoptionarg /quoted pl.cl_col4
		}
		if !Hcc(pl.cb_col4) {
			hoptionarg pl.cb_col4
		}
		hoptionarg pl.ed_for4
	endoptions
END

PROGRAM label5_output
BEGIN
	put /hidden pl.en_slice5
	put " " /hidden pl.cb_label5
	beginoptions
		hoptionarg pl.cb_size5
		hoptionarg pl.cb_ori5
		if Hcc(pl.cb_col5) {
			hoptionarg /quoted pl.cl_col5
		}
		if !Hcc(pl.cb_col5) {
			hoptionarg pl.cb_col5
		}
		hoptionarg pl.ed_for5
	endoptions
END

PROGRAM label6_output
BEGIN
	put /hidden pl.en_slice6
	put " " /hidden pl.cb_label6
	beginoptions
		hoptionarg pl.cb_size6
		hoptionarg pl.cb_ori6
		if Hcc(pl.cb_col6) {
			hoptionarg /quoted pl.cl_col6
		}
		if !Hcc(pl.cb_col6) {
			hoptionarg pl.cb_col6
		}
		hoptionarg pl.ed_for6
	endoptions
END

PROGRAM label7_output
BEGIN
	put /hidden pl.en_slice7
	put " " /hidden pl.cb_label7
	beginoptions
		hoptionarg pl.cb_size7
		hoptionarg pl.cb_ori7
		if Hcc(pl.cb_col7) {
			hoptionarg /quoted pl.cl_col7
		}
		if !Hcc(pl.cb_col7) {
			hoptionarg pl.cb_col7
		}
		hoptionarg pl.ed_for7
	endoptions
END

PROGRAM label8_output
BEGIN
	put /hidden pl.en_slice8
	put " " /hidden pl.cb_label8
	beginoptions
		hoptionarg pl.cb_size8
		hoptionarg pl.cb_ori8
		if Hcc(pl.cb_col8) {
			hoptionarg /quoted pl.cl_col8
		}
		if !Hcc(pl.cb_col8) {
			hoptionarg pl.cb_col8
		}
		hoptionarg pl.ed_for8
	endoptions
END

PROGRAM gpielabels_output
BEGIN
	if pl.rb_all {
		if pl.cb_label1 {
			put " plabel(_all "
			put pl.cb_label1
			put /program labelopt1_output
			put ") "
		}
	}
	if pl.rb_some {
		if pl.cb_label1 {
			put "plabel("
			put /program label1_output
			put ") "
		}
		if pl.cb_label2 {
			put "plabel("
			put /program label2_output
			put ") "
		}
		if pl.cb_label3 {
			put "plabel("
			put /program label3_output
			put ") "
		}
		if pl.cb_label4 {
			put "plabel("
			put /program label4_output
			put ") "
		}
		if pl.cb_label5 {
			put "plabel("
			put /program label5_output
			put ") "
		}
		if pl.cb_label6 {
			put "plabel("
			put /program label6_output
			put ") "
		}
		if pl.cb_label7 {
			put "plabel("
			put /program label7_output
			put ") "
		}
		if pl.cb_label8 {
			put "plabel("
			put /program label8_output
			put ") "
		}
	}
END