glegend_98.idlg

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

	"Caption"
	"Note"
END

LIST glegend_mode_action
BEGIN
	script glegend_title_on
	script glegend_subtitle_on
	script glegend_caption_on
	script glegend_note_on
END

SCRIPT glegend_hide_all
BEGIN
	script glegend_subtitle_hide
	script glegend_caption_hide
	script glegend_note_hide
	script glegend_title_hide
END

SCRIPT glegend_show_all
BEGIN
	program glegend_subtitle_show
	program glegend_caption_show
	program glegend_note_show
	program glegend_title_show
END

SCRIPT glegend_title_on
BEGIN
	script glegend_hide_all
	program glegend_title_show
END
SCRIPT glegend_subtitle_on
BEGIN
	script glegend_hide_all
	program glegend_subtitle_show
END
SCRIPT glegend_caption_on
BEGIN
	script glegend_hide_all
	program glegend_caption_show
END
SCRIPT glegend_note_on
BEGIN
	script glegend_hide_all
	program glegend_note_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.ck_ttlclr.show
	if glegend.ck_ttlclr {
		call gaction glegend.cl_ttlclr.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
	call gaction glegend.tx_ttlgp.show
	call gaction glegend.ed_ttlgp.show
END

SCRIPT glegend_title_hide
BEGIN
	glegend.tx_title.hide
	glegend.ed_title.hide
	glegend.tx_ttlsize.hide
	glegend.cb_ttlsize.hide
	glegend.ck_ttlclr.hide
	glegend.cl_ttlclr.hide
	glegend.tx_ttlpos.hide
	glegend.cb_ttlpos.hide
	glegend.tx_ttlmrgn.hide
	glegend.cb_ttlmrgn.hide
	glegend.tx_ttlgp.hide
	glegend.ed_ttlgp.hide
END

PROGRAM glegend_subtitle_show
BEGIN
	call gaction glegend.tx_mode.setlabel "Subtitle options"
	call gaction glegend.tx_stitle.show
	call gaction glegend.ed_stitle.show
	call gaction glegend.tx_stlsize.show
	call gaction glegend.cb_stlsize.show
	call gaction glegend.ck_stlclr.show
	if glegend.ck_stlclr {
		call gaction glegend.cl_stlclr.show
	}
	call gaction glegend.tx_stlpos.show
	call gaction glegend.cb_stlpos.show
	call gaction glegend.tx_stlmrgn.show
	call gaction glegend.cb_stlmrgn.show
	call gaction glegend.tx_stlgp.show
	call gaction glegend.ed_stlgp.show
END

SCRIPT glegend_subtitle_hide
BEGIN
	glegend.tx_stitle.hide
	glegend.ed_stitle.hide
	glegend.tx_stlsize.hide
	glegend.cb_stlsize.hide
	glegend.ck_stlclr.hide
	glegend.cl_stlclr.hide
	glegend.tx_stlpos.hide
	glegend.cb_stlpos.hide
	glegend.tx_stlmrgn.hide
	glegend.cb_stlmrgn.hide
	glegend.tx_stlgp.hide
	glegend.ed_stlgp.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.ck_capclr.show
	if glegend.ck_capclr {
		call gaction glegend.cl_capclr.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
	call gaction glegend.tx_capgp.show
	call gaction glegend.ed_capgp.show
END

SCRIPT glegend_caption_hide
BEGIN
	glegend.tx_caption.hide
	glegend.ed_caption.hide
	glegend.tx_capsize.hide
	glegend.cb_capsize.hide
	glegend.ck_capclr.hide
	glegend.cl_capclr.hide
	glegend.tx_cappos.hide
	glegend.cb_cappos.hide
	glegend.tx_capmrgn.hide
	glegend.cb_capmrgn.hide
	glegend.tx_capgp.hide
	glegend.ed_capgp.hide
END

PROGRAM glegend_note_show
BEGIN
	call gaction glegend.tx_mode.setlabel "Note options"
	call gaction glegend.tx_note.show
	call gaction glegend.ed_note.show
	call gaction glegend.tx_notsize.show
	call gaction glegend.cb_notsize.show
	call gaction glegend.ck_notclr.show
	if glegend.ck_notclr {
		call gaction glegend.cl_notclr.show
	}
	call gaction glegend.tx_notpos.show
	call gaction glegend.cb_notpos.show
	call gaction glegend.tx_notmrgn.show
	call gaction glegend.cb_notmrgn.show
	call gaction glegend.tx_notgp.show
	call gaction glegend.ed_notgp.show
END

SCRIPT glegend_note_hide
BEGIN
	glegend.tx_note.hide
	glegend.ed_note.hide
	glegend.tx_notsize.hide
	glegend.cb_notsize.hide
	glegend.ck_notclr.hide
	glegend.cl_notclr.hide
	glegend.tx_notpos.hide
	glegend.cb_notpos.hide
	glegend.tx_notmrgn.hide
	glegend.cb_notmrgn.hide
	glegend.tx_notgp.hide
	glegend.ed_notgp.hide
END

PROGRAM glegend_controls_pr
BEGIN
   if !H(glegend.cb_legend) {
      if glegend.cb_legend | glegend.cb_colfirst | glegend.cb_txfirst	/*
	*/ | glegend.cb_stack | glegend.cb_layout | glegend.cb_sympl	/*
	*/ | glegend.ed_rowgp | glegend.ed_colgp | glegend.ed_keygp 	/*
	*/ | 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_colfirst {
		put " " glegend.cb_colfirst
	}
	if glegend.cb_txfirst {
		put " "  glegend.cb_txfirst
	}
	if glegend.cb_stack {
		put " "  glegend.cb_stack
	}
	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_rowgp
	optionarg /hidedefault glegend.ed_colgp
	optionarg /hidedefault glegend.ed_lab_ord
	optionarg /hidedefault glegend.ed_keygp
	optionarg /hidedefault glegend.cb_lsize
	if !H(glegend.cl_lclr) {
		optionarg /quoted glegend.cl_lclr
	}
END

PROGRAM glegend_region_pr
BEGIN
   if !H(glegend.gb_region) {
     if !H(glegend.cl_rclr) | glegend.cb_rpos | glegend.ck_ring |	/*
     */ glegend.ck_span |  glegend.cb_rmargin  {
	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

	if !H(glegend.cl_rclr) | glegend.cb_rmargin {
		put " "  "region("
		put /program glegend_region_opt2_pr
		put ")"
	}
END
PROGRAM glegend_region_opt2_pr
BEGIN
	if !H(glegend.cl_rclr) {
		optionarg /quoted glegend.cl_rclr
	}
	optionarg /hidedefault glegend.cb_rmargin
END

PROGRAM glegend_text_pr
BEGIN
    if !H(glegend.gb_title) {
	if glegend.ed_title | glegend.ed_stitle | glegend.ed_caption	/*
		*/ | glegend.ed_note {
		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_stitle {
		put " "  "subtitle("
		put /hidden glegend.ed_stitle
		put /program glegend_subtitle_opt_pr
		put ")"
	}
	if glegend.ed_caption {
		put " "  "caption("
		put /hidden glegend.ed_caption
		put /program glegend_caption_opt_pr
		put ")"
	}
	if glegend.ed_note {
		put " "  "note("
		put /hidden glegend.ed_note
		put /program glegend_note_opt_pr
		put ")"
	}
END

PROGRAM glegend_title_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault glegend.cb_ttlsize
		if glegend.ck_ttlclr {
			hoptionarg /quoted glegend.cl_ttlclr
		}
	        hoptionarg /hidedefault glegend.cb_ttlpos
	        hoptionarg glegend.cb_ttlmrgn
		hoptionarg glegend.ed_ttlgp
	endoptions
END

PROGRAM glegend_subtitle_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault glegend.cb_stlsize
		if glegend.ck_stlclr {
			hoptionarg /quoted glegend.cl_stlclr
		}
	        hoptionarg /hidedefault glegend.cb_stlpos
	        hoptionarg glegend.cb_stlmrgn
		hoptionarg glegend.ed_stlgp
	endoptions
END

PROGRAM glegend_caption_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault glegend.cb_capsize
		if glegend.ck_capclr {
			hoptionarg /quoted glegend.cl_capclr
		}
	        hoptionarg /hidedefault glegend.cb_cappos
	        hoptionarg glegend.cb_capmrgn
		hoptionarg glegend.ed_capgp
	endoptions
END

PROGRAM glegend_note_opt_pr
BEGIN
	beginoptions
		hoptionarg /hidedefault glegend.cb_notsize
		if glegend.ck_notclr {
			hoptionarg /quoted glegend.cl_notclr
		}
	        hoptionarg /hidedefault glegend.cb_notpos
	        hoptionarg glegend.cb_notmrgn
		hoptionarg glegend.ed_notgp
	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