751 lines
30 KiB
VB.net
751 lines
30 KiB
VB.net
Imports System
|
|
Imports System.IO
|
|
Imports System.Collections
|
|
Public Class frmSettingsBasiliskVM
|
|
Public ConfigFile As String
|
|
Public VMName As String
|
|
Public SelectedItem As Integer
|
|
Public Sub LoadSettingsFrom(Item As Integer)
|
|
ConfigFile = frmMain.VMList.Items.Item(Item).SubItems(1).Text
|
|
VMName = frmMain.VMList.Items.Item(Item).Text
|
|
SelectedItem = Item
|
|
End Sub
|
|
|
|
Public Sub Settings()
|
|
|
|
Dim Reader As New StreamReader(ConfigFile)
|
|
Dim ConfigValues As New ArrayList()
|
|
Dim strContainer As String = ""
|
|
|
|
Do
|
|
strContainer = Reader.ReadLine()
|
|
If Not strContainer Is Nothing Then
|
|
ConfigValues.Add(strContainer)
|
|
End If
|
|
Loop Until strContainer Is Nothing
|
|
Reader.Close()
|
|
|
|
For x As Integer = 0 To ConfigValues.Count - 1
|
|
If InStr(ConfigValues(x), "disk") <> 0 Then
|
|
With DriveList.Items.Add(ConfigValues(x).ToString.Substring(5))
|
|
.ImageKey = "Drive"
|
|
.SubItems.Add("Disk")
|
|
.SubItems.Add("")
|
|
End With
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "floppy") <> 0 Then
|
|
With DriveList.Items.Add(ConfigValues(x).ToString.Substring(7))
|
|
.ImageKey = "Floppy"
|
|
.SubItems.Add("Floppy")
|
|
.SubItems.Add("")
|
|
End With
|
|
End If
|
|
|
|
If ConfigValues(x).ToString.Substring(0, 5) = "cdrom" Then
|
|
With DriveList.Items.Add(ConfigValues(x).ToString.Substring(6))
|
|
.ImageKey = "Disc"
|
|
.SubItems.Add("CD")
|
|
.SubItems.Add("")
|
|
End With
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "screen") <> 0 Then
|
|
Dim a As String = ConfigValues(x).ToString.Substring(7)
|
|
Dim b() As String = Split(a, "/")
|
|
Dim FoundX As Boolean = False
|
|
Dim FoundY As Boolean = False
|
|
|
|
Select Case b(0)
|
|
Case "win"
|
|
ScrMode.SelectedIndex = 0
|
|
Case "dga"
|
|
ScrMode.SelectedIndex = 1
|
|
End Select
|
|
|
|
For c As Integer = 0 To ScrResY.Items.Count - 1
|
|
If FoundX = True And FoundY = True Then
|
|
Exit For
|
|
End If
|
|
|
|
If InStr(ScrResX.Items.Item(c).ToString, b(1)) <> 0 Then
|
|
ScrResX.SelectedIndex = c
|
|
FoundX = True
|
|
ElseIf c = ScrResX.Items.Count - 1 And FoundX = False Then
|
|
ScrResX.Items.Add(b(1))
|
|
ScrResX.SelectedIndex = ScrResX.Items.Count - 1
|
|
End If
|
|
|
|
If InStr(ScrResY.Items.Item(c).ToString, b(2)) <> 0 Then
|
|
ScrResY.SelectedIndex = c
|
|
FoundY = True
|
|
ElseIf c = ScrResY.Items.Count - 1 And FoundY = False Then
|
|
ScrResY.Items.Add(b(2))
|
|
ScrResY.SelectedIndex = ScrResY.Items.Count - 1
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "seriala") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(8)
|
|
Case "COM1"
|
|
SerialA.SelectedIndex = 0
|
|
Case "COM2"
|
|
SerialA.SelectedIndex = 1
|
|
Case "COM3"
|
|
SerialA.SelectedIndex = 2
|
|
Case "COM4"
|
|
SerialA.SelectedIndex = 3
|
|
Case "COM5"
|
|
SerialA.SelectedIndex = 4
|
|
Case "COM6"
|
|
SerialA.SelectedIndex = 5
|
|
Case "LPT1"
|
|
SerialA.SelectedIndex = 6
|
|
Case "LPT2"
|
|
SerialA.SelectedIndex = 7
|
|
Case "LPT3"
|
|
SerialA.SelectedIndex = 8
|
|
Case "LPT4"
|
|
SerialA.SelectedIndex = 9
|
|
Case "LPT5"
|
|
SerialA.SelectedIndex = 10
|
|
Case "LPT6"
|
|
SerialA.SelectedIndex = 11
|
|
Case "FILE"
|
|
SerialA.SelectedIndex = 12
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "serialb") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(8)
|
|
Case "COM1"
|
|
SerialB.SelectedIndex = 0
|
|
Case "COM2"
|
|
SerialB.SelectedIndex = 1
|
|
Case "COM3"
|
|
SerialB.SelectedIndex = 2
|
|
Case "COM4"
|
|
SerialB.SelectedIndex = 3
|
|
Case "COM5"
|
|
SerialB.SelectedIndex = 4
|
|
Case "COM6"
|
|
SerialB.SelectedIndex = 5
|
|
Case "LPT1"
|
|
SerialB.SelectedIndex = 6
|
|
Case "LPT2"
|
|
SerialB.SelectedIndex = 7
|
|
Case "LPT3"
|
|
SerialB.SelectedIndex = 8
|
|
Case "LPT4"
|
|
SerialB.SelectedIndex = 9
|
|
Case "LPT5"
|
|
SerialB.SelectedIndex = 10
|
|
Case "LPT6"
|
|
SerialB.SelectedIndex = 11
|
|
Case "FILE"
|
|
SerialB.SelectedIndex = 12
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "ether") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(6)
|
|
Case "slirp"
|
|
NetType.SelectedIndex = 0
|
|
Case "router"
|
|
NetType.SelectedIndex = 1
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "udpport") <> 0 Then
|
|
NetUPDPort.Text = ConfigValues(x).ToString.Substring(8)
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "udptunnel") <> 0 Then
|
|
If ConfigValues(x).ToString.Substring(10) = "true" Then
|
|
NetEnableUDP.Checked = True
|
|
Else
|
|
NetEnableUDP.Checked = False
|
|
End If
|
|
End If
|
|
|
|
If ConfigValues(x).ToString.Substring(0, 3) = "rom" Then
|
|
MiscROM.Text = ConfigValues(x).ToString.Substring(4)
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "bootdrive") <> 0 Then
|
|
Dim bd As Integer = ConfigValues(x).ToString.Substring(10)
|
|
If bd <= DriveList.Items.Count Then
|
|
DriveList.Items.Item(bd).SubItems.Item(2).Text = "*"
|
|
End If
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "bootdriver") Then
|
|
Dim BootDriver As Integer = ConfigValues(x).ToString.Substring(11)
|
|
Select Case BootDriver
|
|
Case 0
|
|
DriveBootDisk.Checked = True
|
|
Case -62
|
|
DriveBootCD.Checked = True
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "ramsize") <> 0 Then
|
|
Dim RAMMiB As Long = ConfigValues(x).ToString.Substring(7)
|
|
RAMMiB = (RAMMiB / 1024) / 1024
|
|
MemoryBox.Text = RAMMiB
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "frameskip") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(10)
|
|
Case "12"
|
|
ScrRefresh.SelectedIndex = 0
|
|
Case "8"
|
|
ScrRefresh.SelectedIndex = 1
|
|
Case "6"
|
|
ScrRefresh.SelectedIndex = 2
|
|
Case "4"
|
|
ScrRefresh.SelectedIndex = 3
|
|
Case "2"
|
|
ScrRefresh.SelectedIndex = 4
|
|
Case "1"
|
|
ScrRefresh.SelectedIndex = 5
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "modelid") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(8)
|
|
Case "5"
|
|
MiscHwModel.SelectedIndex = 0
|
|
Case "14"
|
|
MiscHwModel.SelectedIndex = 1
|
|
End Select
|
|
End If
|
|
|
|
If ConfigValues(x).ToString.Substring(0, 3) = "cpu" Then
|
|
Select Case ConfigValues(x).ToString.Substring(4)
|
|
Case "2"
|
|
MiscHwCPU.SelectedIndex = 0
|
|
Case "3"
|
|
MiscHwCPU.SelectedIndex = 1
|
|
Case "4"
|
|
MiscHwCPU.SelectedIndex = 2
|
|
End Select
|
|
End If
|
|
|
|
If ConfigValues(x).ToString.Substring(0, 3) = "fpu" Then
|
|
Select Case ConfigValues(x).ToString.Substring(4)
|
|
Case "true"
|
|
MiscHwFPU.Checked = True
|
|
Case "false"
|
|
MiscHwFPU.Checked = False
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "nocdrom") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(8)
|
|
Case "false"
|
|
MiscHwCD.Checked = True
|
|
Case "true"
|
|
MiscHwCD.Checked = False
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "nosound") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(8)
|
|
Case "false"
|
|
MiscHwSound.Checked = True
|
|
Case "true"
|
|
MiscHwSound.Checked = False
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "nogui") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(6)
|
|
Case "false"
|
|
MiscEnableGUI.Checked = True
|
|
Case "true"
|
|
MiscEnableGUI.Checked = False
|
|
End Select
|
|
End If
|
|
|
|
If ConfigValues(x).ToString.Substring(0, 3) = "jit" Then
|
|
Select Case ConfigValues(x).ToString.Substring(4)
|
|
Case "true"
|
|
JITEnable.Checked = True
|
|
Case "false"
|
|
JITEnable.Checked = False
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "jitfpu") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(7)
|
|
Case "true"
|
|
JITFPU.Checked = True
|
|
Case "false"
|
|
JITFPU.Checked = False
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "jitdebug") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(9)
|
|
Case "true"
|
|
JITDebug.Checked = True
|
|
Case "false"
|
|
JITDebug.Checked = False
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "jitcachesize") <> 0 Then
|
|
Dim Value As String = ConfigValues(x).ToString.Substring(13)
|
|
Dim Found As Boolean
|
|
|
|
For c As Integer = 0 To JITCacheSize.Items.Count - 1
|
|
If Found = True Then
|
|
Exit For
|
|
End If
|
|
|
|
If InStr(JITCacheSize.Items.Item(c).ToString, Value) <> 0 Then
|
|
JITCacheSize.SelectedIndex = c
|
|
Found = True
|
|
ElseIf c = JITCacheSize.Items.Count - 1 And Found = False Then
|
|
JITCacheSize.Items.Add(Value)
|
|
JITCacheSize.SelectedIndex = JITCacheSize.Items.Count - 1
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "jitlazyflush") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(13)
|
|
Case "true"
|
|
JITLazyFlush.Checked = True
|
|
Case "false"
|
|
JITLazyFlush.Checked = False
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "jitinline") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(10)
|
|
Case "true"
|
|
JITInLine.Checked = True
|
|
Case "false"
|
|
JITInLine.Checked = False
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "keyboardtype") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(13)
|
|
Case "5"
|
|
InputEmuKbdType.SelectedIndex = 0
|
|
Case "6"
|
|
|
|
Case "7"
|
|
|
|
Case "8"
|
|
|
|
Case "9"
|
|
|
|
Case "10"
|
|
|
|
Case "11"
|
|
InputEmuKbdType.SelectedIndex = 1
|
|
Case "12"
|
|
|
|
Case "13"
|
|
InputEmuKbdType.SelectedIndex = 2
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "keycodes") <> 0 Then
|
|
Select Case ConfigValues(x).ToString.Substring(9)
|
|
Case "true"
|
|
InputKeycodesEnable.Checked = True
|
|
Case "false"
|
|
InputKeycodesEnable.Checked = False
|
|
End Select
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "keycodesfile") <> 0 Then
|
|
InputKeyCodesPath.Text = ConfigValues(x).ToString.Substring(13)
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "mousewheelmode") <> 0 Then
|
|
If InStr(ConfigValues(x).ToString.Substring(14), "0") Then
|
|
InputMouseWheelMode.SelectedIndex = 0
|
|
End If
|
|
If InStr(ConfigValues(x).ToString.Substring(14), "1") Then
|
|
InputMouseWheelMode.SelectedIndex = 1
|
|
End If
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "mousewheellines") <> 0 Then
|
|
Dim Number As Integer = ConfigValues(x).ToString.Substring(15)
|
|
InputMouseWheelLines.Value = Number
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "ignoresegv") <> 0 Then
|
|
If ConfigValues(x).ToString.Substring(11) = "true" Then
|
|
MiscIgnoreSegv.Checked = True
|
|
Else
|
|
MiscIgnoreSegv.Checked = False
|
|
End If
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "idlewait") <> 0 Then
|
|
If ConfigValues(x).ToString.Substring(9) = "true" Then
|
|
MiscIdleWait.Checked = True
|
|
Else
|
|
MiscIdleWait.Checked = False
|
|
End If
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "enableextfs") <> 0 Then
|
|
If ConfigValues(x).ToString.Substring(12) = "true" Then
|
|
ExtFSEnable.Checked = True
|
|
End If
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "debugextfs") <> 0 Then
|
|
If ConfigValues(x).ToString.Substring(11) = "true" Then
|
|
JITDebugExtFS.Checked = True
|
|
End If
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "extdrives") <> 0 Then
|
|
Dim StringValue As String = ConfigValues(x).ToString.Substring(10)
|
|
For a As Integer = 0 To StringValue.Length - 1
|
|
Select Case StringValue.Substring(a, 1)
|
|
Case "C"
|
|
ExtFSDrives.SetItemCheckState(0, CheckState.Checked)
|
|
Case "D"
|
|
ExtFSDrives.SetItemCheckState(1, CheckState.Checked)
|
|
Case "E"
|
|
ExtFSDrives.SetItemCheckState(2, CheckState.Checked)
|
|
Case "F"
|
|
ExtFSDrives.SetItemCheckState(3, CheckState.Checked)
|
|
Case "G"
|
|
ExtFSDrives.SetItemCheckState(4, CheckState.Checked)
|
|
Case "H"
|
|
ExtFSDrives.SetItemCheckState(5, CheckState.Checked)
|
|
Case "I"
|
|
ExtFSDrives.SetItemCheckState(6, CheckState.Checked)
|
|
Case "J"
|
|
ExtFSDrives.SetItemCheckState(7, CheckState.Checked)
|
|
Case "K"
|
|
ExtFSDrives.SetItemCheckState(8, CheckState.Checked)
|
|
Case "L"
|
|
ExtFSDrives.SetItemCheckState(9, CheckState.Checked)
|
|
Case "M"
|
|
ExtFSDrives.SetItemCheckState(10, CheckState.Checked)
|
|
Case "N"
|
|
ExtFSDrives.SetItemCheckState(11, CheckState.Checked)
|
|
Case "O"
|
|
ExtFSDrives.SetItemCheckState(12, CheckState.Checked)
|
|
Case "P"
|
|
ExtFSDrives.SetItemCheckState(13, CheckState.Checked)
|
|
Case "Q"
|
|
ExtFSDrives.SetItemCheckState(14, CheckState.Checked)
|
|
Case "R"
|
|
ExtFSDrives.SetItemCheckState(15, CheckState.Checked)
|
|
Case "S"
|
|
ExtFSDrives.SetItemCheckState(16, CheckState.Checked)
|
|
Case "T"
|
|
ExtFSDrives.SetItemCheckState(17, CheckState.Checked)
|
|
Case "U"
|
|
ExtFSDrives.SetItemCheckState(18, CheckState.Checked)
|
|
Case "V"
|
|
ExtFSDrives.SetItemCheckState(19, CheckState.Checked)
|
|
Case "W"
|
|
ExtFSDrives.SetItemCheckState(20, CheckState.Checked)
|
|
Case "X"
|
|
ExtFSDrives.SetItemCheckState(21, CheckState.Checked)
|
|
Case "Y"
|
|
ExtFSDrives.SetItemCheckState(22, CheckState.Checked)
|
|
Case "Z"
|
|
ExtFSDrives.SetItemCheckState(23, CheckState.Checked)
|
|
End Select
|
|
Next
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "pollmedia") <> 0 Then
|
|
If ConfigValues(x).ToString.Substring(10) = "true" Then
|
|
DrivePollMedia.Checked = True
|
|
End If
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "etherpermanentaddress") <> 0 Then
|
|
If ConfigValues(x).ToString.Substring(22) = "true" Then
|
|
NetPermPhysicalAddress.Checked = True
|
|
End If
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "ethermulticastmode") <> 0 Then
|
|
NetMulticastMode.Text = ConfigValues(x).ToString.Substring(19)
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "routerenabled") <> 0 Then
|
|
If ConfigValues(x).ToString.Substring(14) = "true" Then
|
|
NetRouterEnabled.Checked = True
|
|
Else
|
|
NetRouterEnabled.Checked = False
|
|
End If
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "ftp_port:list") <> 0 Then
|
|
NetFTPPorts.Text = ConfigValues(x).ToString.Substring(14)
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "tcp_port") <> 0 Then
|
|
NetServerPorts.Text = ConfigValues(x).ToString.Substring(9)
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "portfile0") <> 0 Then
|
|
SAFilePath.Text = ConfigValues(x).ToString.Substring(10)
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "portfile1") <> 0 Then
|
|
SBFilePath.Text = ConfigValues(x).ToString.Substring(10)
|
|
End If
|
|
|
|
If InStr(ConfigValues(x), "displaycolordepth") <> 0 Then
|
|
|
|
End If
|
|
|
|
If ConfigValues(x).ToString.Substring(0, 4) = "scsi" Then
|
|
Select Case ConfigValues(x).ToString.Substring(0, 5)
|
|
Case "scsi0"
|
|
|
|
Case "scsi1"
|
|
|
|
Case "scsi2"
|
|
|
|
Case "scsi3"
|
|
|
|
Case "scsi4"
|
|
|
|
Case "scsi5"
|
|
|
|
Case "scsi6"
|
|
|
|
End Select
|
|
End If
|
|
|
|
EMCEditor.Items.Add(ConfigValues(x))
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub CollectAndSave()
|
|
Dim Options As String = ""
|
|
|
|
For x As Integer = 0 To DriveList.Items.Count
|
|
Select Case DriveList.Items.Item(x).SubItems(1).Text
|
|
Case "Disk"
|
|
Options = Options & vbCrLf & "disk " & DriveList.Items.Item(x).Text
|
|
Case "Floppy"
|
|
Options = Options & vbCrLf & "floppy " & DriveList.Items.Item(x).Text
|
|
Case "CD"
|
|
Options = Options & vbCrLf & "cdrom " & DriveList.Items.Item(x).Text
|
|
End Select
|
|
Next
|
|
|
|
Select Case ScrMode.SelectedItem.ToString
|
|
Case "Window"
|
|
Options = Options & vbCrLf & "screen win/" & ScrResX.SelectedItem.ToString & "/" & ScrResY.SelectedItem.ToString
|
|
Case "Fullscreen"
|
|
Options = Options & vbCrLf & "screen dga/" & ScrResX.SelectedItem.ToString & "/" & ScrResY.SelectedItem.ToString
|
|
End Select
|
|
|
|
'For x As Integer = 0 To EMCEditor.Items.Count - 1
|
|
' Options = Options & EMCEditor.Items.Item(x).Text & vbCrLf
|
|
'Next
|
|
ConfigFileHandler.Write(Options, ConfigFile)
|
|
End Sub
|
|
|
|
Private Sub frmSettingsBasiliskVM_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
SetInitialData()
|
|
Settings()
|
|
End Sub
|
|
|
|
Private Sub OptionList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionList.SelectedIndexChanged
|
|
HidePages()
|
|
Select Case OptionList.FocusedItem.Index
|
|
Case 0
|
|
MacNameFrame.Visible = True
|
|
Case 1
|
|
IconFrame.Visible = True
|
|
Case 2
|
|
MemoryFrame.Visible = True
|
|
Case 3
|
|
DriveFrame.Visible = True
|
|
Case 4
|
|
NetworkFrame.Visible = True
|
|
Case 5
|
|
ScreenFrame.Visible = True
|
|
Case 6
|
|
InputFrame.Visible = True
|
|
Case 7
|
|
SerialFrame.Visible = True
|
|
Case 8
|
|
MiscHwFrame.Visible = True
|
|
Case 9
|
|
ExtFSFrame.Visible = True
|
|
Case 10
|
|
MiscFrame.Visible = True
|
|
Case 11
|
|
JITFrame.Visible = True
|
|
Case 12
|
|
EMCFrame.Visible = True
|
|
End Select
|
|
End Sub
|
|
|
|
Public Sub HidePages()
|
|
MacNameFrame.Visible = False
|
|
IconFrame.Visible = False
|
|
MemoryFrame.Visible = False
|
|
DriveFrame.Visible = False
|
|
NetworkFrame.Visible = False
|
|
ScreenFrame.Visible = False
|
|
InputFrame.Visible = False
|
|
SerialFrame.Visible = False
|
|
MiscHwFrame.Visible = False
|
|
ExtFSFrame.Visible = False
|
|
MiscFrame.Visible = False
|
|
JITFrame.Visible = False
|
|
EMCFrame.Visible = False
|
|
End Sub
|
|
|
|
Public Sub SetInitialData()
|
|
Dim SysMem As Long = (My.Computer.Info.TotalPhysicalMemory / 1024) / 1024
|
|
MacName.Text = VMName
|
|
|
|
If SysMem < 1024 Then
|
|
MemoryTracker.Maximum = SysMem
|
|
End If
|
|
NetType.SelectedIndex = 0
|
|
End Sub
|
|
|
|
Private Sub ScrResCust_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScrResCust.CheckedChanged
|
|
If ScrResCust.Checked = True Then
|
|
ScrResX.DropDownStyle = ComboBoxStyle.DropDown
|
|
ScrResY.DropDownStyle = ComboBoxStyle.DropDown
|
|
Else
|
|
ScrResX.DropDownStyle = ComboBoxStyle.DropDownList
|
|
ScrResY.DropDownStyle = ComboBoxStyle.DropDownList
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MemoryBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemoryBox.TextChanged
|
|
MemoryTracker.Value = MemoryBox.Text
|
|
End Sub
|
|
|
|
Private Sub MemoryTracker_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MemoryTracker.Scroll
|
|
MemoryBox.Text = MemoryTracker.Value
|
|
End Sub
|
|
|
|
Private Sub MiscHwCPU_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MiscHwCPU.SelectedIndexChanged
|
|
If MiscHwCPU.SelectedIndex = 2 Then
|
|
MiscHwFPU.Enabled = False
|
|
MiscHwFPU.Checked = True
|
|
Else
|
|
MiscHwFPU.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DriveList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveList.SelectedIndexChanged
|
|
If DriveList.FocusedItem.Index <> -1 Then
|
|
ContextSelectedDrive(True)
|
|
Else
|
|
ContextSelectedDrive(False)
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub ContextSelectedDrive(ByVal IsSelected As Boolean)
|
|
If IsSelected = True Then
|
|
DriveListContext.Items.Item(3).Enabled = True
|
|
DriveListContext.Items.Item(4).Enabled = True
|
|
Else
|
|
DriveListContext.Items.Item(3).Enabled = False
|
|
DriveListContext.Items.Item(4).Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub SetAsBootDriveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveContxSetAsBoot.Click
|
|
For x As Integer = 0 To DriveList.Items.Count - 1
|
|
If DriveList.Items.Item(x).SubItems.Item(2).Text = "*" Then
|
|
DriveList.Items.Item(x).SubItems.Item(2).Text = ""
|
|
End If
|
|
Next
|
|
DriveList.FocusedItem.SubItems.Item(2).Text = "*"
|
|
End Sub
|
|
|
|
Private Sub ContextRemoveDrive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveContxRemoveDrive.Click
|
|
Dim Remove As Integer = MsgBox("Are you sure you want to remove ''" & DriveList.FocusedItem.Text & "'' from the drives list?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Remove drive")
|
|
If Remove = 6 Then
|
|
DriveList.FocusedItem.Remove()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub NetEnableUDP_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NetEnableUDP.CheckedChanged
|
|
If NetEnableUDP.Checked = False Then
|
|
NetUPDPort.Enabled = False
|
|
NetUPDPortLabel.Enabled = False
|
|
Else
|
|
NetUPDPort.Enabled = True
|
|
NetUPDPortLabel.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub NetType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NetType.SelectedIndexChanged
|
|
If NetType.SelectedIndex = 1 Then
|
|
NetRouterConfig.Visible = True
|
|
NetRouterEnabled.Enabled = True
|
|
Else
|
|
NetRouterConfig.Visible = False
|
|
NetRouterEnabled.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub InputEnableKeycodes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputKeycodesEnable.CheckedChanged
|
|
If InputKeycodesEnable.Checked = False Then
|
|
InputKeyCodesPathPanel.Enabled = False
|
|
Else
|
|
InputKeyCodesPathPanel.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DriveRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveRemove.Click
|
|
Dim Remove As Integer = MsgBox("Are you sure you want to remove ''" & DriveList.FocusedItem.Text & "'' from the drives list?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Remove drive")
|
|
If Remove = 6 Then
|
|
DriveList.FocusedItem.Remove()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DriveSetBootDrive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DriveSetBootDrive.Click
|
|
For x As Integer = 0 To DriveList.Items.Count - 1
|
|
If DriveList.Items.Item(x).SubItems.Item(2).Text = "*" Then
|
|
DriveList.Items.Item(x).SubItems.Item(2).Text = ""
|
|
End If
|
|
Next
|
|
DriveList.FocusedItem.SubItems.Item(2).Text = "*"
|
|
End Sub
|
|
|
|
Private Sub ExtFSEnable_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExtFSEnable.CheckedChanged
|
|
If ExtFSEnable.Checked = True Then
|
|
ExtFSDrivesLabel.Visible = True
|
|
ExtFSDrives.Visible = True
|
|
Else
|
|
ExtFSDrivesLabel.Visible = False
|
|
ExtFSDrives.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub EMCEditor_ItemActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles EMCEditor.ItemActivate
|
|
EMCEditor.FocusedItem.BeginEdit()
|
|
End Sub
|
|
|
|
Private Sub cmdOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdOK.Click
|
|
CollectAndSave()
|
|
Me.Close()
|
|
End Sub
|
|
End Class
|