1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
' Gambas module file
Public Sub rSetting()
FMain.TextBox8.text = Settings["kick500", FMain.TextBox8.text]
FMain.TextBox9.text = Settings["kick1200", FMain.TextBox9.text]
FMain.TextBox10.text = Settings["kickCD32", FMain.TextBox10.text]
FMain.combobox5.text = Settings["fsuaeConf", FMain.combobox5.text]
FMain.TextBox25.text = Settings["server", FMain.TextBox25.text]
FMain.TextBox26.text = Settings["port", FMain.TextBox26.text]
FMain.TextBox27.text = Settings["tag", FMain.TextBox27.text]
FMain.TextBox1.text = Settings["pconf", FMain.TextBox1.text]
FMain.TextBox2.text = Settings["pcont", FMain.TextBox2.text]
FMain.TextBox3.text = Settings["pmem", FMain.TextBox3.text]
FMain.TextBox4.text = Settings["pover", FMain.TextBox4.text]
FMain.TextBox5.text = Settings["pkick", FMain.TextBox5.text]
FMain.TextBox7.text = Settings["psave", FMain.TextBox7.text]
FMain.TextBox21.text = Settings["padf", FMain.TextBox21.text]
FMain.TextBox28.text = Settings["custom", FMain.TextBox28.text]
FMain.combobox6.text = Settings["videof", FMain.combobox6.text]
FMain.combobox7.text = Settings["textf", FMain.combobox7.text]
FMain.combobox8.text = Settings["fsmode", FMain.combobox8.text]
FMain.TextBox29.text = Settings["xwin", FMain.TextBox29.text]
FMain.TextBox30.text = Settings["ywin", FMain.TextBox30.text]
FMain.TextBox31.text = Settings["xfus", FMain.TextBox31.text]
FMain.TextBox32.text = Settings["yfus", FMain.TextBox32.text]
FMain.combobox9.text = Settings["vsmode", FMain.combobox9.text]
FMain.TextBox33.text = Settings["dir_shaders", FMain.TextBox33.text]
FMain.SpinBox1.value = Settings["scalex", FMain.SpinBox1.value]
FMain.SpinBox2.value = Settings["scaley", FMain.SpinBox2.value]
FMain.SpinBox3.value = Settings["alignx", FMain.SpinBox3.value]
FMain.SpinBox4.value = Settings["aligny", FMain.SpinBox4.value]
FMain.checkbox13.value = Settings["translation", FMain.checkbox13.value]
End
Public Sub wSetting()
Settings["kick500"] = FMain.TextBox8.text
Settings["kick1200"] = FMain.TextBox9.text
Settings["kickCD32"] = FMain.TextBox10.text
Settings["fsuaeConf"] = FMain.combobox5.text
Settings["server"] = FMain.TextBox25.text
Settings["port"] = FMain.TextBox26.text
Settings["tag"] = FMain.TextBox27.text
Settings["pconf"] = FMain.TextBox1.text
Settings["pcont"] = FMain.TextBox2.text
Settings["pmem"] = FMain.TextBox3.text
Settings["pover"] = FMain.TextBox4.text
Settings["pkick"] = FMain.TextBox5.text
Settings["psave"] = FMain.TextBox7.text
Settings["padf"] = FMain.TextBox21.text
Settings["custom"] = FMain.TextBox28.text
Settings["videof"] = FMain.combobox6.text
Settings["textf"] = FMain.combobox7.text
Settings["fsmode"] = FMain.combobox8.text
Settings["xwin"] = FMain.TextBox29.text
Settings["ywin"] = FMain.TextBox30.text
Settings["xfus"] = FMain.TextBox31.text
Settings["yfus"] = FMain.TextBox32.text
Settings["vsmode"] = FMain.combobox9.text
Settings["dir_shaders"] = FMain.TextBox33.text
Settings["scalex"] = FMain.SpinBox1.value
Settings["scaley"] = FMain.SpinBox2.value
Settings["alignx"] = FMain.SpinBox3.value
Settings["aligny"] = FMain.SpinBox4.value
Settings["translation"] = FMain.checkbox13.value
End
|
