gcaption_98.idlg

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

/*
  gcaption_98.idlg Include for graphics captions 
  **Special version for Windows95/98
  
*!  VERSION 1.0.2  20mar2005
  
  This idlg assumes you are using _graph.idlg include and _std_graph.idlg
  include to set the proper lengths, widths and heights.
*/

DIALOG gcaption, label() tabtitle("Caption")
BEGIN
  
  /* LEFT SIDE-- Caption */
  GROUPBOX gb_caption    _lft        _top      _gwd1       _ht15,	/*
		*/ label("Caption ")   
  EDIT     ed_caption    _lft1g      _ss       _cwd1gb     .,		/*
		*/ label("Caption") 					/*
		*/ option(caption)
  /* LEFT SIDE-- Caption col(1) */
  TEXT     tx_size     _igft       _ms       _txwd       .,		/*
		*/ label("Size:")					/*
		*/ right
  DEFINE   y @y         
  COMBOBOX cb_size     _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ contents(textsizes) 					/*
		*/ option(size)
  CHECKBOX ck_clr      _igft       _ms       _txwd       .,		/*
		*/ label("Color") clickon(gaction gcaption.cl_clr.show)	/*
		*/ clickoff(gaction gcaption.cl_clr.hide)
  COLOR    cl_clr      _txsep      @         _txr2b4g    .,		/*
		*/ option(color)
  TEXT     tx_posit    _igft       _ms       _txwd       .,		/*
		*/ label("Position:")					/*
		*/ right    
  COMBOBOX cb_posit    _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ contents(clockpos) 					/*
		*/ option(position)
  CHECKBOX ck_ring     @           _ms       _txr2gi     .,		/*
		*/ label("Inside plot region")				/*
		*/ clickon(program gcaption_ring_check)			/*
		*/ clickoff(program gcaption_ring_check)		/*
		*/ option(ring(0))
  CHECKBOX ck_span     @           _ms       _txr2gi     .,		/*
		*/ label("Span width of graph")				/*
		*/ clickon(program gcaption_span_check)			/*
		*/ clickoff(program gcaption_span_check)		/*
		*/ option(span)
  
  /* LEFT SIDE-- Caption upper col(2)*/
   
  TEXT     tx_margin   _lft4_2g    y         _txwd       .,		/*
		*/ label("Margin:")					/*
		*/ right  
  COMBOBOX cb_margin   _txsep      @         _txr2b4g    .,		/*
		*/ dropdown						/*
		*/ contents(margin) 					/*
		*/ option(margin)

  /* LEFT SIDE-- Note */
  GROUPBOX gb_ncaption _gft2       _top      _gwd1       _ht15,	/*
		*/ label("Note ")   
  EDIT     ed_ncaption _igft2      _ss       _cwd1gb     .,		/*
		*/ label("Note") 					/*
		*/ option(note)
  /* LEFT SIDE-- Note col(1) */
  TEXT     tx_nsize    _igft2      _ms       _txwd       .,		/*
		*/ label("Size:")					/*
		*/ right
  DEFINE   y @y         
  COMBOBOX cb_nsize    _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ contents(textsizes) 					/*
		*/ option(size)
  CHECKBOX ck_nclr     _igft2       _ms       _txwd       .,		/*
		*/ label("Color") clickon(gaction gcaption.cl_nclr.show)/*
		*/ clickoff(gaction gcaption.cl_nclr.hide)
  COLOR    cl_nclr     _txsep      @         _txr2b4g    .,		/*
		*/ option(color)	
  TEXT     tx_nposit   _igft2       _ms       _txwd       .,		/*
		*/ label("Position:")					/*
		*/ right    
  COMBOBOX cb_nposit   _txsep      @         _txr2b4g    .,		/*
		*/ dropdownlist						/*
		*/ contents(clockpos) 					/*
		*/ option(position)
  CHECKBOX ck_nring    @           _ms       _txr2gi     .,		/*
		*/ label("Inside plot region")				/*
		*/ clickon(program gcaption_nring_check)			/*
		*/ clickoff(program gcaption_nring_check)		/*
		*/ option(ring(0))
  CHECKBOX ck_nspan    @           _ms       _txr2gi     .,		/*
		*/ label("Span width of graph")				/*
		*/ clickon(program gcaption_nspan_check)			/*
		*/ clickoff(program gcaption_nspan_check)		/*
		*/ option(span)
  
  /* LEFT SIDE-- Caption upper col(2)*/
   
  TEXT     tx_nmargin  _lft4_4g    y         _txwd       .,		/*
		*/ label("Margin:")					/*
		*/ right  
  COMBOBOX cb_nmargin  _txsep      @         _txr2b4g    .,		/*
		*/ dropdown						/*
		*/ contents(margin) 					/*
		*/ option(margin)

END

PROGRAM gcaption_ring_check
BEGIN
	if !H(gcaption.ck_ring) {
		if gcaption.ck_ring {
			call script gcaption_ring_on
		}
		if !gcaption.ck_ring {
			call program gcaption_ring_off
		}
	}
END

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

PROGRAM gcaption_nring_check
BEGIN
	if !H(gcaption.ck_nring) {
		if gcaption.ck_nring {
			call script gcaption_nring_on
		}
		if !gcaption.ck_nring {
			call program gcaption_nring_off
		}
	}
END

PROGRAM gcaption_nspan_check
BEGIN
	if !H(gcaption.ck_nspan) {
		if gcaption.ck_nspan {
			call gaction gcaption.ck_nring.disable
		}
		if !gcaption.ck_nspan {
			call gaction gcaption.ck_nring.enable
		}
	}
END

SCRIPT gcaption_ring_on
BEGIN
	gcaption.ck_span.disable
END

PROGRAM gcaption_ring_off
BEGIN
	call gaction gcaption.ck_span.enable
END

SCRIPT gcaption_nring_on
BEGIN
	gcaption.ck_nspan.disable
END

PROGRAM gcaption_nring_off
BEGIN
	call gaction gcaption.ck_nspan.enable
END



/* Script to enable this tab */
SCRIPT gcaption_enable
BEGIN
	program gcaption_enable_pr
END

PROGRAM gcaption_enable_pr
BEGIN
	call gaction gcaption.gb_caption.enable
	call gaction gcaption.ed_caption.enable
	call gaction gcaption.tx_size.enable
	call gaction gcaption.cb_size.enable
	call gaction gcaption.ck_clr.enable
	call gaction gcaption.cl_clr.enable
	call gaction gcaption.tx_posit.enable
	call gaction gcaption.cb_posit.enable
	if !gcaption.ck_span {
		call gaction gcaption.ck_ring.enable
	}
	if !gcaption.ck_ring {
		call gaction gcaption.ck_span.enable
	}
	call gaction gcaption.tx_margin.enable
	call gaction gcaption.cb_margin.enable

	call gaction gcaption.gb_ncaption.enable
	call gaction gcaption.ed_ncaption.enable
	call gaction gcaption.tx_nsize.enable
	call gaction gcaption.cb_nsize.enable
	call gaction gcaption.ck_nclr.enable
	call gaction gcaption.cl_nclr.enable
	call gaction gcaption.tx_nposit.enable
	call gaction gcaption.cb_nposit.enable
	if !gcaption.ck_nspan {
		call gaction gcaption.ck_nring.enable
	}
	if !gcaption.ck_nring {
		call gaction gcaption.ck_nspan.enable
	}
	call gaction gcaption.tx_nmargin.enable
	call gaction gcaption.cb_nmargin.enable

END

/* Script to disable this tab */
SCRIPT gcaption_disable
BEGIN
	gcaption.gb_caption.disable
	gcaption.ed_caption.disable
	gcaption.tx_size.disable
	gcaption.cb_size.disable
	gcaption.ck_clr.disable
	gcaption.cl_clr.disable
	gcaption.tx_posit.disable
	gcaption.cb_posit.disable
	gcaption.ck_ring.disable
	gcaption.ck_span.disable
	gcaption.tx_margin.disable
	gcaption.cb_margin.disable

	gcaption.gb_ncaption.disable
	gcaption.ed_ncaption.disable
	gcaption.tx_nsize.disable
	gcaption.cb_nsize.disable
	gcaption.ck_nclr.disable
	gcaption.cl_nclr.disable
	gcaption.tx_nposit.disable
	gcaption.cb_nposit.disable
	gcaption.ck_nring.disable
	gcaption.ck_nspan.disable
	gcaption.tx_nmargin.disable
	gcaption.cb_nmargin.disable
END

PROGRAM gcaption_caption_pr
BEGIN
/* Caption */
    if !H(gcaption.ed_caption) & 					///
        ( gcaption.ed_caption | gcaption.cb_size | gcaption.ck_clr	///
        | gcaption.cb_posit | gcaption.ck_ring	 			///
        | gcaption.ck_span  | gcaption.cb_margin ) {
	put "caption(" gcaption.ed_caption
	put /program gcaption_caption_opt_pr 
	put ") "
    }
      
END

PROGRAM gcaption_caption_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault gcaption.cb_size         
      		if !H(gcaption.cl_clr) {
			optionarg /quoted gcaption.cl_clr
		}
		optionarg /hidedefault gcaption.cb_posit
		option gcaption.ck_ring
		option gcaption.ck_span
		optionarg /hidedefault gcaption.cb_margin
	endoptions 
END
   
PROGRAM gcaption_note_pr
BEGIN

/* Sub-caption */ 
   if !H(gcaption.ed_ncaption) & 					///
        ( gcaption.ed_ncaption | gcaption.cb_nsize | gcaption.ck_nclr	///
        | gcaption.cb_nposit | gcaption.ck_nring	 		///
        | gcaption.ck_nspan  | gcaption.cb_nmargin ) {
	put "note(" gcaption.ed_ncaption
	put /program gcaption_note_opt_pr
	put ") "
    }
END

PROGRAM gcaption_note_opt_pr
BEGIN
	beginoptions
		optionarg /hidedefault gcaption.cb_nsize         
      		if !H(gcaption.cl_nclr) {
      			optionarg /quoted gcaption.cl_nclr
		}
		optionarg /hidedefault gcaption.cb_nposit
		option gcaption.ck_nring
		option gcaption.ck_nspan
		optionarg /hidedefault gcaption.cb_nmargin
	endoptions 
END

PROGRAM gcaption_output
BEGIN
	put " "  /program gcaption_caption_pr
	put " "  /program gcaption_note_pr
END