sunflower_common.idlg

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

	main.cl_lbfclr.disable
	main.cl_dbfclr.disable
	main.tx_lblclr.disable
	main.cb_lblclr.disable
	main.cb_dblclr.disable
	main.cl_lblclr.disable
	main.cl_dblclr.disable
	main.tx_lblwidth.disable
	main.cb_lblwidth.disable
	main.cb_dblwidth.disable
END

SCRIPT main_bin_opts_on
BEGIN
	main.gb_bin_op.enable
	main.tx_lbfclr.enable
	main.cb_lbfclr.enable
	main.cb_dbfclr.enable
	main.cl_lbfclr.enable
	main.cl_dbfclr.enable
	main.tx_lblclr.enable
	main.cb_lblclr.enable
	main.cb_dblclr.enable
	main.cl_lblclr.enable
	main.cl_dblclr.enable
	main.tx_lblwidth.enable
	main.cb_lblwidth.enable
	main.cb_dblwidth.enable
END

LIST main_shading
BEGIN
	"Light bins and petals"
	"Dark bins and petals"
END

LIST main_shading_change
BEGIN
	script main_light_bin_opts_on
	script main_dark_bin_opts_on
END

SCRIPT main_light_bin_opts_on
BEGIN
	script main_dark_off
	main.tx_binmode.setlabel "Light bin and petal options"
	main.gb_bin_op.setlabel "Light bins"
	main.gb_petal_op.setlabel "Light petals"
	script main_light_on
END

SCRIPT main_dark_bin_opts_on
BEGIN
	script main_light_off
	main.tx_binmode.setlabel "Dark bin and petal options"
	main.gb_bin_op.setlabel "Dark bins"
	main.gb_petal_op.setlabel "Dark petals"
	script main_dark_on
END

SCRIPT main_light_on
BEGIN
  	main.cb_lbfclr.show
	main.cb_lbfclr.withvalue  main.cb_lbfclr.setvalue "@"
	main.cb_lblclr.show
	main.cb_lblclr.withvalue  main.cb_lblclr.setvalue "@"
	main.cb_lblwidth.show
	main.cb_lflclr.show
	main.cb_lflclr.withvalue  main.cb_lflclr.setvalue "@"
	main.cb_lflwidth.show
END

SCRIPT main_light_off
BEGIN
  	main.cb_lbfclr.hide
	main.cl_lbfclr.hide
	main.cb_lblclr.hide
	main.cl_lblclr.hide
	main.cb_lblwidth.hide
	main.cb_lflclr.hide
	main.cl_lflclr.hide
	main.cb_lflwidth.hide
END

SCRIPT main_dark_on
BEGIN
  	main.cb_dbfclr.show
	main.cb_dbfclr.withvalue  main.cb_dbfclr.setvalue "@"
	main.cb_dblclr.show
	main.cb_dblclr.withvalue  main.cb_dblclr.setvalue "@"
	main.cb_dblwidth.show
	main.cb_dflclr.show
	main.cb_dflclr.withvalue  main.cb_dflclr.setvalue "@"
	main.cb_dflwidth.show
END

SCRIPT main_dark_off
BEGIN
  	main.cb_dbfclr.hide
	main.cl_dbfclr.hide
	main.cb_dblclr.hide
	main.cl_dblclr.hide
	main.cb_dblwidth.hide
	main.cb_dflclr.hide
	main.cl_dflclr.hide
	main.cb_dflwidth.hide
END

LIST lbfclr_change
BEGIN
	main.cl_lbfclr.hide
	main.cl_lbfclr.show
	main.cl_lbfclr.hide
END
LIST dbfclr_change
BEGIN
	main.cl_dbfclr.hide
	main.cl_dbfclr.show
	main.cl_dbfclr.hide
END

LIST lblclr_change
BEGIN
	main.cl_lblclr.hide
	main.cl_lblclr.show
	main.cl_lblclr.hide
END
LIST dblclr_change
BEGIN
	main.cl_dblclr.hide
	main.cl_dblclr.show
	main.cl_dblclr.hide
END

LIST lflclr_change
BEGIN
	main.cl_lflclr.hide
	main.cl_lflclr.show
	main.cl_lflclr.hide
END
LIST dflclr_change
BEGIN
	main.cl_dflclr.hide
	main.cl_dflclr.show
	main.cl_dflclr.hide
END

LIST main_color_mcol
BEGIN
	main.cl_mcol.hide
	main.cl_mcol.show
	main.cl_mcol.hide
END

LIST main_color_mlcol
BEGIN
	main.cl_mlcol.hide
	main.cl_mlcol.show
	main.cl_mlcol.hide
END

PROGRAM main_marker_opts_on
BEGIN
	call main.gb_marker.enable
	call main.tx_msym.enable
	call main.cb_msym.enable
	call main.tx_mcol.enable
	call main.cb_mcol.enable
	call main.cl_mcol.enable
	call main.tx_msize.enable
	call main.cb_msize.enable
	// Marker controls
	//call main.ck_mlab.enable
	//if main.ck_mlab {
	//	call script main_mlabel_enable
	//}
END

/*
// Marker controls
SCRIPT main_mlabel_enable
BEGIN
	main.tx_mlab.enable
	main.vl_mlab.enable
	main.tx_mlsiz.enable
	main.cb_mlsiz.enable
	main.tx_mlcol.enable
	main.cb_mlcol.enable
	main.cl_mlcol.enable
	main.tx_mlpos.enable
	main.cb_mlpos.enable
END
*/

SCRIPT main_marker_opts_off
BEGIN
	main.gb_marker.disable
	main.tx_msym.disable
	main.cb_msym.disable
	main.tx_mcol.disable
	main.cb_mcol.disable
	main.cl_mcol.disable
	main.tx_msize.disable
	main.cb_msize.disable
	// Marker controls
	// main.ck_mlab.disable
	// script main_mlabel_disable
END

/*
// Marker controls
SCRIPT main_mlabel_disable
BEGIN
	main.tx_mlab.disable
	main.vl_mlab.disable
	main.tx_mlsiz.disable
	main.cb_mlsiz.disable
	main.tx_mlcol.disable
	main.cb_mlcol.disable
	main.cl_mlcol.disable
	main.tx_mlpos.disable
	main.cb_mlpos.disable
END
*/

LIST main_color_clcol
BEGIN
	main.cl_clcol.hide
	main.cl_clcol.show
	main.cl_clcol.hide
END

PROGRAM main_control_opts
BEGIN
	optionarg main.ed_binwd
	optionarg main.ed_aspect
	optionarg /hidedefault main.sp_light
	optionarg /hidedefault main.sp_dark
	option main.ck_flowers
	option main.ck_single
	optionarg main.ed_xval
	optionarg main.ed_yval
	optionarg /hidedefault main.ed_ptlwght
	optionarg /hidedefault main.sp_length
	option main.ck_notable
	option main.ck_nograph
END

PROGRAM main_bin_petal_display_opts
BEGIN
// light
	if !Hcc(main.cb_lbfclr) {
		hoptionarg /hidedefault main.cb_lbfclr
	}
	if Hcc(main.cb_lbfclr) {
		hoptionarg /quoted main.cl_lbfclr
	}

	if !Hcc(main.cb_lblclr) {
		hoptionarg /hidedefault main.cb_lblclr
	}
	if Hcc(main.cb_lblclr) {
		hoptionarg /quoted main.cl_lblclr
	}

 	hoptionarg /hidedefault main.cb_lblwidth

	if !Hcc(main.cb_lflclr) {
		hoptionarg /hidedefault main.cb_lflclr
	}
	if Hcc(main.cb_lflclr) {
		hoptionarg /quoted main.cl_lflclr
	}

 	hoptionarg /hidedefault main.cb_lflwidth

//dark
	if !Hcc(main.cb_dbfclr) {
		hoptionarg /hidedefault main.cb_dbfclr
	}
	if Hcc(main.cb_dbfclr) {
		hoptionarg /quoted main.cl_dbfclr
	}

	if !Hcc(main.cb_dblclr) {
		hoptionarg /hidedefault main.cb_dblclr
	}
	if Hcc(main.cb_dblclr) {
		hoptionarg /quoted main.cl_dblclr
	}

	if !Hcc(main.cb_dflclr) {
		hoptionarg /hidedefault main.cb_dflclr
	}
	if Hcc(main.cb_dflclr) {
		hoptionarg /quoted main.cl_dflclr
	}

	hoptionarg /hidedefault main.cb_dblwidth
	hoptionarg /hidedefault main.cb_dflwidth
END

PROGRAM main_marker_opts
BEGIN
	optionarg main.cb_msym
	if !Hcc(main.cb_mcol) {
		optionarg /hidedefault main.cb_mcol
	}
	if Hcc(main.cb_mcol) {
		optionarg /quoted main.cl_mcol
	}
	optionarg main.cb_msize
	/*
	// Marker programming
	if main.ck_mlab {
		require main.vl_mlab
		optionarg main.vl_mlab
		optionarg main.cb_mlsiz
		if !Hcc(main.cb_mlcol) {
			optionarg /hidedefault main.cb_mlcol
		}
		if Hcc(main.cb_mlcol) {
			optionarg /quoted main.cl_mlcol
		}
		optionarg main.cb_mlpos
	}
	*/
END