summaryrefslogtreecommitdiffstats
path: root/bin/G-FSUAE/G-FS-UAE/.src
diff options
context:
space:
mode:
Diffstat (limited to 'bin/G-FSUAE/G-FS-UAE/.src')
-rw-r--r--bin/G-FSUAE/G-FS-UAE/.src/FMain.class663
-rw-r--r--bin/G-FSUAE/G-FS-UAE/.src/FMain.form1061
-rw-r--r--bin/G-FSUAE/G-FS-UAE/.src/leggi.module278
-rw-r--r--bin/G-FSUAE/G-FS-UAE/.src/scrivi.module220
-rw-r--r--bin/G-FSUAE/G-FS-UAE/.src/setting.module66
5 files changed, 0 insertions, 2288 deletions
diff --git a/bin/G-FSUAE/G-FS-UAE/.src/FMain.class b/bin/G-FSUAE/G-FS-UAE/.src/FMain.class
deleted file mode 100644
index dc5e5b0..0000000
--- a/bin/G-FSUAE/G-FS-UAE/.src/FMain.class
+++ /dev/null
@@ -1,663 +0,0 @@
-' Gambas class file
-
-Private processo As Process
-Private pFSUAE As Process
-Private server As Process
-onoff As Integer
-Public inShader As String
-
-Public Sub _new()
-
-End
-
-Public Sub Form_Open()
-Me.Center
-setting.rSetting
-Try popola_config
-Try popola_shader
-If Exist(User.Home &/ ".gfsuae/") Then
- Else
-Try Shell ("mkdir " & User.Home & "/.gfsuae")
-
-Endif
-End
-
-Public Sub Button2_Click()
-Dim tconf As String
-
-scrivi.sConfig
-Dialog.Title = "Choose a Name for FS-UAE Configuration file"
-Dialog.Filter = ["*.config", ".config file"]
-Dialog.Path = textbox1.text
-
-If Dialog.SaveFile() Then Return
- File.Save(Dialog.Path & ".config", scrivi.valori)
- popola_config
- Catch
- Message.Info(Error.Text)
-
-End
-
-Public Sub Button4_Click()
-
- Dialog.title = "Choose a default Configurations directory"
- If Dialog.SelectDirectory() Then Return
- textbox1.text = Dialog.Path
- popola_config
-
-End
-
-Public Sub Button5_Click()
-
- Dialog.title = "Choose a default Controllers directory"
- If Dialog.SelectDirectory() Then Return
- textbox2.text = Dialog.Path
-End
-
-Public Sub Button6_Click()
-
- Dialog.title = "Choose a default Flash Memory directory"
- If Dialog.SelectDirectory() Then Return
- textbox3.text = Dialog.Path
-
-End
-
-Public Sub Button7_Click()
-
- Dialog.title = "Choose a default Floppy Overlays directory"
- If Dialog.SelectDirectory() Then Return
- textbox4.text = Dialog.Path
-
-End
-
-Public Sub Button8_Click()
-
- Dialog.title = "Choose a default Kickstarts directory"
- If Dialog.SelectDirectory() Then Return
- textbox5.text = Dialog.Path
-
-End
-
-Public Sub Button10_Click()
-
-Dialog.title = "Choose a default Save States directory"
- If Dialog.SelectDirectory() Then Return
- textbox7.text = Dialog.Path
-
-End
-
-Public Sub Button11_Click()
-
- Dialog.title = "Choose a Amiga 500/600 kickstart"
- Dialog.Filter = ["*.rom;*.zip", "kickstart files"]
- Dialog.Path = textbox5.text
- If Dialog.OpenFile() Then Return
- textbox8.text = Dialog.Path
-
-End
-
-Public Sub Button12_Click()
-
- Dialog.title = "Choose a Amiga 1200 or up kickstart"
- Dialog.Filter = ["*.rom;*.zip", "kickstart files"]
- Dialog.Path = textbox5.text
- If Dialog.OpenFile() Then Return
- textbox9.text = Dialog.Path
-
-End
-
-Public Sub Button13_Click()
-
- Dialog.title = "Choose a CD32 rom"
- Dialog.Filter = ["*.rom;*.zip", "CD32 rom"]
- Dialog.Path = textbox5.text
- If Dialog.OpenFile() Then Return
- textbox10.text = Dialog.Path
-
-End
-
-Public Sub Button23_Click()
-
- Dialog.title = "Choose a adf/adz/dms/ipf/zip Amiga disk image"
- Dialog.Filter = ["*.adf;*.adz;*.ipf;*.zip", "Amiga disk image"]
- Dialog.Path = textbox21.text
- If Dialog.OpenFile() Then Return
- textbox20.text = Dialog.Path
-
-End
-
-Public Sub Button19_Click()
-
- Dialog.title = "Choose a adf/adz/dms/ipf/zip Amiga disk image"
- Dialog.Filter = ["*.adf;*.adz;*.dms;*.ipf;*.zip", "Amiga disk image"]
- Dialog.Path = textbox21.text
- If Dialog.OpenFile() Then Return
- textbox16.text = Dialog.Path
-
-End
-
-Public Sub Button20_Click()
-
- Dialog.title = "Choose a adf/adz/dms/ipf/zip Amiga disk image"
- Dialog.Filter = ["*.adf;*.adz;*.dms;*.ipf;*.zip", "Amiga disk image"]
- Dialog.Path = textbox21.text
- If Dialog.OpenFile() Then Return
- textbox17.text = Dialog.Path
-
-End
-
-Public Sub Button21_Click()
-
- Dialog.title = "Choose a adf/adz/dms/ipf/zip Amiga disk image"
- Dialog.Filter = ["*.adf;*.adz;*.dms;*.ipf;*.zip", "Amiga disk image"]
- Dialog.Path = textbox21.text
- If Dialog.OpenFile() Then Return
- textbox18.text = Dialog.Path
-
-End
-
-Public Sub Button18_Click()
-
- Dialog.title = "Choose a adf/adz/dms/ipf/zip Amiga swap disk image"
- Dialog.Filter = ["*.adf;*.adz;*.dms;*.ipf;*.zip", "Amiga disk image"]
- Dialog.Path = textbox21.text
- If Dialog.OpenFile() Then Return
- textbox15.text = Dialog.Path
-
-End
-
-Public Sub Button14_Click()
-
- Dialog.title = "Choose a adf/adz/dms/ipf/zip Amiga swap disk image"
- Dialog.Filter = ["*.adf;*.adz;*.dms;*.ipf;*.zip", "Amiga disk image"]
- Dialog.Path = textbox21.text
- If Dialog.OpenFile() Then Return
- textbox11.text = Dialog.Path
-
-End
-
-Public Sub Button15_Click()
-
- Dialog.title = "Choose a adf/adz/dms/ipf/zip Amiga swap disk image"
- Dialog.Filter = ["*.adf;*.adz;*.dms;*.ipf;*.zip", "Amiga disk image"]
- Dialog.Path = textbox21.text
- If Dialog.OpenFile() Then Return
- textbox12.text = Dialog.Path
-
-End
-
-Public Sub Button16_Click()
-
- Dialog.title = "Choose a adf/adz/dms/ipf/zip Amiga swap disk image"
- Dialog.Filter = ["*.adf;*.adz;*.dms;*.ipf;*.zip", "Amiga disk image"]
- Dialog.Path = textbox21.text
- If Dialog.OpenFile() Then Return
- textbox13.text = Dialog.Path
-
-End
-
-Public Sub Button17_Click()
-
- Dialog.title = "Choose a adf/adz/dms/ipf/zip Amiga swap disk image"
- Dialog.Filter = ["*.adf;*.adz;*.dms;*.ipf;*.zip", "Amiga disk image"]
- Dialog.Path = textbox21.text
- If Dialog.OpenFile() Then Return
- textbox14.text = Dialog.Path
-
-End
-
-Public Sub Button24_Click()
- popola_config
- Dialog.title = "Choose FS-UAE configuration file to load"
- Dialog.Filter = ["*.config", ".config file", "*.fs-uae", ".fs-uae file"]
- Dialog.path = textbox1.text
- If Dialog.OpenFile() Then Return
- combobox5.text = Dialog.Path
-
- leggi.leggi_conf
-
-End
-
-Public Sub Button1_Click()
-
-onoff = 0
-start_emu
-
-End
-
-Public Sub Button3_Click()
-
- Try embEmbedder.Discard
- Try processo.Kill
- Try server.kill
-
-End
-
-Public Sub Button9_Click()
-
- Dialog.title = "Choose a default Shaders directory"
- If Dialog.SelectDirectory() Then Return
- textbox33.text = Dialog.Path
- combobox10.clear
- popola_shader
-
-End
-
-Public Sub RadioButton4_Click()
-
- If RadioButton4.value = True Then ComboBox1.text = "A1200"
-
-End
-
-Public Sub RadioButton3_Click()
-
- If RadioButton3.value = True Then ComboBox1.text = "A500"
-
-End
-
-Public Sub Button22_Click()
-
- textbox20.Clear
-
-End
-
-Public Sub Button25_Click()
-
- textbox16.Clear
-
-End
-
-Public Sub Button26_Click()
-
- textbox17.Clear
-
-End
-
-Public Sub Button27_Click()
-
- textbox18.Clear
-
-End
-
-Public Sub Button28_Click()
-
- textbox15.Clear
-
-End
-
-Public Sub Button29_Click()
-
- textbox11.Clear
-
-End
-
-Public Sub Button30_Click()
-
- textbox12.Clear
-
-End
-
-Public Sub Button31_Click()
-
- textbox13.Clear
-
-End
-
-Public Sub Button32_Click()
-
- textbox14.Clear
-
-End
-
-Public Sub Button33_Click()
-
- Dialog.title = "Choose a hdf Amiga Hard Disk Image"
- Dialog.Filter = ["*.hdf;*.zip", "Amiga Hard Disk Image"]
- If Dialog.OpenFile() Then Return
- textbox6.text = Dialog.Path
-
-End
-
-Public Sub Button35_Click()
-
- Dialog.title = "Choose a hdf Amiga Hard Disk Image"
- Dialog.Filter = ["*.hdf;*.zip", "Amiga Hard Disk Image"]
- If Dialog.OpenFile() Then Return
- textbox19.text = Dialog.Path
-
-End
-
-Public Sub Button34_Click()
-
- textbox6.clear
-
-End
-
-Public Sub Button36_Click()
-
- textbox19.clear
-
-End
-
-Public Sub Button37_Click()
-
- Dialog.title = "Mount Folder as drives"
- If Dialog.SelectDirectory() Then Return
- textbox6.text = Dialog.Path
-
-End
-
-Public Sub Button38_Click()
-
- Dialog.title = "Mount Folder as drives"
- If Dialog.SelectDirectory() Then Return
- textbox19.text = Dialog.Path
-
-End
-
-Public Sub Button40_Click()
-
- Dialog.title = "Mount Folder as drives"
- If Dialog.SelectDirectory() Then Return
- textbox22.text = Dialog.Path
-
-End
-
-Public Sub Button39_Click()
-
- Dialog.title = "Choose a hdf Amiga Hard Disk Image"
- Dialog.Filter = ["*.hdf;*.zip", "Amiga Hard Disk Image"]
- If Dialog.OpenFile() Then Return
- textbox22.text = Dialog.Path
-
-End
-
-Public Sub Button41_Click()
-
- textbox22.clear
-
-End
-
-Public Sub Form_Close()
-
- Try embEmbedder.Discard
- setting.wSetting
-
-End
-
-Public Sub Slider4_Change()
-
- label6.text = "Floppy Drive Sound " & Slider4.value
-
-End
-
-Public Sub Slider3_Change()
-
- label21.text = "Dark " & slider3.value
-
-End
-
-Public Sub Slider2_Change()
-
- label22.text = "Light " & Slider2.value
-
-End
-
-Public Sub Slider1_Change()
-
- frame3.text = "Emulation Accurancy " & Slider1.value
-
-End
-
-Public Sub Button42_Click()
-
- Dialog.title = "Choose Amiga CD32/CDTV Image"
- Dialog.Filter = ["*.cue;*.iso", "CUE/ISO Image"]
- If Dialog.OpenFile() Then Return
- textbox23.text = Dialog.Path
-
-End
-
-Public Sub Button45_Click()
-
- Dialog.title = "Choose Amiga CD32/CDTV Image"
- Dialog.Filter = ["*.cue;*.iso", "CUE/ISO Image"]
- If Dialog.OpenFile() Then Return
- textbox24.text = Dialog.Path
-
-End
-
-Public Sub Button43_Click()
-
- 'If Exist(User.Home &/ ".gfsuae/fs-uae-netplay-server.py") Then
- 'Else
- Try Copy "fs-uae-netplay-server.py" To User.Home &/ ".gfsuae/fs-uae-netplay-server.py"
- 'Endif
-
- server = Exec ["python", User.Home &/ ".gfsuae/fs-uae-netplay-server.py", "--port=" & textbox25.text, "--player=" & combobox4.text]
-
- If server.state = 1 Then
- frame15.text = "Server ON"
- Button48.enabled = True
- End If
-End
-
-Public Sub start_emu()
-Dim fileConf, fuscreen, net, cuspar, videof, textf, fsmode, xwin, ywin, xfus, yfus, vsmode, other_emb, shaders, scX, scY, alX, alY, translations As String
-scrivi.sConfig
-
-
- Try embEmbedder.Discard
- Try processo.Kill
- Try server.kill
- Wait
-
-File.Save(User.Home &/ ".gfsuae/test.config", scrivi.valori)
-fileconf = User.Home &/ ".gfsuae/test.config"
-
- If CheckBox1.value = True Then
- fuscreen = " --fullscreen=1"
- Else
- Fuscreen = " --fullscreen=0"
- Endif
-
- videof = " --video-format=" & combobox6.text
- textf = " --texture-format=" & combobox7.text
- fsmode = " --fullscreen-mode=" & combobox8.text
- xwin = " --window-width=" & textbox29.Text
- ywin = " --window-height=" & textbox30.Text
- xfus = " --fullscreen-width=" & textbox31.Text
- yfus = " --fullscreen-height=" & textbox32.Text
- vsmode = " --video-sync-method=" & combobox9.text
- cuspar = " " & textbox28.text
-
- If onoff = 1 Then
- net = " --netplay-server=" & textbox27.text & " --netplay-tag=" & textbox26.text & " --netplay-port=" & textbox25.text
- Else If onoff = 0 Then
- net = ""
- Endif
-
- If CheckBox1.value = False And checkbox12.value = True Then
- xwin = " --window-width=500"
- ywin = " --window-height=450"
- other_emb = " --grab-input=0"
- Endif
-
- scX = " --scale-x=" & (spinbox1.value / 10)
- scY = " --scale-y=" & (spinbox2.value / 10)
- alX = " --align-x=" & (spinbox3.value / 10)
- alY = " --align-y=" & (spinbox4.value / 10)
-
- If checkbox13.value = True Then
- translations = " --localization=0"
- Else
- translations = " --localization=1"
- Endif
-
- If fileconf <> "" Then
- processo = Shell "fs-uae " &/ fileconf & videof & textf & fsmode & xwin & ywin & xfus & yfus & vsmode & other_emb & scX & scY & alX & alY & translations & " --bsdsocket-library=1" & cuspar & net & " --end-config"
- Else If fileconf = "" Then
- Message.Warning("You must make and select a file .config to load FS-UAE", "Ok")
- End If
-
- If CheckBox1.value = False And checkbox12.value = True Then
- Wait 1
- inside
- End If
-End
-
-Public Sub Button46_Click()
-If textbox27.text <> "" Then
- onoff = 1
- start_emu
-Else
- Message.Warning("You must set a ip adress or host name in Net Play tab", "Ok")
- TabStrip1.index = 5
- textbox27.SetFocus
-End If
-End
-
-Public Sub Button48_Click()
-
- Try server.kill
- If server.state = 2 Then
- frame15.text = "Server OFF"
- Button48.enabled = False
- End If
-
-End
-
-Public Sub Slider5_Change()
-
- label23.text = "Floppy speed " & Slider5.value
-
-End
-
-Public Sub popola_config()
-Dim lFile As String
-Dim ifile As Integer
-
-combobox5.Clear
-
-For Each lFile In Dir(textbox1.text, "*.config")
- combobox5.add(textbox1.text & "/" & lfile, ifile)
-Next
-
-For Each lFile In Dir(textbox1.text, "*.fs-uae")
- combobox5.add(textbox1.text & "/" & lfile, ifile)
-Next
-End
-
-Public Sub popola_shader()
-
-Dim lFile As String
-Dim ifile As Integer
-
-combobox10.add("None")
-
-If textbox33.text <> "" Then
- inShader = textbox33.text
- Else
- inShader = "/usr/share/fs-uae/shaders/"
-Endif
-
-For Each lFile In Dir(inShader, "*.shader")
- combobox10.add(Replace(lfile, ".shader", ""), ifile + 1)
-Next
-
-End
-
-
-Public Sub Button49_Click()
-
- Dialog.title = "Choose a default Adf/Ipf directory"
- If Dialog.SelectDirectory() Then Return
- textbox21.text = Dialog.Path
-
-End
-
-Public Sub ComboBox5_Click()
-leggi.leggi_conf
-leggi.leggi_conf
-End
-
-Public Sub Button44_Click()
-
- textbox23.clear
-
-End
-
-Public Sub Button47_Click()
-
- textbox24.clear
-
-End
-
-Public Sub Slider6_Change()
-
- label30.text = "Picasso 96 RAM " & Slider6.value
-
-End
-
-Public Sub inside()
-
- Dim aHandle As Integer[]
- Dim iHandle As Integer
- Dim dWindow As DesktopWindow
- Dim a As Integer
-
- For Each dWindow In Desktop.Windows
- If dWindow.name Like "Amiga*" Then
- a = dWindow.Id
- Endif
-
- Next
-
- TabStrip1.index = 8
- Try embEmbedder.Embed(a)
-
- If Error Then Message.Warning(Error.Text)
-
-End
-
-Public Sub embEmbedder_Error()
-
- Message.Error(("Embed error"))
-
-End
-
-
-Public Sub CheckBox1_Click()
-
- If CheckBox1.value = True Then
- checkbox12.Enabled = False
- Else
- checkbox12.Enabled = True
- End If
-
-End
-
-Public Sub ComboBox10_Change()
-
- If combobox10.text <> "None" Then CheckBox3.value = False
-
-End
-
-
-Public Sub Button50_Click()
- combobox10.clear
- popola_shader
-
-End
-
-Public Sub Button51_Click()
- Dim controlla As Boolean
- Try Copy "fs-uae-gamepad-config.py" To User.Home &/ ".gfsuae/fs-uae-gamepad-config.py"
- Exec ["python", User.Home &/ ".gfsuae/fs-uae-gamepad-config.py"] To controlla
- Wait
-
- If controlla = True And Exist(User.Home &/ "Documents/FS-UAE/Controllers") Then
- textbox2.text = User.Home &/ "Documents/FS-UAE/Controllers"
- Endif
-
-End
diff --git a/bin/G-FSUAE/G-FS-UAE/.src/FMain.form b/bin/G-FSUAE/G-FS-UAE/.src/FMain.form
deleted file mode 100644
index 914abdb..0000000
--- a/bin/G-FSUAE/G-FS-UAE/.src/FMain.form
+++ /dev/null
@@ -1,1061 +0,0 @@
-# Gambas Form File 3.0
-
-{ Form Form
- Move(0,0,560,553)
- #Scaled = False
- Text = ("G-FS-UAE")
- Icon = Picture["amiga.png"]
- Resizable = False
- { Panel1 Panel
- Move(10,4,539,35)
- { Label18 Label
- Move(7,3,119,28)
- Text = ("Configuration File")
- }
- { ComboBox5 ComboBox
- Move(133,3,224,28)
- Text = ("Test")
- Sorted = True
- }
- { Button24 Button
- Move(364,3,28,28)
- ToolTip = ("Open .config/.fs-uae file")
- Text = ("...")
- }
- { Button1 Button
- Move(399,3,28,28)
- ToolTip = ("Start FS-UAE")
- Picture = Picture["icon:/22/play"]
- }
- { Button46 Button
- Move(434,3,28,28)
- ToolTip = ("Start FS-UAE in Net Mode")
- Picture = Picture["icon:/22/network"]
- }
- { Button2 Button
- Move(469,3,28,28)
- ToolTip = ("Save .config file")
- Picture = Picture["icon:/22/save-as"]
- }
- { Button3 Button
- Move(504,3,28,28)
- ToolTip = ("Close emulation")
- Picture = Picture["icon:/22/quit"]
- }
- }
- { TabStrip1 TabStrip
- Move(7,42,546,504)
- Count = 9
- Index = 0
- Text = ("&Floppy Disks")
- Picture = Picture["icon:/16/floppy"]
- { Frame10 Frame
- Move(13,15,511,175)
- Text = ("Normal Disks")
- { Label13 Label
- Move(28,21,56,28)
- Text = ("DF0:")
- }
- { TextBox20 TextBox
- Move(98,21,322,28)
- }
- { Button23 Button
- Move(427,21,28,28)
- ToolTip = ("Select Adf/Ipf")
- Picture = Picture["icon:/16/add"]
- }
- { Button22 Button
- Move(462,21,28,28)
- ToolTip = ("Remove floppy")
- Picture = Picture["icon:/16/remove"]
- }
- { CheckBox8 CheckBox
- Move(21,56,84,28)
- Text = ("DF1:")
- }
- { TextBox16 TextBox
- Move(98,56,322,28)
- }
- { Button19 Button
- Move(427,56,28,28)
- ToolTip = ("Select Adf/Ipf")
- Picture = Picture["icon:/16/add"]
- }
- { Button25 Button
- Move(462,56,28,28)
- ToolTip = ("Remove floppy")
- Picture = Picture["icon:/16/remove"]
- }
- { CheckBox7 CheckBox
- Move(21,91,84,28)
- Text = ("DF1:")
- }
- { TextBox17 TextBox
- Move(98,91,322,28)
- }
- { Button20 Button
- Move(427,91,28,28)
- ToolTip = ("Select Adf/Ipf")
- Picture = Picture["icon:/16/add"]
- }
- { Button26 Button
- Move(462,91,28,28)
- ToolTip = ("Remove floppy")
- Picture = Picture["icon:/16/remove"]
- }
- { CheckBox5 CheckBox
- Move(21,126,84,28)
- Text = ("DF1:")
- }
- { TextBox18 TextBox
- Move(98,126,322,28)
- }
- { Button21 Button
- Move(427,126,28,28)
- ToolTip = ("Select Adf/Ipf")
- Picture = Picture["icon:/16/add"]
- }
- { Button27 Button
- Move(462,126,28,28)
- ToolTip = ("Remove floppy")
- Picture = Picture["icon:/16/remove"]
- }
- }
- { Frame9 Frame
- Move(13,205,511,238)
- Text = ("Swap Disks")
- { Label12 Label
- Move(28,21,56,28)
- Text = ("DF0:")
- }
- { TextBox15 TextBox
- Move(98,21,322,28)
- }
- { Button18 Button
- Move(427,21,28,28)
- ToolTip = ("Select Adf/Ipf")
- Picture = Picture["icon:/16/add"]
- }
- { Button28 Button
- Move(462,21,28,28)
- ToolTip = ("Remove floppy")
- Picture = Picture["icon:/16/remove"]
- }
- { Label14 Label
- Move(28,56,56,28)
- Text = ("DF1:")
- }
- { TextBox11 TextBox
- Move(98,56,322,28)
- }
- { Button14 Button
- Move(427,56,28,28)
- ToolTip = ("Select Adf/Ipf")
- Picture = Picture["icon:/16/add"]
- }
- { Button29 Button
- Move(462,56,28,28)
- ToolTip = ("Remove floppy")
- Picture = Picture["icon:/16/remove"]
- }
- { Label15 Label
- Move(28,91,56,28)
- Text = ("DF2:")
- }
- { TextBox12 TextBox
- Move(98,91,322,28)
- }
- { Button15 Button
- Move(427,91,28,28)
- ToolTip = ("Select Adf/Ipf")
- Picture = Picture["icon:/16/add"]
- }
- { Button30 Button
- Move(462,91,28,28)
- ToolTip = ("Remove floppy")
- Picture = Picture["icon:/16/remove"]
- }
- { Label16 Label
- Move(28,126,56,28)
- Text = ("DF3:")
- }
- { TextBox13 TextBox
- Move(98,126,322,28)
- }
- { Button16 Button
- Move(427,126,28,28)
- ToolTip = ("Select Adf/Ipf")
- Picture = Picture["icon:/16/add"]
- }
- { Button31 Button
- Move(462,126,28,28)
- ToolTip = ("Remove floppy")
- Picture = Picture["icon:/16/remove"]
- }
- { Label17 Label
- Move(28,161,56,28)
- Text = ("DF4:")
- }
- { TextBox14 TextBox
- Move(98,161,322,28)
- }
- { Button17 Button
- Move(427,161,28,28)
- ToolTip = ("Select Adf/Ipf")
- Picture = Picture["icon:/16/add"]
- }
- { Button32 Button
- Move(462,161,28,28)
- ToolTip = ("Remove floppy")
- Picture = Picture["icon:/16/remove"]
- }
- }
- Index = 1
- Text = ("&Memory")
- Picture = Picture["icon:/16/hardware"]
- { Frame4 Frame
- Move(13,7,511,189)
- ToolTip = ("Select Amiga kickstart file")
- Text = ("Kickstart ROM File")
- { RadioButton3 RadioButton
- Move(17,42,168,28)
- Text = ("Amiga <= 600")
- Value = True
- }
- { TextBox8 TextBox
- Move(202,42,245,28)
- }
- { Button11 Button
- Move(465,42,28,28)
- Text = ("...")
- }
- { RadioButton4 RadioButton
- Move(17,77,168,28)
- Text = ("Amiga >= 1200")
- }
- { TextBox9 TextBox
- Move(202,77,245,28)
- }
- { Button12 Button
- Move(465,77,28,28)
- Text = ("...")
- }
- { Label11 Label
- Move(17,112,147,28)
- Text = ("Extended Kickstart")
- }
- { TextBox10 TextBox
- Move(202,112,245,28)
- }
- { Button13 Button
- Move(465,112,28,28)
- Text = ("...")
- }
- }
- { Frame5 Frame
- Move(6,203,112,203)
- ToolTip = ("Select amount of chip mem")
- Text = ("Chip Mem")
- { RadioButton5 RadioButton
- Move(14,35,168,28)
- Text = ("512 Kb")
- }
- { RadioButton6 RadioButton
- Move(14,63,168,28)
- Text = ("1 Mb")
- Value = True
- }
- { RadioButton7 RadioButton
- Move(14,91,168,28)
- Text = ("2 Mb")
- }
- { RadioButton8 RadioButton
- Move(14,119,168,28)
- Text = ("4 Mb")
- }
- { RadioButton9 RadioButton
- Move(14,147,168,28)
- Text = ("8 Mb")
- }
- }
- { Frame6 Frame
- Move(125,203,112,203)
- ToolTip = ("Select amount of slow mem")
- Text = ("Slow Mem")
- { RadioButton13 RadioButton
- Move(14,35,168,28)
- Text = ("None")
- Value = True
- }
- { RadioButton10 RadioButton
- Move(14,63,168,28)
- Text = ("512 Kb")
- }
- { RadioButton11 RadioButton
- Move(14,91,168,28)
- Text = ("1 Mb")
- }
- { RadioButton12 RadioButton
- Move(14,119,168,28)
- Text = ("1,8 Mb")
- }
- }
- { Frame7 Frame
- Move(243,203,112,203)
- ToolTip = ("Select amount of fast mem")
- Text = ("Fast Mem")
- { RadioButton14 RadioButton
- Move(14,35,168,28)
- Text = ("None")
- Value = True
- }
- { RadioButton15 RadioButton
- Move(14,63,168,28)
- Text = ("1 Mb")
- }
- { RadioButton16 RadioButton
- Move(14,91,168,28)
- Text = ("2 Mb")
- }
- { RadioButton17 RadioButton
- Move(14,119,168,28)
- Text = ("4 Mb")
- }
- { RadioButton18 RadioButton
- Move(14,147,168,28)
- Text = ("8 Mb")
- }
- }
- { Frame8 Frame
- Move(363,203,168,203)
- ToolTip = ("Select amount of Z3 mem")
- Text = ("Z3 Mem")
- { RadioButton19 RadioButton
- Move(7,35,84,28)
- Text = ("None")
- Value = True
- }
- { RadioButton24 RadioButton
- Move(77,35,84,28)
- Text = ("16 Mb")
- }
- { RadioButton20 RadioButton
- Move(7,63,84,28)
- Text = ("1 Mb")
- }
- { RadioButton25 RadioButton
- Move(77,63,84,28)
- Text = ("32 Mb")
- }
- { RadioButton21 RadioButton
- Move(7,91,84,28)
- Text = ("2 Mb")
- }
- { RadioButton38 RadioButton
- Move(77,91,84,28)
- Text = ("64 Mb")
- }
- { RadioButton22 RadioButton
- Move(7,119,84,28)
- Text = ("4 Mb")
- }
- { RadioButton39 RadioButton
- Move(77,119,84,28)
- Text = ("128 Mb")
- }
- { RadioButton23 RadioButton
- Move(7,147,84,28)
- Text = ("8 Mb")
- }
- { RadioButton40 RadioButton
- Move(77,147,84,28)
- Text = ("256 Mb")
- }
- }
- { Frame18 Frame
- Move(34,413,469,49)
- { Label30 Label
- Move(21,10,140,28)
- Text = ("Picasso 96 RAM 0")
- }
- { Slider6 Slider
- Move(182,10,266,28)
- MaxValue = 32
- }
- }
- Index = 2
- Text = ("&Chipset")
- Picture = Picture["icon:/16/computer"]
- { Frame2 Frame
- Move(13,7,511,147)
- ToolTip = ("Select a Amiga Model")
- Text = ("Chipset Type")
- { Label8 Label
- Move(133,42,105,28)
- Text = ("Chipset Model")
- }
- { ComboBox1 ComboBox
- Move(259,42,119,28)
- List = [("A500"), ("A500+"), ("A600"), ("A1200"), ("A1200/020"), ("A4000/040"), ("SUPER"), ("CDTV"), ("CD32")]
- Text = ("A500")
- }
- { RadioButton1 RadioButton
- Move(133,77,91,28)
- Text = ("NTSC")
- }
- { RadioButton2 RadioButton
- Move(294,77,84,28)
- Text = ("PAL")
- Value = True
- }
- }
- { Frame3 Frame
- Move(13,168,511,126)
- ToolTip = ("Select emulation accurancy from -2 to 1\n-2 less accurancy but fast emulation\n1 better accurancy but slowly emulation\n")
- Text = ("Emulation Accurancy 1")
- { Label9 Label
- Move(14,42,63,28)
- Text = ("Fast")
- }
- { Slider1 Slider
- Move(91,42,315,28)
- MinValue = -2
- MaxValue = 1
- Value = 1
- }
- { Label10 Label
- Move(420,42,77,28)
- Text = ("Accurate")
- }
- }
- Index = 3
- Text = ("Game &Ports")
- Picture = Picture["icon:/16/game"]
- { Frame12 Frame
- Move(1,7,133,168)
- Text = ("Port 0")
- { RadioButton29 RadioButton
- Move(17,35,98,28)
- Text = ("Auto")
- Value = True
- }
- { RadioButton30 RadioButton
- Move(17,63,98,28)
- Text = ("Mouse")
- }
- { RadioButton31 RadioButton
- Move(17,91,98,28)
- Text = ("Keyboard")
- }
- }
- { Frame11 Frame
- Move(135,7,133,168)
- Text = ("Port 1")
- { RadioButton26 RadioButton
- Move(17,35,98,28)
- Text = ("Auto")
- Value = True
- }
- { RadioButton27 RadioButton
- Move(17,63,98,28)
- Text = ("Mouse")
- }
- { RadioButton28 RadioButton
- Move(17,91,98,28)
- Text = ("Keyboard")
- }
- }
- { Frame16 Frame
- Move(269,7,133,168)
- Text = ("Port 2")
- { RadioButton32 RadioButton
- Move(17,35,98,28)
- Text = ("Auto")
- Value = True
- }
- { RadioButton33 RadioButton
- Move(17,63,98,28)
- Text = ("Mouse")
- }
- { RadioButton34 RadioButton
- Move(17,91,98,28)
- Text = ("Keyboard")
- }
- }
- { Frame17 Frame
- Move(403,7,133,168)
- Text = ("Port 3")
- { RadioButton35 RadioButton
- Move(17,35,98,28)
- Text = ("Auto")
- Value = True
- }
- { RadioButton36 RadioButton
- Move(17,63,98,28)
- Text = ("Mouse")
- }
- { RadioButton37 RadioButton
- Move(17,91,98,28)
- Text = ("Keyboard")
- }
- }
- { Button51 Button
- Move(206,189,126,28)
- Text = ("Configure &Joystick")
- }
- { Label45 Label
- Move(6,224,525,56)
- Text = ("Joystick setup script developed by FrodeSolheim (author of FS-UAE).\nThe Joystick script requires Python (>= 2.6) to be installed")
- Alignment = Align.Center
- }
- Index = 4
- Text = ("&Hard Disks/CD-ROM")
- Picture = Picture["icon:/16/harddisk"]
- { Frame13 Frame
- Move(13,7,511,161)
- Text = ("Hard Disk")
- { Panel6 Panel
- Move(31,35,448,105)
- { CheckBox4 CheckBox
- Move(8,5,77,28)
- ToolTip = ("Enable/Disable hdf")
- Text = ("DH0:")
- }
- { TextBox6 TextBox
- Move(98,5,229,28)
- }
- { Button33 Button
- Move(339,5,28,28)
- ToolTip = ("Select hdf file")
- Picture = Picture["icon:/16/file"]
- }
- { Button37 Button
- Move(375,5,28,28)
- ToolTip = ("Select a folder")
- Picture = Picture["icon:/16/directory"]
- }
- { Button34 Button
- Move(411,5,28,28)
- ToolTip = ("Remove hdf")
- Picture = Picture["icon:/16/remove"]
- }
- { CheckBox6 CheckBox
- Move(8,38,77,28)
- ToolTip = ("Enable/Disable hdf")
- Text = ("DH1:")
- }
- { TextBox19 TextBox
- Move(98,38,229,28)
- }
- { Button35 Button
- Move(339,38,28,28)
- ToolTip = ("Select hdf file")
- Picture = Picture["icon:/16/file"]
- }
- { Button38 Button
- Move(375,38,28,28)
- ToolTip = ("Select a folder")
- Picture = Picture["icon:/16/directory"]
- }
- { Button36 Button
- Move(411,38,28,28)
- ToolTip = ("Remove hdf")
- Picture = Picture["icon:/16/remove"]
- }
- { CheckBox9 CheckBox
- Move(8,71,77,28)
- ToolTip = ("Enable/Disable hdf")
- Text = ("DH2:")
- }
- { TextBox22 TextBox
- Move(98,71,229,28)
- }
- { Button39 Button
- Move(339,71,28,28)
- ToolTip = ("Select hdf file")
- Picture = Picture["icon:/16/file"]
- }
- { Button40 Button
- Move(375,71,28,28)
- ToolTip = ("Select a folder")
- Picture = Picture["icon:/16/directory"]
- }
- { Button41 Button
- Move(411,71,28,28)
- ToolTip = ("Remove hdf")
- Picture = Picture["icon:/16/remove"]
- }
- }
- }
- { Frame14 Frame
- Move(13,182,511,140)
- Text = ("CD-ROM")
- { Panel7 Panel
- Move(31,35,448,77)
- { CheckBox10 CheckBox
- Move(8,5,91,28)
- ToolTip = ("Enable/Disable CDROM")
- Text = ("CDROM:")
- }
- { TextBox23 TextBox
- Move(98,5,229,28)
- }
- { Button42 Button
- Move(339,5,28,28)
- ToolTip = ("Select a bin/cue - iso CDROM")
- Picture = Picture["icon:/16/file"]
- }
- { Button44 Button
- Move(375,5,28,28)
- ToolTip = ("Remove CDROM image")
- Picture = Picture["icon:/16/remove"]
- }
- { CheckBox11 CheckBox
- Move(8,38,91,28)
- ToolTip = ("Enable/Disable CDROM")
- Text = ("CDROM_S:")
- }
- { TextBox24 TextBox
- Move(98,38,229,28)
- }
- { Button45 Button
- Move(339,38,28,28)
- ToolTip = ("Select a bin/cue - iso CDROM")
- Picture = Picture["icon:/16/file"]
- }
- { Button47 Button
- Move(375,38,28,28)
- ToolTip = ("Remove CDROM image")
- Picture = Picture["icon:/16/remove"]
- }
- }
- }
- Index = 5
- Text = ("&Net Play")
- Picture = Picture["icon:/16/network"]
- { Frame15 Frame
- Move(146,14,245,210)
- Text = ("Server")
- { Panel8 Panel
- Move(14,28,217,154)
- { Label27 Label
- Move(4,7,49,28)
- Text = ("Server")
- }
- { TextBox27 TextBox
- Move(58,7,154,28)
- ToolTip = ("Select ip adress or host name")
- }
- { Label24 Label
- Move(7,42,42,28)
- Text = ("Port")
- }
- { TextBox25 TextBox
- Move(58,42,154,28)
- ToolTip = ("Set a custom port")
- Text = ("25100")
- MaxLength = 5
- }
- { Label25 Label
- Move(7,77,42,28)
- Text = ("Tag")
- }
- { TextBox26 TextBox
- Move(58,77,154,28)
- ToolTip = ("Sellect a nickname")
- }
- { Button43 Button
- Move(14,112,28,28)
- ToolTip = ("Start server")
- Picture = Picture["icon:/22/server"]
- }
- { Button48 Button
- Move(56,112,28,28)
- Enabled = False
- ToolTip = ("Stop Server")
- Picture = Picture["icon:/22/close"]
- }
- { Label26 Label
- Move(98,112,49,28)
- Text = ("Player")
- }
- { ComboBox4 ComboBox
- Move(161,112,42,28)
- List = [("2"), ("3"), ("4"), ("5")]
- Text = ("2")
- }
- }
- }
- { Label46 Label
- Move(6,238,525,56)
- Text = ("Netplay-server script developed by FrodeSolheim (author of FS-UAE).\nThe Netplay-server script requires Python (>= 2.6) to be installed")
- Alignment = Align.Center
- }
- Index = 6
- Text = ("&General")
- Picture = Picture["icon:/22/tools"]
- { Frame19 Frame
- Move(6,7,525,420)
- { Panel5 Panel
- Move(7,10,511,35)
- { Label6 Label
- Move(16,3,119,28)
- Text = ("Floppy Sound 20")
- }
- { Slider4 Slider
- Move(145,3,98,28)
- ToolTip = ("Set volume of Floppy")
- Step = 5
- Value = 20
- }
- { Label23 Label
- Move(259,3,126,28)
- Text = ("Floppy Speed 100")
- }
- { Slider5 Slider
- Move(396,3,98,28)
- ToolTip = ("Select read floppy speed from 0 to 800\n- 0 is Turbo mode ( in any case game don't load in turbo mode)")
- MaxValue = 800
- Step = 5
- Value = 100
- }
- }
- { Panel4 Panel
- Move(7,55,511,35)
- { CheckBox1 CheckBox
- Move(7,3,105,28)
- ToolTip = ("Start FS_UAE in full screen mode")
- Text = ("Full Screen")
- }
- { Label36 Label
- Move(161,3,154,28)
- Text = ("Full Screen Resolution")
- }
- { TextBox31 TextBox
- Move(323,3,70,28)
- ToolTip = ("Specify the width of the FS-UAE fullscreen mode")
- Text = ("800")
- MaxLength = 4
- }
- { Label37 Label
- Move(413,3,21,28)
- Text = ("x")
- }
- { TextBox32 TextBox
- Move(432,3,70,28)
- ToolTip = ("Specify the height of the FS-UAE fullscreen mode")
- Text = ("600")
- MaxLength = 4
- }
- }
- { Panel3 Panel
- Move(7,100,511,35)
- { CheckBox2 CheckBox
- Move(7,3,105,28)
- ToolTip = ("The amiga video output will be scaled with the aspect ratio intact, otherwise it will be stretched to fill the screen")
- Text = ("Keep Aspect")
- }
- { Label20 Label
- Move(119,3,84,28)
- Text = ("Video - Sync")
- }
- { ComboBox3 ComboBox
- Move(217,3,70,28)
- ToolTip = ("Video sync behaviour can be configured with the “video_sync” option. The default setting is auto. The available values are:\noff – video and emulation will not be synced to the display\nvblank – video updates (but not emulation) will be synced to vblank to remove tearing\nfull – emulation and video will be synchronized to the display. This will give perfect scrolling if the display refresh rate matches the game’s refresh rate.\nauto – this sets video sync to “full” if the refresh rate matches the game’s refresh rate, and “vblank” if not.\n\nIt is generally recommended to leave this option at auto. If you change your desktop to a 50Hz screen mode, full synchronization and smooth scrolling will be enabled automatically.")
- List = [("off"), ("vblank"), ("full"), ("auto")]
- Text = ("auto")
- }
- { Label38 Label
- Move(294,3,63,28)
- Text = ("Method")
- }
- { ComboBox9 ComboBox
- Move(364,3,140,28)
- ToolTip = ("swap – Most basic method, but will probably not mantain emulation perfectly in sync on many GPUs due to pipelining and the swap buffers command returning before it is completed.\n\nswap-finish – This method should force the emulation to be in sync with the display, but glFinish may use a busy-loop and cause high CPU usage.\n\nfinish-swap-finish – Execute a glFinish also before swapping buffers. \nMay work better on some OpenGL drivers. Otherwise same as swap-finish (High CPU usage with many drivers).\n\nfinish-sleep-swap-finish – Same as above, but sleep before executing the swap command. \nThe sleep time is based on the (estimated) time left to the next vblank. \nThis should reduce the CPU usage a lot, but on some systems/drivers, the display will not be synchronized properly.\n\nsleep-swap-finish – Same as above, but do not issue a glFinish before starting the sleep. \nThis should use less CPU than the above option, but some drivers seem to need the finish before the sleep to achieve proper sync.\n\nswap-fence – Set a fence after swapping buffers and poll periodically (with sleeps) for completion of swap. \nThis seems to work very well on Linux with recent nVIDIA drivers.\n\nswap-sleep-fence – Same as above, but sleep a while (based on estimated time to next vblank) before starting to pool the fence, \n(in case the test-fence method blocks with high CPU usage, problem seen on nVIDIA/Windows).")
- List = [("swap"), ("swap-finish"), ("finish-swap-finish"), ("finish-sleep-swap-finish"), ("sleep-swap-finish"), ("swap-fence"), ("swap-sleep-fence")]
- Text = ("finish-swap-finish")
- }
- }
- { Panel10 Panel
- Move(7,145,511,35)
- { Label35 Label
- Move(9,3,63,28)
- Text = ("Fs Mode")
- }
- { ComboBox8 ComboBox
- Move(81,3,98,28)
- ToolTip = ("You can set this option to fullscreen-window instead if you want to use the fake fullscreen support \n(a borderless window the size of the current display will be created instead of switching to real fullscreen)")
- List = [("fullscreen"), ("fullscreen-window")]
- Text = ("fullscreen")
- }
- { Label33 Label
- Move(188,3,126,28)
- Text = ("Window Resolution")
- }
- { TextBox29 TextBox
- Move(323,3,70,28)
- ToolTip = ("Specify the width of the FS-UAE window to create on start-up")
- }
- { Label34 Label
- Move(413,3,21,28)
- Text = ("x")
- }
- { TextBox30 TextBox
- Move(432,3,70,28)
- ToolTip = ("Specify the height of the FS-UAE window to create on start-up")
- }
- }
- { Panel2 Panel
- Move(7,190,511,35)
- { CheckBox3 CheckBox
- Move(7,3,98,28)
- Text = ("Scanlines")
- }
- { Label21 Label
- Move(128,3,63,28)
- Text = ("Dark 5")
- }
- { Slider3 Slider
- Move(206,3,98,28)
- Step = 5
- Value = 5
- }
- { Label22 Label
- Move(319,3,63,28)
- Text = ("Light 10")
- }
- { Slider2 Slider
- Move(397,3,98,28)
- Step = 5
- Value = 10
- }
- }
- { Panel12 Panel
- Move(7,236,511,35)
- { Label19 Label
- Move(6,3,91,28)
- Text = ("Anti-Aliasing")
- }
- { ComboBox2 ComboBox
- Move(103,3,42,28)
- ToolTip = ("Set to , 4 or 8 to enable full-scene anti-aliasing (reduces jagged edges in menu-mode). Specify 2 for 2x, 4 for 4x, etc. This may negatively impact rendering performance, depending on your GPU.")
- List = [("0"), ("2"), ("4"), ("8")]
- Text = ("0")
- }
- { Label31 Label
- Move(151,3,91,28)
- Text = ("Video Format")
- }
- { ComboBox6 ComboBox
- Move(248,3,70,28)
- ToolTip = ("Changing the video and texture buffer formats may improve texture upload speed on your computer.\nThis option allows you to configure whether video data is stored in RGBA or BGRA byte order in the internal video buffers. \nThis setting (together with texture_format) may affect texture upload performance. \nThe option should not be shared between computers, since appropriate values may differ for other operating system or OpenGL GPU vendors")
- List = [("rgba"), ("bgra")]
- Text = ("bgra")
- }
- { Label32 Label
- Move(322,3,105,28)
- Text = ("Texture Format")
- }
- { ComboBox7 ComboBox
- Move(432,3,70,28)
- ToolTip = ("This option allows you to configure the internal texture format used by OpenGL for displaying the Amiga video frames. \nThis setting (together with video_format) may affect texture upload performance. \nThe option should not be shared between computers, since appropriate values may differ for other operating system or OpenGL GPU vendors")
- List = [("rgb"), ("rgb8"), ("rgba"), ("rgba8")]
- Text = ("rgb")
- }
- }
- { Panel13 Panel
- Move(7,282,511,35)
- { Label39 Label
- Move(15,3,56,28)
- Text = ("Shaders")
- }
- { ComboBox10 ComboBox
- Move(86,3,140,28)
- Text = ("None")
- }
- { CheckBox14 CheckBox
- Move(241,3,126,28)
- Text = ("Low Resolution")
- Value = CheckBox.True
- }
- { CheckBox15 CheckBox
- Move(383,3,112,28)
- Text = ("Double Line")
- }
- }
- { Panel14 Panel
- Move(7,328,511,35)
- ToolTip = ("All values divided by 10\nExample:\n-10 = -1")
- { Label41 Label
- Move(7,3,49,28)
- Text = ("Scale x")
- }
- { SpinBox1 SpinBox
- Move(63,3,63,28)
- MinValue = -100
- Value = -10
- }
- { Label42 Label
- Move(133,3,49,28)
- Text = ("Scale y")
- }
- { SpinBox2 SpinBox
- Move(189,3,63,28)
- MinValue = -100
- Value = -10
- }
- { Label43 Label
- Move(259,3,49,28)
- Text = ("Align x")
- }
- { SpinBox3 SpinBox
- Move(315,3,63,28)
- MinValue = -100
- Value = 5
- }
- { Label44 Label
- Move(385,3,49,28)
- Text = ("Align y")
- }
- { SpinBox4 SpinBox
- Move(441,3,63,28)
- MinValue = -10
- MaxValue = 10
- Value = 5
- }
- }
- { Panel9 Panel
- Move(7,374,511,35)
- { Label29 Label
- Move(14,3,133,28)
- Text = ("Custom Parameters")
- }
- { TextBox28 TextBox
- Move(161,3,336,28)
- ToolTip = ("Set your custom parameters\n*Example:\n--hard-drive-0-label=My Volume --keep-aspect=0")
- }
- }
- }
- { Panel11 Panel
- Move(14,434,511,35)
- { CheckBox12 CheckBox
- Move(7,3,168,28)
- Text = ("Load Inside G-FS-UAE")
- }
- { CheckBox13 CheckBox
- Move(350,3,154,28)
- Text = ("Disable Translations")
- }
- }
- Index = 7
- Text = ("Pa&th")
- Picture = Picture["icon:/22/directory"]
- { Frame1 Frame
- Move(13,7,511,287)
- Text = ("Path")
- { Label1 Label
- Move(29,28,133,28)
- Text = ("Configuration Path")
- }
- { TextBox1 TextBox
- Move(192,28,231,28)
- }
- { Button4 Button
- Move(434,28,28,28)
- Text = ("...")
- }
- { Label2 Label
- Move(29,56,133,28)
- Text = ("Controllers")
- }
- { TextBox2 TextBox
- Move(192,56,231,28)
- }
- { Button5 Button
- Move(434,56,28,28)
- Text = ("...")
- }
- { Label3 Label
- Move(29,84,133,28)
- Text = ("Flash Memory")
- }
- { TextBox3 TextBox
- Move(192,84,231,28)
- }
- { Button6 Button
- Move(434,84,28,28)
- Text = ("...")
- }
- { Label4 Label
- Move(29,112,133,28)
- Text = ("Floppy Overlays")
- }
- { TextBox4 TextBox
- Move(192,112,231,28)
- }
- { Button7 Button
- Move(434,112,28,28)
- Text = ("...")
- }
- { Label5 Label
- Move(29,140,133,28)
- Text = ("Kickstarts")
- }
- { TextBox5 TextBox
- Move(192,140,231,28)
- }
- { Button8 Button
- Move(434,140,28,28)
- Text = ("...")
- }
- { Label7 Label
- Move(29,168,133,28)
- Text = ("Save States")
- }
- { TextBox7 TextBox
- Move(192,168,231,28)
- }
- { Button10 Button
- Move(434,168,28,28)
- Text = ("...")
- }
- { Label28 Label
- Move(29,196,133,28)
- Text = ("ADF/IPF Folder")
- }
- { TextBox21 TextBox
- Move(192,196,231,28)
- }
- { Button49 Button
- Move(434,196,28,28)
- Text = ("...")
- }
- { Label40 Label
- Move(29,224,133,28)
- Text = ("Shaders")
- }
- { TextBox33 TextBox
- Move(192,224,231,28)
- ToolTip = ("No selection will load built-in FS-UAE shaders")
- }
- { Button9 Button
- Move(434,224,28,28)
- Text = ("...")
- }
- { Button50 Button
- Move(469,224,28,28)
- ToolTip = ("Refresh Shaders")
- Picture = Picture["icon:/16/refresh"]
- }
- }
- Index = 8
- Text = ("")
- Picture = Picture["icon:/22/screen"]
- { embEmbedder Embedder
- Move(3,2,532,469)
- Background = &H000000&
- ToolTip = ("- Press middle mouse button to swap from FS-UAE to GUI\n- Press Alt+Enter to swap from window/GUI mode to Full Screen mode")
- }
- Index = 0
- }
-}
diff --git a/bin/G-FSUAE/G-FS-UAE/.src/leggi.module b/bin/G-FSUAE/G-FS-UAE/.src/leggi.module
deleted file mode 100644
index 1f76967..0000000
--- a/bin/G-FSUAE/G-FS-UAE/.src/leggi.module
+++ /dev/null
@@ -1,278 +0,0 @@
-' Gambas module file
-
-Private opzione As New String[]
-Private tipo As String
-Private valore As String
-
-Public Sub leggi_conf()
-Dim hFile As File
-Dim sLine As String
-
-hFile = Open (fmain.ComboBox5.Text) For Input
-While Not Eof(hFile)
- Line Input #hFile, sLine
- Try opzione = Split(sline, "\n")
- confronta
- Wend
-Close #hFile
-
-End
-
-Public Sub confronta()
- Dim a As Integer
- Dim risultato As String
- For Each risultato In opzione
- Try a = InStr(risultato, "=")
- If a <> 0 Then
- tipo = Left(risultato, a - 2)
- valore = Mid(risultato, a + 2, a + 100)
- assegna
- End If
- Next
-End
-
-Public Sub assegna()
-
- Select Case tipo
- Case "amiga_model"
- FMain.ComboBox1.text = valore
- Case "accurancy"
- FMain.slider1.value = Val(valore)
- Case "ntsc_mode"
- If valore = "1" Then
- FMain.radiobutton1.value = True
- Else If valore = "0" Then
- FMain.RadioButton2.value = True
- End If
- Case "#mAmiga"
- Select Case valore
- Case "500"
- fmain.RadioButton3.value = True
- fmain.TextBox9.text = ""
- Case "1200"
- fmain.RadioButton4.value = True
- fmain.TextBox8.text = ""
- End Select
-
- Case "kickstart_file"
- If fmain.RadioButton3.value = True Then fmain.TextBox8.text = valore
- If fmain.RadioButton4.value = True Then fmain.TextBox9.text = valore
- Case "kickstart_ext_file"
- fmain.TextBox10.text = valore
-
- Case "chip_memory"
- Select Case Left(valore, 1)
- Case "5"
- FMain.RadioButton5.value = True
- Case "1"
- FMain.RadioButton6.value = True
- Case "2"
- FMain.RadioButton7.value = True
- Case "4"
- FMain.RadioButton8.value = True
- Case "8"
- FMain.RadioButton9.value = True
- End Select
-
- Case "slow_memory"
- Select Case Trim(Left(valore, 2))
- Case "51"
- FMain.RadioButton10.value = True
- Case "10"
- FMain.RadioButton11.value = True
- Case "17"
- FMain.RadioButton12.value = True
- Case "0"
- FMain.RadioButton13.value = True
- End Select
-
- Case "fast_memory"
- Select Case Left(valore, 1)
- Case "0"
- FMain.RadioButton14.value = True
- Case "1"
- FMain.RadioButton15.value = True
- Case "2"
- FMain.RadioButton16.value = True
- Case "4"
- FMain.RadioButton17.value = True
- Case "8"
- FMain.RadioButton18.value = True
- End Select
-
- Case "zorro_iii_memory"
- Select Case Left(valore, 2)
- Case "0"
- FMain.RadioButton19.value = True
- Case "10"
- FMain.RadioButton20.value = True
- Case "20"
- FMain.RadioButton21.value = True
- Case "40"
- FMain.RadioButton22.value = True
- Case "81"
- FMain.RadioButton23.value = True
- Case "16"
- FMain.RadioButton24.value = True
- Case "32"
- FMain.RadioButton25.value = True
- Case "65"
- FMain.RadioButton38.value = True
- Case "13"
- FMain.RadioButton39.value = True
- Case "26"
- FMain.RadioButton40.value = True
- End Select
-
- Case "uae_gfxcard_size"
- fmain.Slider6.value = valore
-
- Case "joystick_port_0"
- Select Case valore
- Case "auto"
- FMain.RadioButton29.value = True
- Case "mouse"
- FMain.RadioButton30.value = True
- Case "keyboard"
- FMain.RadioButton31.value = True
- End Select
-
- Case "joystick_port_1"
- Select Case valore
- Case "auto"
- FMain.RadioButton26.value = True
- Case "mouse"
- FMain.RadioButton27.value = True
- Case "keyboard"
- FMain.RadioButton28.value = True
- End Select
-
- Case "joystick_port_2"
- Select Case valore
- Case "auto"
- FMain.RadioButton32.value = True
- Case "mouse"
- FMain.RadioButton33.value = True
- Case "keyboard"
- FMain.RadioButton34.value = True
- End Select
-
- Case "joystick_port_3"
- Select Case valore
- Case "auto"
- FMain.RadioButton35.value = True
- Case "mouse"
- FMain.RadioButton36.value = True
- Case "keyboard"
- FMain.RadioButton37.value = True
- End Select
-
- Case "#df1"
- If valore = "-1" Then
- FMain.CheckBox8.Value = CBool(valore)
- Else
- FMain.CheckBox8.Value = False
- End If
- Case "#df2"
- If valore = "-1" Then
- FMain.CheckBox7.Value = CBool(valore)
- Else
- FMain.CheckBox7.Value = False
- End If
- Case "#df3"
- If valore = "-1" Then
- FMain.CheckBox5.Value = CBool(valore)
- Else
- FMain.CheckBox5.Value = False
- End If
- Case "floppy_drive_0"
- fmain.TextBox20.text = valore
- Case "floppy_drive_1"
- fmain.TextBox16.text = valore
- Case "floppy_drive_2"
- fmain.TextBox17.text = valore
- Case "floppy_drive_3"
- fmain.TextBox18.text = valore
- Case "floppy_image_0"
- fmain.TextBox15.text = valore
- Case "floppy_image_1"
- fmain.TextBox11.text = valore
- Case "floppy_image_2"
- fmain.TextBox12.text = valore
- Case "floppy_image_3"
- fmain.TextBox13.text = valore
- Case "floppy_image_4"
- fmain.TextBox14.text = valore
-
- Case "#hd0"
- If valore = "-1" Then
- FMain.CheckBox4.Value = CBool(valore)
- Else
- FMain.CheckBox4.Value = False
- End If
- Case "#hd1"
- If valore = "-1" Then
- FMain.CheckBox6.Value = CBool(valore)
- Else
- FMain.CheckBox6.Value = False
- End If
- Case "#hd2"
- If valore = "-1" Then
- FMain.CheckBox9.Value = CBool(valore)
- Else
- FMain.CheckBox9.Value = False
- End If
- Case "hard_drive_0"
- FMain.TextBox6.text = valore
- Case "hard_drive_1"
- FMain.TextBox19.text = valore
- Case "hard_drive_2"
- FMain.TextBox22.text = valore
- Case "#cd0"
- If valore = "-1" Then
- FMain.CheckBox10.Value = CBool(valore)
- Else
- FMain.CheckBox10.Value = False
- End If
- Case "#cd1"
- If valore = "-1" Then
- FMain.CheckBox11.Value = CBool(valore)
- Else
- FMain.CheckBox11.Value = False
- End If
- Case "cdrom_drive_0"
- FMain.TextBox23.text = valore
- Case "cdrom_image_0"
- FMain.TextBox24.text = valore
-
- Case "floppy_drive_volume"
- FMain.slider4.value = Val(valore)
- Case "floppy_drive_speed"
- FMain.slider5.value = Val(valore)
- Case "fullscreen"
- fmain.CheckBox1.value = CBool(Val(valore))
- Case "keep_aspect"
- fmain.CheckBox2.value = CBool(Val(valore))
- Case "fsaa"
- fmain.combobox2.text = valore
- Case "video_sync"
- fmain.ComboBox3.text = valore
- Case "scanlines"
- fmain.CheckBox3.value = CBool(Val(valore))
- Case "scanlines_dark"
- FMain.slider3.value = Val(valore)
- Case "scanlines_light"
- FMain.slider2.value = Val(valore)
- Case "#shad"
- fmain.ComboBox10.text = valore
- Case "line_doubling"
- fmain.CheckBox14.value = CBool(Val(valore))
- Case "low_resolution"
- fmain.CheckBox15.value = CBool(Val(valore))
- End Select
-
-
-End
-
-
-
diff --git a/bin/G-FSUAE/G-FS-UAE/.src/scrivi.module b/bin/G-FSUAE/G-FS-UAE/.src/scrivi.module
deleted file mode 100644
index 656aca9..0000000
--- a/bin/G-FSUAE/G-FS-UAE/.src/scrivi.module
+++ /dev/null
@@ -1,220 +0,0 @@
-' Gambas module file
-
-Public valori As String
-
-Public Sub sConfig()
- Dim amiga, paths, jinput, media, audio, speed, video As String
- Dim model, accurancy, ntsc, kickstart, exkickstart, chip, slow, cFast, zorro, picasso As String
- Dim df1, df2, df3, df4, hdf0, hdf1, hdf2, cd0, cd1 As String
- Dim fulls, fsaa, sync, aspect, escan, lscan, dscan, eShaders, shad, double, low As String
- Dim port0, port1, port2, port3 As String
- Dim ab1, ab2, ab3, ab4, ab5, ab6, ab7, ab8 As String
-
- 'amiga
- '
- model = "amiga_model = " & FMain.ComboBox1.text & "\n"
- accurancy = "accurancy = " & FMain.Slider1.value & "\n"
- If FMain.RadioButton1.value = True Then
- ntsc = "ntsc_mode = 1" & "\n"
- Else
- ntsc = "ntsc_mode = 0" & "\n"
- Endif
- If FMain.RadioButton3.value = True Then
- kickstart = "#mAmiga = 500" & "\n" & "kickstart_file = " & FMain.textbox8.text & "\n"
- Else
- kickstart = "#mAmiga = 1200" & "\n" & "kickstart_file = " & FMain.textbox9.text & "\n"
- End If
- exkickstart = "kickstart_ext_file = " & FMain.textbox10.text & "\n"
-
-
- If FMain.RadioButton5.value = True
- chip = "chip_memory = 512" & "\n"
- Else If FMain.RadioButton6.value = True
- chip = "chip_memory = 1024" & "\n"
- Else If FMain.RadioButton7.value = True
- chip = "chip_memory = 2048" & "\n"
- Else If FMain.RadioButton8.value = True
- chip = "chip_memory = 4096" & "\n"
- Else If FMain.RadioButton9.value = True
- chip = "chip_memory = 8192" & "\n"
- End If
-
-
- If FMain.RadioButton13.value = True
- slow = "slow_memory = 0" & "\n"
- Else If FMain.RadioButton10.value = True
- slow = "slow_memory = 512" & "\n"
- Else If FMain.RadioButton11.value = True
- slow = "slow_memory = 1024" & "\n"
- Else If FMain.RadioButton12.value = True
- slow = "slow_memory = 1792" & "\n"
- End If
-
-
- If FMain.RadioButton14.value = True
- cFast = "fast_memory = 0" & "\n"
- Else If FMain.RadioButton15.value = True
- cFast = "fast_memory = 1024" & "\n"
- Else If FMain.RadioButton16.value = True
- cFast = "fast_memory = 2048" & "\n"
- Else If FMain.RadioButton17.value = True
- cFast = "fast_memory = 4096" & "\n"
- Else If FMain.RadioButton18.value = True
- cFast = "fast_memory = 8192" & "\n"
- End If
-
-
- If FMain.RadioButton19.value = True
- zorro = "zorro_iii_memory = 0" & "\n"
- Else If FMain.RadioButton20.value = True
- zorro = "zorro_iii_memory = 1024" & "\n"
- Else If FMain.RadioButton21.value = True
- zorro = "zorro_iii_memory = 2048" & "\n"
- Else If FMain.RadioButton22.value = True
- zorro = "zorro_iii_memory = 4096" & "\n"
- Else If FMain.RadioButton23.value = True
- zorro = "zorro_iii_memory = 8192" & "\n"
- Else If FMain.RadioButton24.value = True
- zorro = "zorro_iii_memory = 16384" & "\n"
- Else If FMain.RadioButton25.value = True
- zorro = "zorro_iii_memory = 32768" & "\n"
- Else If FMain.RadioButton38.value = True
- zorro = "zorro_iii_memory = 65536" & "\n"
- Else If FMain.RadioButton39.value = True
- zorro = "zorro_iii_memory = 131072" & "\n"
- Else If FMain.RadioButton40.value = True
- zorro = "zorro_iii_memory = 262144" & "\n"
- End If
-
- picasso = "uae_gfxcard_size = " & FMain.slider6.value & "\n"
-
- amiga = "[amiga]" & "\n" & "\n" & model & accurancy & ntsc & kickstart & exkickstart & chip & slow & cFast & zorro & picasso
-
- '-------------------------------------------------------
-
- 'paths
-
- paths = "\n" & "\n" & "[paths]" & "\n" & "\n" & "kickstarts_dir = " & FMain.TextBox5.text & "\n" & "save_states_dir = " & FMain.TextBox7.text & "\n" &
- "floppy_overlays_dir = " & FMain.TextBox4.text & "\n" & "flash_memory_dir = " & FMain.TextBox3.text & "\n" &
- "controllers_dir = " & FMain.textbox2.text & "\n" & "base_dir = " & FMain.textbox1.text & "\n"
-
-
- '-------------------------------------------------------
- '
- 'inputs
-
- If FMain.RadioButton29.value = True Then
- port0 = "joystick_port_0 = auto" & "\n"
- Else If FMain.RadioButton30.value = True Then
- port0 = "joystick_port_0 = mouse" & "\n"
- Else If FMain.RadioButton31.value = True Then
- port0 = "joystick_port_0 = keyboard" & "\n"
- Endif
-
- If FMain.RadioButton26.value = True Then
- port1 = "joystick_port_1 = auto" & "\n"
- Else If FMain.RadioButton27.value = True Then
- port1 = "joystick_port_1 = mouse" & "\n"
- Else If FMain.RadioButton28.value = True Then
- port1 = "joystick_port_1 = keyboard" & "\n"
- Endif
-
- If FMain.RadioButton32.value = True Then
- port2 = "joystick_port_2 = auto" & "\n"
- Else If FMain.RadioButton33.value = True Then
- port2 = "joystick_port_2 = mouse" & "\n"
- Else If FMain.RadioButton34.value = True Then
- port2 = "joystick_port_2 = keyboard" & "\n"
- Endif
-
- If FMain.RadioButton35.value = True Then
- port3 = "joystick_port_3 = auto" & "\n"
- Else If FMain.RadioButton36.value = True Then
- port3 = "joystick_port_3 = mouse" & "\n"
- Else If FMain.RadioButton37.value = True Then
- port3 = "joystick_port_3 = keyboard" & "\n"
- Endif
-
- jinput = "\n" & "\n" & "[input]" & "\n" & "\n" & port0 & port1 & port2 & port3 & "\n"
-
- '-------------------------------------------------------
- '
- 'media
- '
- If FMain.CheckBox8.Value = False Then ab1 = "#"
- If FMain.CheckBox7.Value = False Then ab2 = "#"
- If FMain.CheckBox5.Value = False Then ab3 = "#"
- If FMain.CheckBox4.Value = False Then ab4 = "#"
- If FMain.CheckBox6.Value = False Then ab5 = "#"
- If FMain.CheckBox9.Value = False Then ab6 = "#"
- If FMain.CheckBox10.Value = False Then ab7 = "#"
- If FMain.CheckBox11.Value = False Then ab8 = "#"
-
- df1 = "#df1 = " & FMain.CheckBox8.Value & "\n" & ab1 & "floppy_drive_1 = " & FMain.TextBox16.text & "\n"
- df2 = "#df2 = " & FMain.CheckBox7.Value & "\n" & ab2 & "floppy_drive_2 = " & FMain.TextBox17.text & "\n"
- df3 = "#df3 = " & FMain.CheckBox5.Value & "\n" & ab3 & "floppy_drive_3 = " & FMain.TextBox18.text & "\n"
-
- hdf0 = "#hd0 = " & FMain.CheckBox4.Value & "\n" & ab4 & "hard_drive_0 = " & FMain.TextBox6.text & "\n"
- hdf1 = "#hd1 = " & FMain.CheckBox6.value & "\n" & ab5 & "hard_drive_1 = " & FMain.TextBox19.text & "\n"
- hdf2 = "#hd2 = " & FMain.CheckBox9.value & "\n" & ab6 & "hard_drive_2 = " & FMain.TextBox22.text & "\n"
-
- cd0 = "#cd0 = " & FMain.CheckBox10.value & "\n" & ab7 & "cdrom_drive_0 = " & FMain.TextBox23.text & "\n"
- cd1 = "#cd1 = " & FMain.CheckBox11.value & "\n" & ab8 & "cdrom_image_0 = " & FMain.TextBox24.text & "\n"
- '
- media = "\n" & "\n" & "[media]" & "\n" & "\n" & "floppy_drive_0 = " & FMain.TextBox20.text & "\n" & df1 & df2 & df3 & "floppy_image_0 = " & FMain.TextBox15.text & "\n" &
- "floppy_image_1 = " & FMain.TextBox11.text & "\n" & "floppy_image_2 = " & FMain.TextBox12.text & "\n" & "floppy_image_3 = " & FMain.TextBox13.text & "\n" &
- "floppy_image_4 = " & FMain.TextBox14.text & "\n" & hdf0 & hdf1 & hdf2 & cd0 & cd1
-
-
- '-------------------------------------------------------
- '
- '
- 'preferences floppy
- '
- audio = "\n" & "\n" & "[audio]" & "\n" & "\n" & "floppy_drive_volume = " & FMain.slider4.value & "\n"
- speed = "floppy_drive_speed = " & FMain.slider5.value & "\n"
-
- '-------------------------------------------------------
- '
- 'video
- '
- If FMain.CheckBox1.value = True Then
- fulls = "fullscreen = 1" & "\n"
- Else
- fulls = "fullscreen = 0" & "\n"
- End If
- fsaa = "fsaa = " & FMain.combobox2.text & "\n"
- sync = "video_sync = " & FMain.combobox3.text & "\n"
- If FMain.CheckBox2.value = True Then
- aspect = "keep_aspect = 1" & "\n"
- Else
- aspect = "keep_aspect = 0" & "\n"
- End If
- If FMain.CheckBox3.value = True Then
- escan = "scanlines = 1" & "\n"
- Else
- escan = "scanlines = 0" & "\n"
- End If
- If FMain.CheckBox14.value = True Then
- double = "line_doubling = 1" & "\n"
- Else
- double = "line_doubling = 0" & "\n"
- Endif
- If FMain.CheckBox15.value = True Then
- low = "low_resolution = 1" & "\n"
- Else
- low = "low_resolution = 0" & "\n"
- Endif
- dscan = "scanlines_dark = " & FMain.slider3.value & "\n"
- lScan = "scanlines_light = " & FMain.slider2.value & "\n"
- eShaders = "shader = " & FMain.inshader & "/" & FMain.ComboBox10.text & ".shader" & "\n"
- shad = "#shad = " & FMain.ComboBox10.text & "\n"
- video = "\n" & "\n" & "[video]" & "\n" & "\n" & fulls & fsaa & sync & aspect & escan & dscan & lscan & eShaders & shad & double & low
-
- '-------------------------------------------------------
- '
- ''scrittura
-
- valori = amiga & paths & jinput & media & audio & speed & video
-End
-
diff --git a/bin/G-FSUAE/G-FS-UAE/.src/setting.module b/bin/G-FSUAE/G-FS-UAE/.src/setting.module
deleted file mode 100644
index 9c50b77..0000000
--- a/bin/G-FSUAE/G-FS-UAE/.src/setting.module
+++ /dev/null
@@ -1,66 +0,0 @@
-' 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
-