gtitle.idlg

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· IDLG 代码 · 共 578 行 · 第 1/2 页

SCRIPT gtitle_ring_on
BEGIN
	gtitle.ck_span.disable
	gtitle.ck_expand.disable
END

PROGRAM gtitle_ring_off
BEGIN
	call gaction gtitle.ck_span.enable
	if gtitle.ck_box {
		call gaction gtitle.ck_expand.enable
	}
END

SCRIPT gtitle_sring_on
BEGIN
	gtitle.ck_sspan.disable
	gtitle.ck_sexpand.disable
END

PROGRAM gtitle_sring_off
BEGIN
	call gaction gtitle.ck_sspan.enable
	if gtitle.ck_sbox {
		call gaction gtitle.ck_sexpand.enable
	}
END

PROGRAM gtitle_sbox_on
BEGIN
	call gaction gtitle.tx_sbclr.enable
	call gaction gtitle.cb_sbclr.enable
	call gaction gtitle.cl_sbclr.enable
	call gaction gtitle.tx_sblclr.enable
	call gaction gtitle.cb_sblclr.enable
	call gaction gtitle.cl_sblclr.enable
	call gaction gtitle.tx_sbmargin.enable
	call gaction gtitle.cb_sbmargin.enable
	if !gtitle.ck_sring {
		call gaction gtitle.ck_sexpand.enable
	}
END

SCRIPT gtitle_sbox_off
BEGIN
	gtitle.tx_sbclr.disable
	gtitle.cb_sbclr.disable
	gtitle.cl_sbclr.disable
	gtitle.tx_sblclr.disable
	gtitle.cb_sblclr.disable
	gtitle.cl_sblclr.disable
	gtitle.tx_sbmargin.disable
	gtitle.cb_sbmargin.disable
	gtitle.ck_sexpand.disable
END



/* Script to enable this tab */
SCRIPT gtitle_enable
BEGIN
	program gtitle_enable_pr
END

PROGRAM gtitle_enable_pr
BEGIN
	call gaction gtitle.gb_title.enable
	call gaction gtitle.ed_title.enable
	call gaction gtitle.tx_size.enable
	call gaction gtitle.cb_size.enable
	call gaction gtitle.tx_clr.enable
	call gaction gtitle.cb_clr.enable
	call gaction gtitle.cl_clr.enable
	call gaction gtitle.tx_posit.enable
	call gaction gtitle.cb_posit.enable
	call gaction gtitle.tx_orient.enable
	call gaction gtitle.cb_orient.enable
	if !gtitle.ck_span {
		call gaction gtitle.ck_ring.enable
	}
	if !gtitle.ck_ring {
		call gaction gtitle.ck_span.enable
	}
	call gaction gtitle.tx_just.enable
	call gaction gtitle.cb_just.enable
	call gaction gtitle.tx_align.enable
	call gaction gtitle.cb_align.enable
	call gaction gtitle.tx_margin.enable
	call gaction gtitle.cb_margin.enable
	call gaction gtitle.tx_lgap.enable
	call gaction gtitle.ed_lgap.enable
	call gaction gtitle.ck_box.enable
	if gtitle.ck_box {
		call program gtitle_box_on
	}

	call gaction gtitle.gb_stitle.enable
	call gaction gtitle.ed_stitle.enable
	call gaction gtitle.tx_ssize.enable
	call gaction gtitle.cb_ssize.enable
	call gaction gtitle.tx_sclr.enable
	call gaction gtitle.cb_sclr.enable
	call gaction gtitle.cl_sclr.enable
	call gaction gtitle.tx_sposit.enable
	call gaction gtitle.cb_sposit.enable
	call gaction gtitle.tx_sorient.enable
	call gaction gtitle.cb_sorient.enable
	if !gtitle.ck_sspan {
		call gaction gtitle.ck_sring.enable
	}
	if !gtitle.ck_sring {
		call gaction gtitle.ck_sspan.enable
	}
	call gaction gtitle.tx_sjust.enable
	call gaction gtitle.cb_sjust.enable
	call gaction gtitle.tx_salign.enable
	call gaction gtitle.cb_salign.enable
	call gaction gtitle.tx_smargin.enable
	call gaction gtitle.cb_smargin.enable
	call gaction gtitle.tx_slgap.enable
	call gaction gtitle.ed_slgap.enable
	call gaction gtitle.ck_sbox.enable
	if gtitle.ck_sbox {
		call program gtitle_sbox_on
	}

END

/* Script to disable this tab */
SCRIPT gtitle_disable
BEGIN
	gtitle.gb_title.disable
	gtitle.ed_title.disable
	gtitle.tx_size.disable
	gtitle.cb_size.disable
	gtitle.tx_clr.disable
	gtitle.cb_clr.disable
	gtitle.cl_clr.disable
	gtitle.tx_posit.disable
	gtitle.cb_posit.disable
	gtitle.tx_orient.disable
	gtitle.cb_orient.disable
	gtitle.ck_ring.disable
	gtitle.ck_span.disable
	gtitle.tx_just.disable
	gtitle.cb_just.disable
	gtitle.tx_align.disable
	gtitle.cb_align.disable
	gtitle.tx_margin.disable
	gtitle.cb_margin.disable
	gtitle.tx_lgap.disable
	gtitle.ed_lgap.disable
	gtitle.ck_box.disable
	script gtitle_box_off

	gtitle.gb_stitle.disable
	gtitle.ed_stitle.disable
	gtitle.tx_ssize.disable
	gtitle.cb_ssize.disable
	gtitle.tx_sclr.disable
	gtitle.cb_sclr.disable
	gtitle.cl_sclr.disable
	gtitle.tx_sposit.disable
	gtitle.cb_sposit.disable
	gtitle.tx_sorient.disable
	gtitle.cb_sorient.disable
	gtitle.ck_sring.disable
	gtitle.ck_sspan.disable
	gtitle.tx_sjust.disable
	gtitle.cb_sjust.disable
	gtitle.tx_salign.disable
	gtitle.cb_salign.disable
	gtitle.tx_smargin.disable
	gtitle.cb_smargin.disable
	gtitle.tx_slgap.disable
	gtitle.ed_slgap.disable
	gtitle.ck_sbox.disable
	script gtitle_sbox_off
END

PROGRAM gtitle_title_pr
BEGIN
/* Title */
    if !H(gtitle.ed_title) & 					 ///
        ( gtitle.ed_title | gtitle.cb_size | gtitle.cb_clr	 ///
        | gtitle.cb_posit | gtitle.cb_orient | gtitle.ck_ring	 ///
        | gtitle.ck_span  | gtitle.cb_just | gtitle.cb_align	 ///
        | gtitle.cb_margin | gtitle.ed_lgap | gtitle.ck_box ) {
	put "title(" gtitle.ed_title
	put /program gtitle_title_opt_pr
	put ") "
    }

END

PROGRAM gtitle_title_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault gtitle.cb_size
      		if H(gtitle.cl_clr) {
			optionarg /hidedefault gtitle.cb_clr
      		}
      		if !H(gtitle.cl_clr) {
			optionarg /quoted gtitle.cl_clr
		}
		optionarg /hidedefault gtitle.cb_posit
		optionarg /hidedefault gtitle.cb_orient
		option gtitle.ck_ring
		option gtitle.ck_span
		optionarg /hidedefault gtitle.cb_just
		optionarg /hidedefault gtitle.cb_align
		optionarg /hidedefault gtitle.cb_margin
		optionarg gtitle.ed_lgap
		option gtitle.ck_box
		if H(gtitle.cl_bclr) {
			optionarg /hidedefault gtitle.cb_bclr
		}
		if !H(gtitle.cl_bclr) {
			optionarg /quoted gtitle.cl_bclr
		}
		if H(gtitle.cl_blclr) {
			optionarg /hidedefault gtitle.cb_blclr
		}
		if !H(gtitle.cl_blclr) {
			optionarg /quoted gtitle.cl_blclr
		}
		optionarg /hidedefault gtitle.cb_bmargin
		option gtitle.ck_expand
	endoptions
END

PROGRAM gtitle_subtitle_pr
BEGIN

/* Sub-title */
   if !H(gtitle.ed_stitle) & 					 ///
        ( gtitle.ed_stitle | gtitle.cb_ssize | gtitle.cb_sclr	 ///
        | gtitle.cb_sposit | gtitle.cb_sorient | gtitle.ck_sring ///
        | gtitle.ck_sspan  | gtitle.cb_sjust | gtitle.cb_salign	 ///
        | gtitle.cb_smargin | gtitle.ed_slgap | gtitle.ck_sbox ) {
	put "subtitle(" gtitle.ed_stitle
	put /program gtitle_subtitle_opt_pr
	put ") "
    }
END

PROGRAM gtitle_subtitle_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault gtitle.cb_ssize
      		if H(gtitle.cl_sclr) {
      			optionarg /hidedefault gtitle.cb_sclr
      		}
      		if !H(gtitle.cl_sclr) {
      			optionarg /quoted gtitle.cl_sclr
		}
		optionarg /hidedefault gtitle.cb_sposit
		optionarg /hidedefault gtitle.cb_sorient
		option gtitle.ck_sring
		option gtitle.ck_sspan
		optionarg /hidedefault gtitle.cb_sjust
		optionarg /hidedefault gtitle.cb_salign
		optionarg /hidedefault gtitle.cb_smargin
		optionarg gtitle.ed_slgap
		option gtitle.ck_sbox
		if H(gtitle.cl_sbclr) {
		      	optionarg /hidedefault gtitle.cb_sbclr
		}
		if !H(gtitle.cl_sbclr) {
			optionarg /quoted gtitle.cl_sbclr
		}
		if H(gtitle.cl_sblclr) {
		      	optionarg /hidedefault gtitle.cb_sblclr
		}
		if !H(gtitle.cl_sblclr) {
			optionarg /quoted gtitle.cl_sblclr
		}
		optionarg /hidedefault gtitle.cb_sbmargin
		option gtitle.ck_sexpand
	endoptions
END

PROGRAM gtitle_output
BEGIN
	put " "  /program gtitle_title_pr
	put " "  /program gtitle_subtitle_pr
END
/* end */