glegend_98.idlg

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

	"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_rownum.enable
	glegend.sp_colnum.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_rownum.disable
	glegend.sp_colnum.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.ck_rclr.enable
	call gaction glegend.cl_rclr.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
END

SCRIPT glegend_region_opt_off
BEGIN
	glegend.gb_region.disable
	glegend.ck_rclr.disable
	glegend.cl_rclr.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
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.ck_ttlclr.enable
	call gaction glegend.cl_ttlclr.enable
	call gaction glegend.tx_ttlpos.enable
	call gaction glegend.cb_ttlpos.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

	* 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.ck_stlclr.enable
	call gaction glegend.cl_stlclr.enable
	call gaction glegend.tx_stlpos.enable
	call gaction glegend.cb_stlpos.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

	/* 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.ck_capclr.enable
	call gaction glegend.cl_capclr.enable
	call gaction glegend.tx_cappos.enable
	call gaction glegend.cb_cappos.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

	/* 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.ck_notclr.enable
	call gaction glegend.cl_notclr.enable
	call gaction glegend.tx_notpos.enable
	call gaction glegend.cb_notpos.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
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.ck_ttlclr.disable
	glegend.cl_ttlclr.disable
	glegend.tx_ttlpos.disable
	glegend.cb_ttlpos.disable
	glegend.tx_ttlmrgn.disable
	glegend.cb_ttlmrgn.disable
	glegend.tx_ttlgp.disable
	glegend.ed_ttlgp.disable

	/* Subtitle options */
	glegend.tx_stitle.disable
	glegend.ed_stitle.disable
	glegend.tx_stlsize.disable
	glegend.cb_stlsize.disable
	glegend.ck_stlclr.disable
	glegend.cl_stlclr.disable
	glegend.tx_stlpos.disable
	glegend.cb_stlpos.disable
	glegend.tx_stlmrgn.disable
	glegend.cb_stlmrgn.disable
	glegend.tx_stlgp.disable
	glegend.ed_stlgp.disable

	/* Caption options */
	glegend.tx_caption.disable
	glegend.ed_caption.disable
	glegend.tx_capsize.disable
	glegend.cb_capsize.disable
	glegend.ck_capclr.disable
	glegend.cl_capclr.disable
	glegend.tx_cappos.disable
	glegend.cb_cappos.disable
	glegend.tx_capmrgn.disable
	glegend.cb_capmrgn.disable
	glegend.tx_capgp.disable
	glegend.ed_capgp.disable

	/* Note options */
	glegend.tx_note.disable
	glegend.ed_note.disable
	glegend.tx_notsize.disable
	glegend.cb_notsize.disable
	glegend.ck_notclr.disable
	glegend.cl_notclr.disable
	glegend.tx_notpos.disable
	glegend.cb_notpos.disable
	glegend.tx_notmrgn.disable
	glegend.cb_notmrgn.disable
	glegend.tx_notgp.disable
	glegend.ed_notgp.disable
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.ck_lclr.enable
	glegend.cl_lclr.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.ck_lclr.disable
	glegend.cl_lclr.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.sp_colnum.hide
	glegend.tx_layoutsp.setlabel "Rows:"
	glegend.sp_rownum.show
END

SCRIPT glayout_col_on
BEGIN
	glegend.sp_rownum.hide
	glegend.tx_layoutsp.setlabel "Columns:"
	glegend.sp_colnum.show
END

SCRIPT glayout_default_on
BEGIN
	glegend.tx_layoutsp.setlabel ""
	glegend.sp_colnum.hide
	glegend.sp_rownum.hide
END

LIST glegend_layout
BEGIN
	"Default"
	"Rows"
	"Columns"
END

LIST glegend_layout_action
BEGIN
	script glayout_default_on
	script glayout_row_on
	script glayout_col_on
END

LIST glegend_mode
BEGIN
	"Title"
	"Subtitle"