glegend_98s.idlg

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

PROGRAM glegend_text_opt_on
BEGIN
	/* Title / Caption 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_ttlpos.enable
	call gaction glegend.cb_ttlpos.enable
	call gaction glegend.tx_ttlmrgn.enable
	call gaction glegend.cb_ttlmrgn.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.tx_cappos.enable
	call gaction glegend.cb_cappos.enable
	call gaction glegend.tx_capmrgn.enable
	call gaction glegend.cb_capmrgn.enable
END

SCRIPT glegend_text_opt_off
BEGIN
	/* Title / Caption 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_ttlpos.disable
	glegend.cb_ttlpos.disable
	glegend.tx_ttlmrgn.disable
	glegend.cb_ttlmrgn.disable

	/* Caption options */
	glegend.tx_caption.disable
	glegend.ed_caption.disable
	glegend.tx_capsize.disable
	glegend.cb_capsize.disable
	glegend.tx_cappos.disable
	glegend.cb_cappos.disable
	glegend.tx_capmrgn.disable
	glegend.cb_capmrgn.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
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
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"
	"Caption"
END

LIST glegend_mode_action
BEGIN
	script glegend_title_on
	script glegend_caption_on
END

SCRIPT glegend_hide_all
BEGIN
	script glegend_caption_hide
	script glegend_title_hide
END

SCRIPT glegend_show_all
BEGIN
	program glegend_caption_show
	program glegend_title_show
END

SCRIPT glegend_title_on
BEGIN
	script glegend_hide_all
	program glegend_title_show
END

SCRIPT glegend_caption_on
BEGIN
	script glegend_hide_all
	program glegend_caption_show
END

PROGRAM glegend_title_show
BEGIN
	call gaction glegend.tx_mode.setlabel "Title options"
	call gaction glegend.tx_title.show
	call gaction glegend.ed_title.show
	call gaction glegend.tx_ttlsize.show
	call gaction glegend.cb_ttlsize.show
	call gaction glegend.tx_ttlpos.show
	call gaction glegend.cb_ttlpos.show
	call gaction glegend.tx_ttlmrgn.show
	call gaction glegend.cb_ttlmrgn.show
END

SCRIPT glegend_title_hide
BEGIN
	glegend.tx_title.hide
	glegend.ed_title.hide
	glegend.tx_ttlsize.hide
	glegend.cb_ttlsize.hide
	glegend.tx_ttlpos.hide
	glegend.cb_ttlpos.hide
	glegend.tx_ttlmrgn.hide
	glegend.cb_ttlmrgn.hide
END

PROGRAM glegend_caption_show
BEGIN
	call gaction glegend.tx_mode.setlabel "Caption options"
	call gaction glegend.tx_caption.show
	call gaction glegend.ed_caption.show
	call gaction glegend.tx_capsize.show
	call gaction glegend.cb_capsize.show
	call gaction glegend.tx_cappos.show
	call gaction glegend.cb_cappos.show
	call gaction glegend.tx_capmrgn.show
	call gaction glegend.cb_capmrgn.show
END

SCRIPT glegend_caption_hide
BEGIN
	glegend.tx_caption.hide
	glegend.ed_caption.hide
	glegend.tx_capsize.hide
	glegend.cb_capsize.hide
	glegend.tx_cappos.hide
	glegend.cb_cappos.hide
	glegend.tx_capmrgn.hide
	glegend.cb_capmrgn.hide
END

PROGRAM glegend_controls_pr
BEGIN
   if !H(glegend.cb_legend) {
      if glegend.cb_legend | glegend.cb_layout | glegend.cb_sympl	/*
	*/ | glegend.cb_lsize | glegend.ed_lab_ord {
	put " "  "legend("
	put /program glegend_controls_opt_pr
	put ")"
      }
   }
END
PROGRAM glegend_controls_opt_pr
BEGIN
	if glegend.cb_legend {
		put glegend.cb_legend
	}
	if glegend.cb_layout & !H(glegend.cb_layout) {
		put " " glegend.cb_layout "("
		put glegend.sp_rownum
		put glegend.sp_colnum
		put ")"
	}
	optionarg /hidedefault glegend.cb_sympl
	optionarg /hidedefault glegend.ed_lab_ord
	optionarg /hidedefault glegend.cb_lsize
END

PROGRAM glegend_region_pr
BEGIN
   if !H(glegend.gb_region) {
     if glegend.cb_rpos | glegend.ck_ring | glegend.ck_span {
	put " "  "legend("
	put /program glegend_region_opt_pr
	put ")"
     }
   }
END
PROGRAM glegend_region_opt_pr
BEGIN
	optionarg /hidedefault glegend.cb_rpos
	option  glegend.ck_ring
	option  glegend.ck_span
END

PROGRAM glegend_text_pr
BEGIN
    if !H(glegend.gb_title) {
	if glegend.ed_title | glegend.ed_caption {
		put " "
		put "legend("
		put /program glegend_text_opt_pr
		put ")"
	}
    }
END

PROGRAM glegend_text_opt_pr
BEGIN
	if glegend.ed_title {
		put " "  "title("
		put /hidden glegend.ed_title
		put /program glegend_title_opt_pr
		put ")"

	}
	if glegend.ed_caption {
		put " "  "caption("
		put /hidden glegend.ed_caption
		put /program glegend_caption_opt_pr
		put ")"
	}
END

PROGRAM glegend_title_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault glegend.cb_ttlsize
	        hoptionarg /hidedefault glegend.cb_ttlpos
	        hoptionarg glegend.cb_ttlmrgn
	endoptions
END

PROGRAM glegend_caption_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault glegend.cb_capsize
	        hoptionarg /hidedefault glegend.cb_cappos
	        hoptionarg glegend.cb_capmrgn
	endoptions
END

PROGRAM glegend_output  /* To be used with out programming include */
BEGIN
	put " " /program glegend_controls_pr
	put " " /program glegend_region_pr
	put " " /program glegend_text_pr
END