gby_98s.idlg
来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· IDLG 代码 · 共 508 行
IDLG
508 行
/*
gby_98s.idlg Include for graph by options
**Special version for Windows95/98
** Extra small
*! VERSION 1.1.0 14mar2005
// SCRIPTS and PROGRAMS for external use
* SCRIPT gby_total_disable
* SCRIPT gby_setViewByopts
* SCRIPT gby_setViewByopts_Total
* SCRIPT gby_enable
* SCRIPT gby_disable
* PROGRAM gby_byopts_output
* PROGRAM gby_output
*/
DIALOG gby, tabtitle("By")
BEGIN
/* LEFT SIDE */
GROUPBOX gb_main _lft _top _gwd1 _ht8, /*
*/ label("By controls ")
DEFINE ytop @y
/* LEFT SIDE-- By col(1) */
TEXT tx_vars _igft _ms _txwd ., /*
*/ label("Variables:") /*
*/ right
VARLIST vl_vars _txsep @ _txr2gi ., /*
*/ label("Variables:")
CHECKBOX ck_total @ _ms _txr2b4g ., /*
*/ label("Graph total") /*
*/ option(total)
DEFINE y @y
CHECKBOX ck_colfirst @ _ms _txr2b4g ., /*
*/ label("Column first") /*
*/ option(colfirst)
TEXT tx_layout _gft4_2 y _txwd ., /*
*/ label("Layout:") /*
*/ right
COMBOBOX cb_layout _txsep @ _txr2b4g ., /*
*/ dropdownlist /*
*/ label("Layout:") /*
*/ contents(gby_layout) values(gby_layout_values) /*
*/ onselchangelist(gby_layout_action)
TEXT tx_layoutsp _gft4_2 _ms _txwd ., /*
*/ right /*
*/ label("") /* use setlabel below */
SPINNER sp_rowcol _txsep @ _spwd ., /*
*/ label("Number of Rows") /*
*/ min(1) max(100) default(1)
/**********************************************************************/
/* RIGHT SIDE */
/**********************************************************************/
/* Right Side Upper titles captions */
GROUPBOX gb_title _lft2g ytop _gwd1 _ht8, /*
*/ label("Title / Caption ")
COMBOBOX cb_mode _igft2 _ss _tcr2b4g ., /*
*/ label("Title Mode") /*
*/ dropdownlist /*
*/ contents(gby_mode) /*
*/ onselchangelist(gby_mode_action)
TEXT tx_mode _tcr2b4gsep @ _txr2b4g ., /*
*/ label("")
TEXT tx_mark2 _igft2 _ls 0 0,
DEFINE rty @y
/**********************************************************************/
/* Right Side Upper Title col(1) */
TEXT tx_title _igft2 rty _txwd ., /*
*/ label("Title:") /*
*/ right
EDIT ed_title _txsep @ _txr2gi ., /*
*/ label("Title")
TEXT tx_ttlsize _igft2 _ms _txwd ., /*
*/ label("Size:") /*
*/ right
COMBOBOX cb_ttlsize _txsep @ _txr2b4g ., /*
*/ dropdownlist contents(textsizes) option(size)
/* Right Side Upper Title col(2) */
TEXT tx_ttlpos _gft4_4 @ _txwd ., /*
*/ label("Position:") /*
*/ right
COMBOBOX cb_ttlpos _txsep @ _txr2b4g ., /*
*/ dropdownlist contents(clockpos) option(position)
/**********************************************************************/
/* Right Side Upper Caption col(1) */
TEXT tx_caption _igft2 rty _txwd ., /*
*/ label("Caption:") /*
*/ right
EDIT ed_caption _txsep @ _txr2gi ., /*
*/ label("Caption")
TEXT tx_capsize _igft2 _ms _txwd ., /*
*/ label("Size:") /*
*/ right
COMBOBOX cb_capsize _txsep @ _txr2b4g ., /*
*/ dropdownlist contents(textsizes) option(size)
/* Right Side Upper Caption col(2) */
TEXT tx_cappos _gft4_4 @ _txwd ., /*
*/ label("Position:") /*
*/ right
COMBOBOX cb_cappos _txsep @ _txr2b4g ., /*
*/ dropdownlist contents(clockpos) option(position)
/**********************************************************************/
/**********************************************************************/
/* RIGHT SIDE LOWER Legend options */
GROUPBOX gb_legend _lft2g _xls _gwd1 _ht3h, /*
*/ label("Legend options ")
/* col(1) */
TEXT tx_legend _igft2 _ms _txwd ., /*
*/ label("Use legend:") /*
*/ right
COMBOBOX cb_legend _txsep @ _txr2b4g ., /*
*/ dropdownlist /*
*/ label("Use legend") /*
*/ contents(yesno) /*
*/ values(gby_legend_values) /*
*/ onselchangelist(gby_legend_action)
/* col(2) */
TEXT tx_legpos _gft4_4 @ _txwd ., /*
*/ label("Position:") /*
*/ right
DEFINE y @y
COMBOBOX cb_legpos _txsep @ _txr2b4g ., /*
*/ dropdownlist /*
*/ label("Position") contents(clockpos) option(position)
END
SCRIPT gby_total_disable
BEGIN
gby.ck_total.disable
END
SCRIPT gby_setViewByopts
BEGIN
gby.tx_vars.hide
gby.vl_vars.hide
gby.ck_total.hide
gby.ck_colfirst.setposition . 30
gby.tx_layout.setposition . 30
gby.cb_layout.setposition . 30
gby.tx_layoutsp.setposition . 55
gby.sp_rowcol.setposition . 55
END
SCRIPT gby_setViewByopts_Total
BEGIN
gby.tx_vars.hide
gby.vl_vars.hide
gby.ck_total.setposition . 30
gby.ck_colfirst.setposition . 55
gby.tx_layout.setposition . 30
gby.cb_layout.setposition . 30
gby.tx_layoutsp.setposition . 55
gby.sp_rowcol.setposition . 55
END
/* Begin Enable All */
SCRIPT gby_enable
BEGIN
program gby_enable_pr
END
PROGRAM gby_enable_pr
BEGIN
call gaction gby.gb_main.enable
call gaction gby.tx_vars.enable
call gaction gby.vl_vars.enable
call gaction gby.ck_total.enable
call gaction gby.ck_colfirst.enable
call gaction gby.tx_layout.enable
call gaction gby.cb_layout.enable
call gaction gby.tx_layoutsp.enable
call gaction gby.sp_rowcol.enable
/* Title / Caption options */
call gaction gby.gb_title.enable
call gaction gby.cb_mode.enable
call gaction gby.tx_mode.enable
/* Title options */
call gaction gby.tx_title.enable
call gaction gby.ed_title.enable
call gaction gby.tx_ttlsize.enable
call gaction gby.cb_ttlsize.enable
call gaction gby.tx_ttlpos.enable
call gaction gby.cb_ttlpos.enable
/* Caption options */
call gaction gby.tx_caption.enable
call gaction gby.ed_caption.enable
call gaction gby.tx_capsize.enable
call gaction gby.cb_capsize.enable
call gaction gby.tx_cappos.enable
call gaction gby.cb_cappos.enable
/* Legend options */
call gaction gby.gb_legend.enable
call gaction gby.tx_legend.enable
call gaction gby.cb_legend.enable
call gaction gby.cb_legend.withvalue gby.cb_legend.setvalue "@"
END
/* End Enable All */
/* Begin Disable All */
PROGRAM gby_disable
BEGIN
gby.gb_main.disable
gby.tx_vars.disable
gby.vl_vars.disable
gby.ck_total.disable
gby.ck_colfirst.disable
gby.tx_layout.disable
gby.cb_layout.disable
gby.tx_layoutsp.disable
gby.sp_rowcol.disable
/* Title / Caption options */
gby.gb_title.disable
gby.cb_mode.disable
gby.tx_mode.disable
/* Title options */
gby.tx_title.disable
gby.ed_title.disable
gby.tx_ttlsize.disable
gby.cb_ttlsize.disable
gby.tx_ttlpos.disable
gby.cb_ttlpos.disable
/* Caption options */
gby.tx_caption.disable
gby.ed_caption.disable
gby.tx_capsize.disable
gby.cb_capsize.disable
gby.tx_cappos.disable
gby.cb_cappos.disable
/* Legend options */
gby.gb_legend.disable
gby.tx_legend.disable
gby.cb_legend.disable
gby.tx_legpos.disable
gby.cb_legpos.disable
END
/* End Disable All */
LIST gby_layout
BEGIN
"Default"
"Rows"
"Columns"
END
LIST gby_layout_values
BEGIN
""
"rows"
"cols"
END
LIST gby_layout_action
BEGIN
script gbylayout_default_on
script gbylayout_row_on
script gbylayout_col_on
END
SCRIPT gbylayout_row_on
BEGIN
gby.tx_layoutsp.setlabel "Rows:"
gby.sp_rowcol.show
END
SCRIPT gbylayout_col_on
BEGIN
gby.sp_rowcol.show
gby.tx_layoutsp.setlabel "Columns:"
END
SCRIPT gbylayout_default_on
BEGIN
gby.tx_layoutsp.setlabel ""
gby.sp_rowcol.hide
END
LIST gby_mode
BEGIN
"Title"
"Caption"
END
LIST gby_mode_action
BEGIN
script gby_title_on
script gby_caption_on
END
SCRIPT gby_hide_all
BEGIN
script gby_caption_hide
script gby_title_hide
END
SCRIPT gby_show_all
BEGIN
program gby_title_show
program gby_caption_show
END
SCRIPT gby_title_on
BEGIN
script gby_hide_all
program gby_title_show
END
SCRIPT gby_caption_on
BEGIN
script gby_hide_all
program gby_caption_show
END
PROGRAM gby_title_show
BEGIN
call gaction gby.tx_mode.setlabel "Title options"
call gaction gby.tx_title.show
call gaction gby.ed_title.show
call gaction gby.tx_ttlsize.show
call gaction gby.cb_ttlsize.show
call gaction gby.tx_ttlpos.show
call gaction gby.cb_ttlpos.show
END
SCRIPT gby_title_hide
BEGIN
gby.tx_title.hide
gby.ed_title.hide
gby.tx_ttlsize.hide
gby.cb_ttlsize.hide
gby.tx_ttlpos.hide
gby.cb_ttlpos.hide
END
PROGRAM gby_caption_show
BEGIN
call gaction gby.tx_mode.setlabel "Caption options"
call gaction gby.tx_caption.show
call gaction gby.ed_caption.show
call gaction gby.tx_capsize.show
call gaction gby.cb_capsize.show
call gaction gby.tx_cappos.show
call gaction gby.cb_cappos.show
END
SCRIPT gby_caption_hide
BEGIN
gby.tx_caption.hide
gby.ed_caption.hide
gby.tx_capsize.hide
gby.cb_capsize.hide
gby.tx_cappos.hide
gby.cb_cappos.hide
END
SCRIPT gby_gmatrix_show /* Show some components for gmatrix */
BEGIN
gby.gb_legend.show
gby.tx_legend.show
gby.cb_legend.show
gby.tx_legpos.show
gby.cb_legpos.show
END
SCRIPT gby_gmatrix_hide /* Hide some components for gmatrix */
BEGIN
gby.gb_legend.hide
gby.tx_legend.hide
gby.cb_legend.hide
gby.tx_legpos.hide
gby.cb_legpos.hide
END
LIST gby_legend_values
BEGIN
""
"on"
"off"
END
LIST gby_legend_action
BEGIN
program gby_legend_opt_on
program gby_legend_opt_on
script gby_legend_opt_off
END
PROGRAM gby_legend_opt_on
BEGIN
if !H(gby.cb_legend) {
call gaction gby.tx_legpos.enable
call gaction gby.cb_legpos.enable
}
END
SCRIPT gby_legend_opt_off
BEGIN
gby.tx_legpos.disable
gby.cb_legpos.disable
END
/* Begin Title and Caption Option Programming */
PROGRAM gby_text_opt_pr
BEGIN
if gby.ed_title | gby.ed_caption {
if gby.ed_title {
put " " "title("
put /hidden gby.ed_title
put /program gby_title_opt_pr
put ")"
}
if gby.ed_caption {
put " " "caption("
put /hidden gby.ed_caption
put /program gby_caption_opt_pr
put ")"
}
}
END
PROGRAM gby_title_opt_pr
BEGIN
beginoptions
hoptionarg /hidedefault gby.cb_ttlsize
hoptionarg /hidedefault gby.cb_ttlpos
endoptions
END
PROGRAM gby_caption_opt_pr
BEGIN
beginoptions
hoptionarg /hidedefault gby.cb_capsize
hoptionarg /hidedefault gby.cb_cappos
endoptions
END
/* End Title and Caption Option Programming */
/* Begin Legend Option Programming */
PROGRAM gby_legend_opt_pr
BEGIN
put " " gby.cb_legend
optionarg /hidedefault gby.cb_legpos
END
/* End Legend Option Programming */
PROGRAM gby_options_output
BEGIN
option gby.ck_total
option gby.ck_colfirst
if gby.cb_layout {
put " " gby.cb_layout "("
put gby.sp_rowcol
put ")"
}
put " " /program gby_text_opt_pr
if gby.cb_legend | gby.cb_legpos {
put " " "legend("
put /program gby_legend_opt_pr
put ")"
}
END
PROGRAM gby_opt_pr /* graph by option programming */
BEGIN
put gby.vl_vars
beginoptions
put /program gby_options_output
endoptions
END
PROGRAM gby_output /* To be used with out programming include */
BEGIN
if !H(gby.vl_vars) & gby.vl_vars {
put " " "by("
put /program gby_opt_pr
put ")"
}
END
PROGRAM gby_byopts_output
BEGIN
if gby.ck_colfirst | gby.cb_layout | gby.ed_title ///
| gby.ed_caption | gby.cb_legend | gby.cb_legpos ///
{
put " " "byopts("
put /program gby_options_output
put ")"
}
END
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?