📄 gmarkerstyle_98.idlg
字号:
/*
gmarkerstyle_98.idlg
*! VERSION 1.0.0 21apr2005
*/
DIALOG gms, tabtitle("Markers")
BEGIN
DEFINE col_1 92
DEFINE col_2 182
DEFINE col_3 272
DEFINE col_4 465
DEFINE col_5 555
DEFINE col_6 645
DEFINE center 377
GROUPBOX gb_marker _lft _top _iwd _ht26, ///
label("Marker styles for Y-variables")
///** Row headings
TEXT tx_sym_1 col_1 _ms 95 ., ///
label("Symbol")
TEXT tx_size_1 col_2 @ 95 ., ///
label("Symbol size")
TEXT tx_color_1 col_3 @ 95 ., ///
label("Symbol color")
///--
DEFINE tbltop @y
TEXT tx_var_1 _ilft _ss 65 ., ///
label("Variable 1:") right
DEFINE holdy @y
TEXT tx_var_2 @ _ls @ ., ///
label("Variable 2:") right
TEXT tx_var_3 @ _ls @ ., ///
label("Variable 3:") right
TEXT tx_var_4 @ _ls @ ., ///
label("Variable 4:") right
TEXT tx_var_5 @ _ls @ ., ///
label("Variable 5:") right
TEXT tx_var_6 @ _ls @ ., ///
label("Variable 6:") right
TEXT tx_var_7 @ _ls @ ., ///
label("Variable 7:") right
TEXT tx_var_8 @ _ls @ ., ///
label("Variable 8:") right
COMBOBOX cb_msym_1 col_1 holdy _tcr4gi ., ///
contents(symbols) option(msymbol) dropdownlist
COMBOBOX cb_msize_1 col_2 @ _tcr4gi ., ///
contents(symbolsizes) option(msize) dropdownlist
COMBOBOX cb_mcol_1 col_3 @ _tcr4gi ., ///
contents(colors) option(mcolor) dropdownlist ///
onselchangelist(gms_color_mcol_1)
COLOR cl_mcol_1 _tcr4gisep @ _colorwd ., ///
option(mcolor)
COMBOBOX cb_msym_2 col_1 _ls _tcr4gi ., ///
contents(symbols) option(msymbol) dropdownlist
COMBOBOX cb_msize_2 col_2 @ _tcr4gi ., ///
contents(symbolsizes) option(msize) dropdownlist
COMBOBOX cb_mcol_2 col_3 @ _tcr4gi ., ///
contents(colors) option(mcolor) dropdownlist ///
onselchangelist(gms_color_mcol_2)
COLOR cl_mcol_2 _tcr4gisep @ _colorwd ., ///
option(mcolor)
COMBOBOX cb_msym_3 col_1 _ls _tcr4gi ., ///
contents(symbols) option(msymbol) dropdownlist
COMBOBOX cb_msize_3 col_2 @ _tcr4gi ., ///
contents(symbolsizes) option(msize) dropdownlist
COMBOBOX cb_mcol_3 col_3 @ _tcr4gi ., ///
contents(colors) option(mcolor) dropdownlist ///
onselchangelist(gms_color_mcol_3)
COLOR cl_mcol_3 _tcr4gisep @ _colorwd ., ///
option(mcolor)
COMBOBOX cb_msym_4 col_1 _ls _tcr4gi ., ///
contents(symbols) option(msymbol) dropdownlist
COMBOBOX cb_msize_4 col_2 @ _tcr4gi ., ///
contents(symbolsizes) option(msize) dropdownlist
COMBOBOX cb_mcol_4 col_3 @ _tcr4gi ., ///
contents(colors) option(mcolor) dropdownlist ///
onselchangelist(gms_color_mcol_4)
COLOR cl_mcol_4 _tcr4gisep @ _colorwd ., ///
option(mcolor)
COMBOBOX cb_msym_5 col_1 _ls _tcr4gi ., ///
contents(symbols) option(msymbol) dropdownlist
COMBOBOX cb_msize_5 col_2 @ _tcr4gi ., ///
contents(symbolsizes) option(msize) dropdownlist
COMBOBOX cb_mcol_5 col_3 @ _tcr4gi ., ///
contents(colors) option(mcolor) dropdownlist ///
onselchangelist(gms_color_mcol_5)
COLOR cl_mcol_5 _tcr4gisep @ _colorwd ., ///
option(mcolor)
COMBOBOX cb_msym_6 col_1 _ls _tcr4gi ., ///
contents(symbols) option(msymbol) dropdownlist
COMBOBOX cb_msize_6 col_2 @ _tcr4gi ., ///
contents(symbolsizes) option(msize) dropdownlist
COMBOBOX cb_mcol_6 col_3 @ _tcr4gi ., ///
contents(colors) option(mcolor) dropdownlist ///
onselchangelist(gms_color_mcol_6)
COLOR cl_mcol_6 _tcr4gisep @ _colorwd ., ///
option(mcolor)
COMBOBOX cb_msym_7 col_1 _ls _tcr4gi ., ///
contents(symbols) option(msymbol) dropdownlist
COMBOBOX cb_msize_7 col_2 @ _tcr4gi ., ///
contents(symbolsizes) option(msize) dropdownlist
COMBOBOX cb_mcol_7 col_3 @ _tcr4gi ., ///
contents(colors) option(mcolor) dropdownlist ///
onselchangelist(gms_color_mcol_7)
COLOR cl_mcol_7 _tcr4gisep @ _colorwd ., ///
option(mcolor)
COMBOBOX cb_msym_8 col_1 _ls _tcr4gi ., ///
contents(symbols) option(msymbol) dropdownlist
COMBOBOX cb_msize_8 col_2 @ _tcr4gi ., ///
contents(symbolsizes) option(msize) dropdownlist
COMBOBOX cb_mcol_8 col_3 @ _tcr4gi ., ///
contents(colors) option(mcolor) dropdownlist ///
onselchangelist(gms_color_mcol_8)
COLOR cl_mcol_8 _tcr4gisep @ _colorwd ., ///
option(mcolor)
BUTTON bu_defaults _lft +45 110 ., ///
label("Reset tab defaults") onpush(script gms_reset)
END
SCRIPT gms_reset
BEGIN
gms.cb_msym_1.setvalue "Default"
gms.cb_msize_1.setvalue "Default"
gms.cb_mcol_1.setvalue "Default"
gms.cb_msym_2.setvalue "Default"
gms.cb_msize_2.setvalue "Default"
gms.cb_mcol_2.setvalue "Default"
gms.cb_msym_3.setvalue "Default"
gms.cb_msize_3.setvalue "Default"
gms.cb_mcol_3.setvalue "Default"
gms.cb_msym_4.setvalue "Default"
gms.cb_msize_4.setvalue "Default"
gms.cb_mcol_4.setvalue "Default"
gms.cb_msym_5.setvalue "Default"
gms.cb_msize_5.setvalue "Default"
gms.cb_mcol_5.setvalue "Default"
gms.cb_msym_6.setvalue "Default"
gms.cb_msize_6.setvalue "Default"
gms.cb_mcol_6.setvalue "Default"
gms.cb_msym_7.setvalue "Default"
gms.cb_msize_7.setvalue "Default"
gms.cb_mcol_7.setvalue "Default"
gms.cb_msym_8.setvalue "Default"
gms.cb_msize_8.setvalue "Default"
gms.cb_mcol_8.setvalue "Default"
END
LIST gms_color_mcol_1
BEGIN
gms.cl_mcol_1.hide
gms.cl_mcol_1.show
gms.cl_mcol_1.hide
END
LIST gms_color_mcol_2
BEGIN
gms.cl_mcol_2.hide
gms.cl_mcol_2.show
gms.cl_mcol_2.hide
END
LIST gms_color_mcol_3
BEGIN
gms.cl_mcol_3.hide
gms.cl_mcol_3.show
gms.cl_mcol_3.hide
END
LIST gms_color_mcol_4
BEGIN
gms.cl_mcol_4.hide
gms.cl_mcol_4.show
gms.cl_mcol_5.hide
END
LIST gms_color_mcol_5
BEGIN
gms.cl_mcol_5.hide
gms.cl_mcol_5.show
gms.cl_mcol_5.hide
END
LIST gms_color_mcol_6
BEGIN
gms.cl_mcol_6.hide
gms.cl_mcol_6.show
gms.cl_mcol_6.hide
END
LIST gms_color_mcol_7
BEGIN
gms.cl_mcol_7.hide
gms.cl_mcol_7.show
gms.cl_mcol_7.hide
END
LIST gms_color_mcol_8
BEGIN
gms.cl_mcol_8.hide
gms.cl_mcol_8.show
gms.cl_mcol_8.hide
END
PROGRAM gms_marker_1_output
BEGIN
beginoptions
hoptionarg /hidedefault gms.cb_msym_1
hoptionarg /hidedefault gms.cb_msize_1
if !Hcc(gms.cb_mcol_1) {
hoptionarg gms.cb_mcol_1
}
if Hcc(gms.cb_mcol_1) {
hoptionarg /quoted gms.cl_mcol_1
}
endoptions
END
PROGRAM gms_marker_2_output
BEGIN
beginoptions
hoptionarg /hidedefault gms.cb_msym_2
hoptionarg /hidedefault gms.cb_msize_2
if !Hcc(gms.cb_mcol_2) {
hoptionarg gms.cb_mcol_2
}
if Hcc(gms.cb_mcol_2) {
hoptionarg /quoted gms.cl_mcol_2
}
endoptions
END
PROGRAM gms_marker_3_output
BEGIN
beginoptions
hoptionarg /hidedefault gms.cb_msym_3
hoptionarg /hidedefault gms.cb_msize_3
if !Hcc(gms.cb_mcol_3) {
hoptionarg gms.cb_mcol_3
}
if Hcc(gms.cb_mcol_3) {
hoptionarg /quoted gms.cl_mcol_3
}
endoptions
END
PROGRAM gms_marker_4_output
BEGIN
beginoptions
hoptionarg /hidedefault gms.cb_msym_4
hoptionarg /hidedefault gms.cb_msize_4
if !Hcc(gms.cb_mcol_4) {
hoptionarg gms.cb_mcol_4
}
if Hcc(gms.cb_mcol_4) {
hoptionarg /quoted gms.cl_mcol_4
}
endoptions
END
PROGRAM gms_marker_5_output
BEGIN
beginoptions
hoptionarg /hidedefault gms.cb_msym_5
hoptionarg /hidedefault gms.cb_msize_5
if !Hcc(gms.cb_mcol_5) {
hoptionarg gms.cb_mcol_5
}
if Hcc(gms.cb_mcol_5) {
hoptionarg /quoted gms.cl_mcol_5
}
endoptions
END
PROGRAM gms_marker_6_output
BEGIN
beginoptions
hoptionarg /hidedefault gms.cb_msym_6
hoptionarg /hidedefault gms.cb_msize_6
if !Hcc(gms.cb_mcol_6) {
hoptionarg gms.cb_mcol_6
}
if Hcc(gms.cb_mcol_6) {
hoptionarg /quoted gms.cl_mcol_6
}
endoptions
END
PROGRAM gms_marker_7_output
BEGIN
beginoptions
hoptionarg /hidedefault gms.cb_msym_7
hoptionarg /hidedefault gms.cb_msize_7
if !Hcc(gms.cb_mcol_7) {
hoptionarg gms.cb_mcol_7
}
if Hcc(gms.cb_mcol_7) {
hoptionarg /quoted gms.cl_mcol_7
}
endoptions
END
PROGRAM gms_marker_8_output
BEGIN
beginoptions
hoptionarg /hidedefault gms.cb_msym_8
hoptionarg /hidedefault gms.cb_msize_8
if !Hcc(gms.cb_mcol_8) {
hoptionarg gms.cb_mcol_8
}
if Hcc(gms.cb_mcol_8) {
hoptionarg /quoted gms.cl_mcol_8
}
endoptions
END
PROGRAM gmarkerstyle_output
BEGIN
if gms.cb_mcol_1 | Hcc(gms.cb_mcol_1) | gms.cb_msym_1 | gms.cb_msize_1 {
put "marker(1"
put /program gms_marker_1_output
put ") "
}
if gms.cb_mcol_2 | Hcc(gms.cb_mcol_2) | gms.cb_msym_2 | gms.cb_msize_2 {
put "marker(2"
put /program gms_marker_2_output
put ") "
}
if gms.cb_mcol_3 | Hcc(gms.cb_mcol_3) | gms.cb_msym_3 | gms.cb_msize_3 {
put "marker(3"
put /program gms_marker_3_output
put ") "
}
if gms.cb_mcol_4 | Hcc(gms.cb_mcol_4) | gms.cb_msym_4 | gms.cb_msize_4 {
put "marker(4"
put /program gms_marker_4_output
put ") "
}
if gms.cb_mcol_5 | Hcc(gms.cb_mcol_5) | gms.cb_msym_5 | gms.cb_msize_5 {
put "marker(5"
put /program gms_marker_5_output
put ") "
}
if gms.cb_mcol_6 | Hcc(gms.cb_mcol_6) | gms.cb_msym_6 | gms.cb_msize_6 {
put "marker(6"
put /program gms_marker_6_output
put ") "
}
if gms.cb_mcol_7 | Hcc(gms.cb_mcol_7) | gms.cb_msym_7 | gms.cb_msize_7 {
put "marker(7"
put /program gms_marker_7_output
put ") "
}
if gms.cb_mcol_8 | Hcc(gms.cb_mcol_8) | gms.cb_msym_8 | gms.cb_msize_8 {
put "marker(8"
put /program gms_marker_8_output
put ") "
}
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -