gpieslices.idlg

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· IDLG 代码 · 共 659 行 · 第 1/2 页

	ps.bu_slice6.hide
	ps.ck_explode6.hide
	ps.ed_explode6.hide
	ps.bu_explode6.hide
	ps.tx_color6.hide
	ps.cb_color6.hide
	ps.cl_color6.hide

	ps.gb_slice7.hide
	ps.tx_slice7.hide
	ps.ed_slice7.hide
	ps.bu_slice7.hide
	ps.ck_explode7.hide
	ps.ed_explode7.hide
	ps.bu_explode7.hide
	ps.tx_color7.hide
	ps.cb_color7.hide
	ps.cl_color7.hide

	ps.gb_slice8.hide
	ps.tx_slice8.hide
	ps.ed_slice8.hide
	ps.bu_slice8.hide
	ps.ck_explode8.hide
	ps.ed_explode8.hide
	ps.bu_explode8.hide
	ps.tx_color8.hide
	ps.cb_color8.hide
	ps.cl_color8.hide
END

SCRIPT ps_showstuff
BEGIN
	ps.gb_slice1.setlabel "One"
	ps.gb_slice1.setposition . . . 105
	ps.ck_explode1.setposition . 105
	ps.ed_explode1.setposition . 105
	ps.bu_explode1.setposition . 105
	ps.tx_color1.setposition . 130
	ps.cb_color1.setposition . 130
	ps.cl_color1.setposition . 130

	ps.tx_slice1.show
	ps.ed_slice1.show
	ps.bu_slice1.show

	ps.gb_slice2.show
	ps.tx_slice2.show
	ps.ed_slice2.show
	ps.bu_slice2.show
	ps.ck_explode2.show
	ps.ed_explode2.show
	ps.bu_explode2.show
	ps.tx_color2.show
	ps.cb_color2.show
	ps.cb_color2.withvalue ps.cb_color2.setvalue "@"

	ps.gb_slice3.show
	ps.tx_slice3.show
	ps.ed_slice3.show
	ps.bu_slice3.show
	ps.ck_explode3.show
	ps.ed_explode3.show
	ps.bu_explode3.show
	ps.tx_color3.show
	ps.cb_color3.show
	ps.cb_color3.withvalue ps.cb_color3.setvalue "@"

	ps.gb_slice4.show
	ps.tx_slice4.show
	ps.ed_slice4.show
	ps.bu_slice4.show
	ps.ck_explode4.show
	ps.ed_explode4.show
	ps.bu_explode4.show
	ps.tx_color4.show
	ps.cb_color4.show
	ps.cb_color4.withvalue ps.cb_color4.setvalue "@"

	ps.gb_slice5.show
	ps.tx_slice5.show
	ps.ed_slice5.show
	ps.bu_slice5.show
	ps.ck_explode5.show
	ps.ed_explode5.show
	ps.bu_explode5.show
	ps.tx_color5.show
	ps.cb_color5.show
	ps.cb_color5.withvalue ps.cb_color5.setvalue "@"

	ps.gb_slice6.show
	ps.tx_slice6.show
	ps.ed_slice6.show
	ps.bu_slice6.show
	ps.ck_explode6.show
	ps.ed_explode6.show
	ps.bu_explode6.show
	ps.tx_color6.show
	ps.cb_color6.show
	ps.cb_color6.withvalue ps.cb_color6.setvalue "@"

	ps.gb_slice7.show
	ps.tx_slice7.show
	ps.ed_slice7.show
	ps.bu_slice7.show
	ps.ck_explode7.show
	ps.ed_explode7.show
	ps.bu_explode7.show
	ps.tx_color7.show
	ps.cb_color7.show
	ps.cb_color7.withvalue ps.cb_color7.setvalue "@"

	ps.gb_slice8.show
	ps.tx_slice8.show
	ps.ed_slice8.show
	ps.bu_slice8.show
	ps.ck_explode8.show
	ps.ed_explode8.show
	ps.bu_explode8.show
	ps.tx_color8.show
	ps.cb_color8.show
	ps.cb_color8.withvalue ps.cb_color8.setvalue "@"
END

PROGRAM ps_slice1_output
BEGIN
	if ps.ck_explode1 & !default(ps.ed_explode1) 	/*
	*/ & ps.ed_explode1 {
		optionarg ps.ed_explode1
	}
	if ps.ck_explode1 & (default(ps.ed_explode1) | 	/*
	*/ !ps.ed_explode1) {
		option ps.ck_explode1
	}
	if Hcc(ps.cb_color1) {
		optionarg /quoted ps.cl_color1
	}
	if !Hcc(ps.cb_color1) {
		optionarg ps.cb_color1
	}
END

PROGRAM ps_slice2_output
BEGIN
	if ps.ck_explode2 & !default(ps.ed_explode2) 	/*
	*/ & ps.ed_explode2 {
		optionarg ps.ed_explode2
	}
	if ps.ck_explode2 & (default(ps.ed_explode2) | 	/*
	*/ !ps.ed_explode2) {
		option ps.ck_explode2
	}
	if Hcc(ps.cb_color2) {
		optionarg /quoted ps.cl_color2
	}
	if !Hcc(ps.cb_color2) {
		optionarg ps.cb_color2
	}
END

PROGRAM ps_slice3_output
BEGIN
	if ps.ck_explode3 & !default(ps.ed_explode3) 	/*
	*/ & ps.ed_explode3 {
		optionarg ps.ed_explode3
	}
	if ps.ck_explode3 & (default(ps.ed_explode3) | 	/*
	*/ !ps.ed_explode3) {
		option ps.ck_explode3
	}
	if Hcc(ps.cb_color3) {
		optionarg /quoted ps.cl_color3
	}
	if !Hcc(ps.cb_color3) {
		optionarg ps.cb_color3
	}
END

PROGRAM ps_slice4_output
BEGIN
	if ps.ck_explode4 & !default(ps.ed_explode4) 	/*
	*/ & ps.ed_explode4 {
		optionarg ps.ed_explode4
	}
	if ps.ck_explode4 & (default(ps.ed_explode4) | 	/*
	*/ !ps.ed_explode4) {
		option ps.ck_explode4
	}
	if Hcc(ps.cb_color4) {
		optionarg /quoted ps.cl_color4
	}
	if !Hcc(ps.cb_color4) {
		optionarg ps.cb_color4
	}
END

PROGRAM ps_slice5_output
BEGIN
	if ps.ck_explode5 & !default(ps.ed_explode5) 	/*
	*/ & ps.ed_explode5 {
		optionarg ps.ed_explode5
	}
	if ps.ck_explode5 & (default(ps.ed_explode5) | 	/*
	*/ !ps.ed_explode5) {
		option ps.ck_explode5
	}
	if Hcc(ps.cb_color5) {
		optionarg /quoted ps.cl_color5
	}
	if !Hcc(ps.cb_color5) {
		optionarg ps.cb_color5
	}
END

PROGRAM ps_slice6_output
BEGIN
	if ps.ck_explode6 & !default(ps.ed_explode6) 	/*
	*/ & ps.ed_explode6 {
		optionarg ps.ed_explode6
	}
	if ps.ck_explode6 & (default(ps.ed_explode6) | 	/*
	*/ !ps.ed_explode6) {
		option ps.ck_explode6
	}
	if Hcc(ps.cb_color6) {
		optionarg /quoted ps.cl_color6
	}
	if !Hcc(ps.cb_color6) {
		optionarg ps.cb_color6
	}
END

PROGRAM ps_slice7_output
BEGIN
	if ps.ck_explode7 & !default(ps.ed_explode7) 	/*
	*/ & ps.ed_explode7 {
		optionarg ps.ed_explode7
	}
	if ps.ck_explode7 & (default(ps.ed_explode7) | 	/*
	*/ !ps.ed_explode7) {
		option ps.ck_explode7
	}
	if Hcc(ps.cb_color7) {
		optionarg /quoted ps.cl_color7
	}
	if !Hcc(ps.cb_color7) {
		optionarg ps.cb_color7
	}
END

PROGRAM ps_slice8_output
BEGIN
	if ps.ck_explode8 & !default(ps.ed_explode8) 	/*
	*/ & ps.ed_explode8 {
		optionarg ps.ed_explode8
	}
	if ps.ck_explode8 & (default(ps.ed_explode8) | 	/*
	*/ !ps.ed_explode8) {
		option ps.ck_explode8
	}
	if Hcc(ps.cb_color8) {
		optionarg /quoted ps.cl_color8
	}
	if !Hcc(ps.cb_color8) {
		optionarg ps.cb_color8
	}
END

PROGRAM gpieslices_output
BEGIN
	if ps.rb_all {
		if ps.ck_explode1 | ps.cb_color1  {
			put " pie(_all, "
			put " "/program ps_slice1_output
			put ")"
		}
	}
	if ps.rb_some {
		if ps.ed_slice1 & (ps.ck_explode1 | ps.cb_color1) {
			put " pie("
			put ps.ed_slice1 ", "
			put " "/program ps_slice1_output
			put ")"
		}
		if ps.ed_slice2 & (ps.ck_explode2 | ps.cb_color2) {
			put " pie("
			put ps.ed_slice2 ", "
			put " "/program ps_slice2_output
			put ")"
		}
		if ps.ed_slice3 & (ps.ck_explode3 | ps.cb_color3) {
			put " pie("
			put ps.ed_slice3 ", "
			put " "/program ps_slice3_output
			put ")"
		}
		if ps.ed_slice4 & (ps.ck_explode4 | ps.cb_color4) {
			put " pie("
			put ps.ed_slice4 ", "
			put " "/program ps_slice4_output
			put ")"
		}
		if ps.ed_slice5 & (ps.ck_explode5 | ps.cb_color5) {
			put " pie("
			put ps.ed_slice5 ", "
			put " "/program ps_slice5_output
			put ")"
		}
		if ps.ed_slice6 & (ps.ck_explode6 | ps.cb_color6) {
			put " pie("
			put ps.ed_slice6 ", "
			put " "/program ps_slice6_output
			put ")"
		}
		if ps.ed_slice7 & (ps.ck_explode7 | ps.cb_color7) {
			put " pie("
			put ps.ed_slice7 ", "
			put " "/program ps_slice7_output
			put ")"
		}
		if ps.ed_slice8 & (ps.ck_explode8 | ps.cb_color8) {
			put " pie("
			put ps.ed_slice8 ", "
			put " "/program ps_slice8_output
			put ")"
		}
	}
END