gyaxis_98.idlg

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

BEGIN
	"Major ticks"
	"Minor ticks"
	"Additional lines"
END

LIST gymode_change
BEGIN
	script gymajor_on
	script gyminor_on
	script gylines_on
END

LIST gyaxis_cb_tick
BEGIN
	""
	"noticks"
	"ticks"
END

LIST gyaxis_cb_label
BEGIN
	""
	"nolabels"
	"labels"
END


PROGRAM gyaxis_hide_scale_check
BEGIN
	if !H(gyaxis.ck_scaleoff) {
		if gyaxis.ck_scaleoff {
			call script gyaxis_hide_scale_on
		}
		if !gyaxis.ck_scaleoff {
			call script gyaxis_hide_scale_off
		}
	}

END

SCRIPT gyaxis_hide_scale_off
BEGIN
	program gytitle_enable
	program gyscale_enable
	program gymajor_enable
	program gyminor_enable
END

PROGRAM gytitle_enable
BEGIN
	call gaction gyaxis.gb_title.enable
	call gaction gyaxis.ed_title.enable
	call gaction gyaxis.tx_size.enable
	call gaction gyaxis.cb_size.enable
	call gaction gyaxis.ck_tclr.enable
	call gaction gyaxis.cl_tclr.enable
	call gaction gyaxis.tx_ttlgp.enable
	call gaction gyaxis.ed_ttlgp.enable

END

PROGRAM gyscale_enable
BEGIN
	call gaction gyaxis.ck_lclr.enable
	call gaction gyaxis.cl_lclr.enable
	call gaction gyaxis.tx_outergp.enable
	call gaction gyaxis.ed_outergp.enable
END

PROGRAM gymajor_enable
BEGIN
	/* Major ticks */
	call gaction gyaxis.tx_rule.enable
	call gaction gyaxis.ed_rule.enable
	call gaction gyaxis.bt_rule.enable
	call gaction gyaxis.tx_cstm.enable
	call gaction gyaxis.ed_cstm.enable
	call gaction gyaxis.bt_cstm.enable
	call gaction gyaxis.tx_tpos.enable
	call gaction gyaxis.cb_tpos.enable
	call gaction gyaxis.tx_tlng.enable
	call gaction gyaxis.ed_tlng.enable
	call gaction gyaxis.tx_notk.enable
	call gaction gyaxis.cb_notk.enable
	call gaction gyaxis.tx_nolab.enable
	call gaction gyaxis.cb_nolab.enable
	call gaction gyaxis.ck_vlab.enable
	call gaction gyaxis.ck_altr.enable
	call gaction gyaxis.ck_tlclr.enable
	call gaction gyaxis.cl_tlclr.enable
	call gaction gyaxis.tx_ang.enable
	call gaction gyaxis.cb_ang.enable
	call gaction gyaxis.tx_fmt.enable
	call gaction gyaxis.ed_fmt.enable
	call gaction gyaxis.bt_fmt.enable
	call gaction gyaxis.tx_lgap.enable
	call gaction gyaxis.ed_lgap.enable
	call gaction gyaxis.tx_lsize.enable
	call gaction gyaxis.cb_lsize.enable
	call gaction gyaxis.ck_grid.enable
	if gyaxis.ck_grid {
		call script gygrid_enable
	}
END

PROGRAM gyminor_enable
BEGIN
	/* Minor ticks */
	call gaction gyaxis.tx_mrule.enable
	call gaction gyaxis.ed_mrule.enable
	call gaction gyaxis.bt_mrule.enable
	call gaction gyaxis.tx_mcstm.enable
	call gaction gyaxis.ed_mcstm.enable
	call gaction gyaxis.bt_mcstm.enable
	call gaction gyaxis.tx_mtpos.enable
	call gaction gyaxis.cb_mtpos.enable
	call gaction gyaxis.tx_mtlng.enable
	call gaction gyaxis.ed_mtlng.enable
	call gaction gyaxis.tx_mnotk.enable
	call gaction gyaxis.cb_mnotk.enable
	call gaction gyaxis.tx_mnolab.enable
	call gaction gyaxis.cb_mnolab.enable
	call gaction gyaxis.ck_mvlab.enable
	call gaction gyaxis.ck_maltr.enable
	call gaction gyaxis.ck_mtlclr.enable
	call gaction gyaxis.cl_mtlclr.enable
	call gaction gyaxis.tx_mang.enable
	call gaction gyaxis.cb_mang.enable
	call gaction gyaxis.tx_mfmt.enable
	call gaction gyaxis.ed_mfmt.enable
	call gaction gyaxis.bt_mfmt.enable
	call gaction gyaxis.tx_mlgap.enable
	call gaction gyaxis.ed_mlgap.enable
	call gaction gyaxis.tx_mlsize.enable
	call gaction gyaxis.cb_mlsize.enable
	call gaction gyaxis.ck_mgrid.enable
	if gyaxis.ck_mgrid {
		call script gymgrid_enable
	}
END

/* Begin Enable All */
SCRIPT gyaxis_enable
BEGIN
	program gyaxis_enable_pr
END

PROGRAM gyaxis_enable_pr
BEGIN
	call gaction gyaxis.gb_option.enable
	call gaction gyaxis.ck_range.enable
	if gyaxis.ck_range {
		call script gyaxis_range_enable
	}
	call gaction gyaxis.ck_log.enable
	call gaction gyaxis.ck_rev.enable
	call gaction gyaxis.ck_scaleoff.enable
	if !gyaxis.ck_scaleoff {
		call program gytitle_enable
		call program gyscale_enable
		call program gymajor_enable
		call program gyminor_enable

	}

	call gaction gyaxis.gb_mode.enable
	call gaction gyaxis.cb_tkmode.enable
	call gaction gyaxis.tx_tkmode.enable

	/* Line options */
	call gaction gyaxis.tx_lline.enable
	call gaction gyaxis.ed_lline.enable
	call gaction gyaxis.ck_llclr.enable
	call gaction gyaxis.cl_llclr.enable
	call gaction gyaxis.tx_llpat.enable
	call gaction gyaxis.cb_llpat.enable
END
/* End Enable All */

SCRIPT gytitle_disable
BEGIN
	gyaxis.gb_title.disable
	gyaxis.ed_title.disable
	gyaxis.tx_size.disable
	gyaxis.cb_size.disable
	gyaxis.ck_tclr.disable
	gyaxis.cl_tclr.disable
	gyaxis.tx_ttlgp.disable
	gyaxis.ed_ttlgp.disable

END

SCRIPT gyscale_opt_disable
BEGIN
	gyaxis.ck_lclr.disable
	gyaxis.cl_lclr.disable
	gyaxis.tx_outergp.disable
	gyaxis.ed_outergp.disable
END

SCRIPT gymajor_disable
BEGIN
	/* Major ticks */
	gyaxis.tx_rule.disable
	gyaxis.ed_rule.disable
	gyaxis.bt_rule.disable
	gyaxis.tx_cstm.disable
	gyaxis.ed_cstm.disable
	gyaxis.bt_cstm.disable
	gyaxis.tx_tpos.disable
	gyaxis.cb_tpos.disable
	gyaxis.tx_tlng.disable
	gyaxis.ed_tlng.disable
	gyaxis.tx_notk.disable
	gyaxis.cb_notk.disable
	gyaxis.tx_nolab.disable
	gyaxis.cb_nolab.disable
	gyaxis.ck_vlab.disable
	gyaxis.ck_altr.disable
	gyaxis.ck_tlclr.disable
	gyaxis.cl_tlclr.disable
	gyaxis.tx_ang.disable
	gyaxis.cb_ang.disable
	gyaxis.tx_fmt.disable
	gyaxis.ed_fmt.disable
	gyaxis.bt_fmt.disable
	gyaxis.tx_lgap.disable
	gyaxis.ed_lgap.disable
	gyaxis.tx_lsize.disable
	gyaxis.cb_lsize.disable
	gyaxis.ck_grid.disable
	script gygrid_disable
END

SCRIPT gyminor_disable
BEGIN
	/* Minor ticks */
	gyaxis.tx_mrule.disable
	gyaxis.ed_mrule.disable
	gyaxis.bt_mrule.disable
	gyaxis.tx_mcstm.disable
	gyaxis.ed_mcstm.disable
	gyaxis.bt_mcstm.disable
	gyaxis.tx_mtpos.disable
	gyaxis.cb_mtpos.disable
	gyaxis.tx_mtlng.disable
	gyaxis.ed_mtlng.disable
	gyaxis.tx_mnotk.disable
	gyaxis.cb_mnotk.disable
	gyaxis.tx_mnolab.disable
	gyaxis.cb_mnolab.disable
	gyaxis.ck_mvlab.disable
	gyaxis.ck_maltr.disable
	gyaxis.ck_mtlclr.disable
	gyaxis.cl_mtlclr.disable
	gyaxis.tx_mang.disable
	gyaxis.cb_mang.disable
	gyaxis.tx_mfmt.disable
	gyaxis.ed_mfmt.disable
	gyaxis.bt_mfmt.disable
	gyaxis.tx_mlgap.disable
	gyaxis.ed_mlgap.disable
	gyaxis.tx_mlsize.disable
	gyaxis.cb_mlsize.disable
	gyaxis.ck_mgrid.disable
	script gymgrid_disable
END

/* Disable components associated with scale(off) */
SCRIPT gyaxis_hide_scale_on
BEGIN
	script gytitle_disable
	script gyscale_opt_disable
	script gymajor_disable
	script gyminor_disable
	gyaxis.cb_tkmode.setvalue "Additional lines"
END

/* Begin Disable All */
SCRIPT gyaxis_disable
BEGIN
	script gytitle_disable
	gyaxis.gb_option.disable
	gyaxis.ck_scaleoff.disable
	script gyscale_opt_disable
	gyaxis.ck_range.disable
	script gyaxis_range_disable
	gyaxis.ck_log.disable
	gyaxis.ck_rev.disable

	gyaxis.gb_mode.disable
	gyaxis.cb_tkmode.disable
	gyaxis.tx_tkmode.disable

	script gymajor_disable
	script gyminor_disable

	/* Line options */
	gyaxis.tx_lline.disable
	gyaxis.ed_lline.disable
	gyaxis.ck_llclr.disable
	gyaxis.cl_llclr.disable
	gyaxis.tx_llpat.disable
	gyaxis.cb_llpat.disable
END
/* End Disable All */

SCRIPT gyaxis_range_enable
BEGIN
	gyaxis.ed_rangefm.enable
	gyaxis.tx_rangeto.enable
	gyaxis.ed_rangeto.enable
END

SCRIPT gyaxis_range_disable
BEGIN
	gyaxis.ed_rangefm.disable
	gyaxis.tx_rangeto.disable
	gyaxis.ed_rangeto.disable
END

SCRIPT gygrid_enable
BEGIN
	gyaxis.ck_gclr.enable
	gyaxis.cl_gclr.enable
	gyaxis.tx_pat.enable
	gyaxis.cb_pat.enable
END

SCRIPT gygrid_disable
BEGIN
	gyaxis.ck_gclr.disable
	gyaxis.cl_gclr.disable
	gyaxis.tx_pat.disable
	gyaxis.cb_pat.disable
END

SCRIPT gymgrid_enable
BEGIN
	gyaxis.ck_mgclr.enable
	gyaxis.cl_mgclr.enable
	gyaxis.tx_mpat.enable
	gyaxis.cb_mpat.enable
END

SCRIPT gymgrid_disable
BEGIN
	gyaxis.ck_mgclr.disable
	gyaxis.cl_mgclr.disable
	gyaxis.tx_mpat.disable
	gyaxis.cb_mpat.disable
END

PROGRAM gymajor_show
BEGIN
	call gaction gyaxis.tx_rule.show
	call gaction gyaxis.ed_rule.show
	call gaction gyaxis.bt_rule.show
	call gaction gyaxis.tx_cstm.show
	call gaction gyaxis.ed_cstm.show
	call gaction gyaxis.bt_cstm.show
	call gaction gyaxis.tx_notk.show
	call gaction gyaxis.cb_notk.show
	call gaction gyaxis.tx_nolab.show
	call gaction gyaxis.cb_nolab.show
	call gaction gyaxis.ck_vlab.show
	call gaction gyaxis.ck_altr.show
	call gaction gyaxis.tx_fmt.show
	call gaction gyaxis.ed_fmt.show
	call gaction gyaxis.bt_fmt.show
	call gaction gyaxis.tx_ang.show
	call gaction gyaxis.cb_ang.show
	call gaction gyaxis.tx_lgap.show
	call gaction gyaxis.ed_lgap.show
	call gaction gyaxis.tx_lsize.show
	call gaction gyaxis.cb_lsize.show
	call gaction gyaxis.ck_tlclr.show
	if gyaxis.ck_tlclr {
		call gaction gyaxis.cl_tlclr.show