mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-05-28 22:41:29 +00:00
623da0afb0
Deleted the files which were before in master (Those can be found in the releases > 0.3.0) Uploaded new files which are of the 0.5.2 version Now you can open a Basilisk II config file (To add it, open the New Mac Wizard, select "Create from file" and set the emulator to Basilisk II) and also you can edit and save it (Note that to edit it you must open the section "Edit Config File Manually" and make your changes there)
585 lines
23 KiB
VB.net
585 lines
23 KiB
VB.net
Public Class frmNewMac
|
|
|
|
Public HostRAM As Long = My.Computer.Info.TotalPhysicalMemory / 1024 / 1024
|
|
Public NameWithoutPath As String
|
|
|
|
Public Sub SetFinalData()
|
|
MachineName.Text = NameWithoutPath
|
|
MachineMemory.Text = RAM.Text & " MB"
|
|
MachineDisk.Text = DiskSize.Value & " MB"
|
|
End Sub
|
|
|
|
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click
|
|
|
|
If My.Computer.FileSystem.FileExists(My.Application.Info.DirectoryPath & "\Tools\qemu-img.exe") = False Then
|
|
ExistingDisk.Checked = True
|
|
NewDisk.Enabled = False
|
|
End If
|
|
|
|
If Welcome.Visible = True And Welcome.Enabled = True Then
|
|
SelectType.Enabled = True
|
|
SelectType.BringToFront()
|
|
MovePage(Welcome, Wizard)
|
|
DontUseWizard.Focus()
|
|
cmdBack.Enabled = True
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If Wizard.Visible = True And Wizard.Enabled = True Then
|
|
If SelectType.Visible = True And SelectType.Enabled = True Then
|
|
If UseWizard.Checked = True Or DontUseWizard.Checked = True Then
|
|
MovePage(SelectType, CreateNew)
|
|
MacName.Focus()
|
|
MacName.SelectAll()
|
|
Else
|
|
MovePage(SelectType, AddExisting)
|
|
cmdNext.Enabled = False
|
|
End If
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If AddExisting.Visible = True And AddExisting.Enabled = True Then
|
|
MovePage(Wizard, EndWizard)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If CreateNew.Visible = True And CreateNew.Enabled = True Then
|
|
If System.IO.Path.GetFileNameWithoutExtension(MacName.Text) = MacName.Text Then
|
|
NameWithoutPath = MacName.Text
|
|
End If
|
|
If My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder & "\" & NameWithoutPath) = True Then
|
|
MsgBox("This Mac already exists in ''My Macs\" & NameWithoutPath & "''. Please use a different name, or save the Mac to another location.", MsgBoxStyle.Exclamation)
|
|
Exit Sub
|
|
Else
|
|
AutoSelectOS()
|
|
MovePage(CreateNew, HwPresets)
|
|
End If
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If HwPresets.Visible = True And HwPresets.Enabled = True Then
|
|
If DontUseWizard.Checked = True Then
|
|
SetFinalData()
|
|
cmdNext.Text = "Finish"
|
|
MovePage(Wizard, EndWizard)
|
|
cmdNext.Focus()
|
|
Else
|
|
MovePage(HwPresets, AssignRAM)
|
|
End If
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If AssignRAM.Visible = True And AssignRAM.Enabled = True Then
|
|
MovePage(AssignRAM, SelectDisk)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If SelectDisk.Visible = True And SelectDisk.Enabled = True Then
|
|
SetFinalData()
|
|
cmdNext.Text = "Finish"
|
|
MovePage(Wizard, EndWizard)
|
|
cmdNext.Focus()
|
|
GoTo EndOfInstruction
|
|
End If
|
|
End If
|
|
|
|
If EndWizard.Visible = True And EndWizard.Enabled = True Then
|
|
CreateMac()
|
|
Me.Close()
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
EndOfInstruction:
|
|
|
|
End Sub
|
|
|
|
Private Sub cmdBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBack.Click
|
|
If Wizard.Visible = True And Wizard.Enabled = True Then
|
|
If SelectType.Visible = True And SelectType.Enabled = True Then
|
|
cmdBack.Enabled = False
|
|
MovePage(Wizard, Welcome)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If AddExisting.Visible = True And AddExisting.Enabled = True Then
|
|
MovePage(AddExisting, SelectType)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If CreateNew.Visible = True And CreateNew.Enabled = True Then
|
|
MovePage(CreateNew, SelectType)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If HwPresets.Visible = True And HwPresets.Enabled = True Then
|
|
MovePage(HwPresets, CreateNew)
|
|
MacName.Focus()
|
|
MacName.SelectAll()
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If AssignRAM.Visible = True And AssignRAM.Enabled = True Then
|
|
MovePage(AssignRAM, HwPresets)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If SelectDisk.Visible = True And SelectDisk.Enabled = True Then
|
|
MovePage(SelectDisk, AssignRAM)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
End If
|
|
|
|
If EndWizard.Visible = True And EndWizard.Enabled = True Then
|
|
cmdNext.Text = "Next >"
|
|
MovePage(EndWizard, Wizard)
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
EndOfInstruction:
|
|
|
|
End Sub
|
|
|
|
Public Sub CreateMac()
|
|
Dim CreateDisk As Boolean
|
|
Dim UD As Boolean 'UD stands for UseDisk, just that the object already exists, so I need an acronym
|
|
Dim Emulator As String = ""
|
|
Dim Configs() As String
|
|
|
|
If NewDisk.Checked = True Then
|
|
CreateDisk = True
|
|
Else
|
|
CreateDisk = False
|
|
End If
|
|
|
|
If NoDisk.Checked = True Then
|
|
UD = False
|
|
End If
|
|
|
|
If AddFromFile.Checked = True Then '//Checking the RadioButton "Add from file" to be checked, so we create from file
|
|
Select Case AEEmulatorType.SelectedItem.ToString
|
|
Case "Mini vMac Batch"
|
|
Emulator = "vMacBatch"
|
|
Case "Virtual Mac MvM File"
|
|
Emulator = "vMac"
|
|
Case "Basilisk"
|
|
Emulator = "BII"
|
|
Case "SheepShaver"
|
|
Emulator = "SheepShaver"
|
|
Case "PearPC"
|
|
Emulator = "PearPC"
|
|
Case "QEMU Windows Batch"
|
|
Emulator = "QEMUBatch"
|
|
End Select
|
|
ConfigFileHandler.CreateFromFile(AEFile.Text, Emulator, AEName.Text)
|
|
ElseIf UseWizard.Checked = True Or DontUseWizard.Checked = True Then
|
|
Select Case OSList.SelectedIndex
|
|
Case 0
|
|
Emulator = "vMac"
|
|
Case 1, 2
|
|
Emulator = "BII"
|
|
Case 3, 4
|
|
Emulator = "SheepShaver"
|
|
Case 5, 6, 7, 8, 9
|
|
Emulator = "QEMU"
|
|
End Select
|
|
ConfigFileHandler.Create(Emulator, MacName.Text, Configs)
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub DisableAllPages()
|
|
EndWizard.Enabled = False
|
|
SelectDisk.Enabled = False
|
|
AssignRAM.Enabled = False
|
|
HwPresets.Enabled = False
|
|
AddExisting.Enabled = False
|
|
CreateNew.Enabled = False
|
|
SelectType.Enabled = False
|
|
Wizard.Enabled = False
|
|
Welcome.Enabled = False
|
|
End Sub
|
|
|
|
Public Sub MovePage(ByVal CurrentTab As System.Windows.Forms.Panel, ByVal NewTab As System.Windows.Forms.Panel)
|
|
NewTab.Enabled = True
|
|
NewTab.BringToFront()
|
|
CurrentTab.Enabled = False
|
|
End Sub
|
|
|
|
Public Sub DataProgrammer(ByVal OSType As String)
|
|
|
|
Select Case OSType
|
|
Case "Mac6"
|
|
If HostRAM < 8 Then
|
|
MsgBox("You have lower memory than the required to run System Software 6. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "Insufficient Memory")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 8
|
|
DiskSize.Value = 100
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", "8")
|
|
DefMem.Text = 8 & " MB"
|
|
DefDisk.Text = 128 & " MB"
|
|
DefCPU.Text = "Motorola 68000"
|
|
Case "Mac7"
|
|
If HostRAM < 40 Then
|
|
MsgBox("You have lower memory than the required to run System Software 7. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 16
|
|
DiskSize.Value = 250
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 16)
|
|
DefMem.Text = 16 & " MB"
|
|
DefDisk.Text = 250 & " MB"
|
|
DefCPU.Text = "Motorola 68040"
|
|
Case "Mac7Pro"
|
|
If HostRAM < 64 Then
|
|
MsgBox("You have lower memory than the required to run MacOS 7. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 24
|
|
DiskSize.Value = 250
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 24)
|
|
DefMem.Text = 24 & " MB"
|
|
DefDisk.Text = 250 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Mac8"
|
|
If HostRAM < 128 Then
|
|
MsgBox("You have lower memory than the required to run MacOS 8. Install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 64
|
|
DiskSize.Value = 500
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 64)
|
|
DefMem.Text = 64 & " MB"
|
|
DefDisk.Text = 500 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Mac9"
|
|
If HostRAM < 256 Then
|
|
MsgBox("You have lower memory than the required to run MacOS 9. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 256
|
|
DiskSize.Value = 1024
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 256)
|
|
DefMem.Text = 256 & " MB"
|
|
DefDisk.Text = 1024 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Mac10"
|
|
If HostRAM < 384 Then
|
|
MsgBox("You have lower memory than the required to run Mac OS X. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 384
|
|
DiskSize.Value = 3072
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 384)
|
|
DefMem.Text = 384 & " MB"
|
|
DefDisk.Text = 3072 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Debian"
|
|
If HostRAM < 400 Then
|
|
MsgBox("You have lower memory than the required to run Debian. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 400
|
|
DiskSize.Value = 4096
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 400)
|
|
DefMem.Text = 400 & " MB"
|
|
DefDisk.Text = 4096 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Ubuntu"
|
|
If HostRAM < 400 Then
|
|
MsgBox("You have lower memory than the required to run Ubuntu. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 400
|
|
DiskSize.Value = 6144
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 400)
|
|
DefMem.Text = 400 & " MB"
|
|
DefDisk.Text = 6144 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Linux"
|
|
If HostRAM < 400 Then
|
|
MsgBox("You have lower memory than the required to run Linux. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 400
|
|
DiskSize.Value = 4096
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 400)
|
|
DefMem.Text = 400 & " MB"
|
|
DefDisk.Text = 4096 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
Case "Other"
|
|
If HostRAM < 256 Then
|
|
MsgBox("You have lower memory than the required to run Other. Set a lower value for memory, and install an earlier version of MacOS/System Software", MsgBoxStyle.Exclamation, "System Memory Low")
|
|
RAM.Text = RAMSlider.Maximum
|
|
End If
|
|
RAM.Text = 256
|
|
DiskSize.Value = 4096
|
|
RecommendedRAM.Text = Replace(RecommendedRAM.Text, "%m", 256)
|
|
DefMem.Text = 256 & " MB"
|
|
DefDisk.Text = 4096 & " MB"
|
|
DefCPU.Text = "PowerPC G3"
|
|
End Select
|
|
|
|
'Place in cmdNext.Click code area
|
|
MacName.Text = My.Settings.DefaultMacFolder & "\" & NameWithoutPath & "\" & NameWithoutPath & ".mcf"
|
|
DiskPath.Text = My.Settings.DefaultMacFolder & "\" & NameWithoutPath & "\" & NameWithoutPath & ".dsk"
|
|
End Sub
|
|
|
|
Public Function AutoSelectOS() As String
|
|
Dim OS As String = "Other"
|
|
Dim OsFound As Long
|
|
|
|
OsFound = InStr(MacName.Text, "System Software")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac6"
|
|
OSList.SelectedIndex = 0
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 6")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac6"
|
|
OSList.SelectedIndex = 0
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 7")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac7"
|
|
OSList.SelectedIndex = 1
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 7.")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac75"
|
|
OSList.SelectedIndex = 2
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 8")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac8"
|
|
OSList.SelectedIndex = 3
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 9")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac9"
|
|
OSList.SelectedIndex = 4
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " Classic")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac9"
|
|
OSList.SelectedIndex = 4
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " 10")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac10"
|
|
OSList.SelectedIndex = 5
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, " X")
|
|
If OsFound <> 0 Then
|
|
OS = "Mac10"
|
|
OSList.SelectedIndex = 5
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, "Debian")
|
|
If OsFound <> 0 Then
|
|
OS = "Debian"
|
|
OSList.SelectedIndex = 6
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, "Ubuntu")
|
|
If OsFound <> 0 Then
|
|
OS = "Ubuntu"
|
|
OSList.SelectedIndex = 7
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OsFound = InStr(MacName.Text, "Linux")
|
|
If OsFound <> 0 Then
|
|
OS = "Linux"
|
|
OSList.SelectedIndex = 8
|
|
GoTo OSDetected
|
|
End If
|
|
|
|
OSList.SelectedIndex = 9
|
|
|
|
OSDetected:
|
|
|
|
Return OS
|
|
End Function
|
|
|
|
Private Sub SaveMac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveMac.Click
|
|
Save.Filter = "Virtual Mac Configuration File (*.mcf)|*.mcf|All files (*.*)|*.*"
|
|
Save.ShowDialog()
|
|
If Save.FileName <> "" Then
|
|
MacName.Text = Save.FileName
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub frmNewMac_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
RAMSlider.TickFrequency = HostRAM / 20
|
|
RAMSlider.Maximum = HostRAM
|
|
WarningInvalidSize.Text = Replace(Replace(WarningInvalidSize.Text, "%x", RAMSlider.Maximum), "%n", RAMSlider.Minimum)
|
|
DisableAllPages()
|
|
MovePage(Wizard, Welcome)
|
|
AEEmulatorType.SelectedIndex = 0
|
|
OSList.SelectedIndex = 0
|
|
End Sub
|
|
|
|
Private Sub RAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RAM.TextChanged
|
|
If RAM.Text = "" Then
|
|
RAMSlider.Value = RAMSlider.Minimum
|
|
cmdNext.Enabled = False
|
|
WarningInvalidSize.Visible = True
|
|
Else
|
|
If RAM.Text > RAMSlider.Maximum Then
|
|
RAMSlider.Value = RAMSlider.Maximum
|
|
cmdNext.Enabled = False
|
|
WarningInvalidSize.Visible = True
|
|
Else
|
|
If RAM.Text < RAMSlider.Minimum Then
|
|
RAMSlider.Value = RAMSlider.Minimum
|
|
cmdNext.Enabled = False
|
|
WarningInvalidSize.Visible = True
|
|
Else
|
|
RAMSlider.Value = RAM.Text
|
|
WarningInvalidSize.Visible = False
|
|
cmdNext.Enabled = True
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub RAMSlider_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles RAMSlider.Scroll
|
|
RAM.Text = RAMSlider.Value
|
|
End Sub
|
|
|
|
Private Sub RAM_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DefaultRAM.CheckedChanged, CustomRAM.CheckedChanged
|
|
If CustomRAM.Checked = True Then
|
|
CustomRAMContainer.Enabled = True
|
|
CustomRAMContainer.Visible = True
|
|
Else
|
|
CustomRAMContainer.Enabled = False
|
|
CustomRAMContainer.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub OSList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OSList.SelectedIndexChanged
|
|
Select Case OSList.SelectedIndex
|
|
Case 0
|
|
DataProgrammer("Mac6")
|
|
Case 1
|
|
DataProgrammer("Mac7")
|
|
Case 2
|
|
DataProgrammer("Mac7Pro")
|
|
Case 3
|
|
DataProgrammer("Mac8")
|
|
Case 4
|
|
DataProgrammer("Mac9")
|
|
Case 5
|
|
DataProgrammer("Mac10")
|
|
Case 6
|
|
DataProgrammer("Debian")
|
|
Case 7
|
|
DataProgrammer("Ubuntu")
|
|
Case 8
|
|
DataProgrammer("Linux")
|
|
Case 9
|
|
DataProgrammer("Other")
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub BrowseDiskLocation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BrowseDiskLocation.Click
|
|
If NewDisk.Checked = True Then
|
|
Save.Filter = "Disk files (*.dsk)|*.dsk|Disk Image Files (*.img)|*.img|All files (*.*)|*.*"
|
|
Save.ShowDialog()
|
|
If Save.FileName <> "" Then
|
|
DiskPath.Text = Save.FileName
|
|
End If
|
|
Else
|
|
Open.Filter = "Disk files (*.dsk)|*.dsk|Disk Image Files (*.img)|*.img|All files (*.*)|*.*"
|
|
Open.ShowDialog()
|
|
If Open.FileName <> "" Then
|
|
DiskPath.Text = Open.FileName
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub MacName_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MacName.Click
|
|
MacName.SelectAll()
|
|
End Sub
|
|
|
|
Private Sub MacName_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles MacName.GotFocus
|
|
MacName.SelectAll()
|
|
End Sub
|
|
|
|
Private Sub Disk_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewDisk.CheckedChanged, ExistingDisk.CheckedChanged
|
|
If NewDisk.Checked = True Then
|
|
DiskTools.Visible = True
|
|
Else
|
|
DiskTools.Visible = False
|
|
End If
|
|
If NoDisk.Checked = True Then
|
|
DiskPath.Enabled = False
|
|
BrowseDiskLocation.Enabled = False
|
|
Else
|
|
DiskPath.Enabled = True
|
|
BrowseDiskLocation.Enabled = True
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AEBrowseFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AEBrowseFile.Click
|
|
Open.Filter = "Batch files|*.bat|Basilisk/SheepShaver preferences file|*_prefs|PearPC Config Files|*.cfg|Virtual Mac Mini vMac Configuration File|*.mcf|All files|*.*"
|
|
Select Case AEEmulatorType.SelectedIndex
|
|
Case 0
|
|
Open.FilterIndex = 0
|
|
Case 1
|
|
Open.FilterIndex = 3
|
|
Case 2
|
|
Open.FilterIndex = 1
|
|
Case 3
|
|
Open.FilterIndex = 1
|
|
Case 4
|
|
Open.FilterIndex = 2
|
|
Case 5
|
|
Open.FilterIndex = 0
|
|
Case Else
|
|
Open.FilterIndex = 4
|
|
End Select
|
|
Open.ShowDialog()
|
|
If Open.FileName <> "" Then
|
|
AEFile.Text = Open.FileName
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AEName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AEName.TextChanged
|
|
If AEName.Text <> "" And AEFile.Text <> "" Then
|
|
cmdNext.Enabled = True
|
|
Else
|
|
cmdNext.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub AEFile_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AEFile.TextChanged
|
|
If AEName.Text <> "" And AEFile.Text <> "" Then
|
|
cmdNext.Enabled = True
|
|
Else
|
|
cmdNext.Enabled = False
|
|
End If
|
|
End Sub
|
|
End Class |