glegend.idlg

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

LIST glegend_legend_values
BEGIN
	""
	"on"
	"off"
END

/* Begin Enable All */
SCRIPT glegend_enable
BEGIN
	glegend.gb_main.enable
	glegend.tx_legend.enable
	glegend.cb_legend.enable
	glegend.cb_legend.withvalue glegend.cb_legend.setvalue "@"
END
/* End Enable All */

/* Begin Disable All */
SCRIPT glegend_disable
BEGIN
	glegend.gb_main.disable
	glegend.tx_legend.disable
	glegend.cb_legend.disable
	script glegend_disable_sub
END
/* End Disable All */

LIST glegend_legend_action
BEGIN
	program glegend_enable_sub
	program glegend_enable_sub
	script glegend_disable_sub
END

PROGRAM glegend_ring_check
BEGIN
	if !H(glegend.ck_ring) {
		if glegend.ck_ring {
			call gaction glegend.ck_span.disable
		}
		if !glegend.ck_ring {
			call gaction glegend.ck_span.enable
		}
	}
END

PROGRAM glegend_span_check
BEGIN
	if !H(glegend.ck_span) {
		if glegend.ck_span {
			call gaction glegend.ck_ring.disable
		}
		if !glegend.ck_span {
			call gaction glegend.ck_ring.enable
		}
	}
END

PROGRAM glegend_enable_sub
BEGIN
	if !H(glegend.cb_legend) {
		call script glegend_controls_on
		call program glegend_region_opt_on
		call program glegend_text_opt_on
		call script glegend_label_opt_on
	}
END

SCRIPT glegend_disable_sub
BEGIN
	script glegend_controls_off
	script glegend_region_opt_off
	script glegend_text_opt_off
	script glegend_label_opt_off
END

SCRIPT glegend_controls_on
BEGIN
	glegend.tx_colfirst.enable
	glegend.cb_colfirst.enable
	glegend.tx_txfirst.enable
	glegend.cb_txfirst.enable
	glegend.tx_stack.enable
	glegend.cb_stack.enable
	glegend.tx_layout.enable
	glegend.cb_layout.enable
	glegend.tx_layoutsp.enable
	glegend.sp_rowcol.enable
	glegend.tx_sympl.enable
	glegend.cb_sympl.enable
	glegend.tx_rowgp.enable
	glegend.ed_rowgp.enable
	glegend.tx_colgp.enable
	glegend.ed_colgp.enable
	glegend.tx_keygp.enable
	glegend.ed_keygp.enable
END

SCRIPT glegend_controls_off
BEGIN
	glegend.tx_colfirst.disable
	glegend.cb_colfirst.disable
	glegend.tx_txfirst.disable
	glegend.cb_txfirst.disable
	glegend.tx_stack.disable
	glegend.cb_stack.disable
	glegend.tx_layout.disable
	glegend.cb_layout.disable
	glegend.tx_layoutsp.disable
	glegend.sp_rowcol.disable
	glegend.tx_sympl.disable
	glegend.cb_sympl.disable
	glegend.tx_rowgp.disable
	glegend.ed_rowgp.disable
	glegend.tx_colgp.disable
	glegend.ed_colgp.disable
	glegend.tx_keygp.disable
	glegend.ed_keygp.disable
END

PROGRAM glegend_region_opt_on
BEGIN
	call gaction glegend.gb_region.enable
	call gaction glegend.tx_rcolor.enable
	call gaction glegend.cb_rcolor.enable
	call gaction glegend.cl_rcolor.enable
	call gaction glegend.tx_rlcolor.enable
	call gaction glegend.cb_rlcolor.enable
	call gaction glegend.cl_rlcolor.enable
	call gaction glegend.tx_rpos.enable
	call gaction glegend.cb_rpos.enable
	if !glegend.ck_span {
		call gaction glegend.ck_ring.enable
	}
	if !glegend.ck_ring {
		call gaction glegend.ck_span.enable
	}
	call gaction glegend.tx_rmargin.enable
	call gaction glegend.cb_rmargin.enable
	call gaction glegend.tx_rlwd.enable
	call gaction glegend.cb_rlwd.enable
END

SCRIPT glegend_region_opt_off
BEGIN
	glegend.gb_region.disable
	glegend.tx_rcolor.disable
	glegend.cb_rcolor.disable
	glegend.cl_rcolor.disable
	glegend.tx_rlcolor.disable
	glegend.cb_rlcolor.disable
	glegend.cl_rlcolor.disable
	glegend.tx_rpos.disable
	glegend.cb_rpos.disable
	glegend.ck_ring.disable
	glegend.ck_span.disable
	glegend.tx_rmargin.disable
	glegend.cb_rmargin.disable
	glegend.tx_rlwd.disable
	glegend.cb_rlwd.disable
END

PROGRAM glegend_text_opt_on
BEGIN
	/* Title Subtitle Caption Note options */
	call gaction glegend.gb_title.enable
	call gaction glegend.cb_mode.enable
	call gaction glegend.tx_mode.enable
	/* Title options */
	call gaction glegend.tx_title.enable
	call gaction glegend.ed_title.enable
	call gaction glegend.tx_ttlsize.enable
	call gaction glegend.cb_ttlsize.enable
	call gaction glegend.tx_ttlclr.enable
	call gaction glegend.cb_ttlclr.enable
	call gaction glegend.cl_ttlclr.enable
	call gaction glegend.tx_ttlpos.enable
	call gaction glegend.cb_ttlpos.enable
	call gaction glegend.tx_ttljust.enable
	call gaction glegend.cb_ttljust.enable
	call gaction glegend.tx_ttlmrgn.enable
	call gaction glegend.cb_ttlmrgn.enable
	call gaction glegend.tx_ttlgp.enable
	call gaction glegend.ed_ttlgp.enable
	call gaction glegend.ck_ttlbox.enable
	if glegend.ck_ttlbox {
		call script legend_ttlbox_on
	}
	* Subtitle options */
	call gaction glegend.tx_stitle.enable
	call gaction glegend.ed_stitle.enable
	call gaction glegend.tx_stlsize.enable
	call gaction glegend.cb_stlsize.enable
	call gaction glegend.tx_stlclr.enable
	call gaction glegend.cb_stlclr.enable
	call gaction glegend.cl_stlclr.enable
	call gaction glegend.tx_stlpos.enable
	call gaction glegend.cb_stlpos.enable
	call gaction glegend.tx_stljust.enable
	call gaction glegend.cb_stljust.enable
	call gaction glegend.tx_stlmrgn.enable
	call gaction glegend.cb_stlmrgn.enable
	call gaction glegend.tx_stlgp.enable
	call gaction glegend.ed_stlgp.enable
	call gaction glegend.ck_stlbox.enable
	if glegend.ck_stlbox {
		call script legend_stlbox_on
	}
	/* Caption options */
	call gaction glegend.tx_caption.enable
	call gaction glegend.ed_caption.enable
	call gaction glegend.tx_capsize.enable
	call gaction glegend.cb_capsize.enable
	call gaction glegend.tx_capclr.enable
	call gaction glegend.cb_capclr.enable
	call gaction glegend.cl_capclr.enable
	call gaction glegend.tx_cappos.enable
	call gaction glegend.cb_cappos.enable
	call gaction glegend.tx_capjust.enable
	call gaction glegend.cb_capjust.enable
	call gaction glegend.tx_capmrgn.enable
	call gaction glegend.cb_capmrgn.enable
	call gaction glegend.tx_capgp.enable
	call gaction glegend.ed_capgp.enable
	call gaction glegend.ck_capbox.enable
	if glegend.ck_capbox {
		call script legend_capbox_on
	}
	/* Note options */
	call gaction glegend.tx_note.enable
	call gaction glegend.ed_note.enable
	call gaction glegend.tx_notsize.enable
	call gaction glegend.cb_notsize.enable
	call gaction glegend.tx_notclr.enable
	call gaction glegend.cb_notclr.enable
	call gaction glegend.cl_notclr.enable
	call gaction glegend.tx_notpos.enable
	call gaction glegend.cb_notpos.enable
	call gaction glegend.tx_notjust.enable
	call gaction glegend.cb_notjust.enable
	call gaction glegend.tx_notmrgn.enable
	call gaction glegend.cb_notmrgn.enable
	call gaction glegend.tx_notgp.enable
	call gaction glegend.ed_notgp.enable
	call gaction glegend.ck_notbox.enable
	if glegend.ck_notbox {
		call script legend_notbox_on
	}
END

SCRIPT glegend_text_opt_off
BEGIN
	/* Title Subtitle Caption Note options */
	glegend.gb_title.disable
	glegend.cb_mode.disable
	glegend.tx_mode.disable

	/* Title options */
	glegend.tx_title.disable
	glegend.ed_title.disable
	glegend.tx_ttlsize.disable
	glegend.cb_ttlsize.disable
	glegend.tx_ttlclr.disable
	glegend.cb_ttlclr.disable
	glegend.cl_ttlclr.disable
	glegend.tx_ttlpos.disable
	glegend.cb_ttlpos.disable
	glegend.tx_ttljust.disable
	glegend.cb_ttljust.disable
	glegend.tx_ttlmrgn.disable
	glegend.cb_ttlmrgn.disable
	glegend.tx_ttlgp.disable
	glegend.ed_ttlgp.disable
	glegend.ck_ttlbox.disable
	script legend_ttlbox_off

	/* Subtitle options */
	glegend.tx_stitle.disable
	glegend.ed_stitle.disable
	glegend.tx_stlsize.disable
	glegend.cb_stlsize.disable
	glegend.tx_stlclr.disable
	glegend.cb_stlclr.disable
	glegend.cl_stlclr.disable
	glegend.tx_stlpos.disable
	glegend.cb_stlpos.disable
	glegend.tx_stljust.disable
	glegend.cb_stljust.disable
	glegend.tx_stlmrgn.disable
	glegend.cb_stlmrgn.disable
	glegend.tx_stlgp.disable
	glegend.ed_stlgp.disable
	glegend.ck_stlbox.disable
	script legend_stlbox_off

	/* Caption options */
	glegend.tx_caption.disable
	glegend.ed_caption.disable
	glegend.tx_capsize.disable
	glegend.cb_capsize.disable
	glegend.tx_capclr.disable
	glegend.cb_capclr.disable
	glegend.cl_capclr.disable
	glegend.tx_cappos.disable
	glegend.cb_cappos.disable
	glegend.tx_capjust.disable
	glegend.cb_capjust.disable
	glegend.tx_capmrgn.disable
	glegend.cb_capmrgn.disable
	glegend.tx_capgp.disable
	glegend.ed_capgp.disable
	glegend.ck_capbox.disable
	script legend_capbox_off

	/* Note options */
	glegend.tx_note.disable
	glegend.ed_note.disable
	glegend.tx_notsize.disable
	glegend.cb_notsize.disable
	glegend.tx_notclr.disable
	glegend.cb_notclr.disable
	glegend.cl_notclr.disable
	glegend.tx_notpos.disable
	glegend.cb_notpos.disable
	glegend.tx_notjust.disable
	glegend.cb_notjust.disable
	glegend.tx_notmrgn.disable
	glegend.cb_notmrgn.disable
	glegend.tx_notgp.disable
	glegend.ed_notgp.disable
	glegend.ck_notbox.disable
	script legend_notbox_off
END

SCRIPT glegend_label_opt_on
BEGIN
	glegend.gb_label.enable
	glegend.tx_lab_ord.enable
	glegend.ed_lab_ord.enable
	glegend.bt_lab_ord.enable
	glegend.tx_lsize.enable
	glegend.cb_lsize.enable
	glegend.tx_lclr.enable
	glegend.cb_lclr.enable
	glegend.cl_lclr.enable
	glegend.tx_ljust.enable
	glegend.cb_ljust.enable
	glegend.ck_lallkey.enable
END

SCRIPT glegend_label_opt_off
BEGIN
	glegend.gb_label.disable
	glegend.tx_lab_ord.disable
	glegend.ed_lab_ord.disable
	glegend.bt_lab_ord.disable
	glegend.tx_lsize.disable
	glegend.cb_lsize.disable
	glegend.tx_lclr.disable
	glegend.cb_lclr.disable
	glegend.cl_lclr.disable
	glegend.tx_ljust.disable
	glegend.cb_ljust.disable
	glegend.ck_lallkey.disable
END

LIST glegend_colfirst_values
BEGIN
	""
	"colfirst"
	"nocolfirst"
END

LIST glegend_txfirst_values
BEGIN
	""
	"textfirst"
	"notextfirst"
END

LIST glegend_stack_values
BEGIN
	""
	"stack"
	"nostack"
END

LIST glegend_layout_values
BEGIN
	""
	"rows"
	"cols"
END

SCRIPT glayout_row_on
BEGIN
	glegend.tx_layoutsp.setlabel "Rows:"
	glegend.sp_rowcol.show
END