Cleared commit log

This commit is contained in:
SistemaRayoXP 2021-12-21 14:27:18 -06:00
parent 5c2510df3b
commit 0737548099
117 changed files with 36499 additions and 3755 deletions

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

105
ApplicationEvents.vb Normal file
View File

@ -0,0 +1,105 @@
Imports System.Management
Namespace My
' Los siguientes eventos están disponibles para MyApplication:
'
' Inicio: se desencadena cuando se inicia la aplicación, antes de que se cree el formulario de inicio.
' Apagado: generado después de cerrar todos los formularios de la aplicación. Este evento no se genera si la aplicación termina de forma anómala.
' UnhandledException: generado si la aplicación detecta una excepción no controlada.
' StartupNextInstance: se desencadena cuando se inicia una aplicación de instancia única y la aplicación ya está activa.
' NetworkAvailabilityChanged: se desencadena cuando la conexión de red está conectada o desconectada.
Partial Friend Class MyApplication
Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
SysInfo.GetSysInfo()
frmAbout.ProductNAV.Text = frmAbout.ProductNAV.Text & " " & My.Application.Info.Version.ToString & " Beta"
If My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder) = False Then
My.Settings.DefaultMacFolder = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "\My Macs"
End If
If My.Settings.vMacROM = "" Then
My.Settings.vMacROM = My.Application.Info.DirectoryPath & "\Emulators\vMac\MacII.ROM"
End If
If My.Settings.BasiliskROM = "" Then
My.Settings.BasiliskROM = My.Application.Info.DirectoryPath & "\Emulators\BasiliskII\Mac_OS_ROM"
End If
If My.Settings.SheepShaverROM = "" Then
My.Settings.SheepShaverROM = My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\Mac_OS_ROM"
End If
Select Case My.Settings.Lang
Case "en-US"
My.Application.ChangeUICulture("en-US")
Case "es-MX"
My.Application.ChangeUICulture("es-MX")
Case "de-DE"
My.Application.ChangeUICulture("de-DE")
End Select
If Not My.Application.CommandLineArgs.Count = 0 Then
For x As Integer = 0 To My.Application.CommandLineArgs.Count - 1
Select Case My.Application.CommandLineArgs.Item(x)
Case "/debug"
frmMain.mnuFileDebug.Visible = True
frmMain.mnuHelpCrash.Visible = True
Case "/log"
End Select
Next
End If
SearchForMacs()
If My.Settings.VerifyEmulatorPaths = True Then
If My.Settings.PearPCPath = "" Or My.Settings.QEMUPath = "" Or My.Settings.SheepShaverPath = "" _
Or My.Settings.BasiliskPath = "" Or My.Settings.vMacPath = "" Then
MsgBox("Some emulator(s)' path isn't set yet. In order to launch this/these emulator(s), " & _
"you must set their path. To do so, click on menu File > Options and select ''Emulator " & _
"path'' and set the paths for the emulators", MsgBoxStyle.Exclamation, "Incorrect paths")
End If
End If
End Sub
Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
If MsgBox("Virtual Mac is already running. Click Ok to show Virtual Mac Console. Click Cancel to close this dialog", MsgBoxStyle.OkCancel, "Virtual Mac is alerady running") = MsgBoxResult.Ok Then
frmMain.Show()
End If
End Sub
Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
For x As Integer = 0 To My.Application.CommandLineArgs.Count - 1
Select Case My.Application.CommandLineArgs.Item(x)
Case "/debug"
MsgBox(e.Exception.Message)
Resume Next
Case "/log"
Resume Next
Case ""
Resume Next
End Select
Next
End Sub
Private Sub SearchForMacs()
If My.Computer.FileSystem.DirectoryExists(My.Settings.DefaultMacFolder) = True Then
Dim Subdirectories As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetDirectories(My.Settings.DefaultMacFolder)
Dim FilesFound As String = ""
For x As Integer = 0 To Subdirectories.Count - 1
For Each FileDetected As String In My.Computer.FileSystem.GetFiles( _
Subdirectories.Item(x), _
FileIO.SearchOption.SearchAllSubDirectories, _
"*.mcf")
If Not frmMain.VMList.Items.IndexOfKey(System.IO.Path.GetFileNameWithoutExtension(FileDetected)) = -1 Then
Dim EmulatorType As String = InputBox("The file ''" & My.Computer.FileSystem.GetName(FileDetected) & _
"'' was detected as a possible Virtual Mac configuration file. " & _
"Possible emulators are 'Basilisk', 'SheepShaver', 'PearPC', 'QEMU'." & _
"Please write below the emulator to which this file will be associated:", _
"Virtual Mac Configuration file detected")
ConfigFileHandler.CreateFromFile(FileDetected, EmulatorType, System.IO.Path.GetFileNameWithoutExtension(FileDetected))
End If
Next
Next
End If
End Sub
End Class
End Namespace

39
AssemblyInfo.vb Normal file
View File

@ -0,0 +1,39 @@
Imports System.Resources
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' TODO: Review the values of the assembly attributes
<Assembly: AssemblyTitle("Virtual Mac © Beta")>
<Assembly: AssemblyDescription("Run Classic Mac Operating Systems")>
<Assembly: AssemblyCompany("Tecnologias Edson Armando")>
<Assembly: AssemblyProduct("Virtual Mac")>
<Assembly: AssemblyCopyright("Copyright © Tecnologias Edson Armando")>
<Assembly: AssemblyTrademark("Virtual Mac © 2018 Todos los derechos reservados")>
<Assembly: AssemblyCulture("")>
' Version information for an assembly consists of the following four values:
' Major version
' Minor Version
' Build Number
' Revision
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
<Assembly: AssemblyVersion("0.6.1")>
<Assembly: AssemblyFileVersionAttribute("0.6.1.1")>
<Assembly: ComVisibleAttribute(True)>
<Assembly: NeutralResourcesLanguageAttribute("en-US")>

76
CODE_OF_CONDUCT.md Normal file
View File

@ -0,0 +1,76 @@
# Contributor Covenant Code of Conduct
## Our Pledge
In the interest of fostering an open and welcoming environment, we as
contributors and maintainers pledge to making participation in our project and
our community a harassment-free experience for everyone, regardless of age, body
size, disability, ethnicity, sex characteristics, gender identity and expression,
level of experience, education, socio-economic status, nationality, personal
appearance, race, religion, or sexual identity and orientation.
## Our Standards
Examples of behavior that contributes to creating a positive environment
include:
* Using welcoming and inclusive language
* Being respectful of differing viewpoints and experiences
* Gracefully accepting constructive criticism
* Focusing on what is best for the community
* Showing empathy towards other community members
Examples of unacceptable behavior by participants include:
* The use of sexualized language or imagery and unwelcome sexual attention or
advances
* Trolling, insulting/derogatory comments, and personal or political attacks
* Public or private harassment
* Publishing others' private information, such as a physical or electronic
address, without explicit permission
* Other conduct which could reasonably be considered inappropriate in a
professional setting
## Our Responsibilities
Project maintainers are responsible for clarifying the standards of acceptable
behavior and are expected to take appropriate and fair corrective action in
response to any instances of unacceptable behavior.
Project maintainers have the right and responsibility to remove, edit, or
reject comments, commits, code, wiki edits, issues, and other contributions
that are not aligned to this Code of Conduct, or to ban temporarily or
permanently any contributor for other behaviors that they deem inappropriate,
threatening, offensive, or harmful.
## Scope
This Code of Conduct applies both within project spaces and in public spaces
when an individual is representing the project or its community. Examples of
representing a project or community include using an official project e-mail
address, posting via an official social media account, or acting as an appointed
representative at an online or offline event. Representation of a project may be
further defined and clarified by project maintainers.
## Enforcement
Instances of abusive, harassing, or otherwise unacceptable behavior may be
reported by contacting the project team at tecnologiasedsonarmando@hotmail.com. All
complaints will be reviewed and investigated and will result in a response that
is deemed necessary and appropriate to the circumstances. The project team is
obligated to maintain confidentiality with regard to the reporter of an incident.
Further details of specific enforcement policies may be posted separately.
Project maintainers who do not follow or enforce the Code of Conduct in good
faith may face temporary or permanent repercussions as determined by other
members of the project's leadership.
## Attribution
This Code of Conduct is adapted from the [Contributor Covenant][homepage], version 1.4,
available at https://www.contributor-covenant.org/version/1/4/code-of-conduct.html
[homepage]: https://www.contributor-covenant.org
For answers to common questions about this code of conduct, see
https://www.contributor-covenant.org/faq

266
ConfigFileHandler.vb Normal file
View File

@ -0,0 +1,266 @@
Module ConfigFileHandler
Public Sub Create(ByVal MacName As String, ByVal Path As String, ByVal Emulator As String, ByVal RAMInMB As Integer, _
ByVal UseDisk As String, Optional ByVal DiskSize As Integer = 0, Optional ByVal DiskPath As String = "")
Dim ConfigFile As String = ""
If UseDisk = "New" Then
DiskImageCreator.CreateRawDisk(DiskSize, DiskPath, False)
End If
EmulatorSection:
Select Case Emulator
Case "vMac"
If UseDisk = "New" Or UseDisk = "Exist" Then
ConfigFile = FormatLine("disk", DiskPath)
End If
ConfigFile = ConfigFile & My.Settings.vMacROM & vbCrLf
Case "SheepShaver"
If UseDisk = "New" Or UseDisk = "Exist" Then
ConfigFile = FormatLine("disk", DiskPath)
End If
ConfigFile = ConfigFile & FormatLine("extfs", "")
ConfigFile = ConfigFile & FormatLine("screen", "win/800/600")
ConfigFile = ConfigFile & FormatLine("windowmodes", "2")
ConfigFile = ConfigFile & FormatLine("screenmodes", "62")
ConfigFile = ConfigFile & FormatLine("seriala", "COM1")
ConfigFile = ConfigFile & FormatLine("serialb", "COM2")
ConfigFile = ConfigFile & FormatLine("rom", My.Settings.SheepShaverROM)
ConfigFile = ConfigFile & FormatLine("bootdrive", "0")
ConfigFile = ConfigFile & FormatLine("bootdriver", "0")
ConfigFile = ConfigFile & FormatLine("ramsize", (RAMInMB * 1024) * 1024)
ConfigFile = ConfigFile & FormatLine("frameskip", "0")
ConfigFile = ConfigFile & FormatLine("gfxaccel", "true")
ConfigFile = ConfigFile & FormatLine("nocdrom", "false")
ConfigFile = ConfigFile & FormatLine("nonet", "false")
ConfigFile = ConfigFile & FormatLine("nosound", "false")
ConfigFile = ConfigFile & FormatLine("nogui", "false")
ConfigFile = ConfigFile & FormatLine("noclipconversion", "false")
ConfigFile = ConfigFile & FormatLine("ignoresegv", "true")
ConfigFile = ConfigFile & FormatLine("ignoreillegal", "true")
ConfigFile = ConfigFile & FormatLine("jit", "true")
ConfigFile = ConfigFile & FormatLine("jit68k", "false")
ConfigFile = ConfigFile & FormatLine("keyboardtype", "5")
ConfigFile = ConfigFile & FormatLine("ether", "slirp")
ConfigFile = ConfigFile & FormatLine("keycodes", "false")
ConfigFile = ConfigFile & FormatLine("keycodefile", "BasiliskII_keycodes")
ConfigFile = ConfigFile & FormatLine("mousewheelmode", "1")
ConfigFile = ConfigFile & FormatLine("mousewheellines", "3")
ConfigFile = ConfigFile & FormatLine("idlewait", "true")
ConfigFile = ConfigFile & FormatLine("mousewheelmode", "1")
ConfigFile = ConfigFile & FormatLine("mousewheellines", "3")
ConfigFile = ConfigFile & FormatLine("enableextfs", "false")
ConfigFile = ConfigFile & FormatLine("debugextfs", "false")
ConfigFile = ConfigFile & FormatLine("extdrives", "CDEFGHIJKLMNOPQRSTUVWXYZ")
ConfigFile = ConfigFile & FormatLine("pollmedia", "true")
ConfigFile = ConfigFile & FormatLine("etherpermanentaddress", "true")
ConfigFile = ConfigFile & FormatLine("routerenabled", "false")
ConfigFile = ConfigFile & FormatLine("portfile0", My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\Com1.txt")
ConfigFile = ConfigFile & FormatLine("portfile1", My.Application.Info.DirectoryPath & "\Emulators\SheepShaver\Com2.txt")
Case "BII"
If UseDisk = "New" Or UseDisk = "Exist" Then
ConfigFile = FormatLine("disk", DiskPath)
End If
ConfigFile = ConfigFile & FormatLine("extfs", "")
ConfigFile = ConfigFile & FormatLine("screen", "win/800/600")
ConfigFile = ConfigFile & FormatLine("seriala", "COM1")
ConfigFile = ConfigFile & FormatLine("serialb", "COM2")
ConfigFile = ConfigFile & FormatLine("ether", "slirp")
ConfigFile = ConfigFile & FormatLine("udptunnel", "false")
ConfigFile = ConfigFile & FormatLine("udpport", "6066")
ConfigFile = ConfigFile & FormatLine("rom", My.Settings.BasiliskROM)
ConfigFile = ConfigFile & FormatLine("bootdrive", 0)
ConfigFile = ConfigFile & FormatLine("bootdriver", 0)
ConfigFile = ConfigFile & FormatLine("ramsize", (RAMInMB * 1024) * 1024)
ConfigFile = ConfigFile & FormatLine("frameskip", 0)
ConfigFile = ConfigFile & FormatLine("modelid", 5)
ConfigFile = ConfigFile & FormatLine("cpu", 4)
ConfigFile = ConfigFile & FormatLine("fpu", "true")
ConfigFile = ConfigFile & FormatLine("nocdrom", "false")
ConfigFile = ConfigFile & FormatLine("nosound", "false")
ConfigFile = ConfigFile & FormatLine("noclipconversion", "false")
ConfigFile = ConfigFile & FormatLine("nogui", "false")
ConfigFile = ConfigFile & FormatLine("jit", "true")
ConfigFile = ConfigFile & FormatLine("jitfpu", "true")
ConfigFile = ConfigFile & FormatLine("jitdebug", "true")
ConfigFile = ConfigFile & FormatLine("jitcachesize", 4096)
ConfigFile = ConfigFile & FormatLine("jitlazyflush", "true")
ConfigFile = ConfigFile & FormatLine("jitinline", "true")
ConfigFile = ConfigFile & FormatLine("keyboardtype", "5")
ConfigFile = ConfigFile & FormatLine("keycodes", "false")
ConfigFile = ConfigFile & FormatLine("keycodefile", "BasiliskII_keycodes")
ConfigFile = ConfigFile & FormatLine("mousewheelmode", "1")
ConfigFile = ConfigFile & FormatLine("mousewheellines", "3")
ConfigFile = ConfigFile & FormatLine("ignoresegv", "true")
ConfigFile = ConfigFile & FormatLine("idlewait", "true")
ConfigFile = ConfigFile & FormatLine("enableextfs", "false")
ConfigFile = ConfigFile & FormatLine("debugextfs", "false")
ConfigFile = ConfigFile & FormatLine("extdrives", "CDEFGHIJKLMNOPQRSTUVWXYZ")
ConfigFile = ConfigFile & FormatLine("pollmedia", "true")
ConfigFile = ConfigFile & FormatLine("etherpermanentaddress", "true")
ConfigFile = ConfigFile & FormatLine("routerenabled", "false")
ConfigFile = ConfigFile & FormatLine("portfile0", My.Application.Info.DirectoryPath & "COM1.log")
ConfigFile = ConfigFile & FormatLine("portfile1", My.Application.Info.DirectoryPath & "COM2.log")
Case "PearPC"
ConfigFile = FormatLine("ppc_start_resolution =", "800x600x15", True)
ConfigFile = ConfigFile & FormatLine("ppc_start_full_screen =", 0)
ConfigFile = ConfigFile & FormatLine("redraw_interval_msec =", 40)
ConfigFile = ConfigFile & FormatLine("key_compose_dialog =", "F11", True)
ConfigFile = ConfigFile & FormatLine("key_change_cd_0 =", "none", True)
ConfigFile = ConfigFile & FormatLine("key_toggle_mouse_grab =", "F12", True)
ConfigFile = ConfigFile & FormatLine("key_toggle_full_screen =", "Alt+Return", True)
ConfigFile = ConfigFile & FormatLine("prom_bootmethod =", "select", True)
ConfigFile = ConfigFile & FormatLine("prom_env_machargs =", "", True)
ConfigFile = ConfigFile & FormatLine("prom_driver_graphic =", "video.x", True)
ConfigFile = ConfigFile & FormatLine("page_table_pa =", "104857600")
ConfigFile = ConfigFile & FormatLine("cpu_pvr =", "0x00088302")
ConfigFile = ConfigFile & FormatLine("memory_size =", "0x" & RAMInMB / 0.0000256)
If UseDisk = "New" Or UseDisk = "Exist" Then
ConfigFile = ConfigFile & FormatLine("pci_ide0_master_installed =", "1")
ConfigFile = ConfigFile & FormatLine("pci_ide0_master_image =", DiskPath, True)
ConfigFile = ConfigFile & FormatLine("pci_ide0_master_type =", "hd", True)
Else
ConfigFile = ConfigFile & FormatLine("pci_ide0_master_installed =", "0")
End If
ConfigFile = ConfigFile & FormatLine("pci_ide0_slave_installed =", "0")
ConfigFile = ConfigFile & FormatLine("pci_3c90x_installed =", "0")
ConfigFile = ConfigFile & FormatLine("pci_3c90x_mac =", "de:ad:ca:fe:12:34", True)
ConfigFile = ConfigFile & FormatLine("pci_rtl8139_installed =", "0", True)
ConfigFile = ConfigFile & FormatLine("pci_rtl8139_mac =", "de:ad:ca:fe:12:34", True)
ConfigFile = ConfigFile & FormatLine("pci_usb_installed =", "1")
ConfigFile = ConfigFile & FormatLine("pci_serial_installed =", "0")
ConfigFile = ConfigFile & FormatLine("nvram_file =", "nvram", True)
Case "QEMU"
'//Will be used for reference to load and save batches for QEMU
'ConfigFile = "qemu-system-ppc.exe -L pc-bios -boot d -m " & RAMInMB & " -M mac99 -prom-env " & Chr(34) & _
' "auto-boot?=true" & Chr(34) & " -prom-env " & Chr(34) & "boot-args=-v" & Chr(34) & " -prom-env " & Chr(34) & _
' "vga-ndrv?=true" & Chr(34) & " -drive file=MacOS9.2.iso,format=raw,media=cdrom " & _
' "-drive file=" & Chr(34) & DiskPath & Chr(34) & _
' ",format=raw,media=disk -sdl -netdev user,id=network01 -device sungem,netdev=network01 "
ConfigFile = "qemu-system-ppc.exe -L pc-bios -boot d -m " & RAMInMB & " -M mac99 -prom-env " & Chr(34) & _
"auto-boot?=true" & Chr(34) & " -prom-env " & Chr(34) & "boot-args=-v" & Chr(34) & " -prom-env " & Chr(34) & _
"vga-ndrv?=true" & Chr(34) & "-drive file=" & Chr(34) & DiskPath & Chr(34) & _
",format=raw,media=disk -sdl -netdev user,id=network01 -device sungem,netdev=network01 "
End Select
CreateFiles:
If My.Computer.FileSystem.DirectoryExists(System.IO.Path.GetDirectoryName(MacName)) = False Then 'Verify that the path doesn't exists
My.Computer.FileSystem.CreateDirectory(System.IO.Path.GetDirectoryName(Path))
Write(ConfigFile, Path)
Else 'If the path does already exist...
MsgBox("This folder already exists. Creating a duplicate.", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
My.Computer.FileSystem.CreateDirectory(System.IO.Path.GetDirectoryName(Path & "(1)"))
Write(ConfigFile, Path)
End If
With frmMain.VMList.Items.Add(MacName) 'Add the fresh new Mac to the console
.SubItems.Add(Path) 'Several SubItems are used to load. This one sets the path tp the config file
.SubItems.Add(Emulator) 'This one sets the emulator to load properly a file
.StateImageIndex = 0 'Will be reimplemented. Used for icons
End With
frmMain.SaveSettings()
End Sub
Public Function FormatLine(ByVal Line1 As String, ByVal Line2 As String, Optional InQuotes As Boolean = False) As String
Dim Formatted As String = ""
If InQuotes = False Then
Formatted = Line1 & " " & Line2 & vbCrLf
Else
Formatted = Line1 & " " & Chr(34) & Line2 & Chr(34) & vbCrLf
End If
Return Formatted
End Function
Public Sub Edit(ByVal ConfigFile As String, ByVal Emulator As String, ByVal Parameters As String)
End Sub
Public Sub Convert(ByVal FileToConvert As String, ByVal OldEmulator As String, ByVal NewEmulator As String)
End Sub
Public Sub Write(ByVal Text As String, ByVal Route As String)
Dim Writer As IO.StreamWriter = IO.File.CreateText(Route)
Writer.Write(Text)
Writer.Flush()
Writer.Close()
End Sub
Public Sub CreateFromFile(ByVal File As String, ByVal Emulator As String, ByVal VMName As String)
Dim VMPath As String = My.Settings.DefaultMacFolder + "\" + VMName
Dim VMFile As String = VMPath + "\" + VMName + ".mcf"
Select Case Emulator
Case "vMacBatch"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.CreateDirectory(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("vMac")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
Case "vMac"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.CreateDirectory(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("vMac")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
Case "BII"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.CreateDirectory(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("BII")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
Case "SheepShaver"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.CreateDirectory(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("SheepShaver")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
Case "PearPC"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.CreateDirectory(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("PearPC")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
Case "QEMUBatch"
If My.Computer.FileSystem.DirectoryExists(VMPath) = False Then
My.Computer.FileSystem.CreateDirectory(VMPath)
My.Computer.FileSystem.CopyFile(File, VMPath + "\" + VMName + ".mcf")
End If
With frmMain.VMList.Items.Add(VMName)
.SubItems.Add(VMFile)
.SubItems.Add("QEMU")
.StateImageIndex = 0
End With
frmMain.SaveSettings()
End Select
End Sub
End Module

33
DiskImageCreator.vb Normal file
View File

@ -0,0 +1,33 @@
Module DiskImageCreator
Public Function CreateRawDisk(ByVal DiskSize As Integer, ByVal DiskPath As String, Optional ShowMessages As Boolean = True) As Long
Dim Size((DiskSize * 1024) * 1024) As Byte
'//Create the file, so we don't depend on the creation of the file to report progress
'//And after file creation, fill the file with zeroes until we get the desired size
'//As the byte gets assigned a value, it's written, and also it's reported as a progress of the creation
For x As Integer = 0 To Size.Length - 1
Size(x) = 0
Next
My.Computer.FileSystem.WriteAllBytes(DiskPath, Size, False)
If ShowMessages = False Then Exit Function
MsgBox("The image ''" & DiskPath & "'' was created succefully.", MsgBoxStyle.Exclamation, "Creating disk image")
End Function
'//This thing below is useless right now. In a later update, this will create Mac formatted floppy disks of 720 KB and 1.44 MB
Public Function CreateFloppyDisk(ByVal DiskSize As Integer, ByVal DiskPath As String, Optional ShowMessages As Boolean = True) As Long
Dim FloppyImageToUse() As Byte = {0}
Select Case DiskSize
Case "720"
Case "1440"
End Select
'//Create the file from an existing image, which is formatted and ready to use with a Mac
My.Computer.FileSystem.WriteAllBytes(DiskPath, FloppyImageToUse, False)
If ShowMessages = False Then Exit Function
MsgBox("The image ''" & DiskPath & "'' was created succefully.", MsgBoxStyle.Exclamation, "Creating disk image")
End Function
End Module

View File

@ -1,5 +0,0 @@
[SCC]
SCC=This is a source code control file
[VirtualMac.vbp]
SCC_Project_Name=this project is not under source code control
SCC_Aux_Path=<This is an empty string for the mssccprj.scc file>

43
My Project/Application.Designer.vb generated Normal file
View File

@ -0,0 +1,43 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Este código fue generado por una herramienta.
' Versión de runtime:4.0.30319.42000
'
' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
' se vuelve a generar el código.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTA: este archivo se genera de forma automática; no lo modifique directamente. Para realizar cambios,
' o si detecta errores de compilación en este archivo, vaya al Diseñador de proyectos
' (vaya a Propiedades del proyecto o haga doble clic en el nodo My Project en el
' Explorador de soluciones) y realice cambios en la ficha Aplicación.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = true
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.VirtualMac.frmMain
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateSplashScreen()
Me.SplashScreen = Global.VirtualMac.frmSplash
End Sub
End Class
End Namespace

View File

@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm>
<SingleInstance>true</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<SplashScreen>frmSplash</SplashScreen>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

172
My Project/Resources.Designer.vb generated Normal file
View File

@ -0,0 +1,172 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Este código fue generado por una herramienta.
' Versión de runtime:4.0.30319.42000
'
' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
' se vuelve a generar el código.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'StronglyTypedResourceBuilder generó automáticamente esta clase
'a través de una herramienta como ResGen o Visual Studio.
'Para agregar o quitar un miembro, edite el archivo .ResX y, a continuación, vuelva a ejecutar ResGen
'con la opción /str o vuelva a generar su proyecto de VS.
'''<summary>
''' Clase de recurso con establecimiento inflexible de tipos, para buscar cadenas traducidas, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Devuelve la instancia de ResourceManager almacenada en caché utilizada por esta clase.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("VirtualMac.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Reemplaza la propiedad CurrentUICulture del subproceso actual para todas las
''' búsquedas de recursos mediante esta clase de recurso con establecimiento inflexible de tipos.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property About() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("About", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property BrowserBack() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("BrowserBack", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property BrowserForward() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("BrowserForward", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property BrowserHome() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("BrowserHome", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property BrowserSearch() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("BrowserSearch", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Busca una cadena traducida similar a Archivo.
'''</summary>
Friend ReadOnly Property mnuFile() As String
Get
Return ResourceManager.GetString("mnuFile", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property NewDisk() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("NewDisk", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property NewMac() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("NewMac", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Shutdown_Icon() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Shutdown_Icon", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Icon similar to (Icono).
'''</summary>
Friend ReadOnly Property VirtualMacMain() As System.Drawing.Icon
Get
Dim obj As Object = ResourceManager.GetObject("VirtualMacMain", resourceCulture)
Return CType(obj,System.Drawing.Icon)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property WizardPicture() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("WizardPicture", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace

154
My Project/Resources.resx Normal file
View File

@ -0,0 +1,154 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="WizardPicture" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WizardPicture.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="NewDisk" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NewDisk.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="NewMac" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\NewMac.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Shutdown_Icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Shutdown Icon.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="About" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\About.bmp;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="BrowserBack" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\BrowserBack.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="BrowserForward" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\BrowserForward.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="BrowserHome" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\BrowserHome.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="BrowserSearch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\BrowserSearch.png;System.Drawing.Bitmap, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="VirtualMacMain" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\NewIcon.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mnuFile" xml:space="preserve">
<value>Archivo</value>
</data>
</root>

289
My Project/Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,289 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Este código fue generado por una herramienta.
' Versión de runtime:4.0.30319.42000
'
' Los cambios en este archivo podrían causar un comportamiento incorrecto y se perderán si
' se vuelve a generar el código.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funcionalidad para autoguardar de My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property DefaultMacFolder() As String
Get
Return CType(Me("DefaultMacFolder"),String)
End Get
Set
Me("DefaultMacFolder") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property VMNames() As String
Get
Return CType(Me("VMNames"),String)
End Get
Set
Me("VMNames") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property VMIcons() As String
Get
Return CType(Me("VMIcons"),String)
End Get
Set
Me("VMIcons") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property VMRoutes() As String
Get
Return CType(Me("VMRoutes"),String)
End Get
Set
Me("VMRoutes") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property CustomIcons() As String
Get
Return CType(Me("CustomIcons"),String)
End Get
Set
Me("CustomIcons") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property SheepShaverROM() As String
Get
Return CType(Me("SheepShaverROM"),String)
End Get
Set
Me("SheepShaverROM") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property BasiliskROM() As String
Get
Return CType(Me("BasiliskROM"),String)
End Get
Set
Me("BasiliskROM") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property vMacROM() As String
Get
Return CType(Me("vMacROM"),String)
End Get
Set
Me("vMacROM") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property VMType() As String
Get
Return CType(Me("VMType"),String)
End Get
Set
Me("VMType") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property TestWindow() As Boolean
Get
Return CType(Me("TestWindow"),Boolean)
End Get
Set
Me("TestWindow") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property x() As String
Get
Return CType(Me("x"),String)
End Get
Set
Me("x") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property vMacPath() As String
Get
Return CType(Me("vMacPath"),String)
End Get
Set
Me("vMacPath") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property SheepShaverPath() As String
Get
Return CType(Me("SheepShaverPath"),String)
End Get
Set
Me("SheepShaverPath") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property BasiliskPath() As String
Get
Return CType(Me("BasiliskPath"),String)
End Get
Set
Me("BasiliskPath") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property PearPCPath() As String
Get
Return CType(Me("PearPCPath"),String)
End Get
Set
Me("PearPCPath") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property QEMUPath() As String
Get
Return CType(Me("QEMUPath"),String)
End Get
Set
Me("QEMUPath") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("False")> _
Public Property VerifyEmulatorPaths() As Boolean
Get
Return CType(Me("VerifyEmulatorPaths"),Boolean)
End Get
Set
Me("VerifyEmulatorPaths") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("en-US")> _
Public Property Lang() As String
Get
Return CType(Me("Lang"),String)
End Get
Set
Me("Lang") = value
End Set
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.VirtualMac.My.MySettings
Get
Return Global.VirtualMac.My.MySettings.Default
End Get
End Property
End Module
End Namespace

View File

@ -0,0 +1,60 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
<Profiles />
<Settings>
<Setting Name="DefaultMacFolder" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="VMNames" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="VMIcons" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="VMRoutes" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="CustomIcons" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="SheepShaverROM" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="BasiliskROM" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="vMacROM" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="VMType" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="TestWindow" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="x" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="vMacPath" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="SheepShaverPath" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="BasiliskPath" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="PearPCPath" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="QEMUPath" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="VerifyEmulatorPaths" Type="System.Boolean" Scope="User">
<Value Profile="(Default)">False</Value>
</Setting>
<Setting Name="Lang" Type="System.String" Scope="User">
<Value Profile="(Default)">en-US</Value>
</Setting>
</Settings>
</SettingsFile>

26
My Project/app.manifest Normal file
View File

@ -0,0 +1,26 @@
<?xml version="1.0" encoding="utf-8"?>
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app" />
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<!-- Opciones del manifiesto de Control de cuentas de usuario
Si desea cambiar el nivel de Control de cuentas de usuario de Windows, reemplace el
nodo requestedExecutionLevel por alguno de los siguientes.
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
Si desea utilizar la virtualización de archivos y del Registro para la compatibilidad
con versiones anteriores, elimine el nodo requestedExecutionLevel.
-->
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
</requestedPrivileges>
<applicationRequestMinimum>
<defaultAssemblyRequest permissionSetReference="Custom" />
<PermissionSet ID="Custom" SameSite="site" Unrestricted="true" />
</applicationRequestMinimum>
</security>
</trustInfo>
</asmv1:assembly>

BIN
NewIcon.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.7 KiB

BIN
Preferences.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

View File

@ -1,14 +1,15 @@
# VirtualMac
A GUI for several Macintosh emulators
This project has the intention to 'merge' all the current classic Macintosh emulators a making a Graphical Front End for all.
This project has the intention to 'merge' all the current classic Macintosh emulators functions by making a Unified Front End for all.
The main idea came to me when I wanted to check out some apps in Mac OS but I had no Mac, so here comes the need of an emulator.
But almost all of them are splitted into different things and youu need one for Mac OS 7, other for OS 8 to 9.0.4, and other
for OS X 10.1 to 10.4 (And even OTHER for for 10.0 to 10.5). Do you understand my point? Why so many emulators and so many GUIs
and so many options. This, must be over, we NEED an universal FrontEnd for all plataforms, that, is the purpose of VirtualMac,
but as I only have Windows (By now), I need to anyone who is interested to help me to take this to macOS and Linux. The Universal
Unified Emulator must become true!
But almost all of them are different emulators and you need one for Mac OS 7, other for OS 8 to 9.0.4, and other
for OS X 10.1 to 10.4 (And even other for for 9.1 to 10.5). Do you understand my point? Why so many emulators and so many GUIs
and so many options. This, must be over, we need an universal front-end for all plataforms, that, is the purpose of Virtual Mac,
but as I only have Windows (By now), I need to anyone who is interested to help me to take this to macOS and Linux. The Unified Front End must become real!
Now that you understand the point of this project, if you are a Mac enthusiast or a vintage computer enthusiast, and you know
coding, if you'd like where this goes, feel free to help us. We'd be glad to get your help!
coding, if you'd like where this goes, feel free to help us. We'd be glad to get your help! Pull requests are encouraged!
If you want to know the exact purposes of this project, check out the Wiki to consult all the goals and the current status of the project

Binary file not shown.

Before

Width:  |  Height:  |  Size: 400 KiB

After

Width:  |  Height:  |  Size: 425 KiB

BIN
Resources/BrowserBack.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 349 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 344 B

BIN
Resources/BrowserHome.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 348 B

BIN
Resources/BrowserSearch.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 420 B

BIN
Resources/NewDisk.bmp Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 151 KiB

BIN
Resources/NewMac.bmp Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 151 KiB

BIN
Resources/Shutdown Icon.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 147 KiB

BIN
Resources/VirtualMac.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

BIN
Resources/Warning.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.5 KiB

BIN
Resources/Warning1.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.7 KiB

BIN
Resources/WizardPicture.bmp Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.1 KiB

12
Settings.vb Normal file
View File

@ -0,0 +1,12 @@

Namespace My
'Esta clase le permite controlar eventos específicos en la clase de configuración:
' El evento SettingChanging se desencadena antes de cambiar un valor de configuración.
' El evento PropertyChanged se desencadena después de cambiar el valor de configuración.
' El evento SettingsLoaded se desencadena después de cargar los valores de configuración.
' El evento SettingsSaving se desencadena antes de guardar los valores de configuración.
Partial Friend NotInheritable Class MySettings
End Class
End Namespace

85
SysInfo.vb Normal file
View File

@ -0,0 +1,85 @@
Imports System.Management
Module SysInfo
Public OSName As String
Public OSBuild As String
Public CPUClass As String
Public CPUCores As String
Public InstalledRAM As String
Public UserName As String
Public ComputerName As String
Public Function GetSysInfo() As String
Dim VersionArray() As String = Split(My.Computer.Info.OSVersion, ".")
'Setting the labels with the versions
Dim BuildOS As String = VersionArray(0) + "." + VersionArray(1) + "." + VersionArray(2)
Dim NameOS As String = ""
Dim CPUInfo As String = GetProcessorInfo()
Dim NameCPU As String = CPUInfo.ToString.Substring(0, InStr(CPUInfo, ";") - 1)
Dim CoresCPU As String = CPUInfo.ToString.Substring(InStr(CPUInfo, ";"), InStr(CPUInfo, "_") - InStr(CPUInfo, ";") - 1)
Dim TotalRAM As Long = (My.Computer.Info.TotalPhysicalMemory / 1024) / 1024
Dim UsrName As String = Replace(Replace(My.User.Name, My.Computer.Name, ""), "\", "")
Dim PCName As String = My.Computer.Name
'Naming the Windows OS by its version
frmAbout.OSName.Text = "Unknown"
Select Case BuildOS
Case "6.0.6000"
NameOS = "Windows Vista RTM"
Case "6.0.6001"
NameOS = "Windows Vista SP1"
Case "6.0.6002"
NameOS = "Windows Vista SP2"
Case "6.1.7600"
NameOS = "Windows 7 RTM"
Case "6.1.7601"
NameOS = "Windows 7 SP1"
Case "6.2.9200"
NameOS = "Windows 8"
Case "6.2.9600"
NameOS = "Windows 8.1"
End Select
Select Case My.Computer.Info.OSVersion
Case "5.1.2600.0"
NameOS = "Windows XP RTM"
Case "5.1.2600.1106"
NameOS = "Windows XP SP1"
Case "5.1.2600.2180"
NameOS = "Windows XP SP2"
Case "5.1.2600.5512"
NameOS = "Windows XP SP3"
End Select
OSName = NameOS
OSBuild = BuildOS
CPUClass = NameCPU
CPUCores = CoresCPU
InstalledRAM = TotalRAM
UserName = UsrName
ComputerName = PCName
Return (NameOS + vbCrLf + BuildOS + vbCrLf + NameCPU + vbCrLf + CoresCPU + vbCrLf & TotalRAM & " MB" & vbCrLf + UsrName + vbCrLf + PCName)
End Function
Public Function GetProcessorInfo() As String
Dim Info As String = ""
Try
Dim searcher As New ManagementObjectSearcher( _
"root\CIMV2", _
"SELECT * FROM Win32_Processor")
For Each queryObj As ManagementObject In searcher.Get()
Info = queryObj("Name")
Info = Info & " (" & Replace(Replace(Replace(queryObj("Caption"), "Family ", "F"), "Model ", "M"), "Stepping ", "S") & ")"
Info = Info & ";" & queryObj("NumberOfCores")
Info = Info & "_" & queryObj("MaxClockSpeed")
Next
Catch err As ManagementException
MessageBox.Show("An error occurred while getting the processor info: " & err.Message & " . The system information may be incomplete", "Virtual Mac", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Return Info
End Function
End Module

Binary file not shown.

BIN
VirtualMac.ico Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.2 KiB

32
VirtualMac.sln Normal file
View File

@ -0,0 +1,32 @@

Microsoft Visual Studio Solution File, Format Version 10.00
# Visual Studio 2008
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VirtualMac", "VirtualMac.vbproj", "{9EF23765-7DA9-4904-9EBD-E951DEB90063}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Debug|x64 = Debug|x64
Debug|x86 = Debug|x86
Release|Any CPU = Release|Any CPU
Release|x64 = Release|x64
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|Any CPU.Build.0 = Debug|Any CPU
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|x64.ActiveCfg = Debug|x64
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|x64.Build.0 = Debug|x64
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|x86.ActiveCfg = Debug|x86
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Debug|x86.Build.0 = Debug|x86
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|Any CPU.ActiveCfg = Release|Any CPU
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|Any CPU.Build.0 = Release|Any CPU
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|x64.ActiveCfg = Release|x64
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|x64.Build.0 = Release|x64
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|x86.ActiveCfg = Release|x86
{9EF23765-7DA9-4904-9EBD-E951DEB90063}.Release|x86.Build.0 = Release|x86
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

View File

@ -1,57 +0,0 @@
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE Automation
Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; COMDLG32.OCX
Object={BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0; TABCTL32.OCX
Form=frmMain.frm
Form=frmSplash.frm
Form=frmOptions.frm
Form=frmAbout.frm
Object={6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0; SYSINFO.OCX
Object={E1742569-C6BE-4FBD-ADF3-F1DDD40BF642}#1.0#0; SysTray.ocx
Object={6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0; COMCTL32.OCX
Form=frmNewDisk.frm
Form=frmVMSettings.frm
Form=frmVirtualMacintosh.frm
Module=basDeclarations; basDeclarations.bas
Object={DA729E34-689F-49EA-A856-B57046630B73}#1.0#0; CustomProgressBar.ocx
Form=frmNewMac.frm
ResFile32="VirtualMac.RES"
IconForm="frmMain"
Startup="frmSplash"
HelpFile=""
Title="VirtualMac"
ExeName32="VirtualMac.exe"
Path32="C:\Documents and Settings\Edson Armando\Escritorio\Proyectos de Basic\VirtualMac Debugger"
Command32=""
Name="VirtualMac"
HelpContextID="0"
CompatibleMode="0"
MajorVer=0
MinorVer=2
RevisionVer=1
AutoIncrementVer=0
ServerSupportFiles=0
VersionComments="Still in Beta!"
VersionCompanyName="Armando Technologies"
VersionFileDescription="Emulate old and classic Macs"
VersionLegalCopyright="Copyright © Armando Technologies"
VersionLegalTrademarks="Licensed under GNU GPL v2"
VersionProductName="Virtual Mac"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
[MS Transaction Server]
AutoRefresh=1

418
VirtualMac.vbproj Normal file
View File

@ -0,0 +1,418 @@
<?xml version="1.0" encoding="utf-8"?>
<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="4.0">
<PropertyGroup>
<ProjectType>Local</ProjectType>
<MyType>WindowsForms</MyType>
<ProductVersion>9.0.21022</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{9EF23765-7DA9-4904-9EBD-E951DEB90063}</ProjectGuid>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<AssemblyName>Virtual Mac</AssemblyName>
<OutputType>WinExe</OutputType>
<StartupObject>VirtualMac.My.MyApplication</StartupObject>
<AssemblyMajorVersion>0</AssemblyMajorVersion>
<AssemblyMinorVersion>2</AssemblyMinorVersion>
<AssemblyRevisionNumber>2</AssemblyRevisionNumber>
<GenerateRevisionNumber>False</GenerateRevisionNumber>
<AssemblyCompanyName>Armando Technologies</AssemblyCompanyName>
<ApplicationIcon>VirtualMac.ico</ApplicationIcon>
<RootNamespace>VirtualMac</RootNamespace>
<FileUpgradeFlags>
</FileUpgradeFlags>
<OptionStrict>Off</OptionStrict>
<UpgradeBackupLocation>
</UpgradeBackupLocation>
<OldToolsVersion>3.5</OldToolsVersion>
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
<IsWebBootstrapper>false</IsWebBootstrapper>
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
<PublishUrl>publish\</PublishUrl>
<Install>true</Install>
<InstallFrom>Disk</InstallFrom>
<UpdateEnabled>false</UpdateEnabled>
<UpdateMode>Foreground</UpdateMode>
<UpdateInterval>7</UpdateInterval>
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
<UpdatePeriodically>false</UpdatePeriodically>
<UpdateRequired>false</UpdateRequired>
<MapFileExtensions>true</MapFileExtensions>
<SupportUrl>http://www.tecnologiasarmando.info.tm/support/virtualmac</SupportUrl>
<PublisherName>Edson Armando</PublisherName>
<ApplicationRevision>0</ApplicationRevision>
<ApplicationVersion>1.0.0.0</ApplicationVersion>
<UseApplicationTrust>true</UseApplicationTrust>
<PublishWizardCompleted>true</PublishWizardCompleted>
<BootstrapperEnabled>true</BootstrapperEnabled>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<OutputPath>.\bin\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<DebugSymbols>True</DebugSymbols>
<DefineDebug>True</DefineDebug>
<DefineTrace>True</DefineTrace>
<DefineConstants>Win32=True</DefineConstants>
<PlatformTarget>AnyCPU</PlatformTarget>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
<DebugType>full</DebugType>
<WarningsAsErrors>
</WarningsAsErrors>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
<Optimize>true</Optimize>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<OutputPath>.\bin\</OutputPath>
<DocumentationFile>
</DocumentationFile>
<DebugSymbols>False</DebugSymbols>
<DefineDebug>False</DefineDebug>
<DefineTrace>True</DefineTrace>
<DefineConstants>Win32=True</DefineConstants>
<PlatformTarget>AnyCPU</PlatformTarget>
<NoWarn>41999,42016,42017,42018,42019,42020,42021,42022,42032,42036,42353,42354,42355</NoWarn>
<DebugType>none</DebugType>
<Optimize>true</Optimize>
<WarningsAsErrors>
</WarningsAsErrors>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x64' ">
<PlatformTarget>x64</PlatformTarget>
<OutputPath>bin\x64\Debug\</OutputPath>
<NoWarn>42353,42354,42355</NoWarn>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x64' ">
<PlatformTarget>x64</PlatformTarget>
<OutputPath>bin\x64\Release\</OutputPath>
<NoWarn>42353,42354,42355</NoWarn>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>x86</PlatformTarget>
<OutputPath>bin\x86\Debug\</OutputPath>
<NoWarn>42353,42354,42355</NoWarn>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
<PlatformTarget>x86</PlatformTarget>
<OutputPath>bin\x86\Release\</OutputPath>
<NoWarn>42353,42354,42355</NoWarn>
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
</PropertyGroup>
<PropertyGroup>
<ManifestCertificateThumbprint>81CE3CBBBD0E6FC09E6C2FAE0AA21E54A7AD616E</ManifestCertificateThumbprint>
</PropertyGroup>
<PropertyGroup>
<ManifestKeyFile>VirtualMac_TemporaryKey.pfx</ManifestKeyFile>
</PropertyGroup>
<PropertyGroup>
<GenerateManifests>false</GenerateManifests>
</PropertyGroup>
<PropertyGroup>
<TargetZone>LocalIntranet</TargetZone>
</PropertyGroup>
<PropertyGroup>
<SignManifests>false</SignManifests>
</PropertyGroup>
<ItemGroup>
<Reference Include="Microsoft.VisualBasic.Compatibility">
<Name>Microsoft.VisualBasic.Compatibility</Name>
</Reference>
<Reference Include="System">
<Name>System</Name>
</Reference>
<Reference Include="System.Data">
<Name>System.Data</Name>
</Reference>
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing">
<Name>System.Drawing</Name>
</Reference>
<Reference Include="System.Management" />
<Reference Include="System.ServiceProcess" />
<Reference Include="System.Windows.Forms">
<Name>System.Windows.Forms</Name>
</Reference>
<Reference Include="System.XML">
<Name>System.XML</Name>
</Reference>
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="Microsoft.VisualBasic.Compatibility" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Data" />
<Import Include="System.Diagnostics" />
<Import Include="System.Drawing" />
<Import Include="System.Windows" />
<Import Include="System.Windows.Forms" />
</ItemGroup>
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="AssemblyInfo.vb" />
<Compile Include="DiskImageCreator.vb" />
<Compile Include="frmHelp.Designer.vb">
<DependentUpon>frmHelp.vb</DependentUpon>
</Compile>
<Compile Include="frmHelp.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmNewDisk.Designer.vb">
<DependentUpon>frmNewDisk.vb</DependentUpon>
</Compile>
<Compile Include="frmNewDisk.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettingsBasiliskVM.Designer.vb">
<DependentUpon>frmSettingsBasiliskVM.vb</DependentUpon>
</Compile>
<Compile Include="frmSettingsBasiliskVM.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettingsQemuVM.Designer.vb">
<DependentUpon>frmSettingsQemuVM.vb</DependentUpon>
</Compile>
<Compile Include="frmSettingsQemuVM.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettingsSheepVM.Designer.vb">
<DependentUpon>frmSettingsSheepVM.vb</DependentUpon>
</Compile>
<Compile Include="frmSettingsSheepVM.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmAbout.Designer.vb">
<SubType>Code</SubType>
<DependentUpon>frmAbout.vb</DependentUpon>
</Compile>
<Compile Include="frmAbout.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmDebug.Designer.vb">
<DependentUpon>frmDebug.vb</DependentUpon>
</Compile>
<Compile Include="frmDebug.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmNewMac.Designer.vb">
<DependentUpon>frmNewMac.vb</DependentUpon>
</Compile>
<Compile Include="frmNewMac.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmOptions.Designer.vb">
<SubType>Code</SubType>
<DependentUpon>frmOptions.vb</DependentUpon>
</Compile>
<Compile Include="frmOptions.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSettingsPearPCVM.Designer.vb">
<DependentUpon>frmSettingsPearPCVM.vb</DependentUpon>
</Compile>
<Compile Include="frmSettingsPearPCVM.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSplash.Designer.vb">
<SubType>Code</SubType>
<DependentUpon>frmSplash.vb</DependentUpon>
</Compile>
<Compile Include="frmSplash.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmVirtualMacintosh.Designer.vb">
<SubType>Code</SubType>
<DependentUpon>frmVirtualMacintosh.vb</DependentUpon>
</Compile>
<Compile Include="frmVirtualMacintosh.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="frmVirtualMacintoshClose.Designer.vb">
<DependentUpon>frmVirtualMacintoshClose.vb</DependentUpon>
</Compile>
<Compile Include="frmVirtualMacintoshClose.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="ConfigFileHandler.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
<DependentUpon>Settings.settings</DependentUpon>
</Compile>
<Compile Include="frmMain.Designer.vb">
<DependentUpon>frmMain.vb</DependentUpon>
</Compile>
<Compile Include="frmMain.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Settings.vb" />
<Compile Include="SysInfo.vb" />
<None Include="Resources\VirtualMac.ico" />
<EmbeddedResource Include="frmAbout.de-DE.resx">
<DependentUpon>frmAbout.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmAbout.es-MX.resx">
<DependentUpon>frmAbout.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmHelp.resx">
<DependentUpon>frmHelp.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.de-DE.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmMain.es-MX.resx">
<DependentUpon>frmMain.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNewDisk.resx">
<DependentUpon>frmNewDisk.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmNewMac.es-MX.resx">
<DependentUpon>frmNewMac.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmOptions.de-DE.resx">
<DependentUpon>frmOptions.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmOptions.es-MX.resx">
<DependentUpon>frmOptions.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsBasiliskVM.resx">
<DependentUpon>frmSettingsBasiliskVM.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsPearPCVM.en-US.resx">
<DependentUpon>frmSettingsPearPCVM.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsPearPCVM.es-MX.resx">
<DependentUpon>frmSettingsPearPCVM.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsPearPCVM.es.resx">
<DependentUpon>frmSettingsPearPCVM.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsQemuVM.resx">
<DependentUpon>frmSettingsQemuVM.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsSheepVM.resX">
<DependentUpon>frmSettingsSheepVM.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmAbout.resX">
<DependentUpon>frmAbout.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmDebug.resx">
<SubType>Designer</SubType>
<DependentUpon>frmDebug.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmNewMac.resx">
<SubType>Designer</SubType>
<DependentUpon>frmNewMac.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmOptions.resX">
<DependentUpon>frmOptions.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSettingsPearPCVM.resx">
<DependentUpon>frmSettingsPearPCVM.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmSplash.es-MX.resx">
<DependentUpon>frmSplash.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSplash.resX">
<DependentUpon>frmSplash.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmVirtualMacintosh.resX">
<DependentUpon>frmVirtualMacintosh.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="frmVirtualMacintoshClose.resx">
<SubType>Designer</SubType>
<DependentUpon>frmVirtualMacintoshClose.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<SubType>Designer</SubType>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
</EmbeddedResource>
<Content Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</Content>
<Content Include="NewIcon.ico" />
<None Include="Resources\BrowserSearch.png" />
<None Include="Resources\BrowserHome.png" />
<None Include="Resources\BrowserForward.png" />
<None Include="Resources\BrowserBack.png" />
<None Include="My Project\app.manifest" />
<None Include="Resources\About.bmp" />
<None Include="Resources\NewDisk.bmp" />
<None Include="Resources\NewMac.bmp" />
<None Include="Resources\WizardPicture.bmp" />
<None Include="Resources\Shutdown Icon.png" />
<None Include="Resources\Warning1.png" />
<EmbeddedResource Include="frmMain.resx">
<DependentUpon>frmMain.vb</DependentUpon>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="VirtualMac.ico" />
<EmbeddedResource Include="VirtualMacMachineFormat.xml" />
<None Include="app.config" />
<None Include="My Project\Settings.settings">
<CustomToolNamespace>My</CustomToolNamespace>
<Generator>SettingsSingleFileGenerator</Generator>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="VirtualMac_TemporaryKey.pfx" />
</ItemGroup>
<ItemGroup>
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.2.0">
<Visible>False</Visible>
<ProductName>.NET Framework 2.0 %28x86%29</ProductName>
<Install>true</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.0">
<Visible>False</Visible>
<ProductName>.NET Framework 3.0 %28x86%29</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5</ProductName>
<Install>false</Install>
</BootstrapperPackage>
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
<Visible>False</Visible>
<ProductName>.NET Framework 3.5 SP1</ProductName>
<Install>false</Install>
</BootstrapperPackage>
</ItemGroup>
<Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
<PropertyGroup>
<PreBuildEvent>
</PreBuildEvent>
<PostBuildEvent>
</PostBuildEvent>
</PropertyGroup>
</Project>

View File

@ -1,9 +0,0 @@
frmMain = 154, 203, 979, 690, , 66, 87, 891, 574, C
frmSplash = 66, 87, 891, 574, , 88, 116, 913, 603, C
frmOptions = 176, 232, 954, 719, , 110, 145, 935, 632, C
frmAbout = 154, 203, 979, 690, , 132, 174, 957, 661, C
frmNewDisk = 22, 29, 607, 390, , 110, 145, 695, 506, C
frmVMSettings = 66, 87, 651, 448, , 0, 0, 585, 361, C
frmVirtualMacintosh = 0, 0, 556, 456, , 132, 174, 688, 630, C
basDeclarations = 154, 203, 710, 659,
frmNewMac = 110, 145, 664, 601, , 0, 0, 554, 456, C

View File

@ -0,0 +1,5 @@
<?xml version="1.0" encoding="utf-8" ?>
<MachineSettings>
<Graphics fullscreen="0" frequency="60" width="640" height="480"/>
<Disks volumes="" bootdrive="hd" efs=""/>
</MachineSettings>

88
app.config Normal file
View File

@ -0,0 +1,88 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="VirtualMac.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<system.diagnostics>
<sources>
<!-- En esta sección se define la configuración del registro para My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Quite los comentarios de la sección posterior para escribir en el registro de eventos de la aplicación -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information" />
</switches>
<sharedListeners>
<add name="FileLog"
type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL"
initializeData="FileLogWriter"/>
<!-- Quite los comentarios de la sección posterior y reemplace APPLICATION_NAME con el nombre de su aplicación para escribir en el registro de sucesos de la aplicación -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<userSettings>
<VirtualMac.My.MySettings>
<setting name="DefaultMacFolder" serializeAs="String">
<value />
</setting>
<setting name="VMNames" serializeAs="String">
<value />
</setting>
<setting name="VMIcons" serializeAs="String">
<value />
</setting>
<setting name="VMRoutes" serializeAs="String">
<value />
</setting>
<setting name="CustomIcons" serializeAs="String">
<value />
</setting>
<setting name="SheepShaverROM" serializeAs="String">
<value />
</setting>
<setting name="BasiliskROM" serializeAs="String">
<value />
</setting>
<setting name="vMacROM" serializeAs="String">
<value />
</setting>
<setting name="VMType" serializeAs="String">
<value />
</setting>
<setting name="TestWindow" serializeAs="String">
<value>False</value>
</setting>
<setting name="x" serializeAs="String">
<value />
</setting>
<setting name="vMacPath" serializeAs="String">
<value />
</setting>
<setting name="SheepShaverPath" serializeAs="String">
<value />
</setting>
<setting name="BasiliskPath" serializeAs="String">
<value />
</setting>
<setting name="PearPCPath" serializeAs="String">
<value />
</setting>
<setting name="QEMUPath" serializeAs="String">
<value />
</setting>
<setting name="VerifyEmulatorPaths" serializeAs="String">
<value>False</value>
</setting>
<setting name="Lang" serializeAs="String">
<value>en-US</value>
</setting>
</VirtualMac.My.MySettings>
</userSettings>
</configuration>

View File

@ -1,4 +0,0 @@
Attribute VB_Name = "basDeclarations"
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long

372
frmAbout.Designer.vb generated Normal file
View File

@ -0,0 +1,372 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class frmAbout
#Region "Windows Form Designer generated code "
<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Public ToolTip1 As System.Windows.Forms.ToolTip
Public WithEvents ProductNAV As System.Windows.Forms.Label
Public WithEvents ArmandoTechnologiesCopyright As System.Windows.Forms.Label
Public WithEvents LicenseInformation As System.Windows.Forms.Label
Public WithEvents ThirdPartyNotice As System.Windows.Forms.Label
Public WithEvents MvMCopyright As System.Windows.Forms.Label
Public WithEvents AboutTab_AppInfo As System.Windows.Forms.TabPage
Public WithEvents AboutTab_SysInfo As System.Windows.Forms.TabPage
Public WithEvents AboutTab As System.Windows.Forms.TabControl
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbout))
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.AboutTab = New System.Windows.Forms.TabControl()
Me.AboutTab_AppInfo = New System.Windows.Forms.TabPage()
Me.LicenseInformation = New System.Windows.Forms.Label()
Me.ProductNAV = New System.Windows.Forms.Label()
Me.MvMCopyright = New System.Windows.Forms.Label()
Me.ThirdPartyNotice = New System.Windows.Forms.Label()
Me.ArmandoTechnologiesCopyright = New System.Windows.Forms.Label()
Me.AppleCopyright = New System.Windows.Forms.Label()
Me.ArmandoLink = New System.Windows.Forms.LinkLabel()
Me.EmaculationLink = New System.Windows.Forms.LinkLabel()
Me.AboutTab_SysInfo = New System.Windows.Forms.TabPage()
Me.OSName = New System.Windows.Forms.Label()
Me.CPUCoresLabel = New System.Windows.Forms.Label()
Me.CPUType = New System.Windows.Forms.Label()
Me.OSVersion = New System.Windows.Forms.Label()
Me.SysInfoLabel = New System.Windows.Forms.Label()
Me.CPUTypeLabel = New System.Windows.Forms.Label()
Me.RAMInstalledLabel = New System.Windows.Forms.Label()
Me.CPUCores = New System.Windows.Forms.Label()
Me.OSNameLabel = New System.Windows.Forms.Label()
Me.OSVersionLabel = New System.Windows.Forms.Label()
Me.RAMInstalled = New System.Windows.Forms.Label()
Me.RAMAvailableLabel = New System.Windows.Forms.Label()
Me.RAMAvailable = New System.Windows.Forms.Label()
Me.CurrUsr = New System.Windows.Forms.Label()
Me.CurrUsrLabel = New System.Windows.Forms.Label()
Me.UserInfoLabel = New System.Windows.Forms.Label()
Me.PCName = New System.Windows.Forms.Label()
Me.PCNameLabel = New System.Windows.Forms.Label()
Me.AvailMemTimer = New System.Windows.Forms.Timer(Me.components)
Me.AboutTab.SuspendLayout()
Me.AboutTab_AppInfo.SuspendLayout()
Me.AboutTab_SysInfo.SuspendLayout()
Me.SuspendLayout()
'
'AboutTab
'
Me.AboutTab.Controls.Add(Me.AboutTab_AppInfo)
Me.AboutTab.Controls.Add(Me.AboutTab_SysInfo)
resources.ApplyResources(Me.AboutTab, "AboutTab")
Me.AboutTab.Name = "AboutTab"
Me.AboutTab.SelectedIndex = 0
'
'AboutTab_AppInfo
'
Me.AboutTab_AppInfo.BackgroundImage = Global.VirtualMac.My.Resources.Resources.About
resources.ApplyResources(Me.AboutTab_AppInfo, "AboutTab_AppInfo")
Me.AboutTab_AppInfo.Controls.Add(Me.LicenseInformation)
Me.AboutTab_AppInfo.Controls.Add(Me.ProductNAV)
Me.AboutTab_AppInfo.Controls.Add(Me.MvMCopyright)
Me.AboutTab_AppInfo.Controls.Add(Me.ThirdPartyNotice)
Me.AboutTab_AppInfo.Controls.Add(Me.ArmandoTechnologiesCopyright)
Me.AboutTab_AppInfo.Controls.Add(Me.AppleCopyright)
Me.AboutTab_AppInfo.Controls.Add(Me.ArmandoLink)
Me.AboutTab_AppInfo.Controls.Add(Me.EmaculationLink)
Me.AboutTab_AppInfo.Name = "AboutTab_AppInfo"
'
'LicenseInformation
'
Me.LicenseInformation.BackColor = System.Drawing.Color.Transparent
Me.LicenseInformation.Cursor = System.Windows.Forms.Cursors.Default
resources.ApplyResources(Me.LicenseInformation, "LicenseInformation")
Me.LicenseInformation.ForeColor = System.Drawing.SystemColors.ControlText
Me.LicenseInformation.Name = "LicenseInformation"
'
'ProductNAV
'
Me.ProductNAV.BackColor = System.Drawing.Color.Transparent
Me.ProductNAV.Cursor = System.Windows.Forms.Cursors.Default
resources.ApplyResources(Me.ProductNAV, "ProductNAV")
Me.ProductNAV.ForeColor = System.Drawing.SystemColors.ControlText
Me.ProductNAV.Name = "ProductNAV"
'
'MvMCopyright
'
Me.MvMCopyright.BackColor = System.Drawing.Color.Transparent
Me.MvMCopyright.Cursor = System.Windows.Forms.Cursors.Default
Me.MvMCopyright.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.MvMCopyright, "MvMCopyright")
Me.MvMCopyright.Name = "MvMCopyright"
'
'ThirdPartyNotice
'
Me.ThirdPartyNotice.BackColor = System.Drawing.Color.Transparent
Me.ThirdPartyNotice.Cursor = System.Windows.Forms.Cursors.Default
Me.ThirdPartyNotice.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.ThirdPartyNotice, "ThirdPartyNotice")
Me.ThirdPartyNotice.Name = "ThirdPartyNotice"
'
'ArmandoTechnologiesCopyright
'
Me.ArmandoTechnologiesCopyright.BackColor = System.Drawing.Color.Transparent
Me.ArmandoTechnologiesCopyright.Cursor = System.Windows.Forms.Cursors.Default
resources.ApplyResources(Me.ArmandoTechnologiesCopyright, "ArmandoTechnologiesCopyright")
Me.ArmandoTechnologiesCopyright.ForeColor = System.Drawing.SystemColors.ControlText
Me.ArmandoTechnologiesCopyright.Name = "ArmandoTechnologiesCopyright"
'
'AppleCopyright
'
Me.AppleCopyright.BackColor = System.Drawing.Color.Transparent
Me.AppleCopyright.Cursor = System.Windows.Forms.Cursors.Default
resources.ApplyResources(Me.AppleCopyright, "AppleCopyright")
Me.AppleCopyright.ForeColor = System.Drawing.SystemColors.ControlText
Me.AppleCopyright.Name = "AppleCopyright"
'
'ArmandoLink
'
resources.ApplyResources(Me.ArmandoLink, "ArmandoLink")
Me.ArmandoLink.BackColor = System.Drawing.Color.Transparent
Me.ArmandoLink.LinkColor = System.Drawing.Color.Blue
Me.ArmandoLink.Name = "ArmandoLink"
Me.ArmandoLink.TabStop = True
'
'EmaculationLink
'
resources.ApplyResources(Me.EmaculationLink, "EmaculationLink")
Me.EmaculationLink.BackColor = System.Drawing.Color.Transparent
Me.EmaculationLink.LinkColor = System.Drawing.Color.Blue
Me.EmaculationLink.Name = "EmaculationLink"
Me.EmaculationLink.TabStop = True
'
'AboutTab_SysInfo
'
Me.AboutTab_SysInfo.BackgroundImage = Global.VirtualMac.My.Resources.Resources.About
resources.ApplyResources(Me.AboutTab_SysInfo, "AboutTab_SysInfo")
Me.AboutTab_SysInfo.Controls.Add(Me.OSName)
Me.AboutTab_SysInfo.Controls.Add(Me.CPUCoresLabel)
Me.AboutTab_SysInfo.Controls.Add(Me.CPUType)
Me.AboutTab_SysInfo.Controls.Add(Me.OSVersion)
Me.AboutTab_SysInfo.Controls.Add(Me.SysInfoLabel)
Me.AboutTab_SysInfo.Controls.Add(Me.CPUTypeLabel)
Me.AboutTab_SysInfo.Controls.Add(Me.RAMInstalledLabel)
Me.AboutTab_SysInfo.Controls.Add(Me.CPUCores)
Me.AboutTab_SysInfo.Controls.Add(Me.OSNameLabel)
Me.AboutTab_SysInfo.Controls.Add(Me.OSVersionLabel)
Me.AboutTab_SysInfo.Controls.Add(Me.RAMInstalled)
Me.AboutTab_SysInfo.Controls.Add(Me.RAMAvailableLabel)
Me.AboutTab_SysInfo.Controls.Add(Me.RAMAvailable)
Me.AboutTab_SysInfo.Controls.Add(Me.CurrUsr)
Me.AboutTab_SysInfo.Controls.Add(Me.CurrUsrLabel)
Me.AboutTab_SysInfo.Controls.Add(Me.UserInfoLabel)
Me.AboutTab_SysInfo.Controls.Add(Me.PCName)
Me.AboutTab_SysInfo.Controls.Add(Me.PCNameLabel)
Me.AboutTab_SysInfo.Name = "AboutTab_SysInfo"
Me.AboutTab_SysInfo.UseVisualStyleBackColor = True
'
'OSName
'
Me.OSName.BackColor = System.Drawing.Color.Transparent
Me.OSName.Cursor = System.Windows.Forms.Cursors.Default
Me.OSName.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.OSName, "OSName")
Me.OSName.Name = "OSName"
'
'CPUCoresLabel
'
Me.CPUCoresLabel.BackColor = System.Drawing.Color.Transparent
Me.CPUCoresLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.CPUCoresLabel.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.CPUCoresLabel, "CPUCoresLabel")
Me.CPUCoresLabel.Name = "CPUCoresLabel"
'
'CPUType
'
Me.CPUType.BackColor = System.Drawing.Color.Transparent
Me.CPUType.Cursor = System.Windows.Forms.Cursors.Default
Me.CPUType.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.CPUType, "CPUType")
Me.CPUType.Name = "CPUType"
'
'OSVersion
'
Me.OSVersion.BackColor = System.Drawing.Color.Transparent
Me.OSVersion.Cursor = System.Windows.Forms.Cursors.Default
Me.OSVersion.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.OSVersion, "OSVersion")
Me.OSVersion.Name = "OSVersion"
'
'SysInfoLabel
'
Me.SysInfoLabel.BackColor = System.Drawing.Color.Transparent
Me.SysInfoLabel.Cursor = System.Windows.Forms.Cursors.Default
resources.ApplyResources(Me.SysInfoLabel, "SysInfoLabel")
Me.SysInfoLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.SysInfoLabel.Name = "SysInfoLabel"
'
'CPUTypeLabel
'
Me.CPUTypeLabel.BackColor = System.Drawing.Color.Transparent
Me.CPUTypeLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.CPUTypeLabel.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.CPUTypeLabel, "CPUTypeLabel")
Me.CPUTypeLabel.Name = "CPUTypeLabel"
'
'RAMInstalledLabel
'
Me.RAMInstalledLabel.BackColor = System.Drawing.Color.Transparent
Me.RAMInstalledLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.RAMInstalledLabel.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.RAMInstalledLabel, "RAMInstalledLabel")
Me.RAMInstalledLabel.Name = "RAMInstalledLabel"
'
'CPUCores
'
Me.CPUCores.BackColor = System.Drawing.Color.Transparent
Me.CPUCores.Cursor = System.Windows.Forms.Cursors.Default
Me.CPUCores.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.CPUCores, "CPUCores")
Me.CPUCores.Name = "CPUCores"
'
'OSNameLabel
'
Me.OSNameLabel.BackColor = System.Drawing.Color.Transparent
Me.OSNameLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.OSNameLabel.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.OSNameLabel, "OSNameLabel")
Me.OSNameLabel.Name = "OSNameLabel"
'
'OSVersionLabel
'
Me.OSVersionLabel.BackColor = System.Drawing.Color.Transparent
Me.OSVersionLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.OSVersionLabel.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.OSVersionLabel, "OSVersionLabel")
Me.OSVersionLabel.Name = "OSVersionLabel"
'
'RAMInstalled
'
Me.RAMInstalled.BackColor = System.Drawing.Color.Transparent
Me.RAMInstalled.Cursor = System.Windows.Forms.Cursors.Default
Me.RAMInstalled.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.RAMInstalled, "RAMInstalled")
Me.RAMInstalled.Name = "RAMInstalled"
'
'RAMAvailableLabel
'
Me.RAMAvailableLabel.BackColor = System.Drawing.Color.Transparent
Me.RAMAvailableLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.RAMAvailableLabel.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.RAMAvailableLabel, "RAMAvailableLabel")
Me.RAMAvailableLabel.Name = "RAMAvailableLabel"
'
'RAMAvailable
'
Me.RAMAvailable.BackColor = System.Drawing.Color.Transparent
Me.RAMAvailable.Cursor = System.Windows.Forms.Cursors.Default
Me.RAMAvailable.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.RAMAvailable, "RAMAvailable")
Me.RAMAvailable.Name = "RAMAvailable"
'
'CurrUsr
'
Me.CurrUsr.BackColor = System.Drawing.Color.Transparent
Me.CurrUsr.Cursor = System.Windows.Forms.Cursors.Default
Me.CurrUsr.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.CurrUsr, "CurrUsr")
Me.CurrUsr.Name = "CurrUsr"
'
'CurrUsrLabel
'
Me.CurrUsrLabel.BackColor = System.Drawing.Color.Transparent
Me.CurrUsrLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.CurrUsrLabel.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.CurrUsrLabel, "CurrUsrLabel")
Me.CurrUsrLabel.Name = "CurrUsrLabel"
'
'UserInfoLabel
'
Me.UserInfoLabel.BackColor = System.Drawing.Color.Transparent
Me.UserInfoLabel.Cursor = System.Windows.Forms.Cursors.Default
resources.ApplyResources(Me.UserInfoLabel, "UserInfoLabel")
Me.UserInfoLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.UserInfoLabel.Name = "UserInfoLabel"
'
'PCName
'
Me.PCName.BackColor = System.Drawing.Color.Transparent
Me.PCName.Cursor = System.Windows.Forms.Cursors.Default
Me.PCName.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.PCName, "PCName")
Me.PCName.Name = "PCName"
'
'PCNameLabel
'
Me.PCNameLabel.BackColor = System.Drawing.Color.Transparent
Me.PCNameLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.PCNameLabel.ForeColor = System.Drawing.SystemColors.ControlText
resources.ApplyResources(Me.PCNameLabel, "PCNameLabel")
Me.PCNameLabel.Name = "PCNameLabel"
'
'AvailMemTimer
'
Me.AvailMemTimer.Enabled = True
'
'frmAbout
'
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.Control
Me.Controls.Add(Me.AboutTab)
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmAbout"
Me.ShowIcon = False
Me.Tag = "1025"
Me.AboutTab.ResumeLayout(False)
Me.AboutTab_AppInfo.ResumeLayout(False)
Me.AboutTab_AppInfo.PerformLayout()
Me.AboutTab_SysInfo.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Public WithEvents AppleCopyright As System.Windows.Forms.Label
Friend WithEvents ArmandoLink As System.Windows.Forms.LinkLabel
Friend WithEvents EmaculationLink As System.Windows.Forms.LinkLabel
Public WithEvents PCNameLabel As System.Windows.Forms.Label
Public WithEvents PCName As System.Windows.Forms.Label
Public WithEvents UserInfoLabel As System.Windows.Forms.Label
Public WithEvents CurrUsrLabel As System.Windows.Forms.Label
Public WithEvents CurrUsr As System.Windows.Forms.Label
Public WithEvents RAMAvailable As System.Windows.Forms.Label
Public WithEvents RAMAvailableLabel As System.Windows.Forms.Label
Public WithEvents RAMInstalled As System.Windows.Forms.Label
Public WithEvents RAMInstalledLabel As System.Windows.Forms.Label
Public WithEvents CPUTypeLabel As System.Windows.Forms.Label
Public WithEvents CPUType As System.Windows.Forms.Label
Public WithEvents CPUCores As System.Windows.Forms.Label
Public WithEvents CPUCoresLabel As System.Windows.Forms.Label
Public WithEvents SysInfoLabel As System.Windows.Forms.Label
Public WithEvents OSNameLabel As System.Windows.Forms.Label
Public WithEvents OSName As System.Windows.Forms.Label
Public WithEvents OSVersion As System.Windows.Forms.Label
Public WithEvents OSVersionLabel As System.Windows.Forms.Label
Friend WithEvents AvailMemTimer As System.Windows.Forms.Timer
#End Region
End Class

273
frmAbout.de-DE.resx Normal file
View File

@ -0,0 +1,273 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="LicenseInformation.Text" xml:space="preserve">
<value>Lizenziert unter GNU GPL v3</value>
</data>
<data name="ThirdPartyNotice.Text" xml:space="preserve">
<value>Teile dieser Software:</value>
</data>
<data name="_AboutTab_TabPage0.Text" xml:space="preserve">
<value>Info</value>
</data>
<data name="CPUCoresLabel.Text" xml:space="preserve">
<value>Anzhal der Prozessoren:</value>
</data>
<data name="SysInfoLabel.Text" xml:space="preserve">
<value>Systeminfo</value>
</data>
<data name="CPUTypeLabel.Text" xml:space="preserve">
<value>Prozessortyp:</value>
</data>
<data name="RAMInstalledLabel.Text" xml:space="preserve">
<value>Arbeitsspeicher(insgesamt):</value>
</data>
<data name="OSNameLabel.Text" xml:space="preserve">
<value>Betriebssystem:</value>
</data>
<data name="OSVersionLabel.Text" xml:space="preserve">
<value>Systemversion:</value>
</data>
<data name="RAMAvailableLabel.Text" xml:space="preserve">
<value>Arbeitsspeicher(verfügbar):</value>
</data>
<data name="CurrUsrLabel.Text" xml:space="preserve">
<value>Name:</value>
</data>
<data name="PCNameLabel.Text" xml:space="preserve">
<value>Computername:</value>
</data>
<data name="_AboutTab_TabPage1.Text" xml:space="preserve">
<value>Informationen</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAAAAAoAQAANgAAACAgAAAAAAAAqAgAAF4BAAAwMAAAAAAAAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAIiIiIiIiIgAiI
iIiIiIiACIiIiIiIiIAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhIS
EhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhIS
EhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhIS
EhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhIS
EhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAgAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcH
BwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcHBwcKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//4AAH//
AAD//wAA//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Info</value>
</data>
</root>

372
frmAbout.es-MX.resx Normal file
View File

@ -0,0 +1,372 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="LicenseInformation.Text" xml:space="preserve">
<value>Licenciado bajo la GNU GPL v3</value>
</data>
<data name="LicenseInformation.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ProductNAV.Text" xml:space="preserve">
<value>Tecnologías Virtual Mac</value>
</data>
<data name="ProductNAV.ToolTip" xml:space="preserve">
<value />
</data>
<data name="MvMCopyright.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ThirdPartyNotice.Text" xml:space="preserve">
<value>Porciones de este software:</value>
</data>
<data name="ThirdPartyNotice.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ArmandoTechnologiesCopyright.ToolTip" xml:space="preserve">
<value />
</data>
<data name="AppleCopyright.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ArmandoLink.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EmaculationLink.ToolTip" xml:space="preserve">
<value />
</data>
<data name="_AboutTab_TabPage0.Text" xml:space="preserve">
<value>Acerca de Virtual Mac</value>
</data>
<data name="_AboutTab_TabPage0.ToolTip" xml:space="preserve">
<value />
</data>
<data name="OSName.ToolTip" xml:space="preserve">
<value />
</data>
<data name="CPUCoresLabel.Text" xml:space="preserve">
<value>Nucleos del procesador:</value>
</data>
<data name="CPUCoresLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="CPUType.ToolTip" xml:space="preserve">
<value />
</data>
<data name="OSVersion.ToolTip" xml:space="preserve">
<value />
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SysInfoLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>145, 17</value>
</data>
<data name="SysInfoLabel.Text" xml:space="preserve">
<value>Información del sistema</value>
</data>
<data name="SysInfoLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="CPUTypeLabel.Text" xml:space="preserve">
<value>Procesador:</value>
</data>
<data name="CPUTypeLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="RAMInstalledLabel.Text" xml:space="preserve">
<value>Memoria instalada:</value>
</data>
<data name="RAMInstalledLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="CPUCores.ToolTip" xml:space="preserve">
<value />
</data>
<data name="OSNameLabel.Text" xml:space="preserve">
<value>Sistema operativo:</value>
</data>
<data name="OSNameLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="OSVersionLabel.Text" xml:space="preserve">
<value>Versión del sistema:</value>
</data>
<data name="OSVersionLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="RAMInstalled.ToolTip" xml:space="preserve">
<value />
</data>
<data name="RAMAvailableLabel.Text" xml:space="preserve">
<value>Memoria disponible:</value>
</data>
<data name="RAMAvailableLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="RAMAvailable.ToolTip" xml:space="preserve">
<value />
</data>
<data name="CurrUsr.ToolTip" xml:space="preserve">
<value />
</data>
<data name="CurrUsrLabel.Text" xml:space="preserve">
<value>Usuario actual:</value>
</data>
<data name="CurrUsrLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="UserInfoLabel.Text" xml:space="preserve">
<value>Información del usuario</value>
</data>
<data name="UserInfoLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="PCName.ToolTip" xml:space="preserve">
<value />
</data>
<data name="PCNameLabel.Text" xml:space="preserve">
<value>Nombre del PC:</value>
</data>
<data name="PCNameLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="_AboutTab_TabPage1.Text" xml:space="preserve">
<value>Información del sistema</value>
</data>
<data name="_AboutTab_TabPage1.ToolTip" xml:space="preserve">
<value />
</data>
<data name="AboutTab.ToolTip" xml:space="preserve">
<value />
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAAAAAoAQAANgAAACAgAAAAAAAAqAgAAF4BAAAwMAAAAAAAAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAIiIiIiIiIgAiI
iIiIiIiACIiIiIiIiIAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhIS
EhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhIS
EhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhIS
EhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhIS
EhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAgAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcH
BwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcHBwcKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//4AAH//
AAD//wAA//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Acerca de Virtual Mac</value>
</data>
<data name="$this.ToolTip" xml:space="preserve">
<value />
</data>
</root>

View File

@ -1,276 +0,0 @@
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0"; "SYSINFO.OCX"
Begin VB.Form frmAbout
BorderStyle = 3 'Fixed Dialog
Caption = "About VirtualMac"
ClientHeight = 5025
ClientLeft = 45
ClientTop = 435
ClientWidth = 7620
ClipControls = 0 'False
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmAbout.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5025
ScaleWidth = 7620
StartUpPosition = 1 'CenterOwner
Tag = "1025"
Begin TabDlg.SSTab AboutTab
Height = 4815
Left = 120
TabIndex = 0
Top = 120
Width = 7455
_ExtentX = 13150
_ExtentY = 8493
_Version = 393216
Style = 1
Tabs = 2
Tab = 1
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "About"
TabPicture(0) = "frmAbout.frx":000C
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "AboutPicture"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "Information"
TabPicture(1) = "frmAbout.frx":0028
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "SysInfoPicture"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "SysInfo"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).ControlCount= 2
Begin VB.PictureBox AboutPicture
BorderStyle = 0 'None
Height = 4420
Left = -74970
Picture = "frmAbout.frx":0044
ScaleHeight = 4425
ScaleWidth = 7395
TabIndex = 1
Top = 340
Width = 7400
Begin VB.Label ProductNAV
BackStyle = 0 'Transparent
Caption = "Virtual Mac Technologies 0.1.2 Beta"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 7
Top = 1320
Width = 3615
End
Begin VB.Label Copyright
BackStyle = 0 'Transparent
Caption = "Copyright © 2018 Armando Technologies"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 6
Top = 1530
Width = 3615
End
Begin VB.Label LicenseType
BackStyle = 0 'Transparent
Caption = "Licensed under GNU GPL v2"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 5
Top = 1755
Width = 3135
End
Begin VB.Label WebSite
BackStyle = 0 'Transparent
Caption = "www.emaculation.com"
Height = 255
Left = 360
TabIndex = 4
Top = 2175
Width = 2775
End
Begin VB.Label ThirdPartyNotice
BackStyle = 0 'Transparent
Caption = "Portions of this Software:"
Height = 255
Left = 360
TabIndex = 3
Top = 2595
Width = 2775
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "Mini vMac © 2001-2018 The Gryphel Project"
Height = 255
Left = 360
TabIndex = 2
Top = 2835
Width = 6735
End
End
Begin SysInfoLib.SysInfo SysInfo
Left = 6840
Top = 360
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin VB.PictureBox SysInfoPicture
BorderStyle = 0 'None
Height = 4420
Left = 30
Picture = "frmAbout.frx":1CA06
ScaleHeight = 4425
ScaleWidth = 7395
TabIndex = 8
Top = 340
Width = 7400
Begin VB.Label TitleSys
BackStyle = 0 'Transparent
Caption = "System Information"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 13
Top = 1320
Width = 1815
End
Begin VB.Label OSNameTitle
BackStyle = 0 'Transparent
Caption = "Operating System:"
Height = 255
Left = 480
TabIndex = 12
Top = 1530
Width = 1815
End
Begin VB.Label OSName
BackStyle = 0 'Transparent
Caption = "Windows 9000"
Height = 255
Left = 3480
TabIndex = 11
Top = 1530
Width = 3615
End
Begin VB.Label OSVersion
BackStyle = 0 'Transparent
Caption = "90.5.4800"
Height = 255
Left = 3480
TabIndex = 10
Top = 1770
Width = 3615
End
Begin VB.Label OSVersionTitle
BackStyle = 0 'Transparent
Caption = "System Version:"
Height = 255
Left = 480
TabIndex = 9
Top = 1770
Width = 1815
End
End
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
SystemInformation
End Sub
Public Sub SystemInformation()
'Declarations
Dim Version As String
Dim Name As String
Dim Processor As String
Dim Features As String
Dim ProcNum As String
Dim ClockSpeed As String
Dim TotalMemory As Long
Dim AvaibleMemory As String
'Here you obtain the system info
Version = Replace(SysInfo.OSVersion, "0", "") & "." & SysInfo.OSBuild
'Naming the Windows OS by its version
Select Case SysInfo.OSVersion
Case 5.01
Name = "Windows XP"
Case 6#
Name = "Windows Vista"
Case 6.01
Name = "Windows 7"
End Select
'Assigning the info to the labels
OSName.Caption = Name
OSVersion.Caption = Version
End Sub

Binary file not shown.

1058
frmAbout.resx Normal file

File diff suppressed because it is too large Load Diff

37
frmAbout.vb Normal file
View File

@ -0,0 +1,37 @@
Option Strict Off
Option Explicit On
Friend Class frmAbout
Inherits System.Windows.Forms.Form
' ; Note for me: The labels can confuse values with the declarations, rename them
Private Sub EmaculationLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles EmaculationLink.LinkClicked
Process.Start("http://www.emaculation.com/doku.php")
End Sub
Private Sub ArmandoLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles ArmandoLink.LinkClicked
Process.Start("http://edsonarmando.000webhostapp.com")
End Sub
Private Sub frmAbout_ChangeUICues(sender As Object, e As System.Windows.Forms.UICuesEventArgs) Handles Me.ChangeUICues
MsgBox(sender.ToString)
End Sub
Private Sub frmAbout_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
My.Application.ChangeUICulture(My.Settings.Lang)
OSName.Text = SysInfo.OSName
OSVersion.Text = SysInfo.OSBuild
CPUType.Text = SysInfo.CPUClass
CPUCores.Text = SysInfo.CPUCores
RAMInstalled.Text = SysInfo.InstalledRAM
CurrUsr.Text = SysInfo.UserName
PCName.Text = SysInfo.ComputerName
Dim AvailRAM As Long = (My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024
RAMAvailable.Text = AvailRAM & " MB"
End Sub
Private Sub AvailMemTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvailMemTimer.Tick
Dim AvailRAM As Long = (My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024
RAMAvailable.Text = AvailRAM & " MB"
End Sub
End Class

77
frmDebug.Designer.vb generated Normal file
View File

@ -0,0 +1,77 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmDebug
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.ConsoleIO = New System.Windows.Forms.TextBox()
Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components)
Me.MenuItem1 = New System.Windows.Forms.MenuItem()
Me.MenuItem2 = New System.Windows.Forms.MenuItem()
Me.SuspendLayout()
'
'ConsoleIO
'
Me.ConsoleIO.BackColor = System.Drawing.SystemColors.WindowText
Me.ConsoleIO.Dock = System.Windows.Forms.DockStyle.Fill
Me.ConsoleIO.Font = New System.Drawing.Font("Consolas", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ConsoleIO.ForeColor = System.Drawing.SystemColors.Window
Me.ConsoleIO.Location = New System.Drawing.Point(0, 0)
Me.ConsoleIO.Multiline = True
Me.ConsoleIO.Name = "ConsoleIO"
Me.ConsoleIO.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.ConsoleIO.Size = New System.Drawing.Size(605, 398)
Me.ConsoleIO.TabIndex = 0
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1})
'
'MenuItem1
'
Me.MenuItem1.Index = 0
Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2})
Me.MenuItem1.Text = "File"
'
'MenuItem2
'
Me.MenuItem2.Index = 0
Me.MenuItem2.Text = "Exit"
'
'frmDebug
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(605, 398)
Me.Controls.Add(Me.ConsoleIO)
Me.Menu = Me.MainMenu1
Me.Name = "frmDebug"
Me.Text = "Configuration Values"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ConsoleIO As System.Windows.Forms.TextBox
Friend WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
End Class

123
frmDebug.resx Normal file
View File

@ -0,0 +1,123 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="MainMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

102
frmDebug.vb Normal file
View File

@ -0,0 +1,102 @@
Public Class frmDebug
Public ConsoleInput As String
Private Sub frmDebug_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
ShowHelp()
ShowPrompt()
ConsoleIO.SelectionStart = ConsoleIO.TextLength
End Sub
Private Sub frmDebug_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
ConsoleIO.Width = Me.Width - 3
ConsoleIO.Height = Me.Height - 23
End Sub
Public Sub ClearConfig()
My.Settings.VMRoutes = ""
My.Settings.VMIcons = ""
My.Settings.VMNames = ""
My.Settings.VMType = ""
My.Settings.vMacROM = ""
My.Settings.BasiliskROM = ""
My.Settings.SheepShaverROM = ""
My.Settings.x = ""
My.Settings.DefaultMacFolder = ""
My.Settings.Save()
ConsoleIO.Text = ConsoleIO.Text & vbCrLf & vbCrLf & "App configuration cleared." & vbCrLf
End Sub
Public Sub ShowPrompt()
ConsoleIO.Text = ConsoleIO.Text & vbCrLf & "Debug prompt\> "
ConsoleIO.SelectionStart = ConsoleIO.TextLength
End Sub
Public Sub ShowConfig()
Dim TextToShow As String = ""
TextToShow = "Mini vMac ROM = " & My.Settings.vMacROM
TextToShow = TextToShow & vbCrLf & "Basilisk ROM = " & My.Settings.BasiliskROM
TextToShow = TextToShow & vbCrLf & "SheepShaver ROM = " & My.Settings.SheepShaverROM
TextToShow = TextToShow & vbCrLf & "Mac VM Folders = " & My.Settings.DefaultMacFolder
TextToShow = TextToShow & vbCrLf & "User Defined Icons = " & My.Settings.x
TextToShow = TextToShow & vbCrLf & "Vm Icons = " & My.Settings.VMIcons
TextToShow = TextToShow & vbCrLf & "VM Names = " & My.Settings.VMNames
TextToShow = TextToShow & vbCrLf & "VM Types (Subitem2) = " & My.Settings.VMType
TextToShow = TextToShow & vbCrLf & "VM Routes (Subitem1) = " & My.Settings.VMRoutes
ConsoleIO.Text = ConsoleIO.Text & vbCrLf & TextToShow & vbCrLf
End Sub
Public Sub ShowHelp()
ConsoleIO.Text = ConsoleIO.Text & vbCrLf & "Avaible commands are" & vbCrLf & vbCrLf & "show_config Shows the current values of the configuration" & vbCrLf & "clear_config Clears all the config values" & vbCrLf & "help Shows this help" & vbCrLf & "cls Clears the screen" & vbCrLf
End Sub
Private Sub ConsoleIO_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ConsoleIO.KeyDown
If e.KeyData = Keys.Back Then
If ConsoleInput <> "" Then
ConsoleInput.Remove(ConsoleInput.Length - 1, 1)
ConsoleIO.Text.Remove(ConsoleIO.TextLength - 1, 1)
Else
e.Handled = True
End If
End If
End Sub
Private Sub ConsoleIO_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ConsoleIO.KeyPress
If Char.IsLetterOrDigit(e.KeyChar) Or Char.IsPunctuation(e.KeyChar) = True Then
ConsoleInput = ConsoleInput & e.KeyChar.ToString
ConsoleIO.SelectionStart = ConsoleIO.TextLength
End If
End Sub
Private Sub ConsoleIO_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ConsoleIO.KeyUp
If e.KeyData = Keys.Return Then
e.Handled = True
Select Case ConsoleInput
Case "clear_config"
ClearConfig()
Case "show_config"
ShowConfig()
Case "help"
ShowHelp()
Case "cls"
ClearScreen()
Case "show_console"
frmMain.Show()
End Select
EndCheck:
ConsoleInput = ""
ShowPrompt()
End If
If e.KeyData = Keys.Back Then
e.Handled = True
ConsoleInput = Mid(ConsoleInput, 1, ConsoleInput.Length - 1)
End If
End Sub
Public Sub ClearScreen()
ConsoleIO.Text = " "
End Sub
Private Sub MenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles MenuItem2.Click
Me.Close()
End Sub
End Class

130
frmHelp.Designer.vb generated Normal file
View File

@ -0,0 +1,130 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmHelp
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.HelpRenderer = New System.Windows.Forms.WebBrowser
Me.NavigationBar = New System.Windows.Forms.ToolStrip
Me.GoHome = New System.Windows.Forms.ToolStripButton
Me.GoBack = New System.Windows.Forms.ToolStripButton
Me.GoForward = New System.Windows.Forms.ToolStripButton
Me.SearchStart = New System.Windows.Forms.ToolStripButton
Me.SearchBox = New System.Windows.Forms.ToolStripTextBox
Me.NavigationBar.SuspendLayout()
Me.SuspendLayout()
'
'HelpRenderer
'
Me.HelpRenderer.Dock = System.Windows.Forms.DockStyle.Bottom
Me.HelpRenderer.Location = New System.Drawing.Point(0, 57)
Me.HelpRenderer.MinimumSize = New System.Drawing.Size(20, 20)
Me.HelpRenderer.Name = "HelpRenderer"
Me.HelpRenderer.Size = New System.Drawing.Size(719, 381)
Me.HelpRenderer.TabIndex = 0
Me.HelpRenderer.Url = New System.Uri("", System.UriKind.Relative)
'
'NavigationBar
'
Me.NavigationBar.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.NavigationBar.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GoHome, Me.GoBack, Me.GoForward, Me.SearchStart, Me.SearchBox})
Me.NavigationBar.Location = New System.Drawing.Point(0, 0)
Me.NavigationBar.Name = "NavigationBar"
Me.NavigationBar.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Me.NavigationBar.Size = New System.Drawing.Size(719, 38)
Me.NavigationBar.TabIndex = 1
Me.NavigationBar.Text = "Navigation"
'
'GoHome
'
Me.GoHome.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.GoHome.Image = Global.VirtualMac.My.Resources.Resources.BrowserHome
Me.GoHome.ImageTransparentColor = System.Drawing.Color.Magenta
Me.GoHome.Name = "GoHome"
Me.GoHome.Size = New System.Drawing.Size(44, 35)
Me.GoHome.Text = "Home"
Me.GoHome.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'GoBack
'
Me.GoBack.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.GoBack.Enabled = False
Me.GoBack.Image = Global.VirtualMac.My.Resources.Resources.BrowserBack
Me.GoBack.ImageTransparentColor = System.Drawing.Color.Magenta
Me.GoBack.Name = "GoBack"
Me.GoBack.Size = New System.Drawing.Size(36, 35)
Me.GoBack.Text = "Back"
Me.GoBack.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'GoForward
'
Me.GoForward.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.GoForward.Enabled = False
Me.GoForward.Image = Global.VirtualMac.My.Resources.Resources.BrowserForward
Me.GoForward.ImageTransparentColor = System.Drawing.Color.Magenta
Me.GoForward.Name = "GoForward"
Me.GoForward.Size = New System.Drawing.Size(54, 35)
Me.GoForward.Text = "Forward"
Me.GoForward.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'SearchStart
'
Me.SearchStart.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.SearchStart.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.SearchStart.Enabled = False
Me.SearchStart.Image = Global.VirtualMac.My.Resources.Resources.BrowserSearch
Me.SearchStart.ImageTransparentColor = System.Drawing.Color.Magenta
Me.SearchStart.Name = "SearchStart"
Me.SearchStart.Size = New System.Drawing.Size(23, 35)
Me.SearchStart.TextImageRelation = System.Windows.Forms.TextImageRelation.Overlay
'
'SearchBox
'
Me.SearchBox.AcceptsReturn = True
Me.SearchBox.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.SearchBox.ForeColor = System.Drawing.SystemColors.GrayText
Me.SearchBox.Name = "SearchBox"
Me.SearchBox.Size = New System.Drawing.Size(100, 38)
Me.SearchBox.Text = "Search..."
'
'frmHelp
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(719, 438)
Me.Controls.Add(Me.NavigationBar)
Me.Controls.Add(Me.HelpRenderer)
Me.Name = "frmHelp"
Me.Text = "Help - VirtualMac"
Me.NavigationBar.ResumeLayout(False)
Me.NavigationBar.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents HelpRenderer As System.Windows.Forms.WebBrowser
Friend WithEvents NavigationBar As System.Windows.Forms.ToolStrip
Friend WithEvents GoBack As System.Windows.Forms.ToolStripButton
Friend WithEvents GoHome As System.Windows.Forms.ToolStripButton
Friend WithEvents GoForward As System.Windows.Forms.ToolStripButton
Friend WithEvents SearchStart As System.Windows.Forms.ToolStripButton
Friend WithEvents SearchBox As System.Windows.Forms.ToolStripTextBox
End Class

126
frmHelp.resx Normal file
View File

@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="NavigationBar.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>50</value>
</metadata>
</root>

98
frmHelp.vb Normal file
View File

@ -0,0 +1,98 @@
Public Class frmHelp
Public InitialUrl As String = ""
Public Sub SetInitialLocation(ByVal NewUrl As String)
InitialUrl = NewUrl
End Sub
Private Sub frmHelp_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If InitialUrl <> "" Then
HelpRenderer.Navigate(InitialUrl)
Else
HelpRenderer.Navigate("http://emaculation.com/doku.php")
End If
End Sub
Private Sub GoHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoHome.Click
HelpRenderer.Navigate("http://emaculation.com/doku.php")
End Sub
Private Sub GoBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoBack.Click
If HelpRenderer.CanGoBack = True Then
HelpRenderer.GoBack()
Else
GoBack.Enabled = False
End If
End Sub
Private Sub GoForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GoForward.Click
If HelpRenderer.CanGoForward = True Then
HelpRenderer.GoForward()
Else
GoForward.Enabled = False
End If
End Sub
Private Sub HelpRenderer_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles HelpRenderer.DocumentCompleted
If HelpRenderer.CanGoBack = True Then
GoBack.Enabled = True
Else
GoBack.Enabled = False
End If
If HelpRenderer.CanGoForward = True Then
GoForward.Enabled = True
Else
GoForward.Enabled = False
End If
End Sub
Private Sub SearchBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.GotFocus
SearchBox.ForeColor = System.Windows.Forms.Control.DefaultForeColor
If SearchBox.Text = "Search..." Then
SearchBox.Text = ""
End If
End Sub
Private Sub SearchBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.LostFocus
If SearchBox.Text = "" Then
SearchBox.Text = "Search..."
End If
SearchBox.ForeColor = Color.Gray
End Sub
Private Sub SearchBox_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SearchBox.KeyDown
e.Handled = True
If e.KeyData = Keys.Return Then
SearchStart_Click(Nothing, Nothing)
End If
End Sub
Private Sub SearchBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles SearchBox.KeyPress
If Char.IsControl(e.KeyChar) = True Then
e.Handled = True
End If
End Sub
Private Sub SearchBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles SearchBox.KeyUp
e.Handled = True
End Sub
Private Sub SearchBox_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles SearchBox.TextChanged
If SearchBox.Text <> "" Then
SearchStart.Enabled = True
ElseIf SearchBox.Text = "Search..." Then
SearchStart.Enabled = False
Else
SearchStart.Enabled = False
End If
End Sub
Private Sub SearchStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchStart.Click
Dim SearchTerm As String = SearchBox.Text
Dim SearchUrl As String = "https://www.emaculation.com/doku.php/mac_emulation?do=search&q="
HelpRenderer.Navigate(SearchUrl + SearchTerm)
End Sub
Private Sub frmHelp_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
HelpRenderer.Height = Me.ClientSize.Height - NavigationBar.Height
End Sub
End Class

392
frmMain.Designer.vb generated Normal file
View File

@ -0,0 +1,392 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmMain
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
Me.mnuActionStart = New System.Windows.Forms.MenuItem()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.ButtonStart = New System.Windows.Forms.Button()
Me.ButtonRemove = New System.Windows.Forms.Button()
Me.ButtonSettings = New System.Windows.Forms.Button()
Me.TrayMenu = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.TrayShow = New System.Windows.Forms.ToolStripMenuItem()
Me.TrayNewMac = New System.Windows.Forms.ToolStripMenuItem()
Me.TrayNewDisk = New System.Windows.Forms.ToolStripMenuItem()
Me.TrayOptions = New System.Windows.Forms.ToolStripMenuItem()
Me.TrayExit = New System.Windows.Forms.ToolStripMenuItem()
Me.ButtonNewM = New System.Windows.Forms.Button()
Me.ButtonNewIcon = New System.Windows.Forms.Button()
Me.VMList = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.MacIcons = New System.Windows.Forms.ImageList(Me.components)
Me.mnuActionBar0 = New System.Windows.Forms.MenuItem()
Me.mnuAction = New System.Windows.Forms.MenuItem()
Me.mnuActionPause = New System.Windows.Forms.MenuItem()
Me.mnuActionRestart = New System.Windows.Forms.MenuItem()
Me.mnuActionBar1 = New System.Windows.Forms.MenuItem()
Me.mnuActionRemove = New System.Windows.Forms.MenuItem()
Me.mnuActionBar2 = New System.Windows.Forms.MenuItem()
Me.mnuActionSettings = New System.Windows.Forms.MenuItem()
Me.mnuActionProperties = New System.Windows.Forms.MenuItem()
Me.mnuFileOptions = New System.Windows.Forms.MenuItem()
Me.mnuFileDebug = New System.Windows.Forms.MenuItem()
Me.mnuFileBar1 = New System.Windows.Forms.MenuItem()
Me.mnuFileExit = New System.Windows.Forms.MenuItem()
Me.mnuHelpOnline = New System.Windows.Forms.MenuItem()
Me.mnuHelpBar0 = New System.Windows.Forms.MenuItem()
Me.mnuHelpContents = New System.Windows.Forms.MenuItem()
Me.mnuHelpAbout = New System.Windows.Forms.MenuItem()
Me.mnuHelp = New System.Windows.Forms.MenuItem()
Me.mnuHelpCrash = New System.Windows.Forms.MenuItem()
Me.mnuFileBar0 = New System.Windows.Forms.MenuItem()
Me.mnuFileNewDisk = New System.Windows.Forms.MenuItem()
Me.VirtualMacTray = New System.Windows.Forms.NotifyIcon(Me.components)
Me.MainMenu1 = New System.Windows.Forms.MainMenu(Me.components)
Me.mnuFile = New System.Windows.Forms.MenuItem()
Me.mnuFileNewMac = New System.Windows.Forms.MenuItem()
Me.Browser = New System.Windows.Forms.OpenFileDialog()
Me.TrayMenu.SuspendLayout()
Me.SuspendLayout()
'
'mnuActionStart
'
resources.ApplyResources(Me.mnuActionStart, "mnuActionStart")
Me.mnuActionStart.Index = 0
'
'ButtonStart
'
resources.ApplyResources(Me.ButtonStart, "ButtonStart")
Me.ButtonStart.BackColor = System.Drawing.SystemColors.Control
Me.ButtonStart.Cursor = System.Windows.Forms.Cursors.Default
Me.ButtonStart.ForeColor = System.Drawing.SystemColors.ControlText
Me.ButtonStart.Name = "ButtonStart"
Me.ToolTip1.SetToolTip(Me.ButtonStart, resources.GetString("ButtonStart.ToolTip"))
Me.ButtonStart.UseVisualStyleBackColor = True
'
'ButtonRemove
'
resources.ApplyResources(Me.ButtonRemove, "ButtonRemove")
Me.ButtonRemove.BackColor = System.Drawing.SystemColors.Control
Me.ButtonRemove.Cursor = System.Windows.Forms.Cursors.Default
Me.ButtonRemove.ForeColor = System.Drawing.SystemColors.ControlText
Me.ButtonRemove.Name = "ButtonRemove"
Me.ToolTip1.SetToolTip(Me.ButtonRemove, resources.GetString("ButtonRemove.ToolTip"))
Me.ButtonRemove.UseVisualStyleBackColor = True
'
'ButtonSettings
'
resources.ApplyResources(Me.ButtonSettings, "ButtonSettings")
Me.ButtonSettings.BackColor = System.Drawing.SystemColors.Control
Me.ButtonSettings.Cursor = System.Windows.Forms.Cursors.Default
Me.ButtonSettings.ForeColor = System.Drawing.SystemColors.ControlText
Me.ButtonSettings.Name = "ButtonSettings"
Me.ToolTip1.SetToolTip(Me.ButtonSettings, resources.GetString("ButtonSettings.ToolTip"))
Me.ButtonSettings.UseVisualStyleBackColor = True
'
'TrayMenu
'
resources.ApplyResources(Me.TrayMenu, "TrayMenu")
Me.TrayMenu.ImageScalingSize = New System.Drawing.Size(8, 8)
Me.TrayMenu.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TrayShow, Me.TrayNewMac, Me.TrayNewDisk, Me.TrayOptions, Me.TrayExit})
Me.TrayMenu.Name = "ContextMenuStrip1"
Me.TrayMenu.RenderMode = System.Windows.Forms.ToolStripRenderMode.System
Me.ToolTip1.SetToolTip(Me.TrayMenu, resources.GetString("TrayMenu.ToolTip"))
'
'TrayShow
'
resources.ApplyResources(Me.TrayShow, "TrayShow")
Me.TrayShow.Name = "TrayShow"
'
'TrayNewMac
'
resources.ApplyResources(Me.TrayNewMac, "TrayNewMac")
Me.TrayNewMac.Name = "TrayNewMac"
'
'TrayNewDisk
'
resources.ApplyResources(Me.TrayNewDisk, "TrayNewDisk")
Me.TrayNewDisk.Name = "TrayNewDisk"
'
'TrayOptions
'
resources.ApplyResources(Me.TrayOptions, "TrayOptions")
Me.TrayOptions.Name = "TrayOptions"
'
'TrayExit
'
resources.ApplyResources(Me.TrayExit, "TrayExit")
Me.TrayExit.Name = "TrayExit"
'
'ButtonNewM
'
resources.ApplyResources(Me.ButtonNewM, "ButtonNewM")
Me.ButtonNewM.BackColor = System.Drawing.SystemColors.Control
Me.ButtonNewM.Cursor = System.Windows.Forms.Cursors.Default
Me.ButtonNewM.ForeColor = System.Drawing.SystemColors.ControlText
Me.ButtonNewM.Name = "ButtonNewM"
Me.ToolTip1.SetToolTip(Me.ButtonNewM, resources.GetString("ButtonNewM.ToolTip"))
Me.ButtonNewM.UseVisualStyleBackColor = True
'
'ButtonNewIcon
'
resources.ApplyResources(Me.ButtonNewIcon, "ButtonNewIcon")
Me.ButtonNewIcon.Name = "ButtonNewIcon"
Me.ToolTip1.SetToolTip(Me.ButtonNewIcon, resources.GetString("ButtonNewIcon.ToolTip"))
Me.ButtonNewIcon.UseVisualStyleBackColor = True
'
'VMList
'
resources.ApplyResources(Me.VMList, "VMList")
Me.VMList.AllowDrop = True
Me.VMList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1})
Me.VMList.FullRowSelect = True
Me.VMList.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.VMList.HideSelection = False
Me.VMList.MultiSelect = False
Me.VMList.Name = "VMList"
Me.VMList.ShowGroups = False
Me.VMList.Sorting = System.Windows.Forms.SortOrder.Descending
Me.VMList.StateImageList = Me.MacIcons
Me.VMList.TileSize = New System.Drawing.Size(220, 58)
Me.ToolTip1.SetToolTip(Me.VMList, resources.GetString("VMList.ToolTip"))
Me.VMList.UseCompatibleStateImageBehavior = False
Me.VMList.View = System.Windows.Forms.View.Details
'
'ColumnHeader1
'
resources.ApplyResources(Me.ColumnHeader1, "ColumnHeader1")
'
'MacIcons
'
Me.MacIcons.ImageStream = CType(resources.GetObject("MacIcons.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.MacIcons.TransparentColor = System.Drawing.Color.Transparent
Me.MacIcons.Images.SetKeyName(0, "Generic")
Me.MacIcons.Images.SetKeyName(1, "vMac")
Me.MacIcons.Images.SetKeyName(2, "BII")
Me.MacIcons.Images.SetKeyName(3, "SheepShaver")
Me.MacIcons.Images.SetKeyName(4, "PearPC")
Me.MacIcons.Images.SetKeyName(5, "OS6")
Me.MacIcons.Images.SetKeyName(6, "OS7")
Me.MacIcons.Images.SetKeyName(7, "OS8")
Me.MacIcons.Images.SetKeyName(8, "OS9")
Me.MacIcons.Images.SetKeyName(9, "OSX")
'
'mnuActionBar0
'
resources.ApplyResources(Me.mnuActionBar0, "mnuActionBar0")
Me.mnuActionBar0.Index = 1
'
'mnuAction
'
resources.ApplyResources(Me.mnuAction, "mnuAction")
Me.mnuAction.Index = 1
Me.mnuAction.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuActionStart, Me.mnuActionBar0, Me.mnuActionPause, Me.mnuActionRestart, Me.mnuActionBar1, Me.mnuActionRemove, Me.mnuActionBar2, Me.mnuActionSettings, Me.mnuActionProperties})
'
'mnuActionPause
'
resources.ApplyResources(Me.mnuActionPause, "mnuActionPause")
Me.mnuActionPause.Index = 2
'
'mnuActionRestart
'
resources.ApplyResources(Me.mnuActionRestart, "mnuActionRestart")
Me.mnuActionRestart.Index = 3
'
'mnuActionBar1
'
resources.ApplyResources(Me.mnuActionBar1, "mnuActionBar1")
Me.mnuActionBar1.Index = 4
'
'mnuActionRemove
'
resources.ApplyResources(Me.mnuActionRemove, "mnuActionRemove")
Me.mnuActionRemove.Index = 5
'
'mnuActionBar2
'
resources.ApplyResources(Me.mnuActionBar2, "mnuActionBar2")
Me.mnuActionBar2.Index = 6
'
'mnuActionSettings
'
resources.ApplyResources(Me.mnuActionSettings, "mnuActionSettings")
Me.mnuActionSettings.Index = 7
'
'mnuActionProperties
'
resources.ApplyResources(Me.mnuActionProperties, "mnuActionProperties")
Me.mnuActionProperties.Index = 8
'
'mnuFileOptions
'
resources.ApplyResources(Me.mnuFileOptions, "mnuFileOptions")
Me.mnuFileOptions.Index = 3
'
'mnuFileDebug
'
resources.ApplyResources(Me.mnuFileDebug, "mnuFileDebug")
Me.mnuFileDebug.Index = 6
'
'mnuFileBar1
'
resources.ApplyResources(Me.mnuFileBar1, "mnuFileBar1")
Me.mnuFileBar1.Index = 4
'
'mnuFileExit
'
resources.ApplyResources(Me.mnuFileExit, "mnuFileExit")
Me.mnuFileExit.Index = 5
'
'mnuHelpOnline
'
resources.ApplyResources(Me.mnuHelpOnline, "mnuHelpOnline")
Me.mnuHelpOnline.Index = 1
'
'mnuHelpBar0
'
resources.ApplyResources(Me.mnuHelpBar0, "mnuHelpBar0")
Me.mnuHelpBar0.Index = 2
'
'mnuHelpContents
'
resources.ApplyResources(Me.mnuHelpContents, "mnuHelpContents")
Me.mnuHelpContents.Index = 0
'
'mnuHelpAbout
'
resources.ApplyResources(Me.mnuHelpAbout, "mnuHelpAbout")
Me.mnuHelpAbout.Index = 3
'
'mnuHelp
'
resources.ApplyResources(Me.mnuHelp, "mnuHelp")
Me.mnuHelp.Index = 2
Me.mnuHelp.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuHelpContents, Me.mnuHelpOnline, Me.mnuHelpBar0, Me.mnuHelpAbout, Me.mnuHelpCrash})
'
'mnuHelpCrash
'
resources.ApplyResources(Me.mnuHelpCrash, "mnuHelpCrash")
Me.mnuHelpCrash.Index = 4
'
'mnuFileBar0
'
resources.ApplyResources(Me.mnuFileBar0, "mnuFileBar0")
Me.mnuFileBar0.Index = 2
'
'mnuFileNewDisk
'
resources.ApplyResources(Me.mnuFileNewDisk, "mnuFileNewDisk")
Me.mnuFileNewDisk.Index = 1
'
'VirtualMacTray
'
Me.VirtualMacTray.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info
resources.ApplyResources(Me.VirtualMacTray, "VirtualMacTray")
Me.VirtualMacTray.ContextMenuStrip = Me.TrayMenu
'
'MainMenu1
'
Me.MainMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFile, Me.mnuAction, Me.mnuHelp})
resources.ApplyResources(Me.MainMenu1, "MainMenu1")
'
'mnuFile
'
resources.ApplyResources(Me.mnuFile, "mnuFile")
Me.mnuFile.Index = 0
Me.mnuFile.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.mnuFileNewMac, Me.mnuFileNewDisk, Me.mnuFileBar0, Me.mnuFileOptions, Me.mnuFileBar1, Me.mnuFileExit, Me.mnuFileDebug})
'
'mnuFileNewMac
'
resources.ApplyResources(Me.mnuFileNewMac, "mnuFileNewMac")
Me.mnuFileNewMac.Index = 0
'
'Browser
'
resources.ApplyResources(Me.Browser, "Browser")
'
'frmMain
'
Me.AcceptButton = Me.ButtonStart
resources.ApplyResources(Me, "$this")
Me.AllowDrop = True
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.Control
Me.Controls.Add(Me.ButtonStart)
Me.Controls.Add(Me.ButtonRemove)
Me.Controls.Add(Me.ButtonSettings)
Me.Controls.Add(Me.ButtonNewM)
Me.Controls.Add(Me.ButtonNewIcon)
Me.Controls.Add(Me.VMList)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.Menu = Me.MainMenu1
Me.Name = "frmMain"
Me.ToolTip1.SetToolTip(Me, resources.GetString("$this.ToolTip"))
Me.TrayMenu.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents mnuActionStart As System.Windows.Forms.MenuItem
Public WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Public WithEvents ButtonStart As System.Windows.Forms.Button
Friend WithEvents mnuActionBar0 As System.Windows.Forms.MenuItem
Friend WithEvents mnuAction As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionPause As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionRestart As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionBar1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionRemove As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionBar2 As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionSettings As System.Windows.Forms.MenuItem
Friend WithEvents mnuActionProperties As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileOptions As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileDebug As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileBar1 As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileExit As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpOnline As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpBar0 As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpContents As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelpAbout As System.Windows.Forms.MenuItem
Friend WithEvents mnuHelp As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileBar0 As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileNewDisk As System.Windows.Forms.MenuItem
Friend WithEvents TrayNewMac As System.Windows.Forms.ToolStripMenuItem
Public WithEvents ButtonRemove As System.Windows.Forms.Button
Public WithEvents ButtonSettings As System.Windows.Forms.Button
Friend WithEvents TrayShow As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TrayMenu As System.Windows.Forms.ContextMenuStrip
Friend WithEvents TrayNewDisk As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TrayOptions As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents TrayExit As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents VirtualMacTray As System.Windows.Forms.NotifyIcon
Public WithEvents ButtonNewM As System.Windows.Forms.Button
Private WithEvents MainMenu1 As System.Windows.Forms.MainMenu
Friend WithEvents mnuFile As System.Windows.Forms.MenuItem
Friend WithEvents mnuFileNewMac As System.Windows.Forms.MenuItem
Friend WithEvents ButtonNewIcon As System.Windows.Forms.Button
Friend WithEvents Browser As System.Windows.Forms.OpenFileDialog
Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader
Friend WithEvents VMList As System.Windows.Forms.ListView
Public WithEvents MacIcons As System.Windows.Forms.ImageList
Friend WithEvents mnuHelpCrash As System.Windows.Forms.MenuItem
End Class

2006
frmMain.de-DE.resx Normal file

File diff suppressed because it is too large Load Diff

2016
frmMain.es-MX.resx Normal file

File diff suppressed because it is too large Load Diff

View File

@ -1,703 +0,0 @@
VERSION 5.00
Object = "{E1742569-C6BE-4FBD-ADF3-F1DDD40BF642}#1.0#0"; "SysTray.ocx"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "Virtual Mac Console"
ClientHeight = 3030
ClientLeft = 150
ClientTop = 840
ClientWidth = 5295
FillColor = &H8000000A&
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3030
ScaleWidth = 5295
StartUpPosition = 3 'Windows Default
Begin sysTray.Tray VirtualMacTrayIcon
Left = 4725
Top = 2400
_ExtentX = 847
_ExtentY = 847
ToolTipText = "Virtual Mac"
IconPicture = "frmMain.frx":18BA
End
Begin VB.CommandButton Start
Caption = "Start"
Default = -1 'True
Enabled = 0 'False
Height = 340
Left = 4000
TabIndex = 3
Top = 1575
Width = 1140
End
Begin VB.CommandButton Remove
Caption = "Remove"
Enabled = 0 'False
Height = 340
Left = 4000
TabIndex = 2
Top = 1000
Width = 1140
End
Begin VB.CommandButton Settings
Caption = "Settings"
Enabled = 0 'False
Height = 340
Left = 4000
TabIndex = 1
Top = 550
Width = 1140
End
Begin VB.CommandButton NewMac
Caption = "New..."
Height = 340
Left = 4000
TabIndex = 0
Top = 100
Width = 1140
End
Begin VB.PictureBox VMGraphicList
BackColor = &H00FFFFFF&
Height = 2775
Left = 120
ScaleHeight = 2715
ScaleWidth = 3675
TabIndex = 5
Top = 120
Width = 3735
Begin VB.VScrollBar VMGraphicScroll
Enabled = 0 'False
Height = 2715
Left = 3420
Max = 1
TabIndex = 10
Top = 0
Width = 260
End
Begin VB.Frame VM
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 915
Index = 0
Left = 0
TabIndex = 6
Top = -915
Width = 3400
Begin VB.PictureBox VMSnap
Height = 640
Index = 0
Left = 120
ScaleHeight = 585
ScaleWidth = 795
TabIndex = 7
Top = 140
Width = 855
End
Begin VB.Label VMName
BackStyle = 0 'Transparent
Caption = "Example Name"
Height = 255
Index = 0
Left = 1200
TabIndex = 9
Top = 120
Width = 2295
End
Begin VB.Label VMDescription
BackStyle = 0 'Transparent
Caption = "Not running"
Height = 255
Index = 0
Left = 1200
TabIndex = 8
Top = 480
Width = 2295
End
End
End
Begin VB.ListBox VMList
Height = 2790
ItemData = "frmMain.frx":3184
Left = 120
List = "frmMain.frx":3186
TabIndex = 4
Top = 120
Width = 3735
End
Begin VB.Menu mnuFile
Caption = "File"
Begin VB.Menu mnuNewMac
Caption = "New Mac Wizard"
End
Begin VB.Menu mnuNewDisk
Caption = "New Disk Wizard"
End
Begin VB.Menu mnuFileBar0
Caption = "-"
End
Begin VB.Menu mnuFileOptions
Caption = "Options"
End
Begin VB.Menu mnuFileBar1
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "Exit"
End
End
Begin VB.Menu mnuAction
Caption = "Action"
Begin VB.Menu mnuActionStart
Caption = "Start"
End
Begin VB.Menu mnuActionBar0
Caption = "-"
End
Begin VB.Menu mnuActionPause
Caption = "Pause"
Enabled = 0 'False
End
Begin VB.Menu mnuActionRestart
Caption = "Restart"
Enabled = 0 'False
End
Begin VB.Menu mnuActionBar1
Caption = "-"
End
Begin VB.Menu mnuActionRemove
Caption = "Remove"
End
Begin VB.Menu mnuActionBar2
Caption = "-"
End
Begin VB.Menu mnuActionSettings
Caption = "Settings"
End
Begin VB.Menu mnuActionProperties
Caption = "Properties"
Enabled = 0 'False
End
End
Begin VB.Menu mnuHelp
Caption = "Help"
Begin VB.Menu mnuHelpContents
Caption = "Virtual Mac Help"
End
Begin VB.Menu mnuHelpSearchForHelpOn
Caption = "Online Help"
End
Begin VB.Menu mnuHelpBar0
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "About Virtual Mac..."
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SetParent _
Lib "user32" ( _
ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal HelpFile$, ByVal wCommand%, dwData As Any)
Public Sub RedrawList()
On Error Resume Next
'===Declarations===
Dim retF As Long 'To set the parent of the Frame
Dim retS As Long 'To set the parent of the VMSnap
Dim i As Long 'Used to identify the graphic being handled
Dim X As Long 'Used to know which and where was the last graphic
'===Duplicate the items so we can have more than 1 machine at time===
'Check how much items exist. The items are created as they exist in a
'hidden list. Let's mean you made 2 VMs, then 2 items will be added to
'this hidden list, and this Instruction called RedrawList will check how
'much items you made, then it will draw the number of items (In this case, 2)
'To do this, it will draw every item individually, and will repeat the
'actions until it gets to all the items using a 'For' cycle
For i = 1 To VMList.ListCount
X = i - 1
'Load the right item (If there are 3 items, we will load the fourth and so on)
Load VM(i)
Load VMName(i)
Load VMDescription(i)
Load VMSnap(i)
'==Set the items to their respective parents==
'Frame and PictureBox Parents
retF = SetParent(VM(i).hwnd, VMGraphicList.hwnd)
retS = SetParent(VMSnap(i).hwnd, VM(i).hwnd)
'As these are labels, they need the container property (SetParent will not work on these)
Set VMName(i).Container = VM(i)
Set VMDescription(i).Container = VM(i)
'===Set position properties for the items===
'Machine List Item (The frame)
VM(i).Visible = True
VM(i).Top = VM(X).Top + VM(0).Height
VM(i).Left = 0
'Machine Name
VMName(i).Visible = True
VMName(i).Top = VMName(X).Top
VMName(i).Left = VMName(X).Left
VMName(i).Caption = VMList.List(i - 1)
'Machine Description (Status)
VMDescription(i).Visible = True
VMDescription(i).Top = VMDescription(X).Top
VMDescription(i).Left = VMDescription(X).Left
VMDescription(i).Caption = "Not running"
'Machine Picture Properties (When running, it will show a
'screenshot of the machine screen)
VMSnap(i).Visible = True
VMSnap(i).Top = VMSnap(X).Top
VMSnap(i).Left = VMSnap(X).Left
Next
End Sub
Private Sub Form_GotFocus()
'===Bug fix===
'There was a bug that made the Main form to show prior
'to the New Mac Wizard when there were no machines
'and New Mac Wizard showed up automatically
If VMList.ListCount = 0 Then
If frmNewMac.Visible = True Then
frmNewMac.Show
End If
End If
End Sub
Private Sub Form_Load()
If VMList.ListCount = 0 Then
frmNewMac.Show
frmNewMac.SetFocus
End If
RedrawList
End Sub
Private Sub Form_Terminate()
VirtualMacTrayIcon.RemoverSystray
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
'close all sub forms
For i = Forms.Count - 1 To 1 Step -1
Unload Forms(i)
Next
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Settings", "MainLeft", Me.Left
SaveSetting App.Title, "Settings", "MainTop", Me.Top
SaveSetting App.Title, "Settings", "MainWidth", Me.Width
SaveSetting App.Title, "Settings", "MainHeight", Me.Height
End If
frmMain.VirtualMacTrayIcon.RemoverSystray
End Sub
Public Sub Start68kEmulation()
'MsgBox "VirtualMac © Beta 0.1.2. Only Motorola 68000 emulation supported (68k.exe must be same as Virtual Mac Directory)", vbInformation
MsgBox "Virtual Mac © 0.1.2 Beta. Virtualization isn't supported (again). Only fake OS X screen plus example stuff avaible"
'Shell (App.Path & "\68k.exe"), vbNormalFocus
frmVirtualMacintosh.Show
End Sub
Public Sub EnableButtons()
mnuActionStart.Enabled = True
'mnuActionPause.Enabled = True
'mnuActionRestart.Enabled = True
mnuActionRemove.Enabled = True
mnuActionSettings.Enabled = True
'mnuActionProperties.Enabled = True
Settings.Enabled = True
Remove.Enabled = True
Start.Enabled = True
End Sub
Private Sub StartPPCEmulation()
MsgBox "PPC.exe MUST be in the same directory as VirtualMac. Launching SheepShaver WITHOUT PREFS (Expect errors)", vbInformation
Shell (App.Path & "\PPC.exe"), vbNormalFocus
End Sub
Private Sub mnuActionRemove_Click()
RemoveSelectedMac
End Sub
Public Sub RemoveSelectedMac()
'Declarations
Dim Focused As Boolean
Dim Answer As Integer
Dim X As Long
'Checks that you have a machine selected
If VMList.ListIndex <> -1 Then
Focused = True
End If
'Asks you if you really want to delete the machine
If Focused = True Then
Answer = MsgBox("You have choosen to remove '" & VMList.List(VMList.ListIndex) & "' from the Virtual Mac Console. Removing items from this list will not delete the .mcc or .dsk files from your physical computer. Do you want to remove this Virtual Mac from the Virtual Mac Console?", vbExclamation + vbYesNo, "Virtual Mac")
'If you don't want that old Mac Plus, this
'is where it's deleted and recycled (Maybe)
If Answer = 6 Then
'First let's unload all the list items
For X = 1 To VMList.ListCount
VM(X).Visible = False
VMName(X).Visible = False
VMDescription(X).Visible = False
VMSnap(X).Visible = False
Unload VMName(X)
Unload VMDescription(X)
Unload VMSnap(X)
Unload VM(X)
Next
'Let's delete the item from the hidden list
VMList.RemoveItem VMList.ListIndex
DisableButtons 'Disable the buttons
'And finally redraw (Reload) the items in the list
RedrawList
End If
End If
End Sub
Private Sub mnuActionSettings_Click()
frmVMSettings.Caption = "Settings for " & VMList.List(VMList.ListIndex)
frmVMSettings.Show
End Sub
Private Sub mnuActionStart_Click()
Start68kEmulation
End Sub
Private Sub mnuFileOptions_Click()
frmOptions.Show
End Sub
Private Sub mnuHelpAbout_Click()
frmAbout.Show
End Sub
Private Sub mnuHelpSearchForHelpOn_Click()
Dim nRet As Integer
'si no hay archivo de ayuda para este proyecto, mostrar un mensaje al usuario
'puede establecer el archivo de Ayuda para su aplicación en el cuadro
'de diálogo Propiedades del proyecto
If Len(App.HelpFile) = 0 Then
MsgBox "Cannot show help contents. There is no help content avaible (yet)", vbInformation, Me.Caption
Else
On Error Resume Next
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 261, 0)
If Err Then
MsgBox Err.Description
End If
End If
End Sub
Private Sub mnuHelpContents_Click()
Dim nRet As Integer
'si no hay archivo de ayuda para este proyecto, mostrar un mensaje al usuario
'puede establecer el archivo de Ayuda para la aplicación en el cuadro
'de diálogo Propiedades del proyecto
If Len(App.HelpFile) = 0 Then
MsgBox "Cannot show help contents. There is no help content avaible (yet)", vbInformation, Me.Caption
Else
On Error Resume Next
nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0)
If Err Then
MsgBox Err.Description
End If
End If
End Sub
Private Sub mnuFileExit_Click()
Unload Me
End
End Sub
Private Sub mnuNewDisk_Click()
frmNewDisk.Show
End Sub
Private Sub mnuNewMac_Click()
frmNewMac.Show
End Sub
Private Sub NewMac_Click()
frmNewMac.Show
End Sub
Private Sub Remove_Click()
RemoveSelectedMac
End Sub
Private Sub Settings_Click()
OpenSettingsFor VMList.List(VMList.ListIndex)
End Sub
Public Sub OpenSettingsFor(MacName As String)
frmVMSettings.Caption = "Settings for " & MacName
frmVMSettings.Show
End Sub
Private Sub Start_Click()
Start68kEmulation
End Sub
Private Sub VirtualMacTrayIcon_DblClick(Button As Integer)
MsgBox "XDR"
'frmMain.ShowInTaskbar = True
End Sub
Public Sub DisableButtons()
mnuActionStart.Enabled = False
mnuActionPause.Enabled = False
mnuActionRestart.Enabled = False
mnuActionRemove.Enabled = False
mnuActionSettings.Enabled = False
mnuActionProperties.Enabled = False
Settings.Enabled = False
Remove.Enabled = False
Start.Enabled = False
End Sub
Private Sub VM_Click(Index As Integer)
'===Makes it look like you selected an object===
'When you make a single click, you'll select the element
'Declarations
Dim X As Long
'This makes all the items 'un-select', in other words, makes them white
For X = 1 To VMList.ListCount
VM(X).BackColor = &HFFFFFF
Next
'This selects the current item
VM(Index).BackColor = &H8000000D
'Let's enable those buttons and select the
'corresponding item in the hidden list
EnableButtons
VMList.ListIndex = Index - 1
End Sub
Private Sub VM_DblClick(Index As Integer)
Start68kEmulation
End Sub
Private Sub VMDescription_Click(Index As Integer)
'===Makes it look like you selected an object===
'When you make a single click, you'll select the element
'Declarations
Dim X As Long
'This makes all the items 'un-select', in other words, makes them white
For X = 1 To VMList.ListCount
VM(X).BackColor = &HFFFFFF
Next
'This selects the current item
VM(Index).BackColor = &H8000000D
'Let's enable those buttons and select the
'corresponding item in the hidden list
EnableButtons
VMList.ListIndex = Index - 1
End Sub
Private Sub VMDescription_DblClick(Index As Integer)
Start68kEmulation
End Sub
Private Sub VMGraphicList_Click()
'To handle errors in execution time (And avoid that
'the app will crash just because a human error)
On Error GoTo ErrorHandler
'Declarations
Dim X As Long
If VMList.ListCount > 0 Then
DisableButtons
VMList.ListIndex = -1
For X = 1 To VMList.ListCount
VM(X).BackColor = &HFFFFFF
Next
End If
ErrorHandler:
If Err.Number <> 0 Then
If Err.Number = 340 Then Resume Next
If Not Err.Number = 340 Then
MsgBox "Error '" & Err.Number & "' in execution time. " & Err.Description, vbExclamation
End If
End If
End Sub
Private Sub VMGraphicScroll_Change()
'===Will make the top of the list items to go up and down===
'Funny declarations (Maybe not funny...)
'Dim X As Long
'Dim Sum As Long
'Sum = VM(0) * VM.Count
'Let's place down every item
'For X = 1 To Sum
'Next
End Sub
Private Sub VMList_Click()
If VMList.ListIndex <> -1 Then
EnableButtons
End If
End Sub
Private Sub VMList_GotFocus()
If VMList.ListIndex <> -1 Then
EnableButtons
End If
End Sub
Private Sub VMName_Click(Index As Integer)
'===Makes it look like you selected an object===
'When you make a single click, you'll select the element
'Declarations
Dim X As Long
'This makes all the items 'un-select', in other words, makes them white
For X = 1 To VMList.ListCount
VM(X).BackColor = &HFFFFFF
Next
'This selects the current item
VM(Index).BackColor = &H8000000D
'Let's enable those buttons and select the
'corresponding item in the hidden list
EnableButtons
VMList.ListIndex = Index - 1
End Sub
Private Sub VMName_DblClick(Index As Integer)
Start68kEmulation
End Sub
Private Sub VMSnap_Click(Index As Integer)
'===Makes it look like you selected an object===
'When you make a single click, you'll select the element
'Declarations
Dim X As Long
'This makes all the items 'un-select', in other words, makes them white
For X = 1 To VMList.ListCount
VM(X).BackColor = &HFFFFFF
Next
'This selects the current item
VM(Index).BackColor = &H8000000D
'Let's enable those buttons and select the
'corresponding item in the hidden list
EnableButtons
VMList.ListIndex = Index - 1
End Sub
Private Sub VMSnap_DblClick(Index As Integer)
Start68kEmulation
End Sub

Binary file not shown.

2517
frmMain.resx Normal file

File diff suppressed because it is too large Load Diff

420
frmMain.vb Normal file
View File

@ -0,0 +1,420 @@
Public Class frmMain
Public Sub LoadSettings()
Dim VMNames() As String = Split(My.Settings.VMNames, ",")
Dim VMRoutes() As String = Split(My.Settings.VMRoutes, ",")
Dim VMIcons() As String = Split(My.Settings.VMIcons, ",")
Dim VMTypes() As String = Split(My.Settings.VMType, ",")
If Microsoft.VisualBasic.Command = "/debug" Then
Me.mnuFileDebug.Visible = True
Else
Me.mnuFileDebug.Visible = False
End If
If VMNames.Length > 1 Then
For x As Integer = 0 To VMNames.Length - 2
If VMIcons(x) = -1 Or VMIcons(x) = "" Then
VMIcons(x) = 0
End If
With VMList.Items.Add(VMNames(x))
.StateImageIndex = 0
.SubItems.Add(VMRoutes(x))
.SubItems.Add(VMTypes(x))
End With
Next
End If
End Sub
Public Sub SaveSettings()
Dim VMNames As String = ""
Dim VMIcons As String = ""
Dim VMRoutes As String = ""
Dim VMTypes As String = ""
Dim CustomIcons As String = ""
For x As Integer = 0 To VMList.Items.Count - 1
If VMList.Items(x).StateImageIndex = -1 Then
VMList.Items(x).StateImageIndex = 0
End If
Next
For x As Integer = 0 To VMList.Items.Count - 1
VMNames = VMNames & VMList.Items(x).Text & ","
VMIcons = VMIcons & VMList.Items(x).StateImageIndex & ","
VMRoutes = VMRoutes & VMList.Items(x).SubItems(1).Text & ","
VMTypes = VMTypes & VMList.Items(x).SubItems(2).Text & ","
Next
My.Settings.VMNames = VMNames
My.Settings.VMIcons = VMIcons
My.Settings.VMRoutes = VMRoutes
My.Settings.VMType = VMTypes
My.Settings.Save()
End Sub
Private Sub frmMain_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.Visible = False
End Sub
Private Sub frmMain_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
GetSysInfo()
VirtualMacTray.Visible = True
LoadSettings()
End Sub
Private Sub frmMain_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
SaveSettings()
If Me.WindowState <> System.Windows.Forms.FormWindowState.Minimized Then
SaveSetting(My.Application.Info.Title, "Settings", "MainLeft", CStr(VB6.PixelsToTwipsX(Me.Left)))
SaveSetting(My.Application.Info.Title, "Settings", "MainTop", CStr(VB6.PixelsToTwipsY(Me.Top)))
SaveSetting(My.Application.Info.Title, "Settings", "MainWidth", CStr(VB6.PixelsToTwipsX(Me.Width)))
SaveSetting(My.Application.Info.Title, "Settings", "MainHeight", CStr(VB6.PixelsToTwipsY(Me.Height)))
End If
End Sub
Public Sub StartEmulation(ByVal ConfigPath As String)
Dim Reader As New System.IO.StreamReader(ConfigPath, True)
Dim Line As String
Dim Lines As New ArrayList
Do
Line = Reader.ReadLine()
If Not Line Is Nothing Then
Lines.Add(Line)
End If
Loop Until Line Is Nothing
Reader.Close()
If My.Settings.TestWindow = True Then
frmVirtualMacintosh.Show()
Exit Sub
End If
Select Case VMList.FocusedItem.SubItems(2).Text
Case "vMac"
If My.Computer.FileSystem.FileExists(My.Settings.vMacPath) = True Then
frmVirtualMacintosh.Text = VMList.Items(VMList.FocusedItem.Index).Text & " - Virtual Mac"
Shell(My.Settings.vMacPath & " " & Chr(34) & Lines(0) & Chr(34), AppWinStyle.NormalFocus)
End If
Case "BII"
If My.Computer.FileSystem.FileExists(My.Settings.BasiliskPath) = True Then
Shell(My.Settings.BasiliskPath & " " & Chr(34) & VMList.FocusedItem.SubItems(1).Text & Chr(34), AppWinStyle.NormalFocus)
End If
Case "SheepShaver"
If My.Computer.FileSystem.FileExists(My.Settings.SheepShaverPath) = True Then
Shell(My.Settings.SheepShaverPath & " " & Chr(34) & VMList.FocusedItem.SubItems(1).Text & Chr(34), AppWinStyle.NormalFocus)
End If
Case "PearPC"
If My.Computer.FileSystem.FileExists(My.Settings.PearPCPath) = True Then
MsgBox("cmd.exe /k " & My.Settings.PearPCPath & " " & Chr(34) & VMList.FocusedItem.SubItems(1).Text & Chr(34))
Shell("cmd.exe /k " & My.Settings.PearPCPath & " " & Chr(34) & VMList.FocusedItem.SubItems(1).Text & Chr(34), AppWinStyle.NormalFocus)
End If
Case "QEMU"
If My.Computer.FileSystem.FileExists(My.Settings.QEMUPath) = True Then
Shell(My.Settings.QEMUPath & " " & Lines(0), AppWinStyle.NormalFocus)
End If
End Select
End Sub
Public Sub EnableButtons()
mnuActionStart.Enabled = True
'mnuActionPause.Enabled = True
'mnuActionRestart.Enabled = True
mnuActionRemove.Enabled = True
mnuActionSettings.Enabled = True
'mnuActionProperties.Enabled = True
ButtonSettings.Enabled = True
ButtonRemove.Enabled = True
ButtonStart.Enabled = True
End Sub
Public Sub RemoveSelectedMac()
'Declarations
Dim Selection As Boolean
Dim Answer As Short
'Checks that you have a machine selected
If VMList.FocusedItem.Index <> -1 Then
Selection = True
End If
'Asks you if you really want to delete the machine
If Selection = True Then
Answer = MsgBox("Are you sure you want to remove ''" & VMList.Items(VMList.FocusedItem.Index).Text & "'' Mac from the Virtual Mac Console?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Virtual Mac")
'If you don't want that old Mac Plus, this
'is where it's deleted and recycled (Maybe)
If Answer = 6 Then
'Let's ask if user wants to keep files
If MsgBox("Do you want to delete the associated files? This will delete ALL the files in the folder ''" & VMList.FocusedItem.Text & "''", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Delete files") = MsgBoxResult.Yes Then
'If user needs disk space...
My.Computer.FileSystem.DeleteDirectory(System.IO.Path.GetDirectoryName(VMList.FocusedItem.SubItems(1).Text), FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin, FileIO.UICancelOption.DoNothing)
VMList.Items.RemoveAt(VMList.FocusedItem.Index)
DisableButtons() 'Disable the buttons
Else
'If user just gets annoyed with the item but wants the files...
VMList.Items.RemoveAt(VMList.FocusedItem.Index)
DisableButtons() 'Disable the buttons
End If
End If
End If
End Sub
Private Sub NewMac_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ButtonNewM.Click
frmNewMac.Show()
End Sub
Private Sub Remove_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ButtonRemove.Click
RemoveSelectedMac()
End Sub
Private Sub Settings_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ButtonSettings.Click
OpenSettings()
End Sub
Private Sub Start_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles ButtonStart.Click
StartEmulation(VMList.FocusedItem.SubItems(1).Text)
End Sub
Public Sub DisableButtons()
mnuActionStart.Enabled = False
mnuActionPause.Enabled = False
mnuActionRestart.Enabled = False
mnuActionRemove.Enabled = False
mnuActionSettings.Enabled = False
mnuActionProperties.Enabled = False
ButtonSettings.Enabled = False
ButtonRemove.Enabled = False
ButtonStart.Enabled = False
End Sub
Public Sub UnloadAll()
If frmVirtualMacintosh.Visible = True Then
frmVirtualMacintosh.Close()
End If
If frmOptions.Visible = True Then
frmOptions.Close()
End If
If frmSettingsSheepVM.Visible = True Then
frmSettingsSheepVM.Close()
End If
If frmNewMac.Visible = True Then
frmNewMac.Close()
End If
'If frmNewDisk.Visible = True Then
'frmNewDisk.Close()
'End If
Me.Close()
End
End Sub
Private Sub IconNewMac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayNewMac.Click
frmNewMac.Show()
frmNewMac.Focus()
End Sub
Private Sub IconNewDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayNewDisk.Click
'frmNewDisk.Show()
End Sub
Private Sub IconOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayOptions.Click
frmOptions.Show()
End Sub
Private Sub IconExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayExit.Click
frmVirtualMacintosh.Close()
frmNewMac.Close()
'frmNewDisk.Close()
frmSplash.Close()
frmSettingsSheepVM.Close()
frmOptions.Close()
frmAbout.Close()
Me.Close()
End Sub
Private Sub TrayShow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrayShow.Click
Me.Visible = True
Me.ShowInTaskbar = True
Me.WindowState = FormWindowState.Normal
Me.Show()
Me.BringToFront()
End Sub
Private Sub frmMain_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
If Me.WindowState = FormWindowState.Minimized Then
Me.ShowInTaskbar = False
Me.Visible = False
End If
Me.Width = 371
End Sub
Private Sub VirtualMacTray_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles VirtualMacTray.MouseDoubleClick
Me.Visible = True
Me.ShowInTaskbar = True
Me.WindowState = FormWindowState.Normal
Me.Show()
Me.BringToFront()
End Sub
Private Sub VMList_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles VMList.Click
EnableButtons()
End Sub
Private Sub ChangeIcon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonNewIcon.Click
Dim User As Integer = MacIcons.Images.Count
Dim Picture As System.Drawing.Image
Browser.Filter = "Picture files(*.jpg;*.png;*.bmp;*.ico)|*.jpg;*.png;*.bmp;*.ico|All files (*.*)|*.*"
Browser.ShowDialog()
If Not Browser.FileName = "" Then
Picture = Image.FromFile(Browser.FileName)
MacIcons.Images.Add(User, Picture)
VMList.FocusedItem.StateImageIndex = User
End If
End Sub
Private Sub mnuFileOptions_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileOptions.Click
frmOptions.Show()
End Sub
Private Sub mnuHelpAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelpAbout.Click
frmAbout.Show()
End Sub
Private Sub mnuFileDebug_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileDebug.Click
frmDebug.Show()
End Sub
Private Sub mnuFileNewMac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileNewMac.Click
frmNewMac.Show()
End Sub
Private Sub mnuFileNewDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuFileNewDisk.Click
frmNewDisk.Show()
End Sub
Private Sub VMList_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles VMList.DragDrop
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
Dim x As String = CType(e.Data.GetData(DataFormats.FileDrop, True), String())(0)
ConfigFileHandler.CreateFromFile(DetectEmulator, x, InputBox("Write the name for the new Mac", "Creating new Mac from a file"))
Cursor = Cursors.Default
End If
End Sub
Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelpCrash.Click
'This instruction is WRONG purposedly, it's for crashing the program. This will be used for handling crashes
Dim x() As String = Split("crashing,instruction", ",")
MsgBox(x(3))
End Sub
Private Sub VMList_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles VMList.DragEnter
e.Effect = e.AllowedEffect And DragDropEffects.Copy
End Sub
Public Function DetectEmulator() As String
Dim Emulator As String = "Unknown"
Dim EmulatorDialog As New Form
Dim OKButton As New Button
Dim CancelButton As New Button
Dim EmulatorTypes As New ComboBox
EmulatorTypes.Items.Add("Basilisk II preferences file")
EmulatorTypes.Items.Add("SheepShaver preferences file")
EmulatorTypes.Items.Add("PearPC config file")
EmulatorTypes.Items.Add("QEMU Batch")
EmulatorTypes.SelectedIndex = 0
EmulatorTypes.DropDownStyle = ComboBoxStyle.DropDownList
EmulatorDialog.Width = 400
EmulatorDialog.Height = 160
EmulatorDialog.FormBorderStyle = Forms.FormBorderStyle.FixedDialog
EmulatorDialog.Controls.Add(OKButton)
EmulatorDialog.Controls.Add(CancelButton)
EmulatorDialog.Controls.Add(EmulatorTypes)
EmulatorTypes.Left = (EmulatorDialog.Width / 2) - (EmulatorTypes.Width / 2)
EmulatorTypes.Top = 40
OKButton.Top = EmulatorDialog.Height - OKButton.Height - 30
OKButton.Left = EmulatorDialog.Width - OKButton.Width - CancelButton.Width - 20
CancelButton.Top = EmulatorDialog.Height - CancelButton.Height - 30
CancelButton.Left = EmulatorDialog.Width - CancelButton.Width - 20
EmulatorDialog.ShowDialog()
Select Case EmulatorTypes.SelectedIndex
Case 0
Emulator = "vMac"
Case 1
Emulator = "BII"
Case 2
Emulator = "ShhepShaver"
Case 3
Emulator = "PearPC"
Case 4
Emulator = "QEMU"
End Select
Return Emulator
End Function
Public Sub OpenSettings()
Select Case VMList.FocusedItem.SubItems(2).Text
Case "vMac"
' frmSettingsPearPCVM.Text = Replace(frmSettingsPearPCVM.Text, "%s", VMList.FocusedItem.Text)
' frmSettingsPearPCVM.LoadSettingsFrom(VMList.FocusedItem.SubItems(1).Text)
' frmSettingsPearPCVM.Show()
Case "BII"
frmSettingsBasiliskVM.Text = Replace(frmSettingsBasiliskVM.Text, "%s", VMList.FocusedItem.Text)
frmSettingsBasiliskVM.LoadSettingsFrom(VMList.FocusedItem.Index)
frmSettingsBasiliskVM.Show()
Case "SheepShaver"
frmSettingsSheepVM.Text = Replace(frmSettingsSheepVM.Text, "%s", VMList.FocusedItem.Text)
frmSettingsSheepVM.LoadSettingsFrom(VMList.FocusedItem.Index)
frmSettingsSheepVM.Show()
Case "QEMU"
frmSettingsQemuVM.Text = Replace(frmSettingsSheepVM.Text, "%s", VMList.FocusedItem.Text)
'frmSettingsQemuVM.LoadSettingsFrom(VMList.FocusedItem.Index)
frmSettingsQemuVM.Show()
Case "PearPC"
frmSettingsPearPCVM.Text = Replace(frmSettingsSheepVM.Text, "%s", VMList.FocusedItem.Text)
frmSettingsPearPCVM.LoadSettingsFrom(VMList.FocusedItem.Index)
frmSettingsPearPCVM.Show()
End Select
End Sub
Private Sub mnuActionSettings_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuActionSettings.Click
OpenSettings()
End Sub
Private Sub mnuHelpContents_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelpContents.Click
frmHelp.Show()
End Sub
Private Sub mnuHelpOnline_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuHelpOnline.Click
Process.Start("https://edsonarmando.000webhostapp.com/personal/virtualmac/")
End Sub
End Class

407
frmNewDisk.Designer.vb generated Normal file
View File

@ -0,0 +1,407 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmNewDisk
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNewDisk))
Me.Welcome = New System.Windows.Forms.Panel()
Me.WelcomeDescription = New System.Windows.Forms.Label()
Me.WelcomeTitle = New System.Windows.Forms.Label()
Me.FormButtons = New System.Windows.Forms.GroupBox()
Me.cmdCancel = New System.Windows.Forms.Button()
Me.cmdNext = New System.Windows.Forms.Button()
Me.cmdBack = New System.Windows.Forms.Button()
Me.Wizard = New System.Windows.Forms.Panel()
Me.CreateDisk = New System.Windows.Forms.Panel()
Me.DiskSizeDefaults = New System.Windows.Forms.ComboBox()
Me.DiskMBLabel = New System.Windows.Forms.Label()
Me.DiskSize = New System.Windows.Forms.NumericUpDown()
Me.DiskSizeLabel = New System.Windows.Forms.Label()
Me.SaveDisk = New System.Windows.Forms.Button()
Me.DiskPath = New System.Windows.Forms.TextBox()
Me.CreateDiskDescription = New System.Windows.Forms.Label()
Me.DescriptionContainer = New System.Windows.Forms.GroupBox()
Me.Description = New System.Windows.Forms.Label()
Me.DescriptionName = New System.Windows.Forms.Label()
Me.Save = New System.Windows.Forms.SaveFileDialog()
Me.EndWizard = New System.Windows.Forms.Panel()
Me.EndTitle = New System.Windows.Forms.Label()
Me.EndDefSize = New System.Windows.Forms.Label()
Me.EndDefSizeLabel = New System.Windows.Forms.Label()
Me.EndInfoFinish = New System.Windows.Forms.Label()
Me.EndDescription = New System.Windows.Forms.Label()
Me.EndDefPathLabel = New System.Windows.Forms.Label()
Me.EndDefPath = New System.Windows.Forms.Label()
Me.CreateDiskInBackground = New System.ComponentModel.BackgroundWorker()
Me.Welcome.SuspendLayout()
Me.FormButtons.SuspendLayout()
Me.Wizard.SuspendLayout()
Me.CreateDisk.SuspendLayout()
CType(Me.DiskSize, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DescriptionContainer.SuspendLayout()
Me.EndWizard.SuspendLayout()
Me.SuspendLayout()
'
'Welcome
'
Me.Welcome.BackColor = System.Drawing.Color.White
Me.Welcome.BackgroundImage = Global.VirtualMac.My.Resources.Resources.NewDisk
Me.Welcome.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Welcome.Controls.Add(Me.WelcomeDescription)
Me.Welcome.Controls.Add(Me.WelcomeTitle)
Me.Welcome.Location = New System.Drawing.Point(0, 0)
Me.Welcome.Margin = New System.Windows.Forms.Padding(0)
Me.Welcome.Name = "Welcome"
Me.Welcome.Size = New System.Drawing.Size(500, 310)
Me.Welcome.TabIndex = 3
'
'WelcomeDescription
'
Me.WelcomeDescription.Location = New System.Drawing.Point(170, 60)
Me.WelcomeDescription.Name = "WelcomeDescription"
Me.WelcomeDescription.Size = New System.Drawing.Size(300, 105)
Me.WelcomeDescription.TabIndex = 1
Me.WelcomeDescription.Text = resources.GetString("WelcomeDescription.Text")
'
'WelcomeTitle
'
Me.WelcomeTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.WelcomeTitle.Location = New System.Drawing.Point(170, 15)
Me.WelcomeTitle.Name = "WelcomeTitle"
Me.WelcomeTitle.Size = New System.Drawing.Size(300, 25)
Me.WelcomeTitle.TabIndex = 0
Me.WelcomeTitle.Text = "Welcome to the New Disk Wizard"
'
'FormButtons
'
Me.FormButtons.Controls.Add(Me.cmdCancel)
Me.FormButtons.Controls.Add(Me.cmdNext)
Me.FormButtons.Controls.Add(Me.cmdBack)
Me.FormButtons.Location = New System.Drawing.Point(0, 308)
Me.FormButtons.Margin = New System.Windows.Forms.Padding(0)
Me.FormButtons.Name = "FormButtons"
Me.FormButtons.Size = New System.Drawing.Size(499, 54)
Me.FormButtons.TabIndex = 0
Me.FormButtons.TabStop = False
'
'cmdCancel
'
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdCancel.Location = New System.Drawing.Point(412, 13)
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.Size = New System.Drawing.Size(75, 23)
Me.cmdCancel.TabIndex = 3
Me.cmdCancel.Text = "Cancel"
Me.cmdCancel.UseVisualStyleBackColor = True
'
'cmdNext
'
Me.cmdNext.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdNext.Location = New System.Drawing.Point(327, 13)
Me.cmdNext.Name = "cmdNext"
Me.cmdNext.Size = New System.Drawing.Size(75, 23)
Me.cmdNext.TabIndex = 2
Me.cmdNext.Text = "&Next >"
Me.cmdNext.UseVisualStyleBackColor = True
'
'cmdBack
'
Me.cmdBack.Enabled = False
Me.cmdBack.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdBack.Location = New System.Drawing.Point(252, 13)
Me.cmdBack.Name = "cmdBack"
Me.cmdBack.Size = New System.Drawing.Size(75, 23)
Me.cmdBack.TabIndex = 1
Me.cmdBack.Text = "< &Back"
Me.cmdBack.UseVisualStyleBackColor = True
'
'Wizard
'
Me.Wizard.BackColor = System.Drawing.SystemColors.Control
Me.Wizard.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Wizard.Controls.Add(Me.CreateDisk)
Me.Wizard.Controls.Add(Me.DescriptionContainer)
Me.Wizard.Location = New System.Drawing.Point(0, 0)
Me.Wizard.Margin = New System.Windows.Forms.Padding(0)
Me.Wizard.Name = "Wizard"
Me.Wizard.Size = New System.Drawing.Size(500, 310)
Me.Wizard.TabIndex = 4
Me.Wizard.Visible = False
'
'CreateDisk
'
Me.CreateDisk.Controls.Add(Me.DiskSizeDefaults)
Me.CreateDisk.Controls.Add(Me.DiskMBLabel)
Me.CreateDisk.Controls.Add(Me.DiskSize)
Me.CreateDisk.Controls.Add(Me.DiskSizeLabel)
Me.CreateDisk.Controls.Add(Me.SaveDisk)
Me.CreateDisk.Controls.Add(Me.DiskPath)
Me.CreateDisk.Controls.Add(Me.CreateDiskDescription)
Me.CreateDisk.Location = New System.Drawing.Point(0, 59)
Me.CreateDisk.Name = "CreateDisk"
Me.CreateDisk.Size = New System.Drawing.Size(498, 245)
Me.CreateDisk.TabIndex = 4
'
'DiskSizeDefaults
'
Me.DiskSizeDefaults.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.DiskSizeDefaults.FormattingEnabled = True
Me.DiskSizeDefaults.Items.AddRange(New Object() {"User defined", "Mini vMac", "Basilisk II - 40 MB", "Basilisk II - 100 MB", "Basilisk II - 200 MB", "Basilisk II - 500 MB", "Basilisk II - 1 GB", "SheepShaver - 500 MB", "SheepShaver - 1 GB", "SheepShaver - 2 GB", "PearPC - 3 GB", "PearPC - 6 GB", "QEMU - 500 MB", "QEMU - 1 GB", "QEMU - 2 GB", "QEMU - 4 GB", "QEMU - 6 GB", "QEMU - 10 GB"})
Me.DiskSizeDefaults.Location = New System.Drawing.Point(25, 93)
Me.DiskSizeDefaults.Name = "DiskSizeDefaults"
Me.DiskSizeDefaults.Size = New System.Drawing.Size(186, 21)
Me.DiskSizeDefaults.TabIndex = 7
'
'DiskMBLabel
'
Me.DiskMBLabel.AutoSize = True
Me.DiskMBLabel.Location = New System.Drawing.Point(395, 96)
Me.DiskMBLabel.Name = "DiskMBLabel"
Me.DiskMBLabel.Size = New System.Drawing.Size(23, 13)
Me.DiskMBLabel.TabIndex = 22
Me.DiskMBLabel.Text = "MB"
'
'DiskSize
'
Me.DiskSize.Location = New System.Drawing.Point(305, 94)
Me.DiskSize.Maximum = New Decimal(New Integer() {80192, 0, 0, 0})
Me.DiskSize.Name = "DiskSize"
Me.DiskSize.Size = New System.Drawing.Size(84, 20)
Me.DiskSize.TabIndex = 8
Me.DiskSize.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'DiskSizeLabel
'
Me.DiskSizeLabel.AutoSize = True
Me.DiskSizeLabel.Location = New System.Drawing.Point(217, 96)
Me.DiskSizeLabel.Name = "DiskSizeLabel"
Me.DiskSizeLabel.Size = New System.Drawing.Size(82, 13)
Me.DiskSizeLabel.TabIndex = 20
Me.DiskSizeLabel.Text = "Size of the disk:"
'
'SaveDisk
'
Me.SaveDisk.Location = New System.Drawing.Point(395, 68)
Me.SaveDisk.Name = "SaveDisk"
Me.SaveDisk.Size = New System.Drawing.Size(75, 23)
Me.SaveDisk.TabIndex = 6
Me.SaveDisk.Text = "Browse..."
Me.SaveDisk.UseVisualStyleBackColor = True
'
'DiskPath
'
Me.DiskPath.Location = New System.Drawing.Point(25, 68)
Me.DiskPath.Name = "DiskPath"
Me.DiskPath.Size = New System.Drawing.Size(364, 20)
Me.DiskPath.TabIndex = 5
'
'CreateDiskDescription
'
Me.CreateDiskDescription.Location = New System.Drawing.Point(22, 24)
Me.CreateDiskDescription.Name = "CreateDiskDescription"
Me.CreateDiskDescription.Size = New System.Drawing.Size(450, 30)
Me.CreateDiskDescription.TabIndex = 0
Me.CreateDiskDescription.Text = "Click on Browse to set the path to your hard disk image. You can set the drop dow" & _
"n list to the emulator you are creating the disk for and get suggestions of reco" & _
"mmended sizes."
'
'DescriptionContainer
'
Me.DescriptionContainer.BackColor = System.Drawing.Color.White
Me.DescriptionContainer.Controls.Add(Me.Description)
Me.DescriptionContainer.Controls.Add(Me.DescriptionName)
Me.DescriptionContainer.Location = New System.Drawing.Point(-1, -8)
Me.DescriptionContainer.Name = "DescriptionContainer"
Me.DescriptionContainer.Size = New System.Drawing.Size(499, 67)
Me.DescriptionContainer.TabIndex = 0
Me.DescriptionContainer.TabStop = False
'
'Description
'
Me.Description.Location = New System.Drawing.Point(48, 34)
Me.Description.Name = "Description"
Me.Description.Size = New System.Drawing.Size(423, 30)
Me.Description.TabIndex = 1
Me.Description.Text = "Set the size and location for your new hard disk image."
'
'DescriptionName
'
Me.DescriptionName.AutoSize = True
Me.DescriptionName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.DescriptionName.Location = New System.Drawing.Point(23, 20)
Me.DescriptionName.Name = "DescriptionName"
Me.DescriptionName.Size = New System.Drawing.Size(134, 13)
Me.DescriptionName.TabIndex = 0
Me.DescriptionName.Text = "Route and size of disk"
'
'Save
'
Me.Save.Filter = "Disk file|*.dsk|Hard disk Image|*.img|RAW hard disk data|*.raw"
Me.Save.FilterIndex = 2
Me.Save.RestoreDirectory = True
Me.Save.SupportMultiDottedExtensions = True
'
'EndWizard
'
Me.EndWizard.BackColor = System.Drawing.Color.White
Me.EndWizard.BackgroundImage = Global.VirtualMac.My.Resources.Resources.NewDisk
Me.EndWizard.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.EndWizard.Controls.Add(Me.EndTitle)
Me.EndWizard.Controls.Add(Me.EndDefSize)
Me.EndWizard.Controls.Add(Me.EndDefSizeLabel)
Me.EndWizard.Controls.Add(Me.EndInfoFinish)
Me.EndWizard.Controls.Add(Me.EndDescription)
Me.EndWizard.Controls.Add(Me.EndDefPathLabel)
Me.EndWizard.Controls.Add(Me.EndDefPath)
Me.EndWizard.Location = New System.Drawing.Point(0, 0)
Me.EndWizard.Margin = New System.Windows.Forms.Padding(0)
Me.EndWizard.Name = "EndWizard"
Me.EndWizard.Size = New System.Drawing.Size(500, 310)
Me.EndWizard.TabIndex = 5
Me.EndWizard.Visible = False
'
'EndTitle
'
Me.EndTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.EndTitle.Location = New System.Drawing.Point(170, 15)
Me.EndTitle.Name = "EndTitle"
Me.EndTitle.Size = New System.Drawing.Size(280, 25)
Me.EndTitle.TabIndex = 0
Me.EndTitle.Text = "Completing the New Disk Wizard"
'
'EndDefSize
'
Me.EndDefSize.AutoSize = True
Me.EndDefSize.Location = New System.Drawing.Point(230, 130)
Me.EndDefSize.Name = "EndDefSize"
Me.EndDefSize.Size = New System.Drawing.Size(32, 13)
Me.EndDefSize.TabIndex = 8
Me.EndDefSize.Text = "0 MB"
'
'EndDefSizeLabel
'
Me.EndDefSizeLabel.AutoSize = True
Me.EndDefSizeLabel.Location = New System.Drawing.Point(180, 130)
Me.EndDefSizeLabel.Name = "EndDefSizeLabel"
Me.EndDefSizeLabel.Size = New System.Drawing.Size(30, 13)
Me.EndDefSizeLabel.TabIndex = 4
Me.EndDefSizeLabel.Text = "Size:"
'
'EndInfoFinish
'
Me.EndInfoFinish.Location = New System.Drawing.Point(170, 180)
Me.EndInfoFinish.Name = "EndInfoFinish"
Me.EndInfoFinish.Size = New System.Drawing.Size(280, 15)
Me.EndInfoFinish.TabIndex = 5
Me.EndInfoFinish.Text = "To close this wizard and create the disk, click Finish."
'
'EndDescription
'
Me.EndDescription.Location = New System.Drawing.Point(170, 65)
Me.EndDescription.Name = "EndDescription"
Me.EndDescription.Size = New System.Drawing.Size(300, 30)
Me.EndDescription.TabIndex = 1
Me.EndDescription.Text = "You have succefully completed the New Disk Wizard. Your new disk image will be cr" & _
"eated with the following parameters:"
'
'EndDefPathLabel
'
Me.EndDefPathLabel.AutoSize = True
Me.EndDefPathLabel.Location = New System.Drawing.Point(180, 110)
Me.EndDefPathLabel.Name = "EndDefPathLabel"
Me.EndDefPathLabel.Size = New System.Drawing.Size(38, 13)
Me.EndDefPathLabel.TabIndex = 3
Me.EndDefPathLabel.Text = "Name:"
'
'EndDefPath
'
Me.EndDefPath.Location = New System.Drawing.Point(230, 110)
Me.EndDefPath.Name = "EndDefPath"
Me.EndDefPath.Size = New System.Drawing.Size(230, 13)
Me.EndDefPath.TabIndex = 7
Me.EndDefPath.Text = "Unknown"
'
'CreateDiskInBackground
'
'
'frmNewDisk
'
Me.AcceptButton = Me.cmdNext
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.cmdCancel
Me.ClientSize = New System.Drawing.Size(499, 362)
Me.ControlBox = False
Me.Controls.Add(Me.Wizard)
Me.Controls.Add(Me.EndWizard)
Me.Controls.Add(Me.Welcome)
Me.Controls.Add(Me.FormButtons)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmNewDisk"
Me.Text = "New Disk Wizard"
Me.Welcome.ResumeLayout(False)
Me.FormButtons.ResumeLayout(False)
Me.Wizard.ResumeLayout(False)
Me.CreateDisk.ResumeLayout(False)
Me.CreateDisk.PerformLayout()
CType(Me.DiskSize, System.ComponentModel.ISupportInitialize).EndInit()
Me.DescriptionContainer.ResumeLayout(False)
Me.DescriptionContainer.PerformLayout()
Me.EndWizard.ResumeLayout(False)
Me.EndWizard.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents Welcome As System.Windows.Forms.Panel
Friend WithEvents WelcomeDescription As System.Windows.Forms.Label
Friend WithEvents WelcomeTitle As System.Windows.Forms.Label
Friend WithEvents FormButtons As System.Windows.Forms.GroupBox
Friend WithEvents cmdCancel As System.Windows.Forms.Button
Friend WithEvents cmdNext As System.Windows.Forms.Button
Friend WithEvents cmdBack As System.Windows.Forms.Button
Friend WithEvents Wizard As System.Windows.Forms.Panel
Friend WithEvents CreateDisk As System.Windows.Forms.Panel
Friend WithEvents SaveDisk As System.Windows.Forms.Button
Friend WithEvents DiskPath As System.Windows.Forms.TextBox
Friend WithEvents CreateDiskDescription As System.Windows.Forms.Label
Friend WithEvents DescriptionContainer As System.Windows.Forms.GroupBox
Friend WithEvents Description As System.Windows.Forms.Label
Friend WithEvents DescriptionName As System.Windows.Forms.Label
Friend WithEvents DiskMBLabel As System.Windows.Forms.Label
Friend WithEvents DiskSize As System.Windows.Forms.NumericUpDown
Friend WithEvents DiskSizeLabel As System.Windows.Forms.Label
Friend WithEvents Save As System.Windows.Forms.SaveFileDialog
Friend WithEvents DiskSizeDefaults As System.Windows.Forms.ComboBox
Friend WithEvents EndWizard As System.Windows.Forms.Panel
Friend WithEvents EndDefSize As System.Windows.Forms.Label
Friend WithEvents EndDefPath As System.Windows.Forms.Label
Friend WithEvents EndInfoFinish As System.Windows.Forms.Label
Friend WithEvents EndDefSizeLabel As System.Windows.Forms.Label
Friend WithEvents EndDefPathLabel As System.Windows.Forms.Label
Friend WithEvents EndDescription As System.Windows.Forms.Label
Friend WithEvents EndTitle As System.Windows.Forms.Label
Friend WithEvents CreateDiskInBackground As System.ComponentModel.BackgroundWorker
End Class

View File

@ -1,480 +0,0 @@
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmNewDisk
BackColor = &H00FFFFFF&
BorderStyle = 3 'Fixed Dialog
Caption = "New Mac Wizard"
ClientHeight = 5415
ClientLeft = 45
ClientTop = 435
ClientWidth = 7455
ControlBox = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Icon = "frmNewDisk.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5415
ScaleWidth = 7455
StartUpPosition = 2 'CenterScreen
Begin VB.Frame NewDisk1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Caption = "NewMac1"
Height = 4695
Left = 0
TabIndex = 4
Top = 0
Width = 7455
Begin VB.PictureBox WizardStart
BackColor = &H00404040&
BorderStyle = 0 'None
Height = 4695
Left = 0
Picture = "frmNewDisk.frx":18BA
ScaleHeight = 4695
ScaleWidth = 2460
TabIndex = 5
Top = 0
Width = 2460
End
Begin VB.Label TitleStart
BackStyle = 0 'Transparent
Caption = "Welcome to the Virtual Disk Wizard"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2640
TabIndex = 7
Top = 240
Width = 4575
End
Begin VB.Label DescriptionStart
BackStyle = 0 'Transparent
Caption = $"frmNewDisk.frx":27476
Height = 1215
Left = 2640
TabIndex = 6
Top = 960
Width = 4695
End
End
Begin VB.Frame NewDiskWizard
BorderStyle = 0 'None
Caption = "Frame1"
Height = 4695
Left = 0
TabIndex = 8
Top = 0
Visible = 0 'False
Width = 7455
Begin VB.Frame NewDisk2
BorderStyle = 0 'None
Height = 3855
Left = 0
TabIndex = 22
Top = 840
Visible = 0 'False
Width = 7455
Begin VB.PictureBox NewDisk2ButtonFixer
Height = 4215
Left = -120
ScaleHeight = 4155
ScaleWidth = 7515
TabIndex = 27
TabStop = 0 'False
Top = -160
Width = 7575
Begin VB.OptionButton EditVirtualDisk
Caption = "Edit an existing virtual disk"
Height = 255
Left = 720
TabIndex = 36
Top = 1500
Visible = 0 'False
Width = 4095
End
Begin VB.OptionButton DiscImage
Caption = "Create a disc image"
Height = 255
Left = 720
TabIndex = 35
Top = 1200
Width = 4815
End
Begin VB.OptionButton FloppyDisk
Caption = "Create a floppy disk"
Height = 255
Left = 720
TabIndex = 29
Top = 900
Width = 4815
End
Begin VB.OptionButton FixedDisk
Caption = "Create a fixed disk"
Height = 255
Left = 720
TabIndex = 28
Top = 600
Value = -1 'True
Width = 4815
End
Begin VB.Label Label4
Caption = "Select an option:"
Height = 255
Left = 600
TabIndex = 30
Top = 270
Width = 2175
End
End
End
Begin VB.Frame NewDisk3
BorderStyle = 0 'None
Height = 3855
Left = 0
TabIndex = 23
Top = 840
Visible = 0 'False
Width = 7215
Begin VB.CommandButton NewDisk3Browse
Caption = "Browse..."
Height = 340
Left = 5760
TabIndex = 25
Top = 615
Width = 1095
End
Begin VB.TextBox NewDisk3FileName
Height = 285
Left = 680
TabIndex = 24
Top = 645
Width = 4935
End
Begin VB.Label NewVDTitleHelp
Caption = "Name and location:"
Height = 255
Left = 675
TabIndex = 26
Top = 270
Width = 1695
End
End
Begin VB.Frame Top
BackColor = &H00FFFFFF&
Height = 975
Left = 0
TabIndex = 31
Top = -120
Width = 7455
Begin VB.PictureBox WizardPictureSmall
Height = 800
Left = 6600
Picture = "frmNewDisk.frx":27663
ScaleHeight = 735
ScaleWidth = 735
TabIndex = 32
Top = 140
Width = 800
End
Begin VB.Label Action
BackStyle = 0 'Transparent
Caption = "Disk Options"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 34
Top = 225
Width = 5175
End
Begin VB.Label ActionDescription
BackStyle = 0 'Transparent
Caption = "You can create a new virtual disk for your Macintosh."
Height = 375
Left = 600
TabIndex = 33
Top = 465
Width = 5175
End
End
Begin VB.Frame NewMacFromExist
BorderStyle = 0 'None
Height = 3855
Left = 0
TabIndex = 9
Top = 840
Visible = 0 'False
Width = 7215
Begin VB.TextBox FileNameA
Height = 285
IMEMode = 3 'DISABLE
Left = 600
TabIndex = 17
Text = "New Mac"
Top = 840
Width = 5055
End
Begin VB.CommandButton BrowseA
Caption = "Browse..."
Height = 340
Left = 5760
TabIndex = 10
Top = 825
Width = 1095
End
Begin VB.Label FileNameTitleA
Caption = "Name and location:"
Height = 255
Left = 600
TabIndex = 12
Top = 600
Width = 1815
End
Begin VB.Label HelpA
BackStyle = 0 'Transparent
Caption = "Specify the .mcc file you want to add to the Virtual Mac Console."
Height = 255
Left = 600
TabIndex = 11
Top = 240
Width = 5775
End
End
End
Begin VB.Frame NewDiskEnd
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Caption = "NewMac1"
Height = 4695
Left = 0
TabIndex = 13
Top = 0
Visible = 0 'False
Width = 7455
Begin VB.CheckBox OpenSettingsAfterFinish
BackColor = &H00FFFFFF&
Caption = "When I click Finish, open Settings."
Height = 375
Left = 2680
TabIndex = 19
Top = 3060
Value = 1 'Checked
Width = 4215
End
Begin VB.PictureBox WizardEnd
BackColor = &H00800000&
BorderStyle = 0 'None
Height = 4695
Left = 0
Picture = "frmNewDisk.frx":292FB
ScaleHeight = 4695
ScaleWidth = 2460
TabIndex = 14
Top = 0
Width = 2460
End
Begin VB.Label AdviceClickFinish
BackStyle = 0 'Transparent
Caption = "To close this wizard, click Finish."
Height = 255
Left = 2680
TabIndex = 21
Top = 3480
Width = 3135
End
Begin VB.Label AdviceNoHD
BackStyle = 0 'Transparent
Caption = "Before you can install an operating system on this Virtual Mac, you must add a virtual hard disk to it."
Height = 495
Left = 2640
TabIndex = 20
Top = 1800
Visible = 0 'False
Width = 4095
End
Begin VB.Label VMName
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 435
Left = 2640
TabIndex = 18
Top = 1200
Width = 4695
WordWrap = -1 'True
End
Begin VB.Label DescriptionEnd
BackStyle = 0 'Transparent
Caption = "You have completed succefully the New Virtual Mac Wizard and have named your Mac:"
Height = 495
Left = 2640
TabIndex = 16
Top = 720
Width = 3975
End
Begin VB.Label TitleEnd
BackStyle = 0 'Transparent
Caption = "Completing the New Virtual Mac Wizard"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2640
TabIndex = 15
Top = 240
Width = 4575
End
End
Begin MSComDlg.CommonDialog Browse
Left = 120
Top = 4800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame ControlBox
Height = 835
Left = 0
TabIndex = 3
Top = 4620
Width = 7455
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
Height = 340
Left = 6200
TabIndex = 2
Top = 300
Width = 1095
End
Begin VB.CommandButton cmdNext
Caption = "Next >"
Default = -1 'True
Height = 340
Left = 4920
TabIndex = 0
Top = 300
Width = 1095
End
Begin VB.CommandButton cmdBack
Caption = "< Back"
Enabled = 0 'False
Height = 340
Left = 3810
TabIndex = 1
ToolTipText = "Atras"
Top = 300
Width = 1095
End
End
End
Attribute VB_Name = "frmNewDisk"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdBack_Click()
If NewDisk2.Visible = True Then
cmdBack.Enabled = False
NewDisk2.Visible = False
NewDiskWizard.Visible = False
NewDisk1.Visible = True
GoTo EndNext
End If
If NewDisk3.Visible = True Then
NewDisk3.Visible = False
Action.Caption = "Disk Wizard"
ActionDescription.Caption = "You can create a new virtual disk for your Macintosh."
NewDisk2.Visible = True
GoTo EndNext
End If
EndNext:
End Sub
Private Sub cmdCancel_Click()
Unload Me
frmMain.Show
End Sub
Private Sub cmdNext_Click()
Dim VDisk As Long
If NewDisk1.Visible = True Then
NewDisk1.Visible = False
NewDiskWizard.Visible = True
NewDisk2.Visible = True
cmdBack.Enabled = True
GoTo EndNext
End If
If NewDisk2.Visible = True Then
End If
EndNext:
End Sub
Private Sub NewDisk3Browse_Click()
Browse.Filter = "Virtual Disk Files (*.dsk;*.img;*.vhd)|*.dsk;*.img;*.vhd|All files (*.*)|*.*"
Browse.ShowSave
NewMac7VDName.Text = Browse.FileName
End Sub
Function VerifyKey(PressedKey)
Dim AllowedKeys As String
AllowedKeys = "1234567890" & Chr(vbKeyBack)
If InStr(1, AllowedKeys, Chr(PressedKey)) Then
VerifyKey = PressedKey
Else
VerifyKey = 0
End If
End Function
Private Sub NewDisk3FileName_Change()
If NewDisk3FileName.Text = "" Then
cmdNext.Enabled = False
End If
End Sub

Binary file not shown.

247
frmNewDisk.resx Normal file
View File

@ -0,0 +1,247 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="WelcomeDescription.Text" xml:space="preserve">
<value>This wizard helps you to create an empty RAW hard disk image, of the size and in the location of your desire, so you can use it with the emulator of your choice.
The file created may have a &lt;.dsk&gt;, &lt;.img&gt; or &lt;.raw&gt; extension
To continue, click Next.</value>
</data>
<metadata name="Save.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>12, 1</value>
</metadata>
<metadata name="CreateDiskInBackground.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>89, 1</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>38</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAABAAoAQAANgAAACAgAAAAAAgAqAgAAF4BAAAwMAAAAAAIAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAQAAAAEAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChEREREREREREREREREREREREREREREREREREREKCgoK
EREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERER
CgoKChEREREREREREREREREREREREREREREREREREREKCgoKERERERERERERERERERERERERERERERER
EREREQoKCgoRERERERERERERERERERERERERERERERERERERCgoKChERERERERERERERERERERERERER
EREREREREREKCgoKEREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERER
ERERERERERERERERCgoKChEREREREREREREREREREREREREREREREREREREKCgoKERERERERERERERER
EREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERERCgoKChERERERERER
EREREREREREREREREREREREREREKCgoKEREREREREREREREREREREREREREREREREREREQoKCgoRERER
ERERERERERERERERERERERERERERERERCgoKChEREREREREREREREREREREREREREREREREREREKCgoK
EREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERER
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAAAkAAAAAAAAAAAAAAAEAAAABAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcH
BwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//8AAP//
AAD//4AB//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
</root>

126
frmNewDisk.vb Normal file
View File

@ -0,0 +1,126 @@
Public Class frmNewDisk
Private Sub frmNewDisk_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
SetInitialData()
End Sub
Public Sub SetInitialData()
DiskSizeDefaults.SelectedIndex = 0
Welcome.BringToFront()
Welcome.Visible = True
Wizard.Visible = False
EndWizard.Visible = False
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 Welcome.Visible = True Then
If DiskPath.Text = "" Then
cmdNext.Enabled = False
Else
cmdNext.Enabled = True
End If
SwitchPages(Welcome, Wizard)
cmdBack.Enabled = True
DiskPath.Focus()
GoTo EndOfInstruction
End If
If DiskPath.Text <> "" And Wizard.Visible = True Then
Dim SizeToGrow As Integer = FixControlHeight(EndDefPath, EndWizard, 30)
EndDefSize.Top = EndDefSize.Top + SizeToGrow
EndDefSizeLabel.Top = EndDefSizeLabel.Top + SizeToGrow
EndInfoFinish.Top = EndInfoFinish.Top + SizeToGrow
EndDefPath.Text = DiskPath.Text
EndDefSize.Text = DiskSize.Value & " MB"
SwitchPages(Wizard, EndWizard)
cmdNext.Text = "Finish"
GoTo EndOfInstruction
End If
If EndWizard.Visible = True Then
CreateDiskInBackground.RunWorkerAsync(DiskSize.Value & ";" & DiskPath.Text)
MsgBox("The image ''" & DiskPath.Text & "'' is being created in the background.", MsgBoxStyle.Exclamation, "Creating disk image")
Me.Close()
GoTo EndOfInstruction
End If
EndOfInstruction:
End Sub
Public Function FixControlHeight(ByVal Control As System.Windows.Forms.Control, ByVal Parent As System.Windows.Forms.Control, ByVal LeftMargin As Long) As Integer
'Parent - Control.Location = Total size of the area where is visible the control
'Size of the area where the control should be - Margin = Are where we want the control to stay on
'Note that this is only minding the Width/X growing the height, so a certain space is respected
Dim StayArea As UInteger = ((Parent.Width - Control.Location.X) - LeftMargin)
Dim StayAreaTimes As Integer
Dim HeightGrowth As Integer
Dim OldHeight As Integer = Control.Height
If (Control.PreferredSize.Width) > StayArea Then
If Not Control.Height > Control.PreferredSize.Height Then
While (Control.PreferredSize.Width) > StayAreaTimes
StayAreaTimes = StayAreaTimes + StayArea
End While
StayAreaTimes -= StayArea
Dim PercentageToGrow As Integer = StayAreaTimes / StayArea + 1
HeightGrowth = OldHeight * PercentageToGrow
Control.Height = HeightGrowth
End If
End If
Return HeightGrowth
End Function
Private Sub cmdBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBack.Click
If Wizard.Visible = True Then
cmdBack.Enabled = False
cmdNext.Enabled = True
SwitchPages(Wizard, Welcome)
End If
If EndWizard.Visible = True Then
SwitchPages(EndWizard, Wizard)
cmdNext.Text = "Next >"
End If
End Sub
Public Sub SwitchPages(ByVal EarlyPage As System.Windows.Forms.Panel, ByVal NewPage As System.Windows.Forms.Panel)
EarlyPage.BringToFront()
NewPage.Visible = True
NewPage.BringToFront()
EarlyPage.Visible = False
End Sub
Private Sub SaveDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveDisk.Click
Save.ShowDialog()
If Save.FileName <> "" Then
DiskPath.Text = Save.FileName
End If
End Sub
Private Sub DiskPath_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DiskPath.TextChanged
If DiskPath.Text <> "" Then
cmdNext.Enabled = True
Else
cmdNext.Enabled = False
End If
End Sub
Private Sub CreateDiskInBackground_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles CreateDiskInBackground.DoWork
Dim HDSize As Long = e.Argument.ToString.Substring(0, InStr(e.Argument.ToString, ";") - 1)
Dim HDPath As String = e.Argument.ToString.Substring(InStr(e.Argument.ToString, ";"))
DiskImageCreator.CreateRawDisk(HDSize, HDPath)
End Sub
End Class

810
frmNewMac.Designer.vb generated Normal file
View File

@ -0,0 +1,810 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmNewMac
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNewMac))
Me.FormButtons = New System.Windows.Forms.GroupBox()
Me.cmdCancel = New System.Windows.Forms.Button()
Me.cmdNext = New System.Windows.Forms.Button()
Me.cmdBack = New System.Windows.Forms.Button()
Me.Wizard = New System.Windows.Forms.Panel()
Me.CreateFrame = New System.Windows.Forms.Panel()
Me.CreateNoWizardLabel = New System.Windows.Forms.Label()
Me.CreateNoWizard = New System.Windows.Forms.RadioButton()
Me.CreateAddExistLabel = New System.Windows.Forms.Label()
Me.CreateAddExist = New System.Windows.Forms.RadioButton()
Me.CreateNormalLabel = New System.Windows.Forms.Label()
Me.CreateNormal = New System.Windows.Forms.RadioButton()
Me.CreateInfo = New System.Windows.Forms.Label()
Me.MacNameFrame = New System.Windows.Forms.Panel()
Me.MacName = New System.Windows.Forms.TextBox()
Me.MacNameLabel = New System.Windows.Forms.Label()
Me.MacNameBrowse = New System.Windows.Forms.Button()
Me.AddFromFileFrame = New System.Windows.Forms.Panel()
Me.AddName = New System.Windows.Forms.TextBox()
Me.AddNameLabel = New System.Windows.Forms.Label()
Me.AddFile = New System.Windows.Forms.TextBox()
Me.AddFileLabel = New System.Windows.Forms.Label()
Me.AddEmulatorLabel = New System.Windows.Forms.Label()
Me.AddEmulator = New System.Windows.Forms.ComboBox()
Me.AddInfo = New System.Windows.Forms.Label()
Me.AddFileBrowse = New System.Windows.Forms.Button()
Me.HwPresetsFrame = New System.Windows.Forms.Panel()
Me.HwEmulator = New System.Windows.Forms.ComboBox()
Me.HwInfoDef = New System.Windows.Forms.Label()
Me.HwEmulatorLabel = New System.Windows.Forms.Label()
Me.HwInfo = New System.Windows.Forms.Label()
Me.HwRAM = New System.Windows.Forms.Label()
Me.HwRAMLabel = New System.Windows.Forms.Label()
Me.HwDisk = New System.Windows.Forms.Label()
Me.HwDiskLabel = New System.Windows.Forms.Label()
Me.HwCPU = New System.Windows.Forms.Label()
Me.HwCPULabel = New System.Windows.Forms.Label()
Me.HwOSList = New System.Windows.Forms.ComboBox()
Me.RAMFrame = New System.Windows.Forms.Panel()
Me.RAMInfo = New System.Windows.Forms.Label()
Me.RAMCustom = New System.Windows.Forms.RadioButton()
Me.RAMDefault = New System.Windows.Forms.RadioButton()
Me.RAMControlsPanel = New System.Windows.Forms.Panel()
Me.RAMCustomInvalidSize = New System.Windows.Forms.Label()
Me.RAMSlider = New System.Windows.Forms.TrackBar()
Me.RAMLabelMB = New System.Windows.Forms.Label()
Me.RAMBox = New System.Windows.Forms.TextBox()
Me.DiskFrame = New System.Windows.Forms.Panel()
Me.DiskNew = New System.Windows.Forms.RadioButton()
Me.DiskExisting = New System.Windows.Forms.RadioButton()
Me.DiskNone = New System.Windows.Forms.RadioButton()
Me.DiskInfo = New System.Windows.Forms.Label()
Me.DiskPathBrowse = New System.Windows.Forms.Button()
Me.DiskPath = New System.Windows.Forms.TextBox()
Me.DiskSizeFrame = New System.Windows.Forms.Panel()
Me.DiskSize = New System.Windows.Forms.NumericUpDown()
Me.DiskSizeLabel = New System.Windows.Forms.Label()
Me.DiskSizeLabelMB = New System.Windows.Forms.Label()
Me.DescriptionContainer = New System.Windows.Forms.GroupBox()
Me.Description = New System.Windows.Forms.Label()
Me.DescriptionName = New System.Windows.Forms.Label()
Me.Open = New System.Windows.Forms.OpenFileDialog()
Me.Save = New System.Windows.Forms.SaveFileDialog()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.Welcome = New System.Windows.Forms.Panel()
Me.WelcomeDescription = New System.Windows.Forms.Label()
Me.WelcomeTitle = New System.Windows.Forms.Label()
Me.EndWizard = New System.Windows.Forms.Panel()
Me.EndTitle = New System.Windows.Forms.Label()
Me.EndInfo = New System.Windows.Forms.Label()
Me.EndMacName = New System.Windows.Forms.Label()
Me.EndMacNameLabel = New System.Windows.Forms.Label()
Me.EndRAM = New System.Windows.Forms.Label()
Me.EndRAMLabel = New System.Windows.Forms.Label()
Me.EndDiskPath = New System.Windows.Forms.Label()
Me.EndDiskPathLabel = New System.Windows.Forms.Label()
Me.EndInfoFinish = New System.Windows.Forms.Label()
Me.FormButtons.SuspendLayout()
Me.Wizard.SuspendLayout()
Me.CreateFrame.SuspendLayout()
Me.MacNameFrame.SuspendLayout()
Me.AddFromFileFrame.SuspendLayout()
Me.HwPresetsFrame.SuspendLayout()
Me.RAMFrame.SuspendLayout()
Me.RAMControlsPanel.SuspendLayout()
CType(Me.RAMSlider, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DiskFrame.SuspendLayout()
Me.DiskSizeFrame.SuspendLayout()
CType(Me.DiskSize, System.ComponentModel.ISupportInitialize).BeginInit()
Me.DescriptionContainer.SuspendLayout()
Me.Welcome.SuspendLayout()
Me.EndWizard.SuspendLayout()
Me.SuspendLayout()
'
'FormButtons
'
resources.ApplyResources(Me.FormButtons, "FormButtons")
Me.FormButtons.Controls.Add(Me.cmdCancel)
Me.FormButtons.Controls.Add(Me.cmdNext)
Me.FormButtons.Controls.Add(Me.cmdBack)
Me.FormButtons.Name = "FormButtons"
Me.FormButtons.TabStop = False
Me.ToolTip1.SetToolTip(Me.FormButtons, resources.GetString("FormButtons.ToolTip"))
'
'cmdCancel
'
resources.ApplyResources(Me.cmdCancel, "cmdCancel")
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.Name = "cmdCancel"
Me.ToolTip1.SetToolTip(Me.cmdCancel, resources.GetString("cmdCancel.ToolTip"))
Me.cmdCancel.UseVisualStyleBackColor = True
'
'cmdNext
'
resources.ApplyResources(Me.cmdNext, "cmdNext")
Me.cmdNext.Name = "cmdNext"
Me.ToolTip1.SetToolTip(Me.cmdNext, resources.GetString("cmdNext.ToolTip"))
Me.cmdNext.UseVisualStyleBackColor = True
'
'cmdBack
'
resources.ApplyResources(Me.cmdBack, "cmdBack")
Me.cmdBack.Name = "cmdBack"
Me.ToolTip1.SetToolTip(Me.cmdBack, resources.GetString("cmdBack.ToolTip"))
Me.cmdBack.UseVisualStyleBackColor = True
'
'Wizard
'
resources.ApplyResources(Me.Wizard, "Wizard")
Me.Wizard.BackColor = System.Drawing.SystemColors.Control
Me.Wizard.Controls.Add(Me.MacNameFrame)
Me.Wizard.Controls.Add(Me.AddFromFileFrame)
Me.Wizard.Controls.Add(Me.HwPresetsFrame)
Me.Wizard.Controls.Add(Me.RAMFrame)
Me.Wizard.Controls.Add(Me.DiskFrame)
Me.Wizard.Controls.Add(Me.CreateFrame)
Me.Wizard.Controls.Add(Me.DescriptionContainer)
Me.Wizard.Name = "Wizard"
Me.ToolTip1.SetToolTip(Me.Wizard, resources.GetString("Wizard.ToolTip"))
'
'CreateFrame
'
resources.ApplyResources(Me.CreateFrame, "CreateFrame")
Me.CreateFrame.Controls.Add(Me.CreateNoWizardLabel)
Me.CreateFrame.Controls.Add(Me.CreateNoWizard)
Me.CreateFrame.Controls.Add(Me.CreateAddExistLabel)
Me.CreateFrame.Controls.Add(Me.CreateAddExist)
Me.CreateFrame.Controls.Add(Me.CreateNormalLabel)
Me.CreateFrame.Controls.Add(Me.CreateNormal)
Me.CreateFrame.Controls.Add(Me.CreateInfo)
Me.CreateFrame.Name = "CreateFrame"
Me.ToolTip1.SetToolTip(Me.CreateFrame, resources.GetString("CreateFrame.ToolTip"))
'
'CreateNoWizardLabel
'
resources.ApplyResources(Me.CreateNoWizardLabel, "CreateNoWizardLabel")
Me.CreateNoWizardLabel.Name = "CreateNoWizardLabel"
Me.ToolTip1.SetToolTip(Me.CreateNoWizardLabel, resources.GetString("CreateNoWizardLabel.ToolTip"))
'
'CreateNoWizard
'
resources.ApplyResources(Me.CreateNoWizard, "CreateNoWizard")
Me.CreateNoWizard.Checked = True
Me.CreateNoWizard.Name = "CreateNoWizard"
Me.CreateNoWizard.TabStop = True
Me.ToolTip1.SetToolTip(Me.CreateNoWizard, resources.GetString("CreateNoWizard.ToolTip"))
Me.CreateNoWizard.UseVisualStyleBackColor = True
'
'CreateAddExistLabel
'
resources.ApplyResources(Me.CreateAddExistLabel, "CreateAddExistLabel")
Me.CreateAddExistLabel.Name = "CreateAddExistLabel"
Me.ToolTip1.SetToolTip(Me.CreateAddExistLabel, resources.GetString("CreateAddExistLabel.ToolTip"))
'
'CreateAddExist
'
resources.ApplyResources(Me.CreateAddExist, "CreateAddExist")
Me.CreateAddExist.Name = "CreateAddExist"
Me.ToolTip1.SetToolTip(Me.CreateAddExist, resources.GetString("CreateAddExist.ToolTip"))
Me.CreateAddExist.UseVisualStyleBackColor = True
'
'CreateNormalLabel
'
resources.ApplyResources(Me.CreateNormalLabel, "CreateNormalLabel")
Me.CreateNormalLabel.Name = "CreateNormalLabel"
Me.ToolTip1.SetToolTip(Me.CreateNormalLabel, resources.GetString("CreateNormalLabel.ToolTip"))
'
'CreateNormal
'
resources.ApplyResources(Me.CreateNormal, "CreateNormal")
Me.CreateNormal.Name = "CreateNormal"
Me.ToolTip1.SetToolTip(Me.CreateNormal, resources.GetString("CreateNormal.ToolTip"))
Me.CreateNormal.UseVisualStyleBackColor = True
'
'CreateInfo
'
resources.ApplyResources(Me.CreateInfo, "CreateInfo")
Me.CreateInfo.Name = "CreateInfo"
Me.ToolTip1.SetToolTip(Me.CreateInfo, resources.GetString("CreateInfo.ToolTip"))
'
'MacNameFrame
'
resources.ApplyResources(Me.MacNameFrame, "MacNameFrame")
Me.MacNameFrame.Controls.Add(Me.MacName)
Me.MacNameFrame.Controls.Add(Me.MacNameLabel)
Me.MacNameFrame.Controls.Add(Me.MacNameBrowse)
Me.MacNameFrame.Name = "MacNameFrame"
Me.ToolTip1.SetToolTip(Me.MacNameFrame, resources.GetString("MacNameFrame.ToolTip"))
'
'MacName
'
resources.ApplyResources(Me.MacName, "MacName")
Me.MacName.Name = "MacName"
Me.ToolTip1.SetToolTip(Me.MacName, resources.GetString("MacName.ToolTip"))
'
'MacNameLabel
'
resources.ApplyResources(Me.MacNameLabel, "MacNameLabel")
Me.MacNameLabel.Name = "MacNameLabel"
Me.ToolTip1.SetToolTip(Me.MacNameLabel, resources.GetString("MacNameLabel.ToolTip"))
'
'MacNameBrowse
'
resources.ApplyResources(Me.MacNameBrowse, "MacNameBrowse")
Me.MacNameBrowse.Name = "MacNameBrowse"
Me.ToolTip1.SetToolTip(Me.MacNameBrowse, resources.GetString("MacNameBrowse.ToolTip"))
Me.MacNameBrowse.UseVisualStyleBackColor = True
'
'AddFromFileFrame
'
resources.ApplyResources(Me.AddFromFileFrame, "AddFromFileFrame")
Me.AddFromFileFrame.Controls.Add(Me.AddName)
Me.AddFromFileFrame.Controls.Add(Me.AddNameLabel)
Me.AddFromFileFrame.Controls.Add(Me.AddFile)
Me.AddFromFileFrame.Controls.Add(Me.AddFileLabel)
Me.AddFromFileFrame.Controls.Add(Me.AddEmulatorLabel)
Me.AddFromFileFrame.Controls.Add(Me.AddEmulator)
Me.AddFromFileFrame.Controls.Add(Me.AddInfo)
Me.AddFromFileFrame.Controls.Add(Me.AddFileBrowse)
Me.AddFromFileFrame.Name = "AddFromFileFrame"
Me.ToolTip1.SetToolTip(Me.AddFromFileFrame, resources.GetString("AddFromFileFrame.ToolTip"))
'
'AddName
'
resources.ApplyResources(Me.AddName, "AddName")
Me.AddName.Name = "AddName"
Me.ToolTip1.SetToolTip(Me.AddName, resources.GetString("AddName.ToolTip"))
'
'AddNameLabel
'
resources.ApplyResources(Me.AddNameLabel, "AddNameLabel")
Me.AddNameLabel.Name = "AddNameLabel"
Me.ToolTip1.SetToolTip(Me.AddNameLabel, resources.GetString("AddNameLabel.ToolTip"))
'
'AddFile
'
resources.ApplyResources(Me.AddFile, "AddFile")
Me.AddFile.Name = "AddFile"
Me.ToolTip1.SetToolTip(Me.AddFile, resources.GetString("AddFile.ToolTip"))
'
'AddFileLabel
'
resources.ApplyResources(Me.AddFileLabel, "AddFileLabel")
Me.AddFileLabel.Name = "AddFileLabel"
Me.ToolTip1.SetToolTip(Me.AddFileLabel, resources.GetString("AddFileLabel.ToolTip"))
'
'AddEmulatorLabel
'
resources.ApplyResources(Me.AddEmulatorLabel, "AddEmulatorLabel")
Me.AddEmulatorLabel.Name = "AddEmulatorLabel"
Me.ToolTip1.SetToolTip(Me.AddEmulatorLabel, resources.GetString("AddEmulatorLabel.ToolTip"))
'
'AddEmulator
'
resources.ApplyResources(Me.AddEmulator, "AddEmulator")
Me.AddEmulator.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.AddEmulator.FormattingEnabled = True
Me.AddEmulator.Items.AddRange(New Object() {resources.GetString("AddEmulator.Items"), resources.GetString("AddEmulator.Items1"), resources.GetString("AddEmulator.Items2"), resources.GetString("AddEmulator.Items3"), resources.GetString("AddEmulator.Items4"), resources.GetString("AddEmulator.Items5")})
Me.AddEmulator.Name = "AddEmulator"
Me.ToolTip1.SetToolTip(Me.AddEmulator, resources.GetString("AddEmulator.ToolTip"))
'
'AddInfo
'
resources.ApplyResources(Me.AddInfo, "AddInfo")
Me.AddInfo.Name = "AddInfo"
Me.ToolTip1.SetToolTip(Me.AddInfo, resources.GetString("AddInfo.ToolTip"))
'
'AddFileBrowse
'
resources.ApplyResources(Me.AddFileBrowse, "AddFileBrowse")
Me.AddFileBrowse.Name = "AddFileBrowse"
Me.ToolTip1.SetToolTip(Me.AddFileBrowse, resources.GetString("AddFileBrowse.ToolTip"))
Me.AddFileBrowse.UseVisualStyleBackColor = True
'
'HwPresetsFrame
'
resources.ApplyResources(Me.HwPresetsFrame, "HwPresetsFrame")
Me.HwPresetsFrame.Controls.Add(Me.HwEmulator)
Me.HwPresetsFrame.Controls.Add(Me.HwInfoDef)
Me.HwPresetsFrame.Controls.Add(Me.HwEmulatorLabel)
Me.HwPresetsFrame.Controls.Add(Me.HwInfo)
Me.HwPresetsFrame.Controls.Add(Me.HwRAM)
Me.HwPresetsFrame.Controls.Add(Me.HwRAMLabel)
Me.HwPresetsFrame.Controls.Add(Me.HwDisk)
Me.HwPresetsFrame.Controls.Add(Me.HwDiskLabel)
Me.HwPresetsFrame.Controls.Add(Me.HwCPU)
Me.HwPresetsFrame.Controls.Add(Me.HwCPULabel)
Me.HwPresetsFrame.Controls.Add(Me.HwOSList)
Me.HwPresetsFrame.Name = "HwPresetsFrame"
Me.ToolTip1.SetToolTip(Me.HwPresetsFrame, resources.GetString("HwPresetsFrame.ToolTip"))
'
'HwEmulator
'
resources.ApplyResources(Me.HwEmulator, "HwEmulator")
Me.HwEmulator.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.HwEmulator.FormattingEnabled = True
Me.HwEmulator.Items.AddRange(New Object() {resources.GetString("HwEmulator.Items"), resources.GetString("HwEmulator.Items1"), resources.GetString("HwEmulator.Items2"), resources.GetString("HwEmulator.Items3"), resources.GetString("HwEmulator.Items4")})
Me.HwEmulator.Name = "HwEmulator"
Me.ToolTip1.SetToolTip(Me.HwEmulator, resources.GetString("HwEmulator.ToolTip"))
'
'HwInfoDef
'
resources.ApplyResources(Me.HwInfoDef, "HwInfoDef")
Me.HwInfoDef.Name = "HwInfoDef"
Me.ToolTip1.SetToolTip(Me.HwInfoDef, resources.GetString("HwInfoDef.ToolTip"))
'
'HwEmulatorLabel
'
resources.ApplyResources(Me.HwEmulatorLabel, "HwEmulatorLabel")
Me.HwEmulatorLabel.Name = "HwEmulatorLabel"
Me.ToolTip1.SetToolTip(Me.HwEmulatorLabel, resources.GetString("HwEmulatorLabel.ToolTip"))
'
'HwInfo
'
resources.ApplyResources(Me.HwInfo, "HwInfo")
Me.HwInfo.Name = "HwInfo"
Me.ToolTip1.SetToolTip(Me.HwInfo, resources.GetString("HwInfo.ToolTip"))
'
'HwRAM
'
resources.ApplyResources(Me.HwRAM, "HwRAM")
Me.HwRAM.Name = "HwRAM"
Me.ToolTip1.SetToolTip(Me.HwRAM, resources.GetString("HwRAM.ToolTip"))
'
'HwRAMLabel
'
resources.ApplyResources(Me.HwRAMLabel, "HwRAMLabel")
Me.HwRAMLabel.Name = "HwRAMLabel"
Me.ToolTip1.SetToolTip(Me.HwRAMLabel, resources.GetString("HwRAMLabel.ToolTip"))
'
'HwDisk
'
resources.ApplyResources(Me.HwDisk, "HwDisk")
Me.HwDisk.Name = "HwDisk"
Me.ToolTip1.SetToolTip(Me.HwDisk, resources.GetString("HwDisk.ToolTip"))
'
'HwDiskLabel
'
resources.ApplyResources(Me.HwDiskLabel, "HwDiskLabel")
Me.HwDiskLabel.Name = "HwDiskLabel"
Me.ToolTip1.SetToolTip(Me.HwDiskLabel, resources.GetString("HwDiskLabel.ToolTip"))
'
'HwCPU
'
resources.ApplyResources(Me.HwCPU, "HwCPU")
Me.HwCPU.Name = "HwCPU"
Me.ToolTip1.SetToolTip(Me.HwCPU, resources.GetString("HwCPU.ToolTip"))
'
'HwCPULabel
'
resources.ApplyResources(Me.HwCPULabel, "HwCPULabel")
Me.HwCPULabel.Name = "HwCPULabel"
Me.ToolTip1.SetToolTip(Me.HwCPULabel, resources.GetString("HwCPULabel.ToolTip"))
'
'HwOSList
'
resources.ApplyResources(Me.HwOSList, "HwOSList")
Me.HwOSList.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.HwOSList.FormattingEnabled = True
Me.HwOSList.Name = "HwOSList"
Me.ToolTip1.SetToolTip(Me.HwOSList, resources.GetString("HwOSList.ToolTip"))
'
'RAMFrame
'
resources.ApplyResources(Me.RAMFrame, "RAMFrame")
Me.RAMFrame.Controls.Add(Me.RAMInfo)
Me.RAMFrame.Controls.Add(Me.RAMCustom)
Me.RAMFrame.Controls.Add(Me.RAMDefault)
Me.RAMFrame.Controls.Add(Me.RAMControlsPanel)
Me.RAMFrame.Name = "RAMFrame"
Me.ToolTip1.SetToolTip(Me.RAMFrame, resources.GetString("RAMFrame.ToolTip"))
'
'RAMInfo
'
resources.ApplyResources(Me.RAMInfo, "RAMInfo")
Me.RAMInfo.Name = "RAMInfo"
Me.ToolTip1.SetToolTip(Me.RAMInfo, resources.GetString("RAMInfo.ToolTip"))
'
'RAMCustom
'
resources.ApplyResources(Me.RAMCustom, "RAMCustom")
Me.RAMCustom.Name = "RAMCustom"
Me.ToolTip1.SetToolTip(Me.RAMCustom, resources.GetString("RAMCustom.ToolTip"))
Me.RAMCustom.UseVisualStyleBackColor = True
'
'RAMDefault
'
resources.ApplyResources(Me.RAMDefault, "RAMDefault")
Me.RAMDefault.Checked = True
Me.RAMDefault.Name = "RAMDefault"
Me.RAMDefault.TabStop = True
Me.ToolTip1.SetToolTip(Me.RAMDefault, resources.GetString("RAMDefault.ToolTip"))
Me.RAMDefault.UseVisualStyleBackColor = True
'
'RAMControlsPanel
'
resources.ApplyResources(Me.RAMControlsPanel, "RAMControlsPanel")
Me.RAMControlsPanel.Controls.Add(Me.RAMCustomInvalidSize)
Me.RAMControlsPanel.Controls.Add(Me.RAMSlider)
Me.RAMControlsPanel.Controls.Add(Me.RAMLabelMB)
Me.RAMControlsPanel.Controls.Add(Me.RAMBox)
Me.RAMControlsPanel.Name = "RAMControlsPanel"
Me.ToolTip1.SetToolTip(Me.RAMControlsPanel, resources.GetString("RAMControlsPanel.ToolTip"))
'
'RAMCustomInvalidSize
'
resources.ApplyResources(Me.RAMCustomInvalidSize, "RAMCustomInvalidSize")
Me.RAMCustomInvalidSize.Name = "RAMCustomInvalidSize"
Me.ToolTip1.SetToolTip(Me.RAMCustomInvalidSize, resources.GetString("RAMCustomInvalidSize.ToolTip"))
'
'RAMSlider
'
resources.ApplyResources(Me.RAMSlider, "RAMSlider")
Me.RAMSlider.Maximum = 960
Me.RAMSlider.Minimum = 4
Me.RAMSlider.Name = "RAMSlider"
Me.RAMSlider.TickFrequency = 48
Me.ToolTip1.SetToolTip(Me.RAMSlider, resources.GetString("RAMSlider.ToolTip"))
Me.RAMSlider.Value = 4
'
'RAMLabelMB
'
resources.ApplyResources(Me.RAMLabelMB, "RAMLabelMB")
Me.RAMLabelMB.Name = "RAMLabelMB"
Me.ToolTip1.SetToolTip(Me.RAMLabelMB, resources.GetString("RAMLabelMB.ToolTip"))
'
'RAMBox
'
resources.ApplyResources(Me.RAMBox, "RAMBox")
Me.RAMBox.Name = "RAMBox"
Me.ToolTip1.SetToolTip(Me.RAMBox, resources.GetString("RAMBox.ToolTip"))
'
'DiskFrame
'
resources.ApplyResources(Me.DiskFrame, "DiskFrame")
Me.DiskFrame.Controls.Add(Me.DiskNew)
Me.DiskFrame.Controls.Add(Me.DiskExisting)
Me.DiskFrame.Controls.Add(Me.DiskNone)
Me.DiskFrame.Controls.Add(Me.DiskInfo)
Me.DiskFrame.Controls.Add(Me.DiskPathBrowse)
Me.DiskFrame.Controls.Add(Me.DiskPath)
Me.DiskFrame.Controls.Add(Me.DiskSizeFrame)
Me.DiskFrame.Name = "DiskFrame"
Me.ToolTip1.SetToolTip(Me.DiskFrame, resources.GetString("DiskFrame.ToolTip"))
'
'DiskNew
'
resources.ApplyResources(Me.DiskNew, "DiskNew")
Me.DiskNew.Checked = True
Me.DiskNew.Name = "DiskNew"
Me.DiskNew.TabStop = True
Me.ToolTip1.SetToolTip(Me.DiskNew, resources.GetString("DiskNew.ToolTip"))
Me.DiskNew.UseVisualStyleBackColor = True
'
'DiskExisting
'
resources.ApplyResources(Me.DiskExisting, "DiskExisting")
Me.DiskExisting.Name = "DiskExisting"
Me.ToolTip1.SetToolTip(Me.DiskExisting, resources.GetString("DiskExisting.ToolTip"))
Me.DiskExisting.UseVisualStyleBackColor = True
'
'DiskNone
'
resources.ApplyResources(Me.DiskNone, "DiskNone")
Me.DiskNone.Name = "DiskNone"
Me.ToolTip1.SetToolTip(Me.DiskNone, resources.GetString("DiskNone.ToolTip"))
Me.DiskNone.UseVisualStyleBackColor = True
'
'DiskInfo
'
resources.ApplyResources(Me.DiskInfo, "DiskInfo")
Me.DiskInfo.Name = "DiskInfo"
Me.ToolTip1.SetToolTip(Me.DiskInfo, resources.GetString("DiskInfo.ToolTip"))
'
'DiskPathBrowse
'
resources.ApplyResources(Me.DiskPathBrowse, "DiskPathBrowse")
Me.DiskPathBrowse.Name = "DiskPathBrowse"
Me.ToolTip1.SetToolTip(Me.DiskPathBrowse, resources.GetString("DiskPathBrowse.ToolTip"))
Me.DiskPathBrowse.UseVisualStyleBackColor = True
'
'DiskPath
'
resources.ApplyResources(Me.DiskPath, "DiskPath")
Me.DiskPath.Name = "DiskPath"
Me.ToolTip1.SetToolTip(Me.DiskPath, resources.GetString("DiskPath.ToolTip"))
'
'DiskSizeFrame
'
resources.ApplyResources(Me.DiskSizeFrame, "DiskSizeFrame")
Me.DiskSizeFrame.Controls.Add(Me.DiskSize)
Me.DiskSizeFrame.Controls.Add(Me.DiskSizeLabel)
Me.DiskSizeFrame.Controls.Add(Me.DiskSizeLabelMB)
Me.DiskSizeFrame.Name = "DiskSizeFrame"
Me.ToolTip1.SetToolTip(Me.DiskSizeFrame, resources.GetString("DiskSizeFrame.ToolTip"))
'
'DiskSize
'
resources.ApplyResources(Me.DiskSize, "DiskSize")
Me.DiskSize.Maximum = New Decimal(New Integer() {130000, 0, 0, 0})
Me.DiskSize.Name = "DiskSize"
Me.ToolTip1.SetToolTip(Me.DiskSize, resources.GetString("DiskSize.ToolTip"))
'
'DiskSizeLabel
'
resources.ApplyResources(Me.DiskSizeLabel, "DiskSizeLabel")
Me.DiskSizeLabel.Name = "DiskSizeLabel"
Me.ToolTip1.SetToolTip(Me.DiskSizeLabel, resources.GetString("DiskSizeLabel.ToolTip"))
'
'DiskSizeLabelMB
'
resources.ApplyResources(Me.DiskSizeLabelMB, "DiskSizeLabelMB")
Me.DiskSizeLabelMB.Name = "DiskSizeLabelMB"
Me.ToolTip1.SetToolTip(Me.DiskSizeLabelMB, resources.GetString("DiskSizeLabelMB.ToolTip"))
'
'DescriptionContainer
'
resources.ApplyResources(Me.DescriptionContainer, "DescriptionContainer")
Me.DescriptionContainer.BackColor = System.Drawing.Color.White
Me.DescriptionContainer.Controls.Add(Me.Description)
Me.DescriptionContainer.Controls.Add(Me.DescriptionName)
Me.DescriptionContainer.Name = "DescriptionContainer"
Me.DescriptionContainer.TabStop = False
Me.ToolTip1.SetToolTip(Me.DescriptionContainer, resources.GetString("DescriptionContainer.ToolTip"))
'
'Description
'
resources.ApplyResources(Me.Description, "Description")
Me.Description.Name = "Description"
Me.ToolTip1.SetToolTip(Me.Description, resources.GetString("Description.ToolTip"))
'
'DescriptionName
'
resources.ApplyResources(Me.DescriptionName, "DescriptionName")
Me.DescriptionName.Name = "DescriptionName"
Me.ToolTip1.SetToolTip(Me.DescriptionName, resources.GetString("DescriptionName.ToolTip"))
'
'Open
'
resources.ApplyResources(Me.Open, "Open")
'
'Save
'
resources.ApplyResources(Me.Save, "Save")
'
'ToolTip1
'
Me.ToolTip1.AutoPopDelay = 5000
Me.ToolTip1.InitialDelay = 1000
Me.ToolTip1.ReshowDelay = 200
'
'Welcome
'
resources.ApplyResources(Me.Welcome, "Welcome")
Me.Welcome.BackColor = System.Drawing.Color.White
Me.Welcome.BackgroundImage = Global.VirtualMac.My.Resources.Resources.NewMac
Me.Welcome.Controls.Add(Me.WelcomeDescription)
Me.Welcome.Controls.Add(Me.WelcomeTitle)
Me.Welcome.Name = "Welcome"
Me.ToolTip1.SetToolTip(Me.Welcome, resources.GetString("Welcome.ToolTip"))
'
'WelcomeDescription
'
resources.ApplyResources(Me.WelcomeDescription, "WelcomeDescription")
Me.WelcomeDescription.Name = "WelcomeDescription"
Me.ToolTip1.SetToolTip(Me.WelcomeDescription, resources.GetString("WelcomeDescription.ToolTip"))
'
'WelcomeTitle
'
resources.ApplyResources(Me.WelcomeTitle, "WelcomeTitle")
Me.WelcomeTitle.Name = "WelcomeTitle"
Me.ToolTip1.SetToolTip(Me.WelcomeTitle, resources.GetString("WelcomeTitle.ToolTip"))
'
'EndWizard
'
resources.ApplyResources(Me.EndWizard, "EndWizard")
Me.EndWizard.BackColor = System.Drawing.Color.White
Me.EndWizard.BackgroundImage = Global.VirtualMac.My.Resources.Resources.NewMac
Me.EndWizard.Controls.Add(Me.EndTitle)
Me.EndWizard.Controls.Add(Me.EndInfo)
Me.EndWizard.Controls.Add(Me.EndMacName)
Me.EndWizard.Controls.Add(Me.EndMacNameLabel)
Me.EndWizard.Controls.Add(Me.EndRAM)
Me.EndWizard.Controls.Add(Me.EndRAMLabel)
Me.EndWizard.Controls.Add(Me.EndDiskPath)
Me.EndWizard.Controls.Add(Me.EndDiskPathLabel)
Me.EndWizard.Controls.Add(Me.EndInfoFinish)
Me.EndWizard.Name = "EndWizard"
Me.ToolTip1.SetToolTip(Me.EndWizard, resources.GetString("EndWizard.ToolTip"))
'
'EndTitle
'
resources.ApplyResources(Me.EndTitle, "EndTitle")
Me.EndTitle.Name = "EndTitle"
Me.ToolTip1.SetToolTip(Me.EndTitle, resources.GetString("EndTitle.ToolTip"))
'
'EndInfo
'
resources.ApplyResources(Me.EndInfo, "EndInfo")
Me.EndInfo.Name = "EndInfo"
Me.ToolTip1.SetToolTip(Me.EndInfo, resources.GetString("EndInfo.ToolTip"))
'
'EndMacName
'
resources.ApplyResources(Me.EndMacName, "EndMacName")
Me.EndMacName.Name = "EndMacName"
Me.ToolTip1.SetToolTip(Me.EndMacName, resources.GetString("EndMacName.ToolTip"))
'
'EndMacNameLabel
'
resources.ApplyResources(Me.EndMacNameLabel, "EndMacNameLabel")
Me.EndMacNameLabel.Name = "EndMacNameLabel"
Me.ToolTip1.SetToolTip(Me.EndMacNameLabel, resources.GetString("EndMacNameLabel.ToolTip"))
'
'EndRAM
'
resources.ApplyResources(Me.EndRAM, "EndRAM")
Me.EndRAM.Name = "EndRAM"
Me.ToolTip1.SetToolTip(Me.EndRAM, resources.GetString("EndRAM.ToolTip"))
'
'EndRAMLabel
'
resources.ApplyResources(Me.EndRAMLabel, "EndRAMLabel")
Me.EndRAMLabel.Name = "EndRAMLabel"
Me.ToolTip1.SetToolTip(Me.EndRAMLabel, resources.GetString("EndRAMLabel.ToolTip"))
'
'EndDiskPath
'
resources.ApplyResources(Me.EndDiskPath, "EndDiskPath")
Me.EndDiskPath.Name = "EndDiskPath"
Me.ToolTip1.SetToolTip(Me.EndDiskPath, resources.GetString("EndDiskPath.ToolTip"))
'
'EndDiskPathLabel
'
resources.ApplyResources(Me.EndDiskPathLabel, "EndDiskPathLabel")
Me.EndDiskPathLabel.Name = "EndDiskPathLabel"
Me.ToolTip1.SetToolTip(Me.EndDiskPathLabel, resources.GetString("EndDiskPathLabel.ToolTip"))
'
'EndInfoFinish
'
resources.ApplyResources(Me.EndInfoFinish, "EndInfoFinish")
Me.EndInfoFinish.Name = "EndInfoFinish"
Me.ToolTip1.SetToolTip(Me.EndInfoFinish, resources.GetString("EndInfoFinish.ToolTip"))
'
'frmNewMac
'
Me.AcceptButton = Me.cmdNext
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.cmdCancel
Me.ControlBox = False
Me.Controls.Add(Me.Welcome)
Me.Controls.Add(Me.EndWizard)
Me.Controls.Add(Me.Wizard)
Me.Controls.Add(Me.FormButtons)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Name = "frmNewMac"
Me.ToolTip1.SetToolTip(Me, resources.GetString("$this.ToolTip"))
Me.FormButtons.ResumeLayout(False)
Me.Wizard.ResumeLayout(False)
Me.CreateFrame.ResumeLayout(False)
Me.CreateFrame.PerformLayout()
Me.MacNameFrame.ResumeLayout(False)
Me.MacNameFrame.PerformLayout()
Me.AddFromFileFrame.ResumeLayout(False)
Me.AddFromFileFrame.PerformLayout()
Me.HwPresetsFrame.ResumeLayout(False)
Me.HwPresetsFrame.PerformLayout()
Me.RAMFrame.ResumeLayout(False)
Me.RAMFrame.PerformLayout()
Me.RAMControlsPanel.ResumeLayout(False)
Me.RAMControlsPanel.PerformLayout()
CType(Me.RAMSlider, System.ComponentModel.ISupportInitialize).EndInit()
Me.DiskFrame.ResumeLayout(False)
Me.DiskFrame.PerformLayout()
Me.DiskSizeFrame.ResumeLayout(False)
Me.DiskSizeFrame.PerformLayout()
CType(Me.DiskSize, System.ComponentModel.ISupportInitialize).EndInit()
Me.DescriptionContainer.ResumeLayout(False)
Me.DescriptionContainer.PerformLayout()
Me.Welcome.ResumeLayout(False)
Me.EndWizard.ResumeLayout(False)
Me.EndWizard.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents FormButtons As System.Windows.Forms.GroupBox
Friend WithEvents Welcome As System.Windows.Forms.Panel
Friend WithEvents cmdCancel As System.Windows.Forms.Button
Friend WithEvents cmdNext As System.Windows.Forms.Button
Friend WithEvents cmdBack As System.Windows.Forms.Button
Friend WithEvents WelcomeDescription As System.Windows.Forms.Label
Friend WithEvents WelcomeTitle As System.Windows.Forms.Label
Friend WithEvents Wizard As System.Windows.Forms.Panel
Friend WithEvents DescriptionContainer As System.Windows.Forms.GroupBox
Friend WithEvents CreateFrame As System.Windows.Forms.Panel
Friend WithEvents Description As System.Windows.Forms.Label
Friend WithEvents DescriptionName As System.Windows.Forms.Label
Friend WithEvents HwPresetsFrame As System.Windows.Forms.Panel
Friend WithEvents AddFromFileFrame As System.Windows.Forms.Panel
Friend WithEvents MacNameFrame As System.Windows.Forms.Panel
Friend WithEvents DiskFrame As System.Windows.Forms.Panel
Friend WithEvents RAMFrame As System.Windows.Forms.Panel
Friend WithEvents EndWizard As System.Windows.Forms.Panel
Friend WithEvents EndDiskPathLabel As System.Windows.Forms.Label
Friend WithEvents EndRAMLabel As System.Windows.Forms.Label
Friend WithEvents EndMacNameLabel As System.Windows.Forms.Label
Friend WithEvents EndInfo As System.Windows.Forms.Label
Friend WithEvents EndTitle As System.Windows.Forms.Label
Friend WithEvents EndInfoFinish As System.Windows.Forms.Label
Friend WithEvents EndDiskPath As System.Windows.Forms.Label
Friend WithEvents EndRAM As System.Windows.Forms.Label
Friend WithEvents EndMacName As System.Windows.Forms.Label
Friend WithEvents CreateAddExist As System.Windows.Forms.RadioButton
Friend WithEvents CreateNormal As System.Windows.Forms.RadioButton
Friend WithEvents CreateInfo As System.Windows.Forms.Label
Friend WithEvents CreateNormalLabel As System.Windows.Forms.Label
Friend WithEvents CreateAddExistLabel As System.Windows.Forms.Label
Friend WithEvents CreateNoWizardLabel As System.Windows.Forms.Label
Friend WithEvents CreateNoWizard As System.Windows.Forms.RadioButton
Friend WithEvents MacNameBrowse As System.Windows.Forms.Button
Friend WithEvents MacName As System.Windows.Forms.TextBox
Friend WithEvents MacNameLabel As System.Windows.Forms.Label
Friend WithEvents Open As System.Windows.Forms.OpenFileDialog
Friend WithEvents Save As System.Windows.Forms.SaveFileDialog
Friend WithEvents HwInfo As System.Windows.Forms.Label
Friend WithEvents HwRAM As System.Windows.Forms.Label
Friend WithEvents HwDisk As System.Windows.Forms.Label
Friend WithEvents HwCPU As System.Windows.Forms.Label
Friend WithEvents HwCPULabel As System.Windows.Forms.Label
Friend WithEvents HwDiskLabel As System.Windows.Forms.Label
Friend WithEvents HwRAMLabel As System.Windows.Forms.Label
Friend WithEvents HwOSList As System.Windows.Forms.ComboBox
Friend WithEvents HwEmulatorLabel As System.Windows.Forms.Label
Friend WithEvents RAMLabelMB As System.Windows.Forms.Label
Friend WithEvents RAMInfo As System.Windows.Forms.Label
Friend WithEvents RAMBox As System.Windows.Forms.TextBox
Friend WithEvents RAMSlider As System.Windows.Forms.TrackBar
Friend WithEvents RAMCustom As System.Windows.Forms.RadioButton
Friend WithEvents RAMDefault As System.Windows.Forms.RadioButton
Friend WithEvents HwInfoDef As System.Windows.Forms.Label
Friend WithEvents ToolTip1 As System.Windows.Forms.ToolTip
Friend WithEvents RAMControlsPanel As System.Windows.Forms.Panel
Friend WithEvents DiskSizeLabel As System.Windows.Forms.Label
Friend WithEvents DiskSize As System.Windows.Forms.NumericUpDown
Friend WithEvents DiskSizeLabelMB As System.Windows.Forms.Label
Friend WithEvents RAMCustomInvalidSize As System.Windows.Forms.Label
Friend WithEvents DiskSizeFrame As System.Windows.Forms.Panel
Friend WithEvents DiskInfo As System.Windows.Forms.Label
Friend WithEvents DiskExisting As System.Windows.Forms.RadioButton
Friend WithEvents DiskNew As System.Windows.Forms.RadioButton
Friend WithEvents DiskPathBrowse As System.Windows.Forms.Button
Friend WithEvents DiskPath As System.Windows.Forms.TextBox
Friend WithEvents DiskNone As System.Windows.Forms.RadioButton
Friend WithEvents AddFileBrowse As System.Windows.Forms.Button
Friend WithEvents AddFile As System.Windows.Forms.TextBox
Friend WithEvents AddInfo As System.Windows.Forms.Label
Friend WithEvents AddFileLabel As System.Windows.Forms.Label
Friend WithEvents AddEmulatorLabel As System.Windows.Forms.Label
Friend WithEvents AddEmulator As System.Windows.Forms.ComboBox
Friend WithEvents AddName As System.Windows.Forms.TextBox
Friend WithEvents AddNameLabel As System.Windows.Forms.Label
Friend WithEvents HwEmulator As System.Windows.Forms.ComboBox
End Class

439
frmNewMac.es-MX.resx Normal file
View File

@ -0,0 +1,439 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="cmdCancel.Text" xml:space="preserve">
<value>Cancelar</value>
</data>
<data name="cmdNext.Text" xml:space="preserve">
<value>&amp;Siguiente &gt;</value>
</data>
<data name="cmdBack.Text" xml:space="preserve">
<value>&lt; A&amp;tras</value>
</data>
<data name="CreateNoWizardLabel.Text" xml:space="preserve">
<value>Recomendado para la mayoría de usuarios. Crea una Mac en base al sistema que desee instalar.</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="CreateNoWizard.Size" type="System.Drawing.Size, System.Drawing">
<value>95, 17</value>
</data>
<data name="CreateNoWizard.Text" xml:space="preserve">
<value>&amp;Crear una Mac</value>
</data>
<data name="CreateAddExistLabel.Text" xml:space="preserve">
<value>Para usuarios de Basilisk, SheepShaver y PearPC. Crea una Mac en base al archivo de configuración de estos emuladores.</value>
</data>
<data name="CreateAddExist.Size" type="System.Drawing.Size, System.Drawing">
<value>198, 17</value>
</data>
<data name="CreateAddExist.Text" xml:space="preserve">
<value>Crear una Mac en base a un &amp;archivo</value>
</data>
<data name="CreateNormalLabel.Text" xml:space="preserve">
<value>Recomendado para usuarios avanzados. Crea una Mac guiandolo para incrementar o reducir los recursos para esta.</value>
</data>
<data name="CreateNormal.Size" type="System.Drawing.Size, System.Drawing">
<value>126, 17</value>
</data>
<data name="CreateNormal.Text" xml:space="preserve">
<value>&amp;Personalizar una Mac</value>
</data>
<data name="CreateInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>116, 13</value>
</data>
<data name="CreateInfo.Text" xml:space="preserve">
<value>Seleccione una opción:</value>
</data>
<data name="MacNameLabel.Text" xml:space="preserve">
<value>Dé un nombre a su Mac. Recuerde hacerlo descriptivo, algo como "Mac OS 7" o "iMac G3" son algunos ejemplos.</value>
</data>
<data name="MacNameBrowse.Text" xml:space="preserve">
<value>Examinar...</value>
</data>
<data name="AddNameLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>48, 13</value>
</data>
<data name="AddNameLabel.Text" xml:space="preserve">
<value>Nombre:</value>
</data>
<data name="AddFileLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>47, 13</value>
</data>
<data name="AddFileLabel.Text" xml:space="preserve">
<value>Archivo:</value>
</data>
<data name="AddEmulatorLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>55, 13</value>
</data>
<data name="AddEmulatorLabel.Text" xml:space="preserve">
<value>Emulador:</value>
</data>
<data name="AddInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>211, 13</value>
</data>
<data name="AddInfo.Text" xml:space="preserve">
<value>Seleccione el archivo a añadir a la consola.</value>
</data>
<data name="AddFileBrowse.Text" xml:space="preserve">
<value>Examinar...</value>
</data>
<data name="HwInfoDef.Text" xml:space="preserve">
<value>Hardware recomendado para este sistema operativo:</value>
</data>
<data name="HwEmulatorLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>116, 13</value>
</data>
<data name="HwEmulatorLabel.Text" xml:space="preserve">
<value>Seleccione una opción:</value>
</data>
<data name="HwInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>440, 65</value>
</data>
<data name="HwInfo.Text" xml:space="preserve">
<value>Seleccione el emulador que planea usar. Algunos emuladores corren algunas versiones
de Mac OS y System Software. Elija diferentes emuladores para listar diferentes versiones
de Mac OS. Recuerde que puede personalizar el hardware mostrado aqui, así que no se
preocupe si deseaba más memoria, espacio de disco o incluso otro CPU (Solo algunos
emuladores)</value>
</data>
<data name="HwRAMLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>51, 13</value>
</data>
<data name="HwRAMLabel.Text" xml:space="preserve">
<value>Memoria:</value>
</data>
<data name="HwDiskLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>89, 13</value>
</data>
<data name="HwDiskLabel.Text" xml:space="preserve">
<value>Espacio en disco:</value>
</data>
<data name="RAMInfo.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 3</value>
</data>
<data name="RAMInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>447, 78</value>
</data>
<data name="RAMInfo.Text" xml:space="preserve">
<value>Una Mac necsita memoria para arrancar el sistema, y las aplicaciones la necesitan para
ejecutarse. Una versión reciente de Mac OS requiere más memoria, al igual que aplicaciones
pesadas. Se recomienda que use el valor recomendado a menos de que desee correr
aplicaciones más pesadas.
La memoria recomendada es [ %m MB ]</value>
</data>
<data name="RAMCustom.Location" type="System.Drawing.Point, System.Drawing">
<value>25, 111</value>
</data>
<data name="RAMCustom.Size" type="System.Drawing.Size, System.Drawing">
<value>173, 17</value>
</data>
<data name="RAMCustom.Text" xml:space="preserve">
<value>Usar esta cantidad de memoria</value>
</data>
<data name="RAMDefault.Location" type="System.Drawing.Point, System.Drawing">
<value>25, 88</value>
</data>
<data name="RAMDefault.Size" type="System.Drawing.Size, System.Drawing">
<value>169, 17</value>
</data>
<data name="RAMDefault.Text" xml:space="preserve">
<value>Usar la memoria recomendada</value>
</data>
<data name="RAMControlsPanel.Location" type="System.Drawing.Point, System.Drawing">
<value>25, 128</value>
</data>
<data name="RAMCustomInvalidSize.Size" type="System.Drawing.Size, System.Drawing">
<value>233, 13</value>
</data>
<data name="RAMCustomInvalidSize.Text" xml:space="preserve">
<value>Por favor utilize un valor válido entre %n y %x</value>
</data>
<data name="DiskNew.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 99</value>
</data>
<data name="DiskNew.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 17</value>
</data>
<data name="DiskNew.Text" xml:space="preserve">
<value>Crear un nuevo disco</value>
</data>
<data name="DiskExisting.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 115</value>
</data>
<data name="DiskExisting.Size" type="System.Drawing.Size, System.Drawing">
<value>137, 17</value>
</data>
<data name="DiskExisting.Text" xml:space="preserve">
<value>Usar un disco existente</value>
</data>
<data name="DiskNone.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 132</value>
</data>
<data name="DiskNone.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 17</value>
</data>
<data name="DiskNone.Text" xml:space="preserve">
<value>No usar un disco</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="DiskInfo.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="DiskInfo.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 16</value>
</data>
<data name="DiskInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>408, 39</value>
</data>
<data name="DiskInfo.Text" xml:space="preserve">
<value>Una Mac necesita un disco para instalar el sistema operativo. Puede crear un nuevo
disco para instalar Mac OS (O Linux) o puede usar disco existente con un sistema
preinstalado</value>
</data>
<data name="DiskPathBrowse.Location" type="System.Drawing.Point, System.Drawing">
<value>391, 62</value>
</data>
<data name="DiskPathBrowse.Size" type="System.Drawing.Size, System.Drawing">
<value>75, 23</value>
</data>
<data name="DiskPathBrowse.Text" xml:space="preserve">
<value>Examinar...</value>
</data>
<data name="DiskPath.Location" type="System.Drawing.Point, System.Drawing">
<value>22, 64</value>
</data>
<data name="DiskSizeFrame.Location" type="System.Drawing.Point, System.Drawing">
<value>197, 91</value>
</data>
<data name="DiskSizeFrame.Size" type="System.Drawing.Size, System.Drawing">
<value>189, 25</value>
</data>
<data name="DiskSize.Location" type="System.Drawing.Point, System.Drawing">
<value>97, 2</value>
</data>
<data name="DiskSizeLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>93, 13</value>
</data>
<data name="DiskSizeLabel.Text" xml:space="preserve">
<value>Tamaño del disco:</value>
</data>
<data name="DiskSizeLabelMB.Location" type="System.Drawing.Point, System.Drawing">
<value>162, 7</value>
</data>
<data name="Description.Text" xml:space="preserve">
<value>Puede crear una nueva Mac o agregar una existente a la consola</value>
</data>
<data name="DescriptionName.Size" type="System.Drawing.Size, System.Drawing">
<value>60, 13</value>
</data>
<data name="DescriptionName.Text" xml:space="preserve">
<value>Opciones</value>
</data>
<data name="WelcomeDescription.Text" xml:space="preserve">
<value>Este asistente le ayuda a crear y configurar una nueva Mac o añadir una ya existente a la consola de Virtual Mac.
La configuración es almacenada en un archivo .mcf
Para continuar, haga click en Siguiente.</value>
</data>
<data name="WelcomeTitle.Text" xml:space="preserve">
<value>Bienvenido al Asistente para Nueva Mac</value>
</data>
<data name="EndTitle.Text" xml:space="preserve">
<value>Completando el Asistente para Nueva Mac</value>
</data>
<data name="EndInfo.Text" xml:space="preserve">
<value>Usted completó satisfactoriamente el Asistente para Nueva Mac. Su nueva Mac será creada con los siguientes atributos:</value>
</data>
<data name="EndMacNameLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>48, 13</value>
</data>
<data name="EndMacNameLabel.Text" xml:space="preserve">
<value>Nombre:</value>
</data>
<data name="EndRAMLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>76, 13</value>
</data>
<data name="EndRAMLabel.Text" xml:space="preserve">
<value>Memoria RAM:</value>
</data>
<data name="EndDiskPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>36, 13</value>
</data>
<data name="EndDiskPathLabel.Text" xml:space="preserve">
<value>Disco:</value>
</data>
<data name="EndInfoFinish.Text" xml:space="preserve">
<value>Para cerrar este Asistente y crear la Mac, haga click en Finalizar.</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAABAAoAQAANgAAACAgEAAAAAQA6AIAAF4BAAAwMBAAAAAEAGgGAABGBAAAKAAAABAA
AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAQAAAAEAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAiIiIiIiIAAjoiIiIiI6AiO6O7u7o
7uiI6IiIiIiOiIgAAAAAAACIiAAAAAAAAIiIAAAAAAAAiIgAAAAAAACIiAAAAAAAAIiIAAAAAAAAiIgA
AAAAAACIiAAAAAAAAIiIAAAAAAAAiIgAAAAAAACICIiIiIiIiIAAiIiIiIiIAMADAACAAQAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAEAAMADAAAoAAAAIAAAAEAA
AAABAAQAAAAAAAACAAAAAAAAAAAAABAAAAAQAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAICA
gADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wDQ0AAA////AAAAAAAAAAAAAAAAAAAAAAAAAIiIiIiIiIiI
iIiIiAAAAIiIiIiIiIiIiIiIiIiIAACI7uiIiIiIiIiIiI7u6AAIju7uiIiIiIiIiIiO7uiACI7u7oju
7u7u7u6Iju7ogAiI7uiIiIiIiIiIiI7u6IAIiIiIiIiIiIiIiIiIiIiACIiAAAAAAAAAAAAAAAiIgAiI
gAAAAAAAAAAAAAAIiIAIiIAAAAAAAAAAAAAACIiACIiAAAAAAAAAAAAAAAiIgAiIgAAAAAAAAAAAAAAI
iIAIiIAAAAAAAAAAAAAACIiACIiAAAAAAAAAAAAAAAiIgAiIgAAAAAAAAAAAAAAIiIAIiIAAAAAAAAAA
AAAACIiACIiAAAAAAAAAAAAAAAiIgAiIgAAAAAAAAAAAAAAIiIAIiIAAAAAAAAAAAAAACIiACIiAAAAA
AAAAAAAAAAiIgAiIgAAAAAAAAAAAAAAIiIAIiIAAAAAAAAAAAAAACIiACIiAAAAAAAAAAAAAAAiIgAiI
gAAAAAAAAAAAAAAIiIAIiIAAAAAAAAAAAAAACIiACIiAAAAAAAAAAAAAAAiIgAiIiIiIiIiIiIiIiIiI
iIAAiIiIiIiIiIiIiIiIiIgAAIiIiIiIiIiIiIiIiIiIAAAAiIiIiIiIiIiIiIiIAAAAAAAAAAAAAAAA
AAAAAAAA//////AAAA/AAAADwAAAA4AAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAA
AAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAYAAAAGAAAABgAAAAcAA
AAPAAAAD8AAAD/////8oAAAAMAAAAGAAAAABAAQAAAAAAIAEAAAAAAAAAAAAABAAAAAQAAAAAAAAAAAA
gAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wDZ2QAA////AAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAd3d3d3d3d3d3d3d3d3d3d3cAAAAAAAB3d3d3d3d3d3d3d3
d3d3d3d3d3AAAAAAd3d3d3d3d3d3d3d3d3d3d3d3d3cAAAAHd37ud3d3d3d3d3d3d3d3d3d+7ndwAAB3
d+7u53d3d3d3d3d3d3d3d3fu7ud3AAB3fu7u7nd3d3d3d3d3d3d3d37u7u53AAd3fu7u7nd+7u7u7u7u
7u7nd37u7u53cAd3fu7u7nd+7u7u7u7u7u7nd37u7u53cAd3d+7u53d3d3d3d3d3d3d3d3fu7ud3cAd3
d37ud3d3d3d3d3d3d3d3d3d+7nd3cAd3d3d3d3d3d3d3d3d3d3d3d3d3d3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAA
AAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAd3
d3AAAAAAAAAAAAAAAAAAAAAAB3d3cAB3d3d3d3d3d3d3d3d3d3d3d3d3d3d3AAB3d3d3d3d3d3d3d3d3
d3d3d3d3d3d3AAAHd3d3d3d3d3d3d3d3d3d3d3d3d3dwAAAAd3d3d3d3d3d3d3d3d3d3d3d3d3cAAAAA
B3d3d3d3d3d3d3d3d3d3d3d3d3AAAAAAAAd3d3d3d3d3d3d3d3d3d3d3cAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAP///////wAA/gAAAAB/AAD4AAAAAB8AAPAAAAAADwAA4AAAAAAHAADAAAAAAAMAAMAA
AAAAAwAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB
AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA
AAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAAB
AACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAACAAAAAAAEAAIAA
AAAAAQAAgAAAAAABAACAAAAAAAEAAIAAAAAAAQAAgAAAAAABAADAAAAAAAMAAMAAAAAAAwAA4AAAAAAH
AADwAAAAAA8AAPgAAAAAHwAA/gAAAAB/AAD///////8AAA==
</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Asistente para nueva Mac</value>
</data>
</root>

File diff suppressed because it is too large Load Diff

Binary file not shown.

2354
frmNewMac.resx Normal file

File diff suppressed because it is too large Load Diff

634
frmNewMac.vb Normal file
View File

@ -0,0 +1,634 @@
Public Class frmNewMac
Public HostRAM As Long = My.Computer.Info.TotalPhysicalMemory / 1024 / 1024
Public NameWithoutPath As String
Public Sub SetFinalData()
EndMacName.Text = NameWithoutPath
EndRAM.Text = RAMBox.Text & " MB"
EndDiskPath.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
DiskExisting.Checked = True
DiskNew.Enabled = False
End If
If Welcome.Visible = True And Welcome.Enabled = True Then
CreateFrame.Enabled = True
CreateFrame.BringToFront()
MovePage(Welcome, Wizard)
CreateNoWizard.Focus()
cmdBack.Enabled = True
Exit Sub
End If
If Wizard.Visible = True And Wizard.Enabled = True Then
If CreateFrame.Visible = True And CreateFrame.Enabled = True Then
If CreateNormal.Checked = True Or CreateNoWizard.Checked = True Then
MovePage(CreateFrame, MacNameFrame)
MacName.Focus()
MacName.SelectAll()
Else
MovePage(CreateFrame, AddFromFileFrame)
cmdNext.Enabled = False
End If
Exit Sub
End If
If AddFromFileFrame.Visible = True And AddFromFileFrame.Enabled = True Then
cmdNext.Text = "Finish"
cmdNext.Focus()
MovePage(Wizard, EndWizard)
Exit Sub
End If
If MacNameFrame.Visible = True And MacNameFrame.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
MovePage(MacNameFrame, HwPresetsFrame)
AutoSelectOS()
End If
Exit Sub
End If
If HwPresetsFrame.Visible = True And HwPresetsFrame.Enabled = True Then
If CreateNoWizard.Checked = True Then
SetFinalData()
cmdNext.Text = "Finish"
MovePage(Wizard, EndWizard)
cmdNext.Focus()
Else
MovePage(HwPresetsFrame, RAMFrame)
End If
Exit Sub
End If
If RAMFrame.Visible = True And RAMFrame.Enabled = True Then
MovePage(RAMFrame, DiskFrame)
GoTo EndOfInstruction
End If
If DiskFrame.Visible = True And DiskFrame.Enabled = True Then
SetFinalData()
cmdNext.Text = "Finish"
MovePage(Wizard, EndWizard)
cmdNext.Focus()
Exit Sub
End If
End If
If EndWizard.Visible = True And EndWizard.Enabled = True Then
CreateMac()
Me.Close()
Exit Sub
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 CreateFrame.Visible = True And CreateFrame.Enabled = True Then
cmdBack.Enabled = False
MovePage(Wizard, Welcome)
GoTo EndOfInstruction
End If
If AddFromFileFrame.Visible = True And AddFromFileFrame.Enabled = True Then
MovePage(AddFromFileFrame, CreateFrame)
GoTo EndOfInstruction
End If
If MacNameFrame.Visible = True And MacNameFrame.Enabled = True Then
MovePage(MacNameFrame, CreateFrame)
GoTo EndOfInstruction
End If
If HwPresetsFrame.Visible = True And HwPresetsFrame.Enabled = True Then
MovePage(HwPresetsFrame, MacNameFrame)
MacName.Focus()
MacName.SelectAll()
GoTo EndOfInstruction
End If
If RAMFrame.Visible = True And RAMFrame.Enabled = True Then
MovePage(RAMFrame, HwPresetsFrame)
GoTo EndOfInstruction
End If
If DiskFrame.Visible = True And DiskFrame.Enabled = True Then
MovePage(DiskFrame, RAMFrame)
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 Emulator As String = ""
If CreateAddExist.Checked = True Then '//Checking "Add from file" to be checked, so we create from file
Select Case AddEmulator.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(AddFile.Text, Emulator, AddName.Text)
ElseIf CreateNormal.Checked = True Or CreateNoWizard.Checked = True Then '//If any of the Normal is checked, create from file
Dim UseDisk As String = ""
If DiskExisting.Checked = True Then
UseDisk = "Exist"
ElseIf DiskNone.Checked = True Then
UseDisk = "None"
ElseIf DiskNew.Checked = True Then
UseDisk = "New"
End If
Select Case HwEmulator.SelectedIndex
Case 0
Emulator = "vMac"
Case 1
Emulator = "BII"
Case 2
Emulator = "SheepShaver"
Case 3
Emulator = "PearPC"
Case 4
Emulator = "QEMUBatch"
End Select
ConfigFileHandler.Create(NameWithoutPath, MacName.Text, Emulator, RAMBox.Text, UseDisk, DiskSize.Value, DiskPath.Text)
End If
End Sub
Public Sub DisableAllPages()
EndWizard.Enabled = False
DiskFrame.Enabled = False
RAMFrame.Enabled = False
HwPresetsFrame.Enabled = False
AddFromFileFrame.Enabled = False
MacNameFrame.Enabled = False
CreateFrame.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")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 8
DiskSize.Value = 100
RAMInfo.Text = Replace(RAMInfo.Text, "%m", "8")
HwRAM.Text = 8 & " MB"
HwDisk.Text = 128 & " MB"
HwCPU.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")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 16
DiskSize.Value = 250
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 16)
HwRAM.Text = 16 & " MB"
HwDisk.Text = 250 & " MB"
HwCPU.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")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 24
DiskSize.Value = 250
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 24)
HwRAM.Text = 24 & " MB"
HwDisk.Text = 250 & " MB"
HwCPU.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")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 64
DiskSize.Value = 500
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 64)
HwRAM.Text = 64 & " MB"
HwDisk.Text = 500 & " MB"
HwCPU.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")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 256
DiskSize.Value = 1024
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 256)
HwRAM.Text = 256 & " MB"
HwDisk.Text = 1024 & " MB"
HwCPU.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")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 384
DiskSize.Value = 3072
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 384)
HwRAM.Text = 384 & " MB"
HwDisk.Text = 3072 & " MB"
HwCPU.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")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 400
DiskSize.Value = 4096
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 400)
HwRAM.Text = 400 & " MB"
HwDisk.Text = 4096 & " MB"
HwCPU.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")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 400
DiskSize.Value = 6144
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 400)
HwRAM.Text = 400 & " MB"
HwDisk.Text = 6144 & " MB"
HwCPU.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")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 400
DiskSize.Value = 4096
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 400)
HwRAM.Text = 400 & " MB"
HwDisk.Text = 4096 & " MB"
HwCPU.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")
RAMBox.Text = RAMSlider.Maximum
End If
RAMBox.Text = 256
DiskSize.Value = 4096
RAMInfo.Text = Replace(RAMInfo.Text, "%m", 256)
HwRAM.Text = 256 & " MB"
HwDisk.Text = 4096 & " MB"
HwCPU.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"
HwEmulator.SelectedIndex = 0
HwOSList.SelectedIndex = 0
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 6")
If OsFound <> 0 Then
OS = "Mac6"
HwEmulator.SelectedIndex = 0
HwOSList.SelectedIndex = 0
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 7")
If OsFound <> 0 Then
OS = "Mac7"
HwEmulator.SelectedIndex = 0
HwOSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 7.")
If OsFound <> 0 Then
OS = "Mac75"
HwEmulator.SelectedIndex = 1
HwOSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 8")
If OsFound <> 0 Then
OS = "Mac8"
HwEmulator.SelectedIndex = 2
HwOSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 9")
If OsFound <> 0 Then
OS = "Mac9"
HwEmulator.SelectedIndex = 2
HwOSList.SelectedIndex = 2
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " Classic")
If OsFound <> 0 Then
OS = "Mac9"
HwEmulator.SelectedIndex = 4
HwOSList.SelectedIndex = 0
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " 10")
If OsFound <> 0 Then
OS = "Mac10"
HwEmulator.SelectedIndex = 3
HwOSList.SelectedIndex = 0
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, " X")
If OsFound <> 0 Then
OS = "Mac10"
HwEmulator.SelectedIndex = 4
HwOSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, "Debian")
If OsFound <> 0 Then
OS = "Debian"
HwEmulator.SelectedIndex = 3
HwOSList.SelectedIndex = 1
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, "Ubuntu")
If OsFound <> 0 Then
OS = "Ubuntu"
HwEmulator.SelectedIndex = 4
HwOSList.SelectedIndex = 3
GoTo OSDetected
End If
OsFound = InStr(MacName.Text, "Linux")
If OsFound <> 0 Then
OS = "Linux"
HwEmulator.SelectedIndex = 3
HwOSList.SelectedIndex = 2
GoTo OSDetected
End If
HwEmulator.SelectedIndex = 4
HwOSList.SelectedIndex = 0
OSDetected:
Return OS
End Function
Private Sub SaveMac_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MacNameBrowse.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
RAMCustomInvalidSize.Text = Replace(Replace(RAMCustomInvalidSize.Text, "%x", RAMSlider.Maximum), "%n", RAMSlider.Minimum)
DisableAllPages()
MovePage(Wizard, Welcome)
AddEmulator.SelectedIndex = 0
HwEmulator.SelectedIndex = 0
End Sub
Private Sub RAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RAMBox.TextChanged
If RAMBox.Text = "" Then
RAMSlider.Value = RAMSlider.Minimum
cmdNext.Enabled = False
RAMCustomInvalidSize.Visible = True
Else
If RAMBox.Text > RAMSlider.Maximum Then
RAMSlider.Value = RAMSlider.Maximum
cmdNext.Enabled = False
RAMCustomInvalidSize.Visible = True
Else
If RAMBox.Text < RAMSlider.Minimum Then
RAMSlider.Value = RAMSlider.Minimum
cmdNext.Enabled = False
RAMCustomInvalidSize.Visible = True
Else
RAMSlider.Value = RAMBox.Text
RAMCustomInvalidSize.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
RAMBox.Text = RAMSlider.Value
End Sub
Private Sub RAMDefault_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RAMDefault.CheckedChanged, RAMCustom.CheckedChanged
If RAMCustom.Checked = True Then
RAMControlsPanel.Enabled = True
RAMControlsPanel.Visible = True
Else
RAMControlsPanel.Enabled = False
RAMControlsPanel.Visible = False
End If
End Sub
Private Sub OSList_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HwOSList.SelectedIndexChanged
Select Case HwOSList.SelectedItem.ToString
Case "System Software 6"
DataProgrammer("Mac6")
Case "System Software 7"
DataProgrammer("Mac7")
Case "System Software 7 Pro"
DataProgrammer("Mac7Pro")
Case "Mac OS 8"
DataProgrammer("Mac8")
Case "Mac OS 9"
DataProgrammer("Mac9")
Case "Mac OS X"
DataProgrammer("Mac10")
Case "Debian"
DataProgrammer("Debian")
Case "Lubuntu"
DataProgrammer("Ubuntu")
Case "Other Linux"
DataProgrammer("Linux")
Case "Other"
DataProgrammer("Other")
End Select
End Sub
Private Sub HwEmulator_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HwEmulator.SelectedIndexChanged
Select Case HwEmulator.SelectedIndex
Case 0
HwOSList.Items.Clear()
HwOSList.Items.Add("System Software 6")
HwOSList.Items.Add("System Software 7")
HwOSList.Items.Add("Other")
HwOSList.SelectedIndex = 0
Case 1
HwOSList.Items.Clear()
HwOSList.Items.Add("System Software 7")
HwOSList.Items.Add("System Software 7 Pro")
HwOSList.Items.Add("Mac OS 8")
HwOSList.Items.Add("Other")
HwOSList.SelectedIndex = 0
Case 2
HwOSList.Items.Clear()
HwOSList.Items.Add("System Software 7 Pro")
HwOSList.Items.Add("Mac OS 8")
HwOSList.Items.Add("Mac OS 9")
HwOSList.Items.Add("Other")
HwOSList.SelectedIndex = 0
Case 3
HwOSList.Items.Clear()
HwOSList.Items.Add("Mac OS X")
HwOSList.Items.Add("Debian")
HwOSList.Items.Add("Lubuntu")
HwOSList.Items.Add("Other Linux")
HwOSList.Items.Add("Other")
HwOSList.SelectedIndex = 0
Case 4
HwOSList.Items.Clear()
HwOSList.Items.Add("Mac OS 9")
HwOSList.Items.Add("Mac OS X")
HwOSList.Items.Add("Debian")
HwOSList.Items.Add("Lubuntu")
HwOSList.Items.Add("Other Linux")
HwOSList.Items.Add("Other")
HwOSList.SelectedIndex = 0
End Select
End Sub
Private Sub BrowseDiskLocation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DiskPathBrowse.Click
If DiskNew.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_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 DiskNew.CheckedChanged, DiskExisting.CheckedChanged
If DiskNew.Checked = True Then
DiskSizeFrame.Visible = True
Else
DiskSizeFrame.Visible = False
End If
If DiskNone.Checked = True Then
DiskPath.Enabled = False
DiskPathBrowse.Enabled = False
Else
DiskPath.Enabled = True
DiskPathBrowse.Enabled = True
End If
End Sub
Private Sub AEBrowseFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddFileBrowse.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 AddEmulator.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
AddFile.Text = Open.FileName
End If
End Sub
Private Sub AEName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddName.TextChanged
If AddName.Text <> "" And AddFile.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 AddFile.TextChanged
If AddName.Text <> "" And AddFile.Text <> "" Then
cmdNext.Enabled = True
Else
cmdNext.Enabled = False
End If
End Sub
End Class

615
frmOptions.Designer.vb generated Normal file
View File

@ -0,0 +1,615 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> Partial Class frmOptions
#Region "Windows Form Designer generated code "
<System.Diagnostics.DebuggerNonUserCode()> Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
End Sub
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> Protected Overloads Overrides Sub Dispose(ByVal Disposing As Boolean)
If Disposing Then
If Not components Is Nothing Then
components.Dispose()
End If
End If
MyBase.Dispose(Disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
Public ToolTip1 As System.Windows.Forms.ToolTip
Public BrowseOpen As System.Windows.Forms.OpenFileDialog
Public WithEvents cmdOK As System.Windows.Forms.Button
Public WithEvents cmdCancel As System.Windows.Forms.Button
Public WithEvents FolderFrame As System.Windows.Forms.GroupBox
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmOptions))
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
Me.cmdOK = New System.Windows.Forms.Button()
Me.cmdCancel = New System.Windows.Forms.Button()
Me.FolderFrame = New System.Windows.Forms.GroupBox()
Me.FolderAppCurrent = New System.Windows.Forms.Label()
Me.FolderAppCurrentLabel = New System.Windows.Forms.Label()
Me.FolderNewMacLabel = New System.Windows.Forms.Label()
Me.FolderNewMac = New System.Windows.Forms.TextBox()
Me.FolderNewMacBrowse = New System.Windows.Forms.Button()
Me.ROMFrame = New System.Windows.Forms.GroupBox()
Me.ROMNoteNoROM = New System.Windows.Forms.Label()
Me.ROMSS = New System.Windows.Forms.TextBox()
Me.ROMSSLabel = New System.Windows.Forms.Label()
Me.ROMSSBrowse = New System.Windows.Forms.Button()
Me.ROMBII = New System.Windows.Forms.TextBox()
Me.ROMBIILabel = New System.Windows.Forms.Label()
Me.ROMBIIBrowse = New System.Windows.Forms.Button()
Me.ROMvMac = New System.Windows.Forms.TextBox()
Me.ROMvMacLabel = New System.Windows.Forms.Label()
Me.ROMvMacBrowse = New System.Windows.Forms.Button()
Me.OptionContainer = New System.Windows.Forms.ListView()
Me.Setting = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.Value = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.UseContainerFrame = New System.Windows.Forms.GroupBox()
Me.UCDisableTest = New System.Windows.Forms.RadioButton()
Me.UCEnableTest = New System.Windows.Forms.RadioButton()
Me.EmulatorPathFrame = New System.Windows.Forms.GroupBox()
Me.EPVerifyEmulatorPaths = New System.Windows.Forms.CheckBox()
Me.EPvMacPathLabel = New System.Windows.Forms.Label()
Me.EPvMacPath = New System.Windows.Forms.TextBox()
Me.EPvMacPathBrowse = New System.Windows.Forms.Button()
Me.EPQEMUPathLabel = New System.Windows.Forms.Label()
Me.EPQEMUPath = New System.Windows.Forms.TextBox()
Me.EPQEMUPathBrowse = New System.Windows.Forms.Button()
Me.EPPPCPathLabel = New System.Windows.Forms.Label()
Me.EPPPCPath = New System.Windows.Forms.TextBox()
Me.EPPPCPathBrowse = New System.Windows.Forms.Button()
Me.EPSSPathLabel = New System.Windows.Forms.Label()
Me.EPSSPath = New System.Windows.Forms.TextBox()
Me.EPSSPathBrowse = New System.Windows.Forms.Button()
Me.EPBIIPathLabel = New System.Windows.Forms.Label()
Me.EPBIIPath = New System.Windows.Forms.TextBox()
Me.EPBIIPathBrowse = New System.Windows.Forms.Button()
Me.LangFrame = New System.Windows.Forms.GroupBox()
Me.LangSelected = New System.Windows.Forms.ComboBox()
Me.LangInfo = New System.Windows.Forms.Label()
Me.BrowseOpen = New System.Windows.Forms.OpenFileDialog()
Me.FolderBrowser = New System.Windows.Forms.FolderBrowserDialog()
Me.FolderFrame.SuspendLayout()
Me.ROMFrame.SuspendLayout()
Me.UseContainerFrame.SuspendLayout()
Me.EmulatorPathFrame.SuspendLayout()
Me.LangFrame.SuspendLayout()
Me.SuspendLayout()
'
'cmdOK
'
resources.ApplyResources(Me.cmdOK, "cmdOK")
Me.cmdOK.BackColor = System.Drawing.SystemColors.Control
Me.cmdOK.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdOK.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdOK.Name = "cmdOK"
Me.cmdOK.Tag = "1024"
Me.ToolTip1.SetToolTip(Me.cmdOK, resources.GetString("cmdOK.ToolTip"))
Me.cmdOK.UseVisualStyleBackColor = True
'
'cmdCancel
'
resources.ApplyResources(Me.cmdCancel, "cmdCancel")
Me.cmdCancel.BackColor = System.Drawing.SystemColors.Control
Me.cmdCancel.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.Tag = "1023"
Me.ToolTip1.SetToolTip(Me.cmdCancel, resources.GetString("cmdCancel.ToolTip"))
Me.cmdCancel.UseVisualStyleBackColor = True
'
'FolderFrame
'
resources.ApplyResources(Me.FolderFrame, "FolderFrame")
Me.FolderFrame.BackColor = System.Drawing.SystemColors.Control
Me.FolderFrame.Controls.Add(Me.FolderAppCurrent)
Me.FolderFrame.Controls.Add(Me.FolderAppCurrentLabel)
Me.FolderFrame.Controls.Add(Me.FolderNewMacLabel)
Me.FolderFrame.Controls.Add(Me.FolderNewMac)
Me.FolderFrame.Controls.Add(Me.FolderNewMacBrowse)
Me.FolderFrame.ForeColor = System.Drawing.SystemColors.ControlText
Me.FolderFrame.Name = "FolderFrame"
Me.FolderFrame.TabStop = False
Me.ToolTip1.SetToolTip(Me.FolderFrame, resources.GetString("FolderFrame.ToolTip"))
'
'FolderAppCurrent
'
resources.ApplyResources(Me.FolderAppCurrent, "FolderAppCurrent")
Me.FolderAppCurrent.Name = "FolderAppCurrent"
Me.ToolTip1.SetToolTip(Me.FolderAppCurrent, resources.GetString("FolderAppCurrent.ToolTip"))
'
'FolderAppCurrentLabel
'
resources.ApplyResources(Me.FolderAppCurrentLabel, "FolderAppCurrentLabel")
Me.FolderAppCurrentLabel.Name = "FolderAppCurrentLabel"
Me.ToolTip1.SetToolTip(Me.FolderAppCurrentLabel, resources.GetString("FolderAppCurrentLabel.ToolTip"))
'
'FolderNewMacLabel
'
resources.ApplyResources(Me.FolderNewMacLabel, "FolderNewMacLabel")
Me.FolderNewMacLabel.BackColor = System.Drawing.SystemColors.Control
Me.FolderNewMacLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.FolderNewMacLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.FolderNewMacLabel.Name = "FolderNewMacLabel"
Me.ToolTip1.SetToolTip(Me.FolderNewMacLabel, resources.GetString("FolderNewMacLabel.ToolTip"))
'
'FolderNewMac
'
Me.FolderNewMac.AcceptsReturn = True
resources.ApplyResources(Me.FolderNewMac, "FolderNewMac")
Me.FolderNewMac.BackColor = System.Drawing.SystemColors.Window
Me.FolderNewMac.Cursor = System.Windows.Forms.Cursors.IBeam
Me.FolderNewMac.ForeColor = System.Drawing.SystemColors.WindowText
Me.FolderNewMac.Name = "FolderNewMac"
Me.FolderNewMac.ReadOnly = True
Me.ToolTip1.SetToolTip(Me.FolderNewMac, resources.GetString("FolderNewMac.ToolTip"))
'
'FolderNewMacBrowse
'
resources.ApplyResources(Me.FolderNewMacBrowse, "FolderNewMacBrowse")
Me.FolderNewMacBrowse.BackColor = System.Drawing.SystemColors.Control
Me.FolderNewMacBrowse.Cursor = System.Windows.Forms.Cursors.Default
Me.FolderNewMacBrowse.ForeColor = System.Drawing.SystemColors.ControlText
Me.FolderNewMacBrowse.Name = "FolderNewMacBrowse"
Me.ToolTip1.SetToolTip(Me.FolderNewMacBrowse, resources.GetString("FolderNewMacBrowse.ToolTip"))
Me.FolderNewMacBrowse.UseVisualStyleBackColor = True
'
'ROMFrame
'
resources.ApplyResources(Me.ROMFrame, "ROMFrame")
Me.ROMFrame.BackColor = System.Drawing.SystemColors.Control
Me.ROMFrame.Controls.Add(Me.ROMNoteNoROM)
Me.ROMFrame.Controls.Add(Me.ROMSS)
Me.ROMFrame.Controls.Add(Me.ROMSSLabel)
Me.ROMFrame.Controls.Add(Me.ROMSSBrowse)
Me.ROMFrame.Controls.Add(Me.ROMBII)
Me.ROMFrame.Controls.Add(Me.ROMBIILabel)
Me.ROMFrame.Controls.Add(Me.ROMBIIBrowse)
Me.ROMFrame.Controls.Add(Me.ROMvMac)
Me.ROMFrame.Controls.Add(Me.ROMvMacLabel)
Me.ROMFrame.Controls.Add(Me.ROMvMacBrowse)
Me.ROMFrame.ForeColor = System.Drawing.SystemColors.ControlText
Me.ROMFrame.Name = "ROMFrame"
Me.ROMFrame.TabStop = False
Me.ToolTip1.SetToolTip(Me.ROMFrame, resources.GetString("ROMFrame.ToolTip"))
'
'ROMNoteNoROM
'
resources.ApplyResources(Me.ROMNoteNoROM, "ROMNoteNoROM")
Me.ROMNoteNoROM.Name = "ROMNoteNoROM"
Me.ToolTip1.SetToolTip(Me.ROMNoteNoROM, resources.GetString("ROMNoteNoROM.ToolTip"))
'
'ROMSS
'
Me.ROMSS.AcceptsReturn = True
resources.ApplyResources(Me.ROMSS, "ROMSS")
Me.ROMSS.BackColor = System.Drawing.SystemColors.Window
Me.ROMSS.Cursor = System.Windows.Forms.Cursors.IBeam
Me.ROMSS.ForeColor = System.Drawing.SystemColors.WindowText
Me.ROMSS.Name = "ROMSS"
Me.ROMSS.ReadOnly = True
Me.ToolTip1.SetToolTip(Me.ROMSS, resources.GetString("ROMSS.ToolTip"))
'
'ROMSSLabel
'
resources.ApplyResources(Me.ROMSSLabel, "ROMSSLabel")
Me.ROMSSLabel.Name = "ROMSSLabel"
Me.ToolTip1.SetToolTip(Me.ROMSSLabel, resources.GetString("ROMSSLabel.ToolTip"))
'
'ROMSSBrowse
'
resources.ApplyResources(Me.ROMSSBrowse, "ROMSSBrowse")
Me.ROMSSBrowse.BackColor = System.Drawing.SystemColors.Control
Me.ROMSSBrowse.Cursor = System.Windows.Forms.Cursors.Default
Me.ROMSSBrowse.ForeColor = System.Drawing.SystemColors.ControlText
Me.ROMSSBrowse.Name = "ROMSSBrowse"
Me.ToolTip1.SetToolTip(Me.ROMSSBrowse, resources.GetString("ROMSSBrowse.ToolTip"))
Me.ROMSSBrowse.UseVisualStyleBackColor = True
'
'ROMBII
'
Me.ROMBII.AcceptsReturn = True
resources.ApplyResources(Me.ROMBII, "ROMBII")
Me.ROMBII.BackColor = System.Drawing.SystemColors.Window
Me.ROMBII.Cursor = System.Windows.Forms.Cursors.IBeam
Me.ROMBII.ForeColor = System.Drawing.SystemColors.WindowText
Me.ROMBII.Name = "ROMBII"
Me.ROMBII.ReadOnly = True
Me.ToolTip1.SetToolTip(Me.ROMBII, resources.GetString("ROMBII.ToolTip"))
'
'ROMBIILabel
'
resources.ApplyResources(Me.ROMBIILabel, "ROMBIILabel")
Me.ROMBIILabel.Name = "ROMBIILabel"
Me.ToolTip1.SetToolTip(Me.ROMBIILabel, resources.GetString("ROMBIILabel.ToolTip"))
'
'ROMBIIBrowse
'
resources.ApplyResources(Me.ROMBIIBrowse, "ROMBIIBrowse")
Me.ROMBIIBrowse.BackColor = System.Drawing.SystemColors.Control
Me.ROMBIIBrowse.Cursor = System.Windows.Forms.Cursors.Default
Me.ROMBIIBrowse.ForeColor = System.Drawing.SystemColors.ControlText
Me.ROMBIIBrowse.Name = "ROMBIIBrowse"
Me.ToolTip1.SetToolTip(Me.ROMBIIBrowse, resources.GetString("ROMBIIBrowse.ToolTip"))
Me.ROMBIIBrowse.UseVisualStyleBackColor = True
'
'ROMvMac
'
Me.ROMvMac.AcceptsReturn = True
resources.ApplyResources(Me.ROMvMac, "ROMvMac")
Me.ROMvMac.BackColor = System.Drawing.SystemColors.Window
Me.ROMvMac.Cursor = System.Windows.Forms.Cursors.IBeam
Me.ROMvMac.ForeColor = System.Drawing.SystemColors.WindowText
Me.ROMvMac.Name = "ROMvMac"
Me.ROMvMac.ReadOnly = True
Me.ToolTip1.SetToolTip(Me.ROMvMac, resources.GetString("ROMvMac.ToolTip"))
'
'ROMvMacLabel
'
resources.ApplyResources(Me.ROMvMacLabel, "ROMvMacLabel")
Me.ROMvMacLabel.Name = "ROMvMacLabel"
Me.ToolTip1.SetToolTip(Me.ROMvMacLabel, resources.GetString("ROMvMacLabel.ToolTip"))
'
'ROMvMacBrowse
'
resources.ApplyResources(Me.ROMvMacBrowse, "ROMvMacBrowse")
Me.ROMvMacBrowse.BackColor = System.Drawing.SystemColors.Control
Me.ROMvMacBrowse.Cursor = System.Windows.Forms.Cursors.Default
Me.ROMvMacBrowse.ForeColor = System.Drawing.SystemColors.ControlText
Me.ROMvMacBrowse.Name = "ROMvMacBrowse"
Me.ToolTip1.SetToolTip(Me.ROMvMacBrowse, resources.GetString("ROMvMacBrowse.ToolTip"))
Me.ROMvMacBrowse.UseVisualStyleBackColor = True
'
'OptionContainer
'
resources.ApplyResources(Me.OptionContainer, "OptionContainer")
Me.OptionContainer.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Setting, Me.Value})
Me.OptionContainer.FullRowSelect = True
Me.OptionContainer.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.OptionContainer.Items.AddRange(New System.Windows.Forms.ListViewItem() {CType(resources.GetObject("OptionContainer.Items"), System.Windows.Forms.ListViewItem), CType(resources.GetObject("OptionContainer.Items1"), System.Windows.Forms.ListViewItem), CType(resources.GetObject("OptionContainer.Items2"), System.Windows.Forms.ListViewItem), CType(resources.GetObject("OptionContainer.Items3"), System.Windows.Forms.ListViewItem), CType(resources.GetObject("OptionContainer.Items4"), System.Windows.Forms.ListViewItem)})
Me.OptionContainer.Name = "OptionContainer"
Me.ToolTip1.SetToolTip(Me.OptionContainer, resources.GetString("OptionContainer.ToolTip"))
Me.OptionContainer.UseCompatibleStateImageBehavior = False
Me.OptionContainer.View = System.Windows.Forms.View.Details
'
'Setting
'
resources.ApplyResources(Me.Setting, "Setting")
'
'Value
'
resources.ApplyResources(Me.Value, "Value")
'
'UseContainerFrame
'
resources.ApplyResources(Me.UseContainerFrame, "UseContainerFrame")
Me.UseContainerFrame.BackColor = System.Drawing.SystemColors.Control
Me.UseContainerFrame.Controls.Add(Me.UCDisableTest)
Me.UseContainerFrame.Controls.Add(Me.UCEnableTest)
Me.UseContainerFrame.ForeColor = System.Drawing.SystemColors.ControlText
Me.UseContainerFrame.Name = "UseContainerFrame"
Me.UseContainerFrame.TabStop = False
Me.ToolTip1.SetToolTip(Me.UseContainerFrame, resources.GetString("UseContainerFrame.ToolTip"))
'
'UCDisableTest
'
resources.ApplyResources(Me.UCDisableTest, "UCDisableTest")
Me.UCDisableTest.Name = "UCDisableTest"
Me.ToolTip1.SetToolTip(Me.UCDisableTest, resources.GetString("UCDisableTest.ToolTip"))
Me.UCDisableTest.UseVisualStyleBackColor = True
'
'UCEnableTest
'
resources.ApplyResources(Me.UCEnableTest, "UCEnableTest")
Me.UCEnableTest.Name = "UCEnableTest"
Me.ToolTip1.SetToolTip(Me.UCEnableTest, resources.GetString("UCEnableTest.ToolTip"))
Me.UCEnableTest.UseVisualStyleBackColor = True
'
'EmulatorPathFrame
'
resources.ApplyResources(Me.EmulatorPathFrame, "EmulatorPathFrame")
Me.EmulatorPathFrame.BackColor = System.Drawing.SystemColors.Control
Me.EmulatorPathFrame.Controls.Add(Me.EPVerifyEmulatorPaths)
Me.EmulatorPathFrame.Controls.Add(Me.EPvMacPathLabel)
Me.EmulatorPathFrame.Controls.Add(Me.EPvMacPath)
Me.EmulatorPathFrame.Controls.Add(Me.EPvMacPathBrowse)
Me.EmulatorPathFrame.Controls.Add(Me.EPQEMUPathLabel)
Me.EmulatorPathFrame.Controls.Add(Me.EPQEMUPath)
Me.EmulatorPathFrame.Controls.Add(Me.EPQEMUPathBrowse)
Me.EmulatorPathFrame.Controls.Add(Me.EPPPCPathLabel)
Me.EmulatorPathFrame.Controls.Add(Me.EPPPCPath)
Me.EmulatorPathFrame.Controls.Add(Me.EPPPCPathBrowse)
Me.EmulatorPathFrame.Controls.Add(Me.EPSSPathLabel)
Me.EmulatorPathFrame.Controls.Add(Me.EPSSPath)
Me.EmulatorPathFrame.Controls.Add(Me.EPSSPathBrowse)
Me.EmulatorPathFrame.Controls.Add(Me.EPBIIPathLabel)
Me.EmulatorPathFrame.Controls.Add(Me.EPBIIPath)
Me.EmulatorPathFrame.Controls.Add(Me.EPBIIPathBrowse)
Me.EmulatorPathFrame.ForeColor = System.Drawing.SystemColors.ControlText
Me.EmulatorPathFrame.Name = "EmulatorPathFrame"
Me.EmulatorPathFrame.TabStop = False
Me.ToolTip1.SetToolTip(Me.EmulatorPathFrame, resources.GetString("EmulatorPathFrame.ToolTip"))
'
'EPVerifyEmulatorPaths
'
resources.ApplyResources(Me.EPVerifyEmulatorPaths, "EPVerifyEmulatorPaths")
Me.EPVerifyEmulatorPaths.Name = "EPVerifyEmulatorPaths"
Me.ToolTip1.SetToolTip(Me.EPVerifyEmulatorPaths, resources.GetString("EPVerifyEmulatorPaths.ToolTip"))
Me.EPVerifyEmulatorPaths.UseVisualStyleBackColor = True
'
'EPvMacPathLabel
'
resources.ApplyResources(Me.EPvMacPathLabel, "EPvMacPathLabel")
Me.EPvMacPathLabel.BackColor = System.Drawing.SystemColors.Control
Me.EPvMacPathLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.EPvMacPathLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.EPvMacPathLabel.Name = "EPvMacPathLabel"
Me.ToolTip1.SetToolTip(Me.EPvMacPathLabel, resources.GetString("EPvMacPathLabel.ToolTip"))
'
'EPvMacPath
'
Me.EPvMacPath.AcceptsReturn = True
resources.ApplyResources(Me.EPvMacPath, "EPvMacPath")
Me.EPvMacPath.BackColor = System.Drawing.SystemColors.Window
Me.EPvMacPath.Cursor = System.Windows.Forms.Cursors.IBeam
Me.EPvMacPath.ForeColor = System.Drawing.SystemColors.WindowText
Me.EPvMacPath.Name = "EPvMacPath"
Me.EPvMacPath.ReadOnly = True
Me.ToolTip1.SetToolTip(Me.EPvMacPath, resources.GetString("EPvMacPath.ToolTip"))
'
'EPvMacPathBrowse
'
resources.ApplyResources(Me.EPvMacPathBrowse, "EPvMacPathBrowse")
Me.EPvMacPathBrowse.BackColor = System.Drawing.SystemColors.Control
Me.EPvMacPathBrowse.Cursor = System.Windows.Forms.Cursors.Default
Me.EPvMacPathBrowse.ForeColor = System.Drawing.SystemColors.ControlText
Me.EPvMacPathBrowse.Name = "EPvMacPathBrowse"
Me.ToolTip1.SetToolTip(Me.EPvMacPathBrowse, resources.GetString("EPvMacPathBrowse.ToolTip"))
Me.EPvMacPathBrowse.UseVisualStyleBackColor = True
'
'EPQEMUPathLabel
'
resources.ApplyResources(Me.EPQEMUPathLabel, "EPQEMUPathLabel")
Me.EPQEMUPathLabel.BackColor = System.Drawing.SystemColors.Control
Me.EPQEMUPathLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.EPQEMUPathLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.EPQEMUPathLabel.Name = "EPQEMUPathLabel"
Me.ToolTip1.SetToolTip(Me.EPQEMUPathLabel, resources.GetString("EPQEMUPathLabel.ToolTip"))
'
'EPQEMUPath
'
Me.EPQEMUPath.AcceptsReturn = True
resources.ApplyResources(Me.EPQEMUPath, "EPQEMUPath")
Me.EPQEMUPath.BackColor = System.Drawing.SystemColors.Window
Me.EPQEMUPath.Cursor = System.Windows.Forms.Cursors.IBeam
Me.EPQEMUPath.ForeColor = System.Drawing.SystemColors.WindowText
Me.EPQEMUPath.Name = "EPQEMUPath"
Me.EPQEMUPath.ReadOnly = True
Me.ToolTip1.SetToolTip(Me.EPQEMUPath, resources.GetString("EPQEMUPath.ToolTip"))
'
'EPQEMUPathBrowse
'
resources.ApplyResources(Me.EPQEMUPathBrowse, "EPQEMUPathBrowse")
Me.EPQEMUPathBrowse.BackColor = System.Drawing.SystemColors.Control
Me.EPQEMUPathBrowse.Cursor = System.Windows.Forms.Cursors.Default
Me.EPQEMUPathBrowse.ForeColor = System.Drawing.SystemColors.ControlText
Me.EPQEMUPathBrowse.Name = "EPQEMUPathBrowse"
Me.ToolTip1.SetToolTip(Me.EPQEMUPathBrowse, resources.GetString("EPQEMUPathBrowse.ToolTip"))
Me.EPQEMUPathBrowse.UseVisualStyleBackColor = True
'
'EPPPCPathLabel
'
resources.ApplyResources(Me.EPPPCPathLabel, "EPPPCPathLabel")
Me.EPPPCPathLabel.BackColor = System.Drawing.SystemColors.Control
Me.EPPPCPathLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.EPPPCPathLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.EPPPCPathLabel.Name = "EPPPCPathLabel"
Me.ToolTip1.SetToolTip(Me.EPPPCPathLabel, resources.GetString("EPPPCPathLabel.ToolTip"))
'
'EPPPCPath
'
Me.EPPPCPath.AcceptsReturn = True
resources.ApplyResources(Me.EPPPCPath, "EPPPCPath")
Me.EPPPCPath.BackColor = System.Drawing.SystemColors.Window
Me.EPPPCPath.Cursor = System.Windows.Forms.Cursors.IBeam
Me.EPPPCPath.ForeColor = System.Drawing.SystemColors.WindowText
Me.EPPPCPath.Name = "EPPPCPath"
Me.EPPPCPath.ReadOnly = True
Me.ToolTip1.SetToolTip(Me.EPPPCPath, resources.GetString("EPPPCPath.ToolTip"))
'
'EPPPCPathBrowse
'
resources.ApplyResources(Me.EPPPCPathBrowse, "EPPPCPathBrowse")
Me.EPPPCPathBrowse.BackColor = System.Drawing.SystemColors.Control
Me.EPPPCPathBrowse.Cursor = System.Windows.Forms.Cursors.Default
Me.EPPPCPathBrowse.ForeColor = System.Drawing.SystemColors.ControlText
Me.EPPPCPathBrowse.Name = "EPPPCPathBrowse"
Me.ToolTip1.SetToolTip(Me.EPPPCPathBrowse, resources.GetString("EPPPCPathBrowse.ToolTip"))
Me.EPPPCPathBrowse.UseVisualStyleBackColor = True
'
'EPSSPathLabel
'
resources.ApplyResources(Me.EPSSPathLabel, "EPSSPathLabel")
Me.EPSSPathLabel.BackColor = System.Drawing.SystemColors.Control
Me.EPSSPathLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.EPSSPathLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.EPSSPathLabel.Name = "EPSSPathLabel"
Me.ToolTip1.SetToolTip(Me.EPSSPathLabel, resources.GetString("EPSSPathLabel.ToolTip"))
'
'EPSSPath
'
Me.EPSSPath.AcceptsReturn = True
resources.ApplyResources(Me.EPSSPath, "EPSSPath")
Me.EPSSPath.BackColor = System.Drawing.SystemColors.Window
Me.EPSSPath.Cursor = System.Windows.Forms.Cursors.IBeam
Me.EPSSPath.ForeColor = System.Drawing.SystemColors.WindowText
Me.EPSSPath.Name = "EPSSPath"
Me.EPSSPath.ReadOnly = True
Me.ToolTip1.SetToolTip(Me.EPSSPath, resources.GetString("EPSSPath.ToolTip"))
'
'EPSSPathBrowse
'
resources.ApplyResources(Me.EPSSPathBrowse, "EPSSPathBrowse")
Me.EPSSPathBrowse.BackColor = System.Drawing.SystemColors.Control
Me.EPSSPathBrowse.Cursor = System.Windows.Forms.Cursors.Default
Me.EPSSPathBrowse.ForeColor = System.Drawing.SystemColors.ControlText
Me.EPSSPathBrowse.Name = "EPSSPathBrowse"
Me.ToolTip1.SetToolTip(Me.EPSSPathBrowse, resources.GetString("EPSSPathBrowse.ToolTip"))
Me.EPSSPathBrowse.UseVisualStyleBackColor = True
'
'EPBIIPathLabel
'
resources.ApplyResources(Me.EPBIIPathLabel, "EPBIIPathLabel")
Me.EPBIIPathLabel.BackColor = System.Drawing.SystemColors.Control
Me.EPBIIPathLabel.Cursor = System.Windows.Forms.Cursors.Default
Me.EPBIIPathLabel.ForeColor = System.Drawing.SystemColors.ControlText
Me.EPBIIPathLabel.Name = "EPBIIPathLabel"
Me.ToolTip1.SetToolTip(Me.EPBIIPathLabel, resources.GetString("EPBIIPathLabel.ToolTip"))
'
'EPBIIPath
'
Me.EPBIIPath.AcceptsReturn = True
resources.ApplyResources(Me.EPBIIPath, "EPBIIPath")
Me.EPBIIPath.BackColor = System.Drawing.SystemColors.Window
Me.EPBIIPath.Cursor = System.Windows.Forms.Cursors.IBeam
Me.EPBIIPath.ForeColor = System.Drawing.SystemColors.WindowText
Me.EPBIIPath.Name = "EPBIIPath"
Me.EPBIIPath.ReadOnly = True
Me.ToolTip1.SetToolTip(Me.EPBIIPath, resources.GetString("EPBIIPath.ToolTip"))
'
'EPBIIPathBrowse
'
resources.ApplyResources(Me.EPBIIPathBrowse, "EPBIIPathBrowse")
Me.EPBIIPathBrowse.BackColor = System.Drawing.SystemColors.Control
Me.EPBIIPathBrowse.Cursor = System.Windows.Forms.Cursors.Default
Me.EPBIIPathBrowse.ForeColor = System.Drawing.SystemColors.ControlText
Me.EPBIIPathBrowse.Name = "EPBIIPathBrowse"
Me.ToolTip1.SetToolTip(Me.EPBIIPathBrowse, resources.GetString("EPBIIPathBrowse.ToolTip"))
Me.EPBIIPathBrowse.UseVisualStyleBackColor = True
'
'LangFrame
'
resources.ApplyResources(Me.LangFrame, "LangFrame")
Me.LangFrame.BackColor = System.Drawing.SystemColors.Control
Me.LangFrame.Controls.Add(Me.LangSelected)
Me.LangFrame.Controls.Add(Me.LangInfo)
Me.LangFrame.ForeColor = System.Drawing.SystemColors.ControlText
Me.LangFrame.Name = "LangFrame"
Me.LangFrame.TabStop = False
Me.ToolTip1.SetToolTip(Me.LangFrame, resources.GetString("LangFrame.ToolTip"))
'
'LangSelected
'
resources.ApplyResources(Me.LangSelected, "LangSelected")
Me.LangSelected.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.LangSelected.FormattingEnabled = True
Me.LangSelected.Items.AddRange(New Object() {resources.GetString("LangSelected.Items"), resources.GetString("LangSelected.Items1"), resources.GetString("LangSelected.Items2")})
Me.LangSelected.Name = "LangSelected"
Me.ToolTip1.SetToolTip(Me.LangSelected, resources.GetString("LangSelected.ToolTip"))
'
'LangInfo
'
resources.ApplyResources(Me.LangInfo, "LangInfo")
Me.LangInfo.Name = "LangInfo"
Me.ToolTip1.SetToolTip(Me.LangInfo, resources.GetString("LangInfo.ToolTip"))
'
'BrowseOpen
'
resources.ApplyResources(Me.BrowseOpen, "BrowseOpen")
Me.BrowseOpen.ReadOnlyChecked = True
Me.BrowseOpen.ShowReadOnly = True
'
'FolderBrowser
'
resources.ApplyResources(Me.FolderBrowser, "FolderBrowser")
'
'frmOptions
'
Me.AcceptButton = Me.cmdOK
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.Control
Me.CancelButton = Me.cmdCancel
Me.Controls.Add(Me.EmulatorPathFrame)
Me.Controls.Add(Me.ROMFrame)
Me.Controls.Add(Me.UseContainerFrame)
Me.Controls.Add(Me.FolderFrame)
Me.Controls.Add(Me.LangFrame)
Me.Controls.Add(Me.cmdCancel)
Me.Controls.Add(Me.cmdOK)
Me.Controls.Add(Me.OptionContainer)
Me.Cursor = System.Windows.Forms.Cursors.Default
Me.ForeColor = System.Drawing.Color.Black
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.KeyPreview = True
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmOptions"
Me.ShowIcon = False
Me.Tag = "1017"
Me.ToolTip1.SetToolTip(Me, resources.GetString("$this.ToolTip"))
Me.FolderFrame.ResumeLayout(False)
Me.FolderFrame.PerformLayout()
Me.ROMFrame.ResumeLayout(False)
Me.ROMFrame.PerformLayout()
Me.UseContainerFrame.ResumeLayout(False)
Me.UseContainerFrame.PerformLayout()
Me.EmulatorPathFrame.ResumeLayout(False)
Me.EmulatorPathFrame.PerformLayout()
Me.LangFrame.ResumeLayout(False)
Me.LangFrame.PerformLayout()
Me.ResumeLayout(False)
End Sub
Public WithEvents FolderNewMacLabel As System.Windows.Forms.Label
Public WithEvents FolderNewMac As System.Windows.Forms.TextBox
Public WithEvents FolderNewMacBrowse As System.Windows.Forms.Button
Public WithEvents ROMFrame As System.Windows.Forms.GroupBox
Public WithEvents ROMvMac As System.Windows.Forms.TextBox
Public WithEvents ROMvMacBrowse As System.Windows.Forms.Button
Friend WithEvents FolderBrowser As System.Windows.Forms.FolderBrowserDialog
Friend WithEvents Setting As System.Windows.Forms.ColumnHeader
Friend WithEvents Value As System.Windows.Forms.ColumnHeader
Public WithEvents UseContainerFrame As System.Windows.Forms.GroupBox
Friend WithEvents UCDisableTest As System.Windows.Forms.RadioButton
Friend WithEvents UCEnableTest As System.Windows.Forms.RadioButton
Friend WithEvents OptionContainer As System.Windows.Forms.ListView
Friend WithEvents ROMSSLabel As System.Windows.Forms.Label
Public WithEvents ROMSS As System.Windows.Forms.TextBox
Public WithEvents ROMSSBrowse As System.Windows.Forms.Button
Friend WithEvents ROMBIILabel As System.Windows.Forms.Label
Public WithEvents ROMBII As System.Windows.Forms.TextBox
Public WithEvents ROMBIIBrowse As System.Windows.Forms.Button
Friend WithEvents ROMvMacLabel As System.Windows.Forms.Label
Friend WithEvents ROMNoteNoROM As System.Windows.Forms.Label
Friend WithEvents FolderAppCurrentLabel As System.Windows.Forms.Label
Friend WithEvents FolderAppCurrent As System.Windows.Forms.Label
Public WithEvents EmulatorPathFrame As System.Windows.Forms.GroupBox
Public WithEvents EPBIIPathLabel As System.Windows.Forms.Label
Public WithEvents EPBIIPath As System.Windows.Forms.TextBox
Public WithEvents EPBIIPathBrowse As System.Windows.Forms.Button
Public WithEvents EPQEMUPathLabel As System.Windows.Forms.Label
Public WithEvents EPQEMUPath As System.Windows.Forms.TextBox
Public WithEvents EPQEMUPathBrowse As System.Windows.Forms.Button
Public WithEvents EPPPCPathLabel As System.Windows.Forms.Label
Public WithEvents EPPPCPath As System.Windows.Forms.TextBox
Public WithEvents EPPPCPathBrowse As System.Windows.Forms.Button
Public WithEvents EPSSPathLabel As System.Windows.Forms.Label
Public WithEvents EPSSPath As System.Windows.Forms.TextBox
Public WithEvents EPSSPathBrowse As System.Windows.Forms.Button
Public WithEvents EPvMacPathLabel As System.Windows.Forms.Label
Public WithEvents EPvMacPath As System.Windows.Forms.TextBox
Public WithEvents EPvMacPathBrowse As System.Windows.Forms.Button
Friend WithEvents EPVerifyEmulatorPaths As System.Windows.Forms.CheckBox
Public WithEvents LangFrame As System.Windows.Forms.GroupBox
Friend WithEvents LangSelected As System.Windows.Forms.ComboBox
Friend WithEvents LangInfo As System.Windows.Forms.Label
#End Region
End Class

442
frmOptions.de-DE.resx Normal file
View File

@ -0,0 +1,442 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="cmdOK.Text" xml:space="preserve">
<value>Ja</value>
</data>
<data name="cmdCancel.Text" xml:space="preserve">
<value>Nein</value>
</data>
<data name="FolderFrame.Text" xml:space="preserve">
<value>Ordnereinstellungen</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="FolderAppCurrentLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>132, 13</value>
</data>
<data name="FolderAppCurrentLabel.Text" xml:space="preserve">
<value>Aktueller Programmordner</value>
</data>
<data name="FolderNewMacLabel.Text" xml:space="preserve">
<value>Standard-Mac-Ordner</value>
</data>
<data name="ROMNoteNoROM.Size" type="System.Drawing.Size, System.Drawing">
<value>323, 26</value>
</data>
<data name="ROMNoteNoROM.Text" xml:space="preserve">
<value>Beachten Sie, dass QEMU und PearPC kein ROM benötigen, um zu
funktionieren.</value>
</data>
<data name="OptionContainer.Items" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAgVGVzdGVuIFNpZSBkYXMgTWFjaW50b3NoLUZlbnN0ZXL/////AgAAAAkFAAAABfr///8UU3lz
dGVtLkRyYXdpbmcuQ29sb3IEAAAABG5hbWUFdmFsdWUKa25vd25Db2xvcgVzdGF0ZQEAAAAJBwcDAAAA
CgAAAAAAAAAAGAABAAAJBwAAAAH4////+v///woAAAAAAAAAABoAAQABDAkAAABLbXNjb3JsaWIsIFZl
cnNpb249Mi4wLjAuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRl
MDg5BQUAAAAxU3lzdGVtLldpbmRvd3MuRm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbQQA
AAAEdGV4dARuYW1lBXN0eWxlCHVzZXJEYXRhAQEEAj5TeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmll
d0l0ZW0rTGlzdFZpZXdTdWJJdGVtK1N1Ykl0ZW1TdHlsZQIAAAACAAAABgoAAAACTm8KCgoFBwAAABNT
eXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1lBFNpemUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3
aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRyYXdpbmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZU
YWhvbWEAAARBBfT///8YU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAA
AAXz////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionContainer.Items1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAEUk9Nc/////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFtZQV2
YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6////
CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRy
YWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5Gb3Jt
cy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRhdGEB
AQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3ViSXRl
bVN0eWxlAgAAAAIAAAAGCgAAAAdYLCBZLCBaCgoKBQcAAAATU3lzdGVtLkRyYXdpbmcuRm9udAQAAAAE
TmFtZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0uRHJhd2luZy5Gb250U3R5bGUDAAAAG1N5c3Rl
bS5EcmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAABgsAAAAGVGFob21hAAAEQQX0////GFN5c3RlbS5E
cmF3aW5nLkZvbnRTdHlsZQEAAAAHdmFsdWVfXwAIAwAAAAAAAAAF8////xtTeXN0ZW0uRHJhd2luZy5H
cmFwaGljc1VuaXQBAAAAB3ZhbHVlX18ACAMAAAADAAAACw==
</value>
</data>
<data name="OptionContainer.Items2" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAATT3JkbmVyZWluc3RlbGx1bmdlbv////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5D
b2xvcgQAAAAEbmFtZQV2YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEA
AAkHAAAAAfj////6////CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUF
c3R5bGUIdXNlckRhdGEBAQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmll
d1N1Ykl0ZW0rU3ViSXRlbVN0eWxlAgAAAAIAAAAGCgAAAANDOlwKCgoFBwAAABNTeXN0ZW0uRHJhd2lu
Zy5Gb250BAAAAAROYW1lBFNpemUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHls
ZQMAAAAbU3lzdGVtLkRyYXdpbmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZUYWhvbWEAAARBBfT/
//8YU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAXz////G1N5c3Rl
bS5EcmF3aW5nLkdyYXBoaWNzVW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionContainer.Items3" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAANRW11bGF0b3JwZmFkZf////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQA
AAAEbmFtZQV2YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAA
Afj////6////CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2lu
ZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUI
dXNlckRhdGEBAQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0
ZW0rU3ViSXRlbVN0eWxlAgAAAAIAAAAGCgAAAAZDdXN0b20KCgoFBwAAABNTeXN0ZW0uRHJhd2luZy5G
b250BAAAAAROYW1lBFNpemUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMA
AAAbU3lzdGVtLkRyYXdpbmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZUYWhvbWEAAARBBfT///8Y
U3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAXz////G1N5c3RlbS5E
cmF3aW5nLkdyYXBoaWNzVW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionContainer.Items4" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAHU3ByYWNoZf////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFt
ZQV2YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6
////CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5l
dXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5G
b3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRh
dGEBAQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3Vi
SXRlbVN0eWxlAgAAAAIAAAAKCgoKBQcAAAATU3lzdGVtLkRyYXdpbmcuRm9udAQAAAAETmFtZQRTaXpl
BVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0uRHJhd2luZy5Gb250U3R5bGUDAAAAG1N5c3RlbS5EcmF3aW5n
LkdyYXBoaWNzVW5pdAMAAAADAAAABgoAAAAGVGFob21hAAAEQQX1////GFN5c3RlbS5EcmF3aW5nLkZv
bnRTdHlsZQEAAAAHdmFsdWVfXwAIAwAAAAAAAAAF9P///xtTeXN0ZW0uRHJhd2luZy5HcmFwaGljc1Vu
aXQBAAAAB3ZhbHVlX18ACAMAAAADAAAACw==
</value>
</data>
<data name="Setting.Text" xml:space="preserve">
<value>Optionen</value>
</data>
<data name="Value.Text" xml:space="preserve">
<value>Wert</value>
</data>
<data name="UseContainerFrame.Text" xml:space="preserve">
<value>Testen Sie das Macintosh-Fenster</value>
</data>
<data name="UCDisableTest.Text" xml:space="preserve">
<value>Nicht testen</value>
</data>
<data name="UCEnableTest.Size" type="System.Drawing.Size, System.Drawing">
<value>61, 17</value>
</data>
<data name="UCEnableTest.Text" xml:space="preserve">
<value>Testen </value>
</data>
<data name="EmulatorPathFrame.Text" xml:space="preserve">
<value>Emulatorpfade</value>
</data>
<data name="EPVerifyEmulatorPaths.Size" type="System.Drawing.Size, System.Drawing">
<value>266, 17</value>
</data>
<data name="EPVerifyEmulatorPaths.Text" xml:space="preserve">
<value>Überprüfen Sie beim Start nach ungültigen Pfaden</value>
</data>
<data name="EPvMacPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>57, 13</value>
</data>
<data name="EPvMacPathLabel.Text" xml:space="preserve">
<value>Mini vMac:</value>
</data>
<data name="EPQEMUPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>40, 13</value>
</data>
<data name="EPQEMUPathLabel.Text" xml:space="preserve">
<value>QEMU:</value>
</data>
<data name="EPPPCPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>46, 13</value>
</data>
<data name="EPPPCPathLabel.Text" xml:space="preserve">
<value>PearPC:</value>
</data>
<data name="EPSSPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>75, 13</value>
</data>
<data name="EPSSPathLabel.Text" xml:space="preserve">
<value>SheepShaver:</value>
</data>
<data name="EPBIIPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>55, 13</value>
</data>
<data name="EPBIIPathLabel.Text" xml:space="preserve">
<value>Basilisk II:</value>
</data>
<data name="LangFrame.Text" xml:space="preserve">
<value>Sprache</value>
</data>
<data name="LangInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>336, 39</value>
</data>
<data name="LangInfo.Text" xml:space="preserve">
<value>Auf dieser Seite können Sie die Sprache der Anwendung einstellen.
Dies wird nicht sofort reflektiert. Sie müssen Virtual Mac neu starten,
damit diese Änderung wirksam wird.</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAAAAAoAQAANgAAACAgAAAAAAAAqAgAAF4BAAAwMAAAAAAAAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAIiIiIiIiIgAiI
iIiIiIiACIiIiIiIiIAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhIS
EhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhIS
EhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhIS
EhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhIS
EhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAgAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcH
BwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcHBwcKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//4AAH//
AAD//wAA//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Optionen</value>
</data>
</root>

588
frmOptions.es-MX.resx Normal file
View File

@ -0,0 +1,588 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="cmdOK.Text" xml:space="preserve">
<value>Aceptar</value>
</data>
<data name="cmdOK.ToolTip" xml:space="preserve">
<value />
</data>
<data name="cmdCancel.Text" xml:space="preserve">
<value>Cancelar</value>
</data>
<data name="cmdCancel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="FolderAppCurrent.ToolTip" xml:space="preserve">
<value />
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="FolderAppCurrentLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>148, 13</value>
</data>
<data name="FolderAppCurrentLabel.Text" xml:space="preserve">
<value>Carpeta actual del programa:</value>
</data>
<data name="FolderAppCurrentLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="FolderNewMacLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 17</value>
</data>
<data name="FolderNewMacLabel.Text" xml:space="preserve">
<value>Carpeta predeterminada para nuevas Macs:</value>
</data>
<data name="FolderNewMacLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="FolderNewMac.ToolTip" xml:space="preserve">
<value />
</data>
<data name="FolderNewMacBrowse.ToolTip" xml:space="preserve">
<value />
</data>
<data name="FolderFrame.Text" xml:space="preserve">
<value>Carpetas</value>
</data>
<data name="FolderFrame.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMNoteNoROM.Size" type="System.Drawing.Size, System.Drawing">
<value>314, 13</value>
</data>
<data name="ROMNoteNoROM.Text" xml:space="preserve">
<value>Note que QEMU y PearPC no requieren una ROM para funcionar</value>
</data>
<data name="ROMNoteNoROM.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMSS.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMSSLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMSSBrowse.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMBII.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMBIILabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMBIIBrowse.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMvMac.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMvMacLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMvMacBrowse.ToolTip" xml:space="preserve">
<value />
</data>
<data name="ROMFrame.ToolTip" xml:space="preserve">
<value />
</data>
<data name="Setting.Text" xml:space="preserve">
<value>Opciones</value>
</data>
<data name="Value.Text" xml:space="preserve">
<value>Valores</value>
</data>
<data name="OptionContainer.Items" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAcUHJvYmFyIHZlbnRhbmEgZGUgZW11bGFjacOzbv////8CAAAACQUAAAAF+v///xRTeXN0ZW0u
RHJhd2luZy5Db2xvcgQAAAAEbmFtZQV2YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAA
AAAAAAAYAAEAAAkHAAAAAfj////6////CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lv
bj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkF
BQAAADFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0
ZXh0BG5hbWUFc3R5bGUIdXNlckRhdGEBAQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRl
bStMaXN0Vmlld1N1Ykl0ZW0rU3ViSXRlbVN0eWxlAgAAAAIAAAAGCgAAAAJObwoKCgUHAAAAE1N5c3Rl
bS5EcmF3aW5nLkZvbnQEAAAABE5hbWUEU2l6ZQVTdHlsZQRVbml0AQAEBAsYU3lzdGVtLkRyYXdpbmcu
Rm9udFN0eWxlAwAAABtTeXN0ZW0uRHJhd2luZy5HcmFwaGljc1VuaXQDAAAAAwAAAAYLAAAABlRhaG9t
YQAABEEF9P///xhTeXN0ZW0uRHJhd2luZy5Gb250U3R5bGUBAAAAB3ZhbHVlX18ACAMAAAAAAAAABfP/
//8bU3lzdGVtLkRyYXdpbmcuR3JhcGhpY3NVbml0AQAAAAd2YWx1ZV9fAAgDAAAAAwAAAAs=
</value>
</data>
<data name="OptionContainer.Items1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAEUk9Nc/////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFtZQV2
YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6////
CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRy
YWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5Gb3Jt
cy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRhdGEB
AQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3ViSXRl
bVN0eWxlAgAAAAIAAAAGCgAAAAdYLCBZLCBaCgoKBQcAAAATU3lzdGVtLkRyYXdpbmcuRm9udAQAAAAE
TmFtZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0uRHJhd2luZy5Gb250U3R5bGUDAAAAG1N5c3Rl
bS5EcmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAABgsAAAAGVGFob21hAAAEQQX0////GFN5c3RlbS5E
cmF3aW5nLkZvbnRTdHlsZQEAAAAHdmFsdWVfXwAIAwAAAAAAAAAF8////xtTeXN0ZW0uRHJhd2luZy5H
cmFwaGljc1VuaXQBAAAAB3ZhbHVlX18ACAMAAAADAAAACw==
</value>
</data>
<data name="OptionContainer.Items2" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAXQ2FycGV0YSBwYXJhIG51ZXZhcyBNYWP/////AgAAAAkFAAAABfr///8UU3lzdGVtLkRyYXdp
bmcuQ29sb3IEAAAABG5hbWUFdmFsdWUKa25vd25Db2xvcgVzdGF0ZQEAAAAJBwcDAAAACgAAAAAAAAAA
GAABAAAJBwAAAAH4////+v///woAAAAAAAAAABoAAQABDAkAAABLbXNjb3JsaWIsIFZlcnNpb249Mi4w
LjAuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5BQUAAAAx
U3lzdGVtLldpbmRvd3MuRm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbQQAAAAEdGV4dARu
YW1lBXN0eWxlCHVzZXJEYXRhAQEEAj5TeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlz
dFZpZXdTdWJJdGVtK1N1Ykl0ZW1TdHlsZQIAAAACAAAABgoAAAADQzpcCgoKBQcAAAATU3lzdGVtLkRy
YXdpbmcuRm9udAQAAAAETmFtZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0uRHJhd2luZy5Gb250
U3R5bGUDAAAAG1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAABgsAAAAGVGFob21hAAAE
QQX0////GFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQEAAAAHdmFsdWVfXwAIAwAAAAAAAAAF8////xtT
eXN0ZW0uRHJhd2luZy5HcmFwaGljc1VuaXQBAAAAB3ZhbHVlX18ACAMAAAADAAAACw==
</value>
</data>
<data name="OptionContainer.Items3" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAXUnV0YXMgZGUgbG9zIGVtdWxhZG9yZXP/////AgAAAAkFAAAABfr///8UU3lzdGVtLkRyYXdp
bmcuQ29sb3IEAAAABG5hbWUFdmFsdWUKa25vd25Db2xvcgVzdGF0ZQEAAAAJBwcDAAAACgAAAAAAAAAA
GAABAAAJBwAAAAH4////+v///woAAAAAAAAAABoAAQABDAkAAABLbXNjb3JsaWIsIFZlcnNpb249Mi4w
LjAuMCwgQ3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5BQUAAAAx
U3lzdGVtLldpbmRvd3MuRm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbQQAAAAEdGV4dARu
YW1lBXN0eWxlCHVzZXJEYXRhAQEEAj5TeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlz
dFZpZXdTdWJJdGVtK1N1Ykl0ZW1TdHlsZQIAAAACAAAABgoAAAAGQ3VzdG9tCgoKBQcAAAATU3lzdGVt
LkRyYXdpbmcuRm9udAQAAAAETmFtZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0uRHJhd2luZy5G
b250U3R5bGUDAAAAG1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAABgsAAAAGVGFob21h
AAAEQQX0////GFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQEAAAAHdmFsdWVfXwAIAwAAAAAAAAAF8///
/xtTeXN0ZW0uRHJhd2luZy5HcmFwaGljc1VuaXQBAAAAB3ZhbHVlX18ACAMAAAADAAAACw==
</value>
</data>
<data name="OptionContainer.Items4" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAGSWRpb21h/////wIAAAAJBQAAAAX6////FFN5c3RlbS5EcmF3aW5nLkNvbG9yBAAAAARuYW1l
BXZhbHVlCmtub3duQ29sb3IFc3RhdGUBAAAACQcHAwAAAAoAAAAAAAAAABgAAQAACQcAAAAB+P////r/
//8KAAAAAAAAAAAaAAEAAQwJAAAAS21zY29ybGliLCBWZXJzaW9uPTIuMC4wLjAsIEN1bHR1cmU9bmV1
dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUFAAAAMVN5c3RlbS5XaW5kb3dzLkZv
cm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0EAAAABHRleHQEbmFtZQVzdHlsZQh1c2VyRGF0
YQEBBAI+U3lzdGVtLldpbmRvd3MuRm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbStTdWJJ
dGVtU3R5bGUCAAAAAgAAAAoKCgoFBwAAABNTeXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1lBFNpemUF
U3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRyYXdpbmcu
R3JhcGhpY3NVbml0AwAAAAMAAAAGCgAAAAZUYWhvbWEAAARBBfX///8YU3lzdGVtLkRyYXdpbmcuRm9u
dFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAX0////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5p
dAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionContainer.ToolTip" xml:space="preserve">
<value />
</data>
<data name="UCDisableTest.Size" type="System.Drawing.Size, System.Drawing">
<value>73, 17</value>
</data>
<data name="UCDisableTest.Text" xml:space="preserve">
<value>No probar</value>
</data>
<data name="UCDisableTest.ToolTip" xml:space="preserve">
<value />
</data>
<data name="UCEnableTest.Size" type="System.Drawing.Size, System.Drawing">
<value>57, 17</value>
</data>
<data name="UCEnableTest.Text" xml:space="preserve">
<value>Probar</value>
</data>
<data name="UCEnableTest.ToolTip" xml:space="preserve">
<value />
</data>
<data name="UseContainerFrame.Text" xml:space="preserve">
<value>Probar ventana de emulación</value>
</data>
<data name="UseContainerFrame.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPVerifyEmulatorPaths.Size" type="System.Drawing.Size, System.Drawing">
<value>178, 17</value>
</data>
<data name="EPVerifyEmulatorPaths.Text" xml:space="preserve">
<value>Verificar rutas inválidas al iniciar</value>
</data>
<data name="EPVerifyEmulatorPaths.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPvMacPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>57, 13</value>
</data>
<data name="EPvMacPathLabel.Text" xml:space="preserve">
<value>Mini vMac:</value>
</data>
<data name="EPvMacPathLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPvMacPath.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPvMacPathBrowse.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPQEMUPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>40, 13</value>
</data>
<data name="EPQEMUPathLabel.Text" xml:space="preserve">
<value>QEMU:</value>
</data>
<data name="EPQEMUPathLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPQEMUPath.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPQEMUPathBrowse.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPPPCPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>46, 13</value>
</data>
<data name="EPPPCPathLabel.Text" xml:space="preserve">
<value>PearPC:</value>
</data>
<data name="EPPPCPathLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPPPCPath.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPPPCPathBrowse.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPSSPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>75, 13</value>
</data>
<data name="EPSSPathLabel.Text" xml:space="preserve">
<value>SheepShaver:</value>
</data>
<data name="EPSSPathLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPSSPath.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPSSPathBrowse.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPBIIPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>55, 13</value>
</data>
<data name="EPBIIPathLabel.Text" xml:space="preserve">
<value>Basilisk II:</value>
</data>
<data name="EPBIIPathLabel.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPBIIPath.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EPBIIPathBrowse.ToolTip" xml:space="preserve">
<value />
</data>
<data name="EmulatorPathFrame.Text" xml:space="preserve">
<value>Rutas de emulador</value>
</data>
<data name="EmulatorPathFrame.ToolTip" xml:space="preserve">
<value />
</data>
<data name="LangSelected.Items" xml:space="preserve">
<value>Ingles (Estados Unidos) [English]</value>
</data>
<data name="LangSelected.Items1" xml:space="preserve">
<value>Español (México) [Español]</value>
</data>
<data name="LangSelected.Size" type="System.Drawing.Size, System.Drawing">
<value>263, 21</value>
</data>
<data name="LangSelected.ToolTip" xml:space="preserve">
<value />
</data>
<data name="LangInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>320, 39</value>
</data>
<data name="LangInfo.Text" xml:space="preserve">
<value>En esta página usted puede seleccionar el idioma de la aplicación.
El cambio no será reflejado inmediatamente. Debe reiniciar
Viirtual Mac para que este cambio tenga efecto</value>
</data>
<data name="LangInfo.ToolTip" xml:space="preserve">
<value />
</data>
<data name="LangFrame.Text" xml:space="preserve">
<value>Idioma</value>
</data>
<data name="LangFrame.ToolTip" xml:space="preserve">
<value />
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAAAAAoAQAANgAAACAgAAAAAAAAqAgAAF4BAAAwMAAAAAAAAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAIiIiIiIiIgAiI
iIiIiIiACIiIiIiIiIAIiIiIiIiIgAiIiIiIiIiACIiIiIiIiIAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhIS
EhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhIS
EhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhIS
EhISEhISEhISEhISEhISEhISEhIKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhIS
EhISEhISEhISEhISEhISEhISEhISEhISCgoKChISEhISEhISEhISEhISEhISEhISEhISEhISEhIKCgoK
EhISEhISEhISEhISEhISEhISEhISEhISEhISEgoKCgoSEhISEhISEhISEhISEhISEhISEhISEhISEhIS
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAgAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcH
BwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcHBwcKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISEhISEhISEhISEhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhIS
EhISCgoKCgoKEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKEhIS
EhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISEhISCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//4AAH//
AAD//wAA//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Opciones</value>
</data>
<data name="$this.ToolTip" xml:space="preserve">
<value />
</data>
</root>

View File

@ -1,346 +0,0 @@
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmOptions
BorderStyle = 3 'Fixed Dialog
Caption = "Options"
ClientHeight = 5850
ClientLeft = 45
ClientTop = 435
ClientWidth = 8565
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000F&
Icon = "frmOptions.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5850
ScaleWidth = 8565
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Tag = "1017"
Begin MSComDlg.CommonDialog Browse
Left = 4440
Top = 3600
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Frame OptionsContainer
Caption = "Virtual Mac Options"
Height = 5535
Left = 120
TabIndex = 8
Top = 120
Width = 4215
Begin VB.ListBox OptionsList
Height = 5325
ItemData = "frmOptions.frx":000C
Left = 0
List = "frmOptions.frx":0016
TabIndex = 9
Top = 240
Width = 4215
End
End
Begin VB.CommandButton cmdOK
Caption = "OK"
Default = -1 'True
Height = 320
Left = 6045
TabIndex = 0
Tag = "1024"
Top = 5280
Width = 1095
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "Cancel"
Height = 320
Left = 7260
TabIndex = 1
Tag = "1023"
Top = 5280
Width = 1095
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3780
Index = 3
Left = -20000
ScaleHeight = 3840.968
ScaleMode = 0 'User
ScaleWidth = 5745.64
TabIndex = 3
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample4
Caption = "Ejemplo 4"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2022
Left = 505
TabIndex = 7
Tag = "1021"
Top = 502
Width = 2033
End
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3780
Index = 2
Left = -20000
ScaleHeight = 3840.968
ScaleMode = 0 'User
ScaleWidth = 5745.64
TabIndex = 5
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample3
Caption = "Ejemplo 3"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2022
Left = 406
TabIndex = 6
Tag = "1020"
Top = 403
Width = 2033
End
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3780
Index = 1
Left = -20000
ScaleHeight = 3840.968
ScaleMode = 0 'User
ScaleWidth = 5745.64
TabIndex = 2
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample2
Caption = "Ejemplo 2"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2022
Left = 307
TabIndex = 4
Tag = "1019"
Top = 305
Width = 2033
End
End
Begin VB.Frame Folders
Caption = "Folders"
Height = 3255
Left = 4560
TabIndex = 13
Top = 120
Visible = 0 'False
Width = 3735
Begin VB.CommandButton BrowseFolder
Caption = "Browse..."
Height = 320
Left = 120
TabIndex = 16
Top = 840
Width = 975
End
Begin VB.TextBox DefaultMacFolder
Height = 285
Left = 120
Locked = -1 'True
TabIndex = 14
Text = "C:\Documents and settings\Edson Armando\Mis documentos\My Macs"
Top = 480
Width = 3495
End
Begin VB.Label DefFolderTitle
Caption = "Default Mac Folder"
Height = 255
Left = 120
TabIndex = 15
Top = 240
Width = 1575
End
End
Begin VB.Frame ROM
Caption = "ROM"
Height = 3255
Left = 4560
TabIndex = 10
Top = 120
Visible = 0 'False
Width = 3735
Begin VB.TextBox ROMFile
Height = 285
Left = 120
Locked = -1 'True
TabIndex = 12
Top = 360
Width = 3735
End
Begin VB.CommandButton BrowseROM
Caption = "Browse..."
Height = 320
Left = 120
TabIndex = 11
Top = 720
Width = 1000
End
End
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Function SelectFolder(Optional DialogTitle As String, _
Optional IntialPath As Variant) As String
On Local Error GoTo errFunction
Dim objShell As Object
Dim objFolder As Object
Dim Folder As Object
Set objShell = CreateObject("Shell.Application")
On Error Resume Next
Set objFolder = objShell.BrowseForFolder( _
0, _
DialogTitle, _
0, _
InitialPath)
Set Folder = objFolder.Self
SelectFolder = Folder.Path
Exit Function
'Error Handler
errFunction:
MsgBox Err.Description, vbCritical
SelectFolder = vbNullString
End Function
Private Sub BrowseFolder_Click()
Dim Folder As String
Folder = SelectFolder
DefaultMacFolder.Text = Folder
End Sub
Private Sub BrowseROM_Click()
Browse.Filter = "ROM File (*.rom)|*.rom|All files (*.*)|*.*"
Browse.ShowOpen
If Browse.FileName = "" Then
ROMFile.Text = "(No selected)"
Else
ROMFile.Text = Browse.FileName
End If
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub
Private Sub Form_Load()
OptionsList.ListIndex = 0
If DefaultMacFolder.Text = "" Then
DefaultMacFolder.Text = "(No selected)"
End If
End Sub
Private Sub OptionsList_Click()
If Browse.FileName = "" Then
ROMFile.Text = "(No selected)"
End If
Select Case OptionsList.ListIndex
Case 0
ROM.Visible = True
Folders.Visible = False
Case 1
ROM.Visible = False
Folders.Visible = True
End Select
End Sub

Binary file not shown.

1793
frmOptions.resx Normal file

File diff suppressed because it is too large Load Diff

137
frmOptions.vb Normal file
View File

@ -0,0 +1,137 @@
Option Strict Off
Option Explicit On
Friend Class frmOptions
Inherits System.Windows.Forms.Form
Private Sub cmdCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
Me.Close()
End Sub
Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
My.Settings.DefaultMacFolder = FolderNewMac.Text
My.Settings.vMacROM = ROMvMac.Text
My.Settings.BasiliskROM = ROMBII.Text
My.Settings.SheepShaverROM = ROMSS.Text
My.Settings.vMacPath = EPvMacPath.Text
My.Settings.BasiliskPath = EPBIIPath.Text
My.Settings.SheepShaverPath = EPSSPath.Text
My.Settings.PearPCPath = EPPPCPath.Text
My.Settings.QEMUPath = EPQEMUPath.Text
My.Settings.VerifyEmulatorPaths = EPVerifyEmulatorPaths.Checked
Select Case LangSelected.SelectedIndex
Case 0
My.Settings.Lang = "en-US"
Case 1
My.Settings.Lang = "de-DE"
Case 2
My.Settings.Lang = "es-MX"
End Select
If UCEnableTest.Checked = True Then
My.Settings.TestWindow = True
Else
My.Settings.TestWindow = False
End If
My.Settings.Save()
Me.Close()
End Sub
Private Sub BrowseFolder_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles FolderNewMacBrowse.Click
If FolderBrowser.ShowDialog() = Forms.DialogResult.OK Then
FolderNewMac.Text = FolderBrowser.SelectedPath
End If
End Sub
Private Sub OptionsContainer_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OptionContainer.SelectedIndexChanged
ROMFrame.Visible = False
FolderFrame.Visible = False
UseContainerFrame.Visible = False
EmulatorPathFrame.Visible = False
LangFrame.Visible = False
Select Case OptionContainer.FocusedItem.Index
Case 0
UseContainerFrame.Visible = True
Case 1
ROMFrame.Visible = True
Case 2
FolderFrame.Visible = True
Case 3
EmulatorPathFrame.Visible = True
Case 4
LangFrame.Visible = True
End Select
End Sub
Private Sub frmOptions_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ROMFileNames As String = System.IO.Path.GetFileName(My.Settings.vMacROM) & ", " & System.IO.Path.GetFileName(My.Settings.BasiliskROM) & ", " & System.IO.Path.GetFileName(My.Settings.SheepShaverROM)
OptionContainer.Items(2).SubItems(1).Text = ROMFileNames
OptionContainer.Items(3).SubItems(1).Text = My.Settings.DefaultMacFolder
FolderAppCurrent.Text = My.Application.Info.DirectoryPath
FolderNewMac.Text = My.Settings.DefaultMacFolder
ROMvMac.Text = My.Settings.vMacROM
ROMBII.Text = My.Settings.BasiliskROM
ROMSS.Text = My.Settings.SheepShaverROM
EPvMacPath.Text = My.Settings.vMacPath
EPBIIPath.Text = My.Settings.BasiliskPath
EPSSPath.Text = My.Settings.SheepShaverPath
EPPPCPath.Text = My.Settings.PearPCPath
EPQEMUPath.Text = My.Settings.QEMUPath
EPVerifyEmulatorPaths.Checked = My.Settings.VerifyEmulatorPaths
Select Case My.Settings.Lang
Case "en-US"
LangSelected.SelectedIndex = 0
Case "de-DE"
LangSelected.SelectedIndex = 1
Case "es-MX"
LangSelected.SelectedIndex = 2
End Select
If My.Settings.TestWindow = True Then
UCEnableTest.Checked = True
Else
UCDisableTest.Checked = True
End If
End Sub
Private Sub BrowseForFile(sender As System.Object, e As System.EventArgs) Handles EPvMacPathBrowse.Click, EPSSPathBrowse.Click, EPQEMUPathBrowse.Click, EPPPCPathBrowse.Click, EPBIIPathBrowse.Click, ROMvMacBrowse.Click, ROMSSBrowse.Click, ROMBIIBrowse.Click
If BrowseOpen.ShowDialog = Forms.DialogResult.OK Then
If ReferenceEquals(sender, EPvMacPathBrowse) = True Then
EPvMacPath.Text = BrowseOpen.FileName
ElseIf ReferenceEquals(sender, EPBIIPathBrowse) = True Then
EPBIIPath.Text = BrowseOpen.FileName
ElseIf ReferenceEquals(sender, EPSSPathBrowse) = True Then
EPSSPath.Text = BrowseOpen.FileName
ElseIf ReferenceEquals(sender, EPPPCPathBrowse) = True Then
EPPPCPath.Text = BrowseOpen.FileName
ElseIf ReferenceEquals(sender, EPQEMUPathBrowse) = True Then
EPQEMUPath.Text = BrowseOpen.FileName
ElseIf ReferenceEquals(sender, ROMvMacBrowse) = True Then
ROMvMac.Text = BrowseOpen.FileName
ElseIf ReferenceEquals(sender, ROMBIIBrowse) = True Then
ROMBII.Text = BrowseOpen.FileName
ElseIf ReferenceEquals(sender, ROMSSBrowse) = True Then
ROMSS.Text = BrowseOpen.FileName
Else
End If
End If
End Sub
Private Sub UseContainer_Status(sender As Object, e As System.EventArgs) Handles UCEnableTest.CheckedChanged, UCDisableTest.CheckedChanged
If UCEnableTest.Checked = True Then
OptionContainer.Items.Item(0).SubItems(1).Text = "Yes"
Else
OptionContainer.Items.Item(0).SubItems(1).Text = "No"
End If
End Sub
End Class

1475
frmSettingsBasiliskVM.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

378
frmSettingsBasiliskVM.resx Normal file
View File

@ -0,0 +1,378 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ControlToolTip.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>14, 6</value>
</metadata>
<data name="NetEnableUDP.ToolTip" xml:space="preserve">
<value>The UDP tunnel works connecting the emulator throught your
host operating system. This way the emulator works like a browser,
where it asks for internet throught your local IP. This mode is better
for novices, but if you want to connect the emulated Mac to an
AppleTalk network, you must not use this option.</value>
</data>
<data name="NetServerPorts.ToolTip" xml:space="preserve">
<value>The TCP ports open in the emulated router. The most common
ones are 80, 443, 8080. If you are going to connect to a special
web server, like a hospital one, if you are going to play an
online game that uses a dedicated port, or if you want to open
an email port, type it here, separated with commas.
Example given: 80, 443, 8080, 995</value>
</data>
<data name="NetFTPPorts.ToolTip" xml:space="preserve">
<value>The FTP ports open in the emulated router. The most common
FTP port is 21, but if you are going to connect to a special FTP
server, then you should type here the port where you are going
to connect by.
Example given: 21, 50000, 43, 995</value>
</data>
<data name="NetType.ToolTip" xml:space="preserve">
<value>Slirp: Uses your network and connects the emulator to a
virtualized network with connection to the real network
Router: Emulates a router to which the emulator connects to.
The emulated router connects throught your real network, so
it still has access to the internet. Note that you need to specify
which ports are gonna be open in the router network
None: No network hardware is emulated</value>
</data>
<data name="IconInfo.Text" xml:space="preserve">
<value>Some personalization to your Mac could come very handy. In this page
you can change an icon of your desire for your emulated Mac. Scroll
the bar to see more icons, or click in "Add" to add a picture and set it as
the icon for your Mac</value>
</data>
<metadata name="DriveListContext.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>255, 6</value>
</metadata>
<metadata name="DriveIcons.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>147, 6</value>
</metadata>
<data name="DriveIcons.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAC8
DwAAAk1TRnQBSQFMAgEBAwEAAdABAAHQAQABEAEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFA
AwABEAMAAQEBAAEgBgABEBIAAy0BRQFaAVcBWgHFAVwBWQFcAcwBWwFZAVsBxAGQAYsBjgH/A10B0gNd
AdIDXQHSA10B0gNdAdIDXQHSAV4CXAHOAVgCVgG7AVgCVgG7AVwBWgFcAc0DQgF0QAADOgFgA14BzgFg
AlgB/wFgAlgB/wFgAlgB/wFgAlgB/wFgAlgB/wFgAlgB/wFgAlgB/wFgAlgB/wFgAlgB/wFgAlgB/wFg
AlgB/wFgAlgB/wNYAbkDOgFgQAADXwHoAdEBWAGuAf8BzAFOAacB/wHBAYgBrAH/Ab8CvQH/Ab8CvQH/
AaoCpgH/AaACnAH/AZQCkAH/AY0BigGJAf8BiwGJAYgB/wGBAmMB/wGSAS0BXwH/AaUBPQGNAf8BuQFG
AZoB/wFRAlABnxAAAw4BEwM3AVsDUQGiA18B2wNcAeoDXwHbA1IBowM4AV0DDwEUDAADZQHlAUMCPgH/
AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGv
AbAB/wG0Aa8BsAH/AbQBrwGwAf8BlwHGAaUB/wG0Aa8BsAH/AUMCPgH/A2UB5UAAA2QB8QHAAVUBpAH/
Ab8BSQGdAf8BwAGLAa0B/wHTAtIB/wGsAT4BjwH/Aa4BQQGRAf8BqgKmAf8BnQKaAf8BkAKNAf8BiQKF
Af8BXAFZAVgB/wGKASsBVwH/AZ0BOAGGAf8BsQFBAZMB/wNOAZkMAAMqAUADVAGsBP8B+gH7AfoB/wPn
Af8D1gH/AsoBywH/AcABvgG/Af8BsAG9AbgB/wNUAawDKAE8CAABYAJYAf8BtAGvAbAB/wHYAdYB1QH/
AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZ
AdgB/wFeAloB/wEiAbEBRwH/AUQCQQH/AbQBrwGwAf8BYAJYAf9AAANhAe4BxQFXAaYB/wHAAUwBnwH/
AccBkgG1Af8D8gH/AbEBQQGTAf8BtAFDAZUB/wHFAsIB/wG6ArgB/wGoAqYB/wGdAZoBmQH/AYYCggH/
AY8BLQFcAf8BngE5AYUB/wGyAUIBlAH/A04BmQgAAyoBQQNZAccE/wP9Af8D7QH/A94B/wPOAf8BvAG7
AbwB/wGyArMB/wGpAqwB/wOfAf8DWQHHAyUBNwQAAWACWAH/AbQBrwGwAf8B2AHWAdUB/wHlAdkB2AH/
AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8BRgGO
AVMB/wEAAeoBOQH/ATkCNgH/AbQBrwGwAf8BYAJYAf9AAANhAe4BxwFaAakB/wHAAU8BoAH/AccBlQG1
Bf8BtgFPAZsB/wG6AVABmwH/AfQC8wH/A+0B/wHTAtIB/wHCAsAB/wGiAqAB/wGTAS8BXgH/AZ0BOAGE
Af8BsgFCAZQB/wNOAZkEAAMPARQDVAGsAdsB2gHYAf8B4AHfAd4B/wP3Af8D9wH/AeUC5gH/A88B/wK5
AboB/wOzAf8BmQKYAf8DjQH/AaQBpQGkAf8DVQGtAwwBEAFgAlgB/wG9AbgBuQH/AdgB1gHVAf8B5QHZ
AdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/
AV4CWgH/ARYBwAFFAf8BSQFKAUgB/wG1AbABsQH/AWACWAH/QAADYQHuAcgBXQGqAf8ByAFXAagB/wGz
AVIBnAH/AbgBiQGqAf8BpAFUAZMB/wGkAVIBkgH/AbsBiwGsAf8BuQGKAakB/wG0AYIBpQH/Aa4BZQGe
Af8BogFVAY8B/wGTAS4BYAH/AZoBNgGCAf8BswE/AZMB/wNOAZkEAAM6AWABiAGUAZUB+wHBAc8B2QH/
AckCygH/Ad8B4QHdAf8B+QH6AfkB/wNnAfIDYQHkA2QB8wKgAaEB/wGOAY8BjgH/AZ4BnwGdAf8BsAGv
AbEB/wHEAcABxgH/AzUBVgFgAlgB/wHEAr8B/wHYAdYB1SX/AckB9wHZAf8B2QLWAf8BxgHCAcEB/wFg
AlgB/0AAA2EB7gHEAVwBqQH/Ab4BYwGlAf8BwAFiAacB/wG5AVcBnQH/AbwBWwGiAf8BvAFXAZ8B/wG3
AVABmQH/AbYBTgGYAf8BtQFNAZcB/wGzAUsBlQH/AbMBSQGSAf8BswFPAZUB/wGzAUUBlAH/AbUBPAGS
Af8DTgGZBAADUwGlAbMB3QHkAf8BugHQAeoB/wHKAcYB5gH/AdEBxwHaAf8DXgHZA1ABngNOAZUDUQGi
A1wB3wGrAaYBrQH/AbYBrgG6Af8BrAGmAbAB/wGtAagBsAH/A1EBnAM6AWADZQHlAbQBrwGwAf8BtAGv
AbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/
AbQBrwGwAf8BtQGwAbEB/wG0Aa8BsAH/A2UB5QM6AWBAAANhAe4BwAFkAagB/wGwAVwBnQH/Ad0BxgHR
Af8B+AH2AfEB/wH4AfUB8AH/AfgB9QHuAf8B+AH0Ae0B/wH4AfQB6wH/AfgB8wHqAf8B+AHzAekB/wH4
AfIB5wH/Ad0BxgHRAf8BvgGIAaYB/wG2ATgBkwH/A04BmQQAA14BzgGVAZQBlgH/AZMBlQGZAf8BowGe
Aa4B/wFnAWQBaQH1A1IBoQM+AWsDKwFDA0ABcQNVAbABcwFvAXUB+gGZAZUBmwH/AZIBkAGRAf8DlAH/
A1gBvAQAAz8BbQNVAbUDYgH2AeEB4AHhAf8C6wHtAf8C7QHvAf8C7QHvAf8C7QHvAf8C7QHvAf8C7AHu
Af8B3wHeAd8B/wF/An0B9wNVAbUDPwFtRAADYQHuAcMBggGrAf8BsAFcAZ0B/wH6AfsB+AH/AfkB+AH1
Af8B+QH4AfQB/wH5AfcB8wH/AfkB9wHyAf8B+QH2AfEB/wH5AfYB8AH/AfkB9QHvAf8B+QH1Ae4B/wH7
AfwB9AH/Ab4BiAGmAf8BugE8AZUB/wNOAZkEAANgAdQCkwGRAf8BiAGJAYYB/wGHAYgBhgH/A2IB7wNR
AZ8DOgFhAxgBIgM6AWEDUwGoA20B9wGmAaUBogH/AawBowGoAf8BtAGmAawB/wNbAcQMAAMKAQ0DUQGg
A1sBxANeAdgDXgHYA14B2ANeAdgDWgG9A1EBoAMEAQVMAANhAe4BwwGFAawB/wGwAVwBnQH/AvoB+AH/
AfkB9wH1Af8B+QH3AfQB/wH5AfYB8gH/AfkB9gHyAf8B+QH2AfAB/wH5AfUB7wH/AfkB9QHuAf8B+AH0
Ae0B/wL7AfMB/wG+AYgBpgH/Ab4BQAGbAf8DTgGZBAADWwHDAZgBlwGYAf8BlgGQAZcB/wGYAZIBnAH/
AX8BbQGBAfsDVwG4A0gBgwNDAXgDSAGDA1kBwgGmAaIBQwH9AYoBuQFcAf8BYQHFAZUB/wGRAckBsQH/
A1QBr4AAA2EB7gHFAYkBrwH/AbABXAGdAf8C+gH4Af8B+QH4AfUB/wH5AfcB9AH/AfkB9wH0Af8B+QH3
AfIB/wH5AfYB8QH/AfkB9QHwAf8B+QH1Ae8B/wH5AfUB7gH/AvsB9AH/Ab4BiAGmAf8BwAFEAZ4B/wNO
AZkEAANOAZQBpgGfAakB/wGYAZIBnAH/AZIBkAGTAf8BnAGbAZwB/wNlAfQDWgHFA1YBtgNbAcYDZQH0
AZsBnQGRAf8BgQGpAWMB/wElAdMBgQH/AQAB/wGkAf8BRQJGAX+AAANhAe4BxQGMAbAB/wGwAVwBnQH/
AvoB+QH/AfkB+AH2Af8B+QH4AfUB/wH5AfgB9QH/AfkB9wHzAf8B+QH2AfIB/wH5AfYB8QH/AfkB9QHw
Af8B+QH1Ae8B/wH6AfsB9AH/Ab4BiAGmAf8BxAFIAaIB/wNOAZkEAAMvAUkDZAHsAZUBlgGVAf8BnwGg
AZ8B/wG4AbkBtwH/Ad0B3AHdAf8B9wL4Af8DkwH7A88B/wK7AbwB/wKrAa4B/wGiAZ0BogH/AY4BpAGb
Af8BWQJnAfIDIAEvgAADZwHyAccBjwGyAf8BsAFcAZ0B/wL6AfkB/wH5AfgB9wH/AfkB+AH2Af8B+QH4
AfUB/wH5AfcB9AH/AfkB9wHzAf8B+QH2AfIB/wH5AfYB8QH/AfkB9QHwAf8B+gH7AfUB/wG+AYgBpgH/
AcsBTQGoAf8DTgGYBAADDAEQA0gBhgK1AbQB/wO5Af8BzwHOAc8B/wHsAesB7AH/A/sB/wPrAf8D1gH/
A8UB/wO1Af8BrwGuAa8B/wGzAa4BsQH/A0MBeIQAA1wB0QPVAf8BsAFcAZ0B/wP6Af8B+gL5Af8C+gH4
Af8B+gH5AfgB/wH7AfkB9wH/AfoB+QH2Af8B+gH4AfUB/wH6AfgB8wH/AfoB9wHyAf8C/AH3Af8BvgGI
AaYB/wPVAf8BTAFLAUwBjwgAAw4BEwNQAZsB2AHXAdgB/wHqAegB6gH/A/UB/wP4Af8B6ALpAf8D2QH/
A8sB/wPHAf8BwQLAAf8DTAGQAwcBCYQAA1UBtQFcATEBUQH/AbABXAGdAf8C+gH4Af8B9wH1AfMB/wH0
AfIB8AH/AfMB7wHsAf8B8AHsAekB/wHvAesB5wH/Ae8B6wHmAf8B7wHrAeYB/wHvAeoB5gH/AfEB8AHr
Af8BvgGIAaYB/wFcATEBUQH/A0oBjQwAAwoBDgM/AW0DYQHiCP8B9wL2Af8D6wH/A98B/wNeAd0DPQFo
AwQBBogAA10B0wHQAaEBwAH/AdABoQHAAf8B3QHGAdEB/wHdAcYB0QH/Ad0BxgHRAf8B3QHGAdEB/wHd
AcYB0QH/Ad0BxgHRAf8B3QHGAdEB/wHdAcYB0QH/Ad0BxgHRAf8B3QHGAdEB/wHQAaEBwAH/AWwBWQFn
AfUDQQFyEAADAgEDAxYBHgM2AVkDTQGRA1QBpgNMAZIDNAFUAxABFpAAAUIBTQE+BwABPgMAASgDAAFA
AwABEAMAAQEBAAEBBQABgBcAA/8DAAL/BgAB8AEHBgAB4AEDBgABwAEBBgABgAcAAYAHAAGABwABgAEA
AYABAQQAAYABAAHgAQcEAAGAAQAC/wQAAYABAAL/BAABgAEAAv8EAAGAAQEC/wQAAcABAQL/BAAB4AED
Av8EAAHwAQ8C/wIACw==
</value>
</data>
<data name="JITFPU.ToolTip" xml:space="preserve">
<value>If JIT Compiler is enabled, and this option is marked, it will
compile too the Floating Point Unit (FPU) instructions. This
is a chipset presents in some old 68k Macs, needed for certain
applications. It also makes emulation a bit faster, but might
brake some things.</value>
</data>
<data name="JITCacheSize.ToolTip" xml:space="preserve">
<value>Size of the JIT cache. This is used so that the JIT doesn't
have recompile the instructions used early. The bigger,
the more instructions it will cache. Note that this is
recommended for slow CPUs, but requires enough
memory.</value>
</data>
<data name="MiscHwFPU.ToolTip" xml:space="preserve">
<value>The Floating Point Unit (FPU) is a chip
which allows some programs to run
quickier and smoother. If you're sure
don't need it or some program doesn't
work properly with this enabled, you
can disable it. Note also that the
Motorola 68040 cannot use FPU</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>34</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAMAEBAQAAAABAAoAQAANgAAACAgAAAAAAgAqAgAAF4BAAAwMAAAAAAIAKgOAAAGCgAAKAAAABAA
AAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAQAAAAEAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICA
AADAwMAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAd3d3AAAAAAAHd3AAAAAAAAd3cA
AAB3d3d4d3d3d3d3d3d3d3d3AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPgfAAD8PwAA/D8AAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAoAAAAIAAAAEAA
AAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDA
wADA3MAA8MqmAAQEBAAICAgADAwMABEREQAWFhYAHBwcACIiIgApKSkAVVVVAE1NTQBCQkIAOTk5AIB8
/wBQUP8AkwDWAP/szADG1u8A1ufnAJCprQAAADMAAABmAAAAmQAAAMwAADMAAAAzMwAAM2YAADOZAAAz
zAAAM/8AAGYAAABmMwAAZmYAAGaZAABmzAAAZv8AAJkAAACZMwAAmWYAAJmZAACZzAAAmf8AAMwAAADM
MwAAzGYAAMyZAADMzAAAzP8AAP9mAAD/mQAA/8wAMwAAADMAMwAzAGYAMwCZADMAzAAzAP8AMzMAADMz
MwAzM2YAMzOZADMzzAAzM/8AM2YAADNmMwAzZmYAM2aZADNmzAAzZv8AM5kAADOZMwAzmWYAM5mZADOZ
zAAzmf8AM8wAADPMMwAzzGYAM8yZADPMzAAzzP8AM/8zADP/ZgAz/5kAM//MADP//wBmAAAAZgAzAGYA
ZgBmAJkAZgDMAGYA/wBmMwAAZjMzAGYzZgBmM5kAZjPMAGYz/wBmZgAAZmYzAGZmZgBmZpkAZmbMAGaZ
AABmmTMAZplmAGaZmQBmmcwAZpn/AGbMAABmzDMAZsyZAGbMzABmzP8AZv8AAGb/MwBm/5kAZv/MAMwA
/wD/AMwAmZkAAJkzmQCZAJkAmQDMAJkAAACZMzMAmQBmAJkzzACZAP8AmWYAAJlmMwCZM2YAmWaZAJlm
zACZM/8AmZkzAJmZZgCZmZkAmZnMAJmZ/wCZzAAAmcwzAGbMZgCZzJkAmczMAJnM/wCZ/wAAmf8zAJnM
ZgCZ/5kAmf/MAJn//wDMAAAAmQAzAMwAZgDMAJkAzADMAJkzAADMMzMAzDNmAMwzmQDMM8wAzDP/AMxm
AADMZjMAmWZmAMxmmQDMZswAmWb/AMyZAADMmTMAzJlmAMyZmQDMmcwAzJn/AMzMAADMzDMAzMxmAMzM
mQDMzMwAzMz/AMz/AADM/zMAmf9mAMz/mQDM/8wAzP//AMwAMwD/AGYA/wCZAMwzAAD/MzMA/zNmAP8z
mQD/M8wA/zP/AP9mAAD/ZjMAzGZmAP9mmQD/ZswAzGb/AP+ZAAD/mTMA/5lmAP+ZmQD/mcwA/5n/AP/M
AAD/zDMA/8xmAP/MmQD/zMwA/8z/AP//MwDM/2YA//+ZAP//zABmZv8AZv9mAGb//wD/ZmYA/2b/AP//
ZgAhAKUAX19fAHd3dwCGhoYAlpaWAMvLywCysrIA19fXAN3d3QDj4+MA6urqAPHx8QD4+PgA8Pv/AKSg
oACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAoKCgoKCgoKCgoKBwcHBwcHBwcHBwoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcH
BwcKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgcHBwcHBwcHBwcHBwcH
B+zsBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKChEREREREREREREREREREREREREREREREREREREKCgoK
EREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERER
CgoKChEREREREREREREREREREREREREREREREREREREKCgoKERERERERERERERERERERERERERERERER
EREREQoKCgoRERERERERERERERERERERERERERERERERERERCgoKChERERERERERERERERERERERERER
EREREREREREKCgoKEREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERER
ERERERERERERERERCgoKChEREREREREREREREREREREREREREREREREREREKCgoKERERERERERERERER
EREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERERCgoKChERERERERER
EREREREREREREREREREREREREREKCgoKEREREREREREREREREREREREREREREREREREREQoKCgoRERER
ERERERERERERERERERERERERERERERERCgoKChEREREREREREREREREREREREREREREREREREREKCgoK
EREREREREREREREREREREREREREREREREREREQoKCgoRERERERERERERERERERERERERERERERERERER
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgr/4Af///AP///wD///8A////AP/4AA
AAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAAB/////ygAAAAwAAAAYAAAAAEA
CAAAAAAAAAkAAAAAAAAAAAAAAAEAAAABAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDc
wADwyqYABAQEAAgICAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ
/wCTANYA/+zMAMbW7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz
/wAAZgAAAGYzAABmZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADM
ZgAAzJkAAMzMAADM/wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMz
ZgAzM5kAMzPMADMz/wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ
/wAzzAAAM8wzADPMZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYA
mQBmAMwAZgD/AGYzAABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZ
MwBmmWYAZpmZAGaZzABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8A
zACZmQAAmTOZAJkAmQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz
/wCZmTMAmZlmAJmZmQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/
mQCZ/8wAmf//AMwAAACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxm
MwCZZmYAzGaZAMxmzACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzM
zADMzP8AzP8AAMz/MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8z
zAD/M/8A/2YAAP9mMwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/M
MwD/zGYA/8yZAP/MzAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEA
pQBfX18Ad3d3AIaGhgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICA
gAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8ACgoKCgoKCgoKCgoKCgoKCgcHBwcHBwcHBwcHBwcH
BwcKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcHBwcHBwcHBwcHBwoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
BwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcH
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoKCgoHBwcH
BwcHBwcHBwcHBwcHBwcHBwfs7AcHBwcHBwcHBwcHBwcHBwcHBwcHBwoKCgcHBwcHBwcHBwcHBwcHBwcH
BwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcHBwcHBwcKBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHB+zs7OwHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcH
BwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHBwcHCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERER
ERERERERERERERERERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERER
ERERERERERERERERERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERER
ERERCgoKCgoKERERERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKERER
ERERERERERERERERERERERERERERERERERERERERERERERERERERCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK
CgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoK//8AAP//
AAD//4AB//8AAP//wAP//wAA///AA///AAD//8AD//8AAP//wAP//wAA///AA///AAD//8AD//8AAMAA
AAAAAwAAgAAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAB
AADAAAAAAAMAAP///////wAA
</value>
</data>
</root>

750
frmSettingsBasiliskVM.vb Normal file
View File

@ -0,0 +1,750 @@
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

1016
frmSettingsPearPCVM.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

View File

@ -0,0 +1,289 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="OptionList.Items" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAETmFtZf////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFtZQV2
YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6////
CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRy
YWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5Gb3Jt
cy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRhdGEB
AQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3ViSXRl
bVN0eWxlAgAAAAIAAAAGCgAAAAAKCgoFBwAAABNTeXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1lBFNp
emUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRyYXdp
bmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZUYWhvbWEAAARBBfT///8YU3lzdGVtLkRyYXdpbmcu
Rm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAXz////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNz
VW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAESWNvbv////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFtZQV2
YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6////
CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRy
YWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5Gb3Jt
cy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRhdGEB
AQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3ViSXRl
bVN0eWxlAgAAAAIAAAAGCgAAAAAKCgoFBwAAABNTeXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1lBFNp
emUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRyYXdp
bmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZUYWhvbWEAAARBBfT///8YU3lzdGVtLkRyYXdpbmcu
Rm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAXz////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNz
VW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items2" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0HAAAA
BFRleHQKSW1hZ2VJbmRleAlCYWNrQ29sb3IHQ2hlY2tlZARGb250CUZvcmVDb2xvchdVc2VJdGVtU3R5
bGVGb3JTdWJJdGVtcwEABAAEBAAIFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAETU3lzdGVtLkRyYXdp
bmcuRm9udAMAAAAUU3lzdGVtLkRyYXdpbmcuQ29sb3IDAAAAAQIAAAAGBAAAAA9Cb2FyZCAmIGNoaXBz
ZXT/////Bfv///8UU3lzdGVtLkRyYXdpbmcuQ29sb3IEAAAABG5hbWUFdmFsdWUKa25vd25Db2xvcgVz
dGF0ZQEAAAAJBwcDAAAACgAAAAAAAAAAGAABAAAJBgAAAAH5////+////woAAAAAAAAAABoAAQABBQYA
AAATU3lzdGVtLkRyYXdpbmcuRm9udAQAAAAETmFtZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0u
RHJhd2luZy5Gb250U3R5bGUDAAAAG1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAABggA
AAAUTWljcm9zb2Z0IFNhbnMgU2VyaWYAAARBBff///8YU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAQAA
AAd2YWx1ZV9fAAgDAAAAAAAAAAX2////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAEAAAAHdmFs
dWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items3" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAGRHJpdmVz/////wIAAAAJBQAAAAX6////FFN5c3RlbS5EcmF3aW5nLkNvbG9yBAAAAARuYW1l
BXZhbHVlCmtub3duQ29sb3IFc3RhdGUBAAAACQcHAwAAAAoAAAAAAAAAABgAAQAACQcAAAAB+P////r/
//8KAAAAAAAAAAAaAAEAAQwJAAAAS21zY29ybGliLCBWZXJzaW9uPTIuMC4wLjAsIEN1bHR1cmU9bmV1
dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUFAAAAMVN5c3RlbS5XaW5kb3dzLkZv
cm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0EAAAABHRleHQEbmFtZQVzdHlsZQh1c2VyRGF0
YQEBBAI+U3lzdGVtLldpbmRvd3MuRm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbStTdWJJ
dGVtU3R5bGUCAAAAAgAAAAYKAAAAAAoKCgUHAAAAE1N5c3RlbS5EcmF3aW5nLkZvbnQEAAAABE5hbWUE
U2l6ZQVTdHlsZQRVbml0AQAEBAsYU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAwAAABtTeXN0ZW0uRHJh
d2luZy5HcmFwaGljc1VuaXQDAAAAAwAAAAYLAAAABlRhaG9tYQAABEEF9P///xhTeXN0ZW0uRHJhd2lu
Zy5Gb250U3R5bGUBAAAAB3ZhbHVlX18ACAMAAAAAAAAABfP///8bU3lzdGVtLkRyYXdpbmcuR3JhcGhp
Y3NVbml0AQAAAAd2YWx1ZV9fAAgDAAAAAwAAAAs=
</value>
</data>
<data name="OptionList.Items4" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAHTmV0d29ya/////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFt
ZQV2YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6
////CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5l
dXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5G
b3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRh
dGEBAQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3Vi
SXRlbVN0eWxlAgAAAAIAAAAGCgAAAAAKCgoFBwAAABNTeXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1l
BFNpemUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRy
YXdpbmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZUYWhvbWEAAARBBfT///8YU3lzdGVtLkRyYXdp
bmcuRm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAXz////G1N5c3RlbS5EcmF3aW5nLkdyYXBo
aWNzVW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items5" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAHRGlzcGxhef////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFt
ZQV2YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6
////CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5l
dXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5G
b3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRh
dGEBAQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3Vi
SXRlbVN0eWxlAgAAAAIAAAAGCgAAAAAKCgoFBwAAABNTeXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1l
BFNpemUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRy
YXdpbmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZUYWhvbWEAAARBBfT///8YU3lzdGVtLkRyYXdp
bmcuRm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAXz////G1N5c3RlbS5EcmF3aW5nLkdyYXBo
aWNzVW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items6" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0HAAAA
BFRleHQKSW1hZ2VJbmRleAlCYWNrQ29sb3IHQ2hlY2tlZARGb250CUZvcmVDb2xvchdVc2VJdGVtU3R5
bGVGb3JTdWJJdGVtcwEABAAEBAAIFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAETU3lzdGVtLkRyYXdp
bmcuRm9udAMAAAAUU3lzdGVtLkRyYXdpbmcuQ29sb3IDAAAAAQIAAAAGBAAAAAxNaXNjZWxhbmVvdXP/
////Bfv///8UU3lzdGVtLkRyYXdpbmcuQ29sb3IEAAAABG5hbWUFdmFsdWUKa25vd25Db2xvcgVzdGF0
ZQEAAAAJBwcDAAAACgAAAAAAAAAAGAABAAAJBgAAAAH5////+////woAAAAAAAAAABoAAQABBQYAAAAT
U3lzdGVtLkRyYXdpbmcuRm9udAQAAAAETmFtZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0uRHJh
d2luZy5Gb250U3R5bGUDAAAAG1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAABggAAAAU
TWljcm9zb2Z0IFNhbnMgU2VyaWYAAARBBff///8YU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAQAAAAd2
YWx1ZV9fAAgDAAAAAAAAAAX2////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAEAAAAHdmFsdWVf
XwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items7" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0HAAAA
BFRleHQKSW1hZ2VJbmRleAlCYWNrQ29sb3IHQ2hlY2tlZARGb250CUZvcmVDb2xvchdVc2VJdGVtU3R5
bGVGb3JTdWJJdGVtcwEABAAEBAAIFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAETU3lzdGVtLkRyYXdp
bmcuRm9udAMAAAAUU3lzdGVtLkRyYXdpbmcuQ29sb3IDAAAAAQIAAAAGBAAAABlFZGl0IE1hbnVhbGx5
IENvbmZpZyBGaWxl/////wX7////FFN5c3RlbS5EcmF3aW5nLkNvbG9yBAAAAARuYW1lBXZhbHVlCmtu
b3duQ29sb3IFc3RhdGUBAAAACQcHAwAAAAoAAAAAAAAAABgAAQAACQYAAAAB+f////v///8KAAAAAAAA
AAAaAAEAAQUGAAAAE1N5c3RlbS5EcmF3aW5nLkZvbnQEAAAABE5hbWUEU2l6ZQVTdHlsZQRVbml0AQAE
BAsYU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAwAAABtTeXN0ZW0uRHJhd2luZy5HcmFwaGljc1VuaXQD
AAAAAwAAAAYIAAAAFE1pY3Jvc29mdCBTYW5zIFNlcmlmAAAEQQX3////GFN5c3RlbS5EcmF3aW5nLkZv
bnRTdHlsZQEAAAAHdmFsdWVfXwAIAwAAAAAAAAAF9v///xtTeXN0ZW0uRHJhd2luZy5HcmFwaGljc1Vu
aXQBAAAAB3ZhbHVlX18ACAMAAAADAAAACw==
</value>
</data>
</root>

View File

@ -0,0 +1,564 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="MiscPageTable.Location" type="System.Drawing.Point, System.Drawing">
<value>121, 250</value>
</data>
<data name="MiscPageTable.Size" type="System.Drawing.Size, System.Drawing">
<value>235, 21</value>
</data>
<data name="MiscPageTableLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 13</value>
</data>
<data name="MiscPageTableLabel.Text" xml:space="preserve">
<value>Tabla de asignación:</value>
</data>
<data name="MiscNVRAMFileLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>85, 13</value>
</data>
<data name="MiscNVRAMFileLabel.Text" xml:space="preserve">
<value>Archivo NVRAM:</value>
</data>
<data name="MiscNVRAMFile.Location" type="System.Drawing.Point, System.Drawing">
<value>100, 220</value>
</data>
<data name="MiscNVRAMFile.Size" type="System.Drawing.Size, System.Drawing">
<value>222, 21</value>
</data>
<data name="MiscBootModeLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>10, 49</value>
</data>
<data name="MiscBootModeLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>99, 13</value>
</data>
<data name="MiscBootModeLabel.Text" xml:space="preserve">
<value>Modo de arranque:</value>
</data>
<data name="MiscBootModeAuto.Location" type="System.Drawing.Point, System.Drawing">
<value>115, 47</value>
</data>
<data name="MiscBootModeSelect.Location" type="System.Drawing.Point, System.Drawing">
<value>177, 47</value>
</data>
<data name="MiscBootModeSelect.Size" type="System.Drawing.Size, System.Drawing">
<value>62, 17</value>
</data>
<data name="MiscBootModeSelect.Text" xml:space="preserve">
<value>Asistido</value>
</data>
<data name="MiscBootModeForce.Location" type="System.Drawing.Point, System.Drawing">
<value>245, 47</value>
</data>
<data name="MiscBootModeForce.Size" type="System.Drawing.Size, System.Drawing">
<value>59, 17</value>
</data>
<data name="MiscBootModeForce.Text" xml:space="preserve">
<value>Manual</value>
</data>
<data name="MiscFrame.Text" xml:space="preserve">
<value>Configuraciones miscelaneas</value>
</data>
<data name="MiscInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>260, 13</value>
</data>
<data name="MiscInfo.Text" xml:space="preserve">
<value>Se recomienda que no cambie estas configuraciones.</value>
</data>
<data name="MiscAdvancedInfo.Location" type="System.Drawing.Point, System.Drawing">
<value>10, 68</value>
</data>
<data name="MiscAdvancedInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>350, 26</value>
</data>
<data name="MiscAdvancedInfo.Text" xml:space="preserve">
<value>¡Advertencia! NO cambie las configuraciones de abajo A MENOS de que
sepa lo que está haciendo.</value>
</data>
<data name="MiscPROMBootArgs.Location" type="System.Drawing.Point, System.Drawing">
<value>112, 160</value>
</data>
<data name="MiscPROMBootArgs.Size" type="System.Drawing.Size, System.Drawing">
<value>244, 21</value>
</data>
<data name="MiscPROMBootArgsLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>101, 13</value>
</data>
<data name="MiscPROMBootArgsLabel.Text" xml:space="preserve">
<value>Argumentos PROM:</value>
</data>
<data name="MiscMachArguments.Location" type="System.Drawing.Point, System.Drawing">
<value>125, 190</value>
</data>
<data name="MiscMachArguments.Size" type="System.Drawing.Size, System.Drawing">
<value>231, 21</value>
</data>
<data name="MiscMachArgumentsLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>115, 13</value>
</data>
<data name="MiscMachArgumentsLabel.Text" xml:space="preserve">
<value>Parametros del kernel:</value>
</data>
<data name="MiscPROMBootPath.Location" type="System.Drawing.Point, System.Drawing">
<value>78, 130</value>
</data>
<data name="MiscPROMBootPath.Size" type="System.Drawing.Size, System.Drawing">
<value>244, 21</value>
</data>
<data name="MiscPROMBootPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>62, 13</value>
</data>
<data name="MiscPROMBootPathLabel.Text" xml:space="preserve">
<value>Ruta PROM</value>
</data>
<data name="MiscPROMFile.Location" type="System.Drawing.Point, System.Drawing">
<value>91, 100</value>
</data>
<data name="MiscPROMFile.Size" type="System.Drawing.Size, System.Drawing">
<value>231, 21</value>
</data>
<data name="MiscPROMFileLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>79, 13</value>
</data>
<data name="MiscPROMFileLabel.Text" xml:space="preserve">
<value>Archivo PROM:</value>
</data>
<data name="DisplayDriver.Location" type="System.Drawing.Point, System.Drawing">
<value>148, 90</value>
</data>
<data name="DisplayDriver.Size" type="System.Drawing.Size, System.Drawing">
<value>169, 21</value>
</data>
<data name="DisplayDriverLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>76, 13</value>
</data>
<data name="DisplayDriverLabel.Text" xml:space="preserve">
<value>Driver gráfico:</value>
</data>
<data name="DisplayRedrawLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>148, 146</value>
</data>
<data name="NetworkFrame.Text" xml:space="preserve">
<value>Red</value>
</data>
<data name="Net8139Enable.Size" type="System.Drawing.Size, System.Drawing">
<value>175, 17</value>
</data>
<data name="Net8139Enable.Text" xml:space="preserve">
<value>Activar tarjeta de red RTL8139</value>
</data>
<data name="Net3c90xEnable.Size" type="System.Drawing.Size, System.Drawing">
<value>162, 17</value>
</data>
<data name="Net3c90xEnable.Text" xml:space="preserve">
<value>Activar tarjeta de red 3c90x</value>
</data>
<data name="DisplayRedraw.Size" type="System.Drawing.Size, System.Drawing">
<value>124, 13</value>
</data>
<data name="DisplayRedraw.Text" xml:space="preserve">
<value>Intervalo de redibujado:</value>
</data>
<data name="DisplayFullscreenKey.Location" type="System.Drawing.Point, System.Drawing">
<value>148, 120</value>
</data>
<data name="DisplayFullscreenKey.Size" type="System.Drawing.Size, System.Drawing">
<value>169, 21</value>
</data>
<data name="DisplayFrame.Text" xml:space="preserve">
<value>Pantalla</value>
</data>
<data name="DisplayResLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>62, 13</value>
</data>
<data name="DisplayResLabel.Text" xml:space="preserve">
<value>Resolución:</value>
</data>
<data name="DisplayFullscreenStart.Size" type="System.Drawing.Size, System.Drawing">
<value>157, 17</value>
</data>
<data name="DisplayFullscreenStart.Text" xml:space="preserve">
<value>Iniciar en pantalla completa</value>
</data>
<data name="DisplayResCustom.Size" type="System.Drawing.Size, System.Drawing">
<value>168, 17</value>
</data>
<data name="DisplayResCustom.Text" xml:space="preserve">
<value>Usar resolución personalizada</value>
</data>
<data name="DisplayFullscreenKeyLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>134, 13</value>
</data>
<data name="DisplayFullscreenKeyLabel.Text" xml:space="preserve">
<value>Tecla de pantalla completa</value>
</data>
<data name="DriveFrame.Text" xml:space="preserve">
<value>Unidades de disco</value>
</data>
<data name="DriveMasterEnabled.Size" type="System.Drawing.Size, System.Drawing">
<value>137, 17</value>
</data>
<data name="DriveMasterEnabled.Text" xml:space="preserve">
<value>Activar unidad Maestra</value>
</data>
<data name="DriveMasterType.Location" type="System.Drawing.Point, System.Drawing">
<value>100, 60</value>
</data>
<data name="DriveMasterTypeLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>81, 13</value>
</data>
<data name="DriveMasterTypeLabel.Text" xml:space="preserve">
<value>Tipo de unidad:</value>
</data>
<data name="DriveMasterPathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>34, 13</value>
</data>
<data name="DriveMasterPathLabel.Text" xml:space="preserve">
<value>Ruta:</value>
</data>
<data name="DriveSlaveEnabled.Size" type="System.Drawing.Size, System.Drawing">
<value>137, 17</value>
</data>
<data name="DriveSlaveEnabled.Text" xml:space="preserve">
<value>Activar unidad Esclava</value>
</data>
<data name="DriveSlaveType.Location" type="System.Drawing.Point, System.Drawing">
<value>100, 150</value>
</data>
<data name="DriveSlaveTypeLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>81, 13</value>
</data>
<data name="DriveSlaveTypeLabel.Text" xml:space="preserve">
<value>Tipo de unidad:</value>
</data>
<data name="DriveSlavePathLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>34, 13</value>
</data>
<data name="DriveSlavePathLabel.Text" xml:space="preserve">
<value>Ruta:</value>
</data>
<data name="OptionList.Items" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAGTm9tYnJl/////wIAAAAJBQAAAAX6////FFN5c3RlbS5EcmF3aW5nLkNvbG9yBAAAAARuYW1l
BXZhbHVlCmtub3duQ29sb3IFc3RhdGUBAAAACQcHAwAAAAoAAAAAAAAAABgAAQAACQcAAAAB+P////r/
//8KAAAAAAAAAAAaAAEAAQwJAAAAS21zY29ybGliLCBWZXJzaW9uPTIuMC4wLjAsIEN1bHR1cmU9bmV1
dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUFAAAAMVN5c3RlbS5XaW5kb3dzLkZv
cm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0EAAAABHRleHQEbmFtZQVzdHlsZQh1c2VyRGF0
YQEBBAI+U3lzdGVtLldpbmRvd3MuRm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbStTdWJJ
dGVtU3R5bGUCAAAAAgAAAAYKAAAAAAoKCgUHAAAAE1N5c3RlbS5EcmF3aW5nLkZvbnQEAAAABE5hbWUE
U2l6ZQVTdHlsZQRVbml0AQAEBAsYU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAwAAABtTeXN0ZW0uRHJh
d2luZy5HcmFwaGljc1VuaXQDAAAAAwAAAAYLAAAABlRhaG9tYQAABEEF9P///xhTeXN0ZW0uRHJhd2lu
Zy5Gb250U3R5bGUBAAAAB3ZhbHVlX18ACAMAAAAAAAAABfP///8bU3lzdGVtLkRyYXdpbmcuR3JhcGhp
Y3NVbml0AQAAAAd2YWx1ZV9fAAgDAAAAAwAAAAs=
</value>
</data>
<data name="OptionList.Items1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAGw41jb25v/////wIAAAAJBQAAAAX6////FFN5c3RlbS5EcmF3aW5nLkNvbG9yBAAAAARuYW1l
BXZhbHVlCmtub3duQ29sb3IFc3RhdGUBAAAACQcHAwAAAAoAAAAAAAAAABgAAQAACQcAAAAB+P////r/
//8KAAAAAAAAAAAaAAEAAQwJAAAAS21zY29ybGliLCBWZXJzaW9uPTIuMC4wLjAsIEN1bHR1cmU9bmV1
dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUFAAAAMVN5c3RlbS5XaW5kb3dzLkZv
cm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0EAAAABHRleHQEbmFtZQVzdHlsZQh1c2VyRGF0
YQEBBAI+U3lzdGVtLldpbmRvd3MuRm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbStTdWJJ
dGVtU3R5bGUCAAAAAgAAAAYKAAAAAAoKCgUHAAAAE1N5c3RlbS5EcmF3aW5nLkZvbnQEAAAABE5hbWUE
U2l6ZQVTdHlsZQRVbml0AQAEBAsYU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAwAAABtTeXN0ZW0uRHJh
d2luZy5HcmFwaGljc1VuaXQDAAAAAwAAAAYLAAAABlRhaG9tYQAABEEF9P///xhTeXN0ZW0uRHJhd2lu
Zy5Gb250U3R5bGUBAAAAB3ZhbHVlX18ACAMAAAAAAAAABfP///8bU3lzdGVtLkRyYXdpbmcuR3JhcGhp
Y3NVbml0AQAAAAd2YWx1ZV9fAAgDAAAAAwAAAAs=
</value>
</data>
<data name="OptionList.Items2" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0HAAAA
BFRleHQKSW1hZ2VJbmRleAlCYWNrQ29sb3IHQ2hlY2tlZARGb250CUZvcmVDb2xvchdVc2VJdGVtU3R5
bGVGb3JTdWJJdGVtcwEABAAEBAAIFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAETU3lzdGVtLkRyYXdp
bmcuRm9udAMAAAAUU3lzdGVtLkRyYXdpbmcuQ29sb3IDAAAAAQIAAAAGBAAAABpQbGFjYSBiYXNlIHkg
Y29udHJvbGFkb3Jlc/////8F+////xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFtZQV2YWx1ZQpr
bm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkGAAAAAfn////7////CgAAAAAA
AAAAGgABAAEFBgAAABNTeXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1lBFNpemUFU3R5bGUEVW5pdAEA
BAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRyYXdpbmcuR3JhcGhpY3NVbml0
AwAAAAMAAAAGCAAAABRNaWNyb3NvZnQgU2FucyBTZXJpZgAABEEF9////xhTeXN0ZW0uRHJhd2luZy5G
b250U3R5bGUBAAAAB3ZhbHVlX18ACAMAAAAAAAAABfb///8bU3lzdGVtLkRyYXdpbmcuR3JhcGhpY3NV
bml0AQAAAAd2YWx1ZV9fAAgDAAAAAwAAAAs=
</value>
</data>
<data name="OptionList.Items3" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAARVW5pZGFkZXMgZGUgZGlzY2//////AgAAAAkFAAAABfr///8UU3lzdGVtLkRyYXdpbmcuQ29s
b3IEAAAABG5hbWUFdmFsdWUKa25vd25Db2xvcgVzdGF0ZQEAAAAJBwcDAAAACgAAAAAAAAAAGAABAAAJ
BwAAAAH4////+v///woAAAAAAAAAABoAAQABDAkAAABLbXNjb3JsaWIsIFZlcnNpb249Mi4wLjAuMCwg
Q3VsdHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5BQUAAAAxU3lzdGVt
LldpbmRvd3MuRm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbQQAAAAEdGV4dARuYW1lBXN0
eWxlCHVzZXJEYXRhAQEEAj5TeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdT
dWJJdGVtK1N1Ykl0ZW1TdHlsZQIAAAACAAAABgoAAAAACgoKBQcAAAATU3lzdGVtLkRyYXdpbmcuRm9u
dAQAAAAETmFtZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0uRHJhd2luZy5Gb250U3R5bGUDAAAA
G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAABgsAAAAGVGFob21hAAAEQQX0////GFN5
c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQEAAAAHdmFsdWVfXwAIAwAAAAAAAAAF8////xtTeXN0ZW0uRHJh
d2luZy5HcmFwaGljc1VuaXQBAAAAB3ZhbHVlX18ACAMAAAADAAAACw==
</value>
</data>
<data name="OptionList.Items4" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAADUmVk/////wIAAAAJBQAAAAX6////FFN5c3RlbS5EcmF3aW5nLkNvbG9yBAAAAARuYW1lBXZh
bHVlCmtub3duQ29sb3IFc3RhdGUBAAAACQcHAwAAAAoAAAAAAAAAABgAAQAACQcAAAAB+P////r///8K
AAAAAAAAAAAaAAEAAQwJAAAAS21zY29ybGliLCBWZXJzaW9uPTIuMC4wLjAsIEN1bHR1cmU9bmV1dHJh
bCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUFAAAAMVN5c3RlbS5XaW5kb3dzLkZvcm1z
Lkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0EAAAABHRleHQEbmFtZQVzdHlsZQh1c2VyRGF0YQEB
BAI+U3lzdGVtLldpbmRvd3MuRm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbStTdWJJdGVt
U3R5bGUCAAAAAgAAAAYKAAAAAAoKCgUHAAAAE1N5c3RlbS5EcmF3aW5nLkZvbnQEAAAABE5hbWUEU2l6
ZQVTdHlsZQRVbml0AQAEBAsYU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAwAAABtTeXN0ZW0uRHJhd2lu
Zy5HcmFwaGljc1VuaXQDAAAAAwAAAAYLAAAABlRhaG9tYQAABEEF9P///xhTeXN0ZW0uRHJhd2luZy5G
b250U3R5bGUBAAAAB3ZhbHVlX18ACAMAAAAAAAAABfP///8bU3lzdGVtLkRyYXdpbmcuR3JhcGhpY3NV
bml0AQAAAAd2YWx1ZV9fAAgDAAAAAwAAAAs=
</value>
</data>
<data name="OptionList.Items5" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAIUGFudGFsbGH/////AgAAAAkFAAAABfr///8UU3lzdGVtLkRyYXdpbmcuQ29sb3IEAAAABG5h
bWUFdmFsdWUKa25vd25Db2xvcgVzdGF0ZQEAAAAJBwcDAAAACgAAAAAAAAAAGAABAAAJBwAAAAH4////
+v///woAAAAAAAAAABoAAQABDAkAAABLbXNjb3JsaWIsIFZlcnNpb249Mi4wLjAuMCwgQ3VsdHVyZT1u
ZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iNzdhNWM1NjE5MzRlMDg5BQUAAAAxU3lzdGVtLldpbmRvd3Mu
Rm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbQQAAAAEdGV4dARuYW1lBXN0eWxlCHVzZXJE
YXRhAQEEAj5TeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtK1N1
Ykl0ZW1TdHlsZQIAAAACAAAABgoAAAAACgoKBQcAAAATU3lzdGVtLkRyYXdpbmcuRm9udAQAAAAETmFt
ZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0uRHJhd2luZy5Gb250U3R5bGUDAAAAG1N5c3RlbS5E
cmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAABgsAAAAGVGFob21hAAAEQQX0////GFN5c3RlbS5EcmF3
aW5nLkZvbnRTdHlsZQEAAAAHdmFsdWVfXwAIAwAAAAAAAAAF8////xtTeXN0ZW0uRHJhd2luZy5HcmFw
aGljc1VuaXQBAAAAB3ZhbHVlX18ACAMAAAADAAAACw==
</value>
</data>
<data name="OptionList.Items6" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0HAAAA
BFRleHQKSW1hZ2VJbmRleAlCYWNrQ29sb3IHQ2hlY2tlZARGb250CUZvcmVDb2xvchdVc2VJdGVtU3R5
bGVGb3JTdWJJdGVtcwEABAAEBAAIFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAETU3lzdGVtLkRyYXdp
bmcuRm9udAMAAAAUU3lzdGVtLkRyYXdpbmcuQ29sb3IDAAAAAQIAAAAGBAAAAApNaXNjZWxhbmVv////
/wX7////FFN5c3RlbS5EcmF3aW5nLkNvbG9yBAAAAARuYW1lBXZhbHVlCmtub3duQ29sb3IFc3RhdGUB
AAAACQcHAwAAAAoAAAAAAAAAABgAAQAACQYAAAAB+f////v///8KAAAAAAAAAAAaAAEAAQUGAAAAE1N5
c3RlbS5EcmF3aW5nLkZvbnQEAAAABE5hbWUEU2l6ZQVTdHlsZQRVbml0AQAEBAsYU3lzdGVtLkRyYXdp
bmcuRm9udFN0eWxlAwAAABtTeXN0ZW0uRHJhd2luZy5HcmFwaGljc1VuaXQDAAAAAwAAAAYIAAAAFE1p
Y3Jvc29mdCBTYW5zIFNlcmlmAAAEQQX3////GFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQEAAAAHdmFs
dWVfXwAIAwAAAAAAAAAF9v///xtTeXN0ZW0uRHJhd2luZy5HcmFwaGljc1VuaXQBAAAAB3ZhbHVlX18A
CAMAAAADAAAACw==
</value>
</data>
<data name="OptionList.Items7" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0HAAAA
BFRleHQKSW1hZ2VJbmRleAlCYWNrQ29sb3IHQ2hlY2tlZARGb250CUZvcmVDb2xvchdVc2VJdGVtU3R5
bGVGb3JTdWJJdGVtcwEABAAEBAAIFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAETU3lzdGVtLkRyYXdp
bmcuRm9udAMAAAAUU3lzdGVtLkRyYXdpbmcuQ29sb3IDAAAAAQIAAAAGBAAAABJFZGl0YXIgbWFudWFs
bWVudGX/////Bfv///8UU3lzdGVtLkRyYXdpbmcuQ29sb3IEAAAABG5hbWUFdmFsdWUKa25vd25Db2xv
cgVzdGF0ZQEAAAAJBwcDAAAACgAAAAAAAAAAGAABAAAJBgAAAAH5////+////woAAAAAAAAAABoAAQAB
BQYAAAATU3lzdGVtLkRyYXdpbmcuRm9udAQAAAAETmFtZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0
ZW0uRHJhd2luZy5Gb250U3R5bGUDAAAAG1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAA
BggAAAAUTWljcm9zb2Z0IFNhbnMgU2VyaWYAAARBBff///8YU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxl
AQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAX2////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAEAAAAH
dmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="Options.Text" xml:space="preserve">
<value>Opciones</value>
</data>
<data name="Value.Text" xml:space="preserve">
<value>Valores</value>
</data>
<data name="cmdCancel.Text" xml:space="preserve">
<value>Cancelar</value>
</data>
<data name="cmdOK.Text" xml:space="preserve">
<value>Aceptar</value>
</data>
<data name="IconFrame.Text" xml:space="preserve">
<value>Ícono</value>
</data>
<data name="IconAdd.Size" type="System.Drawing.Size, System.Drawing">
<value>58, 23</value>
</data>
<data name="IconAdd.Text" xml:space="preserve">
<value>Agregar</value>
</data>
<data name="IconInfo.Size" type="System.Drawing.Size, System.Drawing">
<value>355, 52</value>
</data>
<data name="IconInfo.Text" xml:space="preserve">
<value>Algo de personalización para su Mac le podría venir muy bien. En esta
página, usted puede cambiar a un ícono de su elección para su Mac
emulada. Deslice la barra para ver más íconos, o haga click en "Agregar"
para agregar una imagen de su elección.</value>
</data>
<data name="MacNameFrame.Text" xml:space="preserve">
<value>Nombre</value>
</data>
<data name="MacNameLabel.Text" xml:space="preserve">
<value>La cosa más importante para cualquier ordenador. El nombre puede ser lo que sea, tal como Performa, Mac OS 7, o sencillamente Mac.</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Configuración para %s</value>
</data>
</root>

289
frmSettingsPearPCVM.es.resx Normal file
View File

@ -0,0 +1,289 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="OptionList.Items" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAETmFtZf////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFtZQV2
YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6////
CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRy
YWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5Gb3Jt
cy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRhdGEB
AQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3ViSXRl
bVN0eWxlAgAAAAIAAAAGCgAAAAAKCgoFBwAAABNTeXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1lBFNp
emUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRyYXdp
bmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZUYWhvbWEAAARBBfT///8YU3lzdGVtLkRyYXdpbmcu
Rm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAXz////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNz
VW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAESWNvbv////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFtZQV2
YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6////
CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRy
YWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5Gb3Jt
cy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRhdGEB
AQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3ViSXRl
bVN0eWxlAgAAAAIAAAAGCgAAAAAKCgoFBwAAABNTeXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1lBFNp
emUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRyYXdp
bmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZUYWhvbWEAAARBBfT///8YU3lzdGVtLkRyYXdpbmcu
Rm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAXz////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNz
VW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items2" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0HAAAA
BFRleHQKSW1hZ2VJbmRleAlCYWNrQ29sb3IHQ2hlY2tlZARGb250CUZvcmVDb2xvchdVc2VJdGVtU3R5
bGVGb3JTdWJJdGVtcwEABAAEBAAIFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAETU3lzdGVtLkRyYXdp
bmcuRm9udAMAAAAUU3lzdGVtLkRyYXdpbmcuQ29sb3IDAAAAAQIAAAAGBAAAAA9Cb2FyZCAmIGNoaXBz
ZXT/////Bfv///8UU3lzdGVtLkRyYXdpbmcuQ29sb3IEAAAABG5hbWUFdmFsdWUKa25vd25Db2xvcgVz
dGF0ZQEAAAAJBwcDAAAACgAAAAAAAAAAGAABAAAJBgAAAAH5////+////woAAAAAAAAAABoAAQABBQYA
AAATU3lzdGVtLkRyYXdpbmcuRm9udAQAAAAETmFtZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0u
RHJhd2luZy5Gb250U3R5bGUDAAAAG1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAABggA
AAAUTWljcm9zb2Z0IFNhbnMgU2VyaWYAAARBBff///8YU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAQAA
AAd2YWx1ZV9fAAgDAAAAAAAAAAX2////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAEAAAAHdmFs
dWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items3" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAGRHJpdmVz/////wIAAAAJBQAAAAX6////FFN5c3RlbS5EcmF3aW5nLkNvbG9yBAAAAARuYW1l
BXZhbHVlCmtub3duQ29sb3IFc3RhdGUBAAAACQcHAwAAAAoAAAAAAAAAABgAAQAACQcAAAAB+P////r/
//8KAAAAAAAAAAAaAAEAAQwJAAAAS21zY29ybGliLCBWZXJzaW9uPTIuMC4wLjAsIEN1bHR1cmU9bmV1
dHJhbCwgUHVibGljS2V5VG9rZW49Yjc3YTVjNTYxOTM0ZTA4OQUFAAAAMVN5c3RlbS5XaW5kb3dzLkZv
cm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0EAAAABHRleHQEbmFtZQVzdHlsZQh1c2VyRGF0
YQEBBAI+U3lzdGVtLldpbmRvd3MuRm9ybXMuTGlzdFZpZXdJdGVtK0xpc3RWaWV3U3ViSXRlbStTdWJJ
dGVtU3R5bGUCAAAAAgAAAAYKAAAAAAoKCgUHAAAAE1N5c3RlbS5EcmF3aW5nLkZvbnQEAAAABE5hbWUE
U2l6ZQVTdHlsZQRVbml0AQAEBAsYU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAwAAABtTeXN0ZW0uRHJh
d2luZy5HcmFwaGljc1VuaXQDAAAAAwAAAAYLAAAABlRhaG9tYQAABEEF9P///xhTeXN0ZW0uRHJhd2lu
Zy5Gb250U3R5bGUBAAAAB3ZhbHVlX18ACAMAAAAAAAAABfP///8bU3lzdGVtLkRyYXdpbmcuR3JhcGhp
Y3NVbml0AQAAAAd2YWx1ZV9fAAgDAAAAAwAAAAs=
</value>
</data>
<data name="OptionList.Items4" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAHTmV0d29ya/////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFt
ZQV2YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6
////CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5l
dXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5G
b3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRh
dGEBAQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3Vi
SXRlbVN0eWxlAgAAAAIAAAAGCgAAAAAKCgoFBwAAABNTeXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1l
BFNpemUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRy
YXdpbmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZUYWhvbWEAAARBBfT///8YU3lzdGVtLkRyYXdp
bmcuRm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAXz////G1N5c3RlbS5EcmF3aW5nLkdyYXBo
aWNzVW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items5" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0JAAAA
BFRleHQKSW1hZ2VJbmRleAxTdWJJdGVtQ291bnQIU3ViSXRlbTEJQmFja0NvbG9yB0NoZWNrZWQERm9u
dAlGb3JlQ29sb3IXVXNlSXRlbVN0eWxlRm9yU3ViSXRlbXMBAAAEBAAEBAAICDFTeXN0ZW0uV2luZG93
cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtAgAAABRTeXN0ZW0uRHJhd2luZy5Db2xv
cgMAAAABE1N5c3RlbS5EcmF3aW5nLkZvbnQDAAAAFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAECAAAA
BgQAAAAHRGlzcGxhef////8CAAAACQUAAAAF+v///xRTeXN0ZW0uRHJhd2luZy5Db2xvcgQAAAAEbmFt
ZQV2YWx1ZQprbm93bkNvbG9yBXN0YXRlAQAAAAkHBwMAAAAKAAAAAAAAAAAYAAEAAAkHAAAAAfj////6
////CgAAAAAAAAAAGgABAAEMCQAAAEttc2NvcmxpYiwgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5l
dXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFBQAAADFTeXN0ZW0uV2luZG93cy5G
b3Jtcy5MaXN0Vmlld0l0ZW0rTGlzdFZpZXdTdWJJdGVtBAAAAAR0ZXh0BG5hbWUFc3R5bGUIdXNlckRh
dGEBAQQCPlN5c3RlbS5XaW5kb3dzLkZvcm1zLkxpc3RWaWV3SXRlbStMaXN0Vmlld1N1Ykl0ZW0rU3Vi
SXRlbVN0eWxlAgAAAAIAAAAGCgAAAAAKCgoFBwAAABNTeXN0ZW0uRHJhd2luZy5Gb250BAAAAAROYW1l
BFNpemUFU3R5bGUEVW5pdAEABAQLGFN5c3RlbS5EcmF3aW5nLkZvbnRTdHlsZQMAAAAbU3lzdGVtLkRy
YXdpbmcuR3JhcGhpY3NVbml0AwAAAAMAAAAGCwAAAAZUYWhvbWEAAARBBfT///8YU3lzdGVtLkRyYXdp
bmcuRm9udFN0eWxlAQAAAAd2YWx1ZV9fAAgDAAAAAAAAAAXz////G1N5c3RlbS5EcmF3aW5nLkdyYXBo
aWNzVW5pdAEAAAAHdmFsdWVfXwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items6" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0HAAAA
BFRleHQKSW1hZ2VJbmRleAlCYWNrQ29sb3IHQ2hlY2tlZARGb250CUZvcmVDb2xvchdVc2VJdGVtU3R5
bGVGb3JTdWJJdGVtcwEABAAEBAAIFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAETU3lzdGVtLkRyYXdp
bmcuRm9udAMAAAAUU3lzdGVtLkRyYXdpbmcuQ29sb3IDAAAAAQIAAAAGBAAAAAxNaXNjZWxhbmVvdXP/
////Bfv///8UU3lzdGVtLkRyYXdpbmcuQ29sb3IEAAAABG5hbWUFdmFsdWUKa25vd25Db2xvcgVzdGF0
ZQEAAAAJBwcDAAAACgAAAAAAAAAAGAABAAAJBgAAAAH5////+////woAAAAAAAAAABoAAQABBQYAAAAT
U3lzdGVtLkRyYXdpbmcuRm9udAQAAAAETmFtZQRTaXplBVN0eWxlBFVuaXQBAAQECxhTeXN0ZW0uRHJh
d2luZy5Gb250U3R5bGUDAAAAG1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAMAAAADAAAABggAAAAU
TWljcm9zb2Z0IFNhbnMgU2VyaWYAAARBBff///8YU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAQAAAAd2
YWx1ZV9fAAgDAAAAAAAAAAX2////G1N5c3RlbS5EcmF3aW5nLkdyYXBoaWNzVW5pdAEAAAAHdmFsdWVf
XwAIAwAAAAMAAAAL
</value>
</data>
<data name="OptionList.Items7" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkMAwAAAFFTeXN0
ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2Vu
PWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACFTeXN0ZW0uV2luZG93cy5Gb3Jtcy5MaXN0Vmlld0l0ZW0HAAAA
BFRleHQKSW1hZ2VJbmRleAlCYWNrQ29sb3IHQ2hlY2tlZARGb250CUZvcmVDb2xvchdVc2VJdGVtU3R5
bGVGb3JTdWJJdGVtcwEABAAEBAAIFFN5c3RlbS5EcmF3aW5nLkNvbG9yAwAAAAETU3lzdGVtLkRyYXdp
bmcuRm9udAMAAAAUU3lzdGVtLkRyYXdpbmcuQ29sb3IDAAAAAQIAAAAGBAAAABlFZGl0IE1hbnVhbGx5
IENvbmZpZyBGaWxl/////wX7////FFN5c3RlbS5EcmF3aW5nLkNvbG9yBAAAAARuYW1lBXZhbHVlCmtu
b3duQ29sb3IFc3RhdGUBAAAACQcHAwAAAAoAAAAAAAAAABgAAQAACQYAAAAB+f////v///8KAAAAAAAA
AAAaAAEAAQUGAAAAE1N5c3RlbS5EcmF3aW5nLkZvbnQEAAAABE5hbWUEU2l6ZQVTdHlsZQRVbml0AQAE
BAsYU3lzdGVtLkRyYXdpbmcuRm9udFN0eWxlAwAAABtTeXN0ZW0uRHJhd2luZy5HcmFwaGljc1VuaXQD
AAAAAwAAAAYIAAAAFE1pY3Jvc29mdCBTYW5zIFNlcmlmAAAEQQX3////GFN5c3RlbS5EcmF3aW5nLkZv
bnRTdHlsZQEAAAAHdmFsdWVfXwAIAwAAAAAAAAAF9v///xtTeXN0ZW0uRHJhd2luZy5HcmFwaGljc1Vu
aXQBAAAAB3ZhbHVlX18ACAMAAAADAAAACw==
</value>
</data>
</root>

3679
frmSettingsPearPCVM.resx Normal file

File diff suppressed because it is too large Load Diff

762
frmSettingsPearPCVM.vb Normal file
View File

@ -0,0 +1,762 @@
Imports System.IO
Imports System.Globalization
Imports System.Threading
Public Class frmSettingsPearPCVM
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
Private Sub Settings()
Dim Reader As New StreamReader(ConfigFile)
Dim ConfigValues As New ArrayList()
Dim strContainer As String = ""
MacName.Text = frmMain.VMList.Items.Item(SelectedItem).Text
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
ConfigValues(x) = Replace(ConfigValues(x), Chr(34).ToString, "")
If InStr(ConfigValues(x), "ppc_start_resolution = ") <> 0 Then
Dim a As String = ConfigValues(x).ToString.Substring(23)
Dim b() As String = Split(a, "x")
Dim FoundX As Boolean = False
Dim FoundY As Boolean = False
For c As Integer = 0 To DisplayResY.Items.Count - 1
If FoundX = True And FoundY = True Then
Exit For
End If
If InStr(DisplayResX.Items.Item(c).ToString, b(0)) <> 0 Then
DisplayResX.SelectedIndex = c
FoundX = True
ElseIf c = DisplayResX.Items.Count - 1 And FoundX = False Then
DisplayResX.Items.Add(b(0))
DisplayResX.SelectedIndex = DisplayResX.Items.Count - 1
End If
If InStr(DisplayResY.Items.Item(c).ToString, b(1)) <> 0 Then
DisplayResY.SelectedIndex = c
FoundY = True
ElseIf c = DisplayResY.Items.Count - 1 And FoundY = False Then
DisplayResY.Items.Add(b(1))
DisplayResY.SelectedIndex = DisplayResY.Items.Count - 1
End If
If b.Length > 2 Then
'If InStr(b(2), "@") <> 0 Then
' If b(2).Substring(InStr(b(2), "@"), 2) <= DisplayFrequency.Maximum Then
' DisplayFrequency.Value = b(2).Substring(InStr(b(2), "@"))
' Select Case b(2).Substring(0, 2)
' Case "15"
' DisplayColourDepth.SelectedIndex = 0
' Case "32"
' DisplayColourDepth.SelectedIndex = 1
' Case Else
' DisplayColourDepth.SelectedIndex = 0
' End Select
' End If
'Else
Select Case b(2).Substring(0, 2)
Case "15"
DisplayColourDepth.SelectedIndex = 0
Case "32"
DisplayColourDepth.SelectedIndex = 1
Case Else
DisplayColourDepth.SelectedIndex = 0
End Select
'End If
End If
Next
End If
If InStr(ConfigValues(x), "ppc_start_full_screen = ") <> 0 Then
If ConfigValues(x).ToString.Substring(24) <> 0 Then
DisplayFullscreenStart.Checked = True
End If
End If
If InStr(ConfigValues(x), "redraw_interval_msec = ") <> 0 Then
DisplayRedrawLabel.Text = ConfigValues(x).ToString.Substring(23)
End If
If InStr(ConfigValues(x), "key_compose_dialog = ") <> 0 Then
BoardComposeDialogKey.Text = ConfigValues(x).ToString.Substring(21)
End If
If InStr(ConfigValues(x), "key_change_cd_0 = ") <> 0 Then
BoardChangeCDKey.Text = ConfigValues(x).ToString.Substring(18)
End If
If InStr(ConfigValues(x), "key_toggle_mouse_grab = ") <> 0 Then
BoardMouseGrabKey.Text = ConfigValues(x).ToString.Substring(24)
End If
If InStr(ConfigValues(x), "key_toggle_full_screen = ") <> 0 Then
DisplayFullscreenKey.Text = ConfigValues(x).ToString.Substring(25)
End If
If InStr(ConfigValues(x), "prom_bootmethod = ") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(18)
Case "auto"
MiscBootModeAuto.Checked = True
Case "select"
MiscBootModeSelect.Checked = True
Case "force"
MiscBootModeForce.Checked = True
End Select
End If
If InStr(ConfigValues(x), "prom_loadfile = ") <> 0 Then
MiscPROMFile.Text = ConfigValues(x).ToString.Substring(16)
End If
If InStr(ConfigValues(x), "prom_env_bootpath = ") <> 0 Then
MiscPROMBootPath.Text = ConfigValues(x).ToString.Substring(20)
End If
If InStr(ConfigValues(x), "prom_env_bootargs = ") <> 0 Then
MiscPROMBootArgs.Text = ConfigValues(x).ToString.Substring(20)
End If
If InStr(ConfigValues(x), "prom_env_machargs = ") <> 0 Then
MiscMachArguments.Text = ConfigValues(x).ToString.Substring(20)
End If
If InStr(ConfigValues(x), "prom_driver_graphic = ") <> 0 Then
DisplayDriver.Text = ConfigValues(x).ToString.Substring(22)
End If
If InStr(ConfigValues(x), "page_table_pa = ") <> 0 Then
MiscPageTable.Text = ConfigValues(x).ToString.Substring(16)
End If
If InStr(ConfigValues(x), "cpu_pvr = ") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(10)
Case "0x00088302"
BoardProcessorG3.Checked = True
Case "0x000c0201"
BoardProcessorG4.Checked = True
End Select
End If
If InStr(ConfigValues(x), "memory_size = ") <> 0 Then
Dim MemorySize As UInteger = Replace(ConfigValues(x).ToString.Substring(14), "0x", "")
MemorySize = MemorySize * 0.0000256
If MemorySize < BoardRAMSlider.Maximum Then
BoardRAMSlider.Value = MemorySize
End If
End If
If InStr(ConfigValues(x), "pci_ide0_master_installed = ") <> 0 Then
If ConfigValues(x).ToString.Substring(28) <> 0 Then
DriveMasterEnabled.Checked = True
End If
End If
If InStr(ConfigValues(x), "pci_ide0_master_image = ") <> 0 Then
DriveMasterPath.Text = ConfigValues(x).ToString.Substring(24)
End If
If InStr(ConfigValues(x), "pci_ide0_master_type = ") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(23)
Case "hd"
DriveMasterType.SelectedIndex = 0
Case "cdrom"
DriveMasterType.SelectedIndex = 1
Case "nativecdrom"
DriveMasterType.SelectedIndex = 2
End Select
End If
If InStr(ConfigValues(x), "pci_ide0_slave_installed = ") <> 0 Then
If ConfigValues(x).ToString.Substring(27) <> 0 Then
DriveSlaveEnabled.Checked = True
End If
End If
If InStr(ConfigValues(x), "pci_ide0_slave_image = ") <> 0 Then
DriveSlavePath.Text = ConfigValues(x).ToString.Substring(23)
End If
If InStr(ConfigValues(x), "pci_ide0_slave_type = ") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(22)
Case "hd"
DriveSlaveType.SelectedIndex = 0
Case "cdrom"
DriveSlaveType.SelectedIndex = 1
Case "nativecdrom"
DriveSlaveType.SelectedIndex = 2
End Select
End If
If InStr(ConfigValues(x), "pci_3c90x_installed = ") <> 0 Then
If ConfigValues(x).ToString.Substring(22) <> 0 Then
Net3c90xEnable.Checked = True
End If
End If
If InStr(ConfigValues(x), "pci_3c90x_mac = ") <> 0 Then
Dim PhAddr() As String = Split(ConfigValues(x).ToString.Substring(16), ":")
For y As Integer = 0 To PhAddr.Length - 1
Select Case y
Case 0
Net3c90Mac1.Text = PhAddr(y)
Case 1
Net3c90Mac2.Text = PhAddr(y)
Case 2
Net3c90Mac3.Text = PhAddr(y)
Case 3
Net3c90Mac4.Text = PhAddr(y)
Case 4
Net3c90Mac5.Text = PhAddr(y)
Case 5
Net3c90Mac6.Text = PhAddr(y)
End Select
Next
End If
If InStr(ConfigValues(x), "pci_rtl8139_installed = ") <> 0 Then
If ConfigValues(x).ToString.Substring(24) <> 0 Then
Net8139Enable.Checked = True
End If
End If
If InStr(ConfigValues(x), "pci_rtl8139_mac = ") <> 0 Then
Dim PhAddr() As String = Split(ConfigValues(x).ToString.Substring(18), ":")
For y As Integer = 0 To PhAddr.Length - 1
Select Case y
Case 0
Net8139Mac1.Text = PhAddr(y)
Case 1
Net8139Mac2.Text = PhAddr(y)
Case 2
Net8139Mac3.Text = PhAddr(y)
Case 3
Net8139Mac4.Text = PhAddr(y)
Case 4
Net8139Mac5.Text = PhAddr(y)
Case 5
Net8139Mac6.Text = PhAddr(y)
End Select
Next
End If
If InStr(ConfigValues(x), "pci_usb_installed = ") <> 0 Then
If ConfigValues(x).ToString.Substring(20) <> 0 Then
BoardUSBEnable.Checked = True
End If
End If
If InStr(ConfigValues(x), "pci_serial_installed = ") <> 0 Then
If ConfigValues(x).ToString.Substring(23) <> 0 Then
BoardSerialEnable.Checked = True
End If
End If
If InStr(ConfigValues(x), "nvram_file = ") <> 0 Then
MiscNVRAMFile.Text = ConfigValues(x).ToString.Substring(13)
End If
Next
End Sub
Private Sub SaveSettings()
On Error GoTo ErrorHandler
If VerifyData() = True Then
MsgBox("Incomplete data, please fill all the required fields.", MsgBoxStyle.Exclamation)
Exit Sub
End If
Dim Config As String = ""
Dim DataArray() As String = Split(GetData(), ",")
'Formatting the text with a function, which returns
'the text formatted as the documentation says
Config = FormatLine("ppc_start_resolution = ", DataArray(0), False) 'Emulator Resolution
Config = Config & FormatLine("ppc_start_full_screen = ", DataArray(1), True) 'Full screen (Enabled or disabled)
Config = Config & FormatLine("redraw_interval_msec = ", DataArray(2), True) 'Image redraw time
If DataArray(3) <> "" Then
Config = Config & FormatLine("key_compose_dialog = ", DataArray(3), False) 'Compose dialog key
End If
If DataArray(4) <> "" Then
Config = Config & FormatLine("key_change_cd_0 = ", DataArray(4), False) 'Change CD Key
End If
If DataArray(5) <> "" Then
Config = Config & FormatLine("key_toggle_mouse_grab = ", DataArray(5), False) 'Release/Capture mouse key
End If
If DataArray(6) <> "" Then
Config = Config & FormatLine("key_toggle_full_screen = ", DataArray(6), False) 'Toggle Fullscreen/Windowed modes key
End If
Config = Config & FormatLine("prom_bootmethod = ", DataArray(7), False) 'Boot mode (Auto, select or force)
If DataArray(7) = "force" Then
Config = Config & FormatLine("prom_loadfile = ", DataArray(8), False) 'PROM file (File to load in case BootMethod = Force)
Config = Config & FormatLine("prom_env_bootpath = ", DataArray(9), False) 'PROM Booth Path (Directory where PROM/PearPC boots)(Used with PROMFile)
Config = Config & FormatLine("prom_env_bootargs = ", DataArray(10), False) 'Boot Arguments
End If
Config = Config & FormatLine("prom_env_machargs = ", DataArray(11), False) 'Mach Arguments
Config = Config & FormatLine("prom_driver_graphic = ", DataArray(12), False) 'Graphic driver (video.x is recommended OS X)
Config = Config & FormatLine("page_table_pa = ", DataArray(13), True) 'Initial page table(Don't change)
Config = Config & FormatLine("cpu_pvr = ", DataArray(14), True) 'Processor Version Register (To emulate G3 or G4)
Config = Config & FormatLine("memory_size = ", DataArray(15), True) 'Memory size (must be >= 64 MiB)
Config = Config & FormatLine("pci_ide0_master_installed = ", DataArray(16), True) 'Master drive Installed (Yes or No , 1 or 0)
Config = Config & FormatLine("pci_ide0_master_image = ", DataArray(17), False) 'Route to the Master drive image
Config = Config & FormatLine("pci_ide0_master_type = ", DataArray(18), False) 'Master Drive Type(Hard disk or CD-ROM)
Config = Config & FormatLine("pci_ide0_slave_installed = ", DataArray(19), True) 'Slave drive Installed (Yes or No , 1 or 0)
Config = Config & FormatLine("pci_ide0_slave_image = ", DataArray(20), False) 'Route to the Slave drive image
Config = Config & FormatLine("pci_ide0_slave_type = ", DataArray(21), False) 'Slave Drive Type(Hard disk or CD-ROM)
Config = Config & FormatLine("pci_3c90x_installed = ", DataArray(22), True) 'Network card 3c90x Installed (Yes or No)
Config = Config & FormatLine("pci_3c90x_mac = ", DataArray(23), False) 'MAC of this card (3c90x)
Config = Config & FormatLine("pci_rtl8139_installed = ", DataArray(24), True) 'Network card RTL8139 installed (Yes or No)
Config = Config & FormatLine("pci_rtl8139_mac = ", DataArray(25), False) 'MAC of this card (RTL8139)
Config = Config & FormatLine("pci_usb_installed = ", DataArray(26), True) 'PCI USB capability installed (Yes or No)
Config = Config & FormatLine("pci_serial_installed = ", DataArray(27), True) 'PCI Serial port installed installed (Yes or No)(For debugging only)
Config = Config & FormatLine("nvram_file = ", DataArray(28), False) 'NVRAM file route
If SaveConfigFile.FileName <> "" Then
ConfigFileHandler.Write(Config, ConfigFile)
End If
frmMain.VMList.Items(SelectedItem).Text = MacName.Text
ErrorHandler:
If Err.Number <> 0 Then
MsgBox(Err.Description)
End If
End Sub
Private Function GetData() As String
Dim Data As String = ""
Dim Resolution As String = DisplayResX.SelectedItem.ToString & "x" & DisplayResY.SelectedItem.ToString & "x" & DisplayColourDepth.SelectedItem.ToString & "@" & DisplayFrequency.Value
Dim FullScreen As Long
Dim RedrawTime As Long = Me.DisplayRedrawLabel.Text
Dim ComposeDialogKey As String = Me.BoardComposeDialogKey.Text
Dim ChangeCDKey As String = Me.BoardChangeCDKey.Text
Dim ReleaseMouse As String = BoardMouseGrabKey.Text
Dim SwitchFullScreen As String = DisplayFullscreenKey.Text
Dim BootMode As String = "auto"
Dim PROMFile As String = Me.MiscPROMFile.Text
Dim PROMBootPath As String = Me.MiscPROMBootPath.Text
Dim BootArgs As String = MiscPROMBootArgs.Text
Dim MachArgs As String = MiscMachArguments.Text
Dim GraphicDriver As String = Me.DisplayDriver.Text
Dim PageTable As String = Me.MiscPageTable.Text
Dim CPUPvr As String = "0x00088302"
Dim Memory As String = "0x" & (BoardRAM.Text / 0.0000256)
Dim MasterInstalled As Long = 0
Dim MasterImage As String = DriveMasterPath.Text
Dim MasterType As String = "hd"
Dim SlaveInstalled As Long = 0
Dim SlaveImage As String = DriveSlavePath.Text
Dim SlaveType As String = "cdrom"
Dim Net3c90xInstalled As Long
Dim Net3c90xMac As String = Net3c90Mac1.Text & ":" & Net3c90Mac2.Text & ":" & Net3c90Mac3.Text & ":" & Net3c90Mac4.Text & ":" & Net3c90Mac5.Text & ":" & Net3c90Mac6.Text
Dim NetRTL8139Installed As Long
Dim NetRTL8139Mac As String = Net8139Mac1.Text & ":" & Net8139Mac2.Text & ":" & Net8139Mac3.Text & ":" & Net8139Mac4.Text & ":" & Net8139Mac5.Text & ":" & Net8139Mac6.Text
Dim USBInstalled As Long = 0
Dim SerialInstalled As Long = 0
Dim NVRAMFile As String = Me.MiscNVRAMFile.Text
If DisplayFullscreenStart.Checked = True Then
FullScreen = 1
End If
If MiscBootModeAuto.Checked = True Then
BootMode = "auto"
End If
If MiscBootModeSelect.Checked = True Then
BootMode = "select"
End If
If MiscBootModeForce.Checked = True Then
BootMode = "force"
End If
If BoardProcessorG3.Checked = True Then
CPUPvr = "0x00088302"
ElseIf BoardProcessorG4.Checked = True Then
CPUPvr = "0x000c0201"
End If
If DriveMasterEnabled.Checked = True Then
MasterInstalled = 1
End If
Select Case DriveMasterType.SelectedIndex
Case 0
MasterType = "hd"
Case 1
MasterType = "cdrom"
Case 2
MasterType = "nativecdrom"
End Select
If DriveSlaveEnabled.Checked = True Then
SlaveInstalled = 1
End If
Select Case DriveSlaveType.SelectedIndex
Case 0
SlaveType = "hd"
Case 1
SlaveType = "cdrom"
Case 2
SlaveType = "nativecdrom"
End Select
If Net3c90xEnable.Checked = True Then
Net3c90xInstalled = 1
End If
If Net8139Enable.Checked = True Then
NetRTL8139Installed = 1
End If
If BoardUSBEnable.Checked = True Then
USBInstalled = 1
End If
If BoardSerialEnable.Checked = True Then
SerialInstalled = 1
End If
Data = Resolution & "," & FullScreen & "," & RedrawTime & "," & ComposeDialogKey & "," & ChangeCDKey & "," & _
ReleaseMouse & "," & SwitchFullScreen & "," & BootMode & "," & PROMFile & "," & PROMBootPath & "," & _
BootArgs & "," & MachArgs & "," & GraphicDriver & "," & PageTable & "," & CPUPvr & "," & Memory & "," & _
MasterInstalled & "," & MasterImage & "," & MasterType & "," & SlaveInstalled & "," & SlaveImage & "," & _
SlaveType & "," & Net3c90xInstalled & "," & Net3c90xMac & "," & NetRTL8139Installed & "," & _
NetRTL8139Mac & "," & USBInstalled & "," & SerialInstalled & "," & NVRAMFile
Return Data
End Function
Private Function VerifyData() As Boolean
Dim Incomplete As Boolean = False
If DriveMasterEnabled.Checked = True Then
If DriveMasterPath.Text = "" Then
Incomplete = True
End If
End If
If DriveSlaveEnabled.Checked = True Then
If DriveSlavePath.Text = "" Then
Incomplete = True
End If
End If
If Net3c90xEnable.Checked = True Then
If Net3c90Mac1.Text = "" Then
Incomplete = True
End If
If Net3c90Mac2.Text = "" Then
Incomplete = True
End If
If Net3c90Mac3.Text = "" Then
Incomplete = True
End If
If Net3c90Mac4.Text = "" Then
Incomplete = True
End If
If Net3c90Mac5.Text = "" Then
Incomplete = True
End If
If Net3c90Mac6.Text = "" Then
Incomplete = True
End If
End If
If Net8139Enable.Checked = True Then
If Net8139Mac1.Text = "" Then
Incomplete = True
End If
If Net8139Mac2.Text = "" Then
Incomplete = True
End If
If Net8139Mac3.Text = "" Then
Incomplete = True
End If
If Net8139Mac4.Text = "" Then
Incomplete = True
End If
If Net8139Mac5.Text = "" Then
Incomplete = True
End If
If Net8139Mac6.Text = "" Then
Incomplete = True
End If
End If
If DisplayDriver.Text = "" Then
Incomplete = True
End If
If MiscNVRAMFile.Text = "" Then
Incomplete = True
End If
Return Incomplete
End Function
Private Function FormatLine(ByVal Config As String, ByVal Value As String, ByVal NoQuotes As Boolean) As String
Dim NewLine As String
If NoQuotes = True Then
NewLine = Config & Value & vbCrLf
Else
NewLine = Config & Chr(34) & Value & Chr(34) & vbCrLf
End If
EndFunction:
Return NewLine
End Function
Private Sub cmdCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
Me.Close() 'Saves nothing and closes the dialog
End Sub
Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
'Save the config file and/or update the item in the console and leave
SaveSettings()
Me.Close()
End Sub
Private Sub OptionList_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles OptionList.SelectedIndexChanged
Select Case OptionList.FocusedItem.Index
Case 0
SwitchPages(MacNameFrame)
Case 1
SwitchPages(IconFrame)
Case 2
SwitchPages(BoardFrame)
Case 3
SwitchPages(DriveFrame)
Case 4
SwitchPages(NetworkFrame)
Case 5
SwitchPages(DisplayFrame)
Case 6
SwitchPages(MiscFrame)
Case 7
End Select
End Sub
Private Sub SwitchPages(NewPage As System.Windows.Forms.GroupBox)
MacNameFrame.Visible = False
IconFrame.Visible = False
BoardFrame.Visible = False
DriveFrame.Visible = False
NetworkFrame.Visible = False
DisplayFrame.Visible = False
MiscFrame.Visible = False
NewPage.Visible = True
End Sub
Private Sub frmSettingsPearPCVM_Load(sender As Object, e As System.EventArgs) Handles Me.Load
InitializeData()
Settings()
End Sub
Private Sub InitializeData()
Dim HostMemory As Long = (My.Computer.Info.TotalPhysicalMemory / 1024) / 1024
BoardRAMSlider.Maximum = HostMemory
BoardRAMSlider.TickFrequency = HostMemory / 20
Me.Text = "Settings for " & frmMain.VMList.Items.Item(SelectedItem).Text
End Sub
Private Sub BoardRAMSlider_ValueChanged(sender As Object, e As System.EventArgs) Handles BoardRAMSlider.ValueChanged
BoardRAM.Text = BoardRAMSlider.Value
End Sub
Private Sub BoardRAM_TextChanged(sender As Object, e As System.EventArgs) Handles BoardRAM.TextChanged
BoardRAMSlider.Value = BoardRAM.Text
End Sub
Private Sub DriveMasterEnabled_CheckedChanged(sender As Object, e As System.EventArgs) Handles DriveMasterEnabled.CheckedChanged
If DriveMasterEnabled.Checked Then
DriveMasterPath.Enabled = True
DriveMasterPathLabel.Enabled = True
DriveMasterBrowse.Enabled = True
DriveMasterType.Enabled = True
DriveMasterTypeLabel.Enabled = True
Else
DriveMasterPath.Enabled = False
DriveMasterPathLabel.Enabled = False
DriveMasterBrowse.Enabled = False
DriveMasterType.Enabled = False
DriveMasterTypeLabel.Enabled = False
End If
End Sub
Private Sub DriveSlaveEnabled_CheckedChanged(sender As Object, e As System.EventArgs) Handles DriveSlaveEnabled.CheckedChanged
If DriveSlaveEnabled.Checked Then
DriveSlavePath.Enabled = True
DriveSlavePathLabel.Enabled = True
DriveSlaveBrowse.Enabled = True
DriveSlaveType.Enabled = True
DriveSlaveTypeLabel.Enabled = True
Else
DriveSlavePath.Enabled = False
DriveSlavePathLabel.Enabled = False
DriveSlaveBrowse.Enabled = False
DriveSlaveType.Enabled = False
DriveSlaveTypeLabel.Enabled = False
End If
End Sub
Private Sub MiscBootModeForce_CheckedChanged(sender As Object, e As System.EventArgs) Handles MiscBootModeForce.CheckedChanged
If MiscBootModeForce.Checked = True Then
MiscPROMFile.Enabled = True
MiscPROMFileLabel.Enabled = True
MiscPROMFileBrowse.Enabled = True
MiscPROMBootPath.Enabled = True
MiscPROMBootPathLabel.Enabled = True
MiscPROMBootPathBrowse.Enabled = True
MiscPROMBootArgs.Enabled = True
MiscPROMBootArgsLabel.Enabled = True
Else
MiscPROMFile.Enabled = False
MiscPROMFileLabel.Enabled = False
MiscPROMFileBrowse.Enabled = False
MiscPROMBootPath.Enabled = False
MiscPROMBootPathLabel.Enabled = False
MiscPROMBootPathBrowse.Enabled = False
MiscPROMBootArgs.Enabled = False
MiscPROMBootArgsLabel.Enabled = False
End If
End Sub
Private Sub Net8139Enable_CheckedChanged(sender As Object, e As System.EventArgs) Handles Net8139Enable.CheckedChanged
If Net8139Enable.Checked = True Then
Net8139MacLabel.Enabled = True
Net8139Mac1.Enabled = True
Net8139Mac2.Enabled = True
Net8139Mac3.Enabled = True
Net8139Mac4.Enabled = True
Net8139Mac5.Enabled = True
Net8139Mac6.Enabled = True
Else
Net8139MacLabel.Enabled = False
Net8139Mac1.Enabled = False
Net8139Mac2.Enabled = False
Net8139Mac3.Enabled = False
Net8139Mac4.Enabled = False
Net8139Mac5.Enabled = False
Net8139Mac6.Enabled = False
End If
End Sub
Private Sub Net3c90xEnable_CheckedChanged(sender As Object, e As System.EventArgs) Handles Net3c90xEnable.CheckedChanged
If Net3c90xEnable.Checked = True Then
Net3c90MacLabel.Enabled = True
Net3c90Mac1.Enabled = True
Net3c90Mac2.Enabled = True
Net3c90Mac3.Enabled = True
Net3c90Mac4.Enabled = True
Net3c90Mac5.Enabled = True
Net3c90Mac6.Enabled = True
Else
Net3c90MacLabel.Enabled = False
Net3c90Mac1.Enabled = False
Net3c90Mac2.Enabled = False
Net3c90Mac3.Enabled = False
Net3c90Mac4.Enabled = False
Net3c90Mac5.Enabled = False
Net3c90Mac6.Enabled = False
End If
End Sub
Private Sub BoardMouseGrabKey_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles BoardMouseGrabKey.KeyDown, BoardChangeCDKey.KeyDown, BoardComposeDialogKey.KeyDown, DisplayFullscreenKey.KeyDown
Dim KeyStrokes As String = ""
If e.Modifiers = Keys.Control Then
KeyStrokes = KeyStrokes & "CTRL"
ElseIf e.Modifiers = Keys.Alt Then
e.Handled = True
KeyStrokes = KeyStrokes & "ALT"
ElseIf e.Modifiers = Keys.Shift Then
KeyStrokes = KeyStrokes & "SHIFT"
ElseIf e.Modifiers = Keys.Alt + Keys.Control Then
KeyStrokes = KeyStrokes & "CTRL + ALT"
ElseIf e.Modifiers = Keys.Shift + Keys.Control Then
KeyStrokes = KeyStrokes & "CTRL + SHIFT"
ElseIf e.Modifiers = Keys.Alt + Keys.Shift Then
KeyStrokes = KeyStrokes & "SHIFT + ALT"
ElseIf e.Modifiers = Keys.Shift + Keys.Alt + Keys.Control Then
KeyStrokes = KeyStrokes & "CTRL + SHIFT + ALT"
ElseIf e.Modifiers = Keys.Control + Keys.Delete Then
KeyStrokes = ""
GoTo SetKey
ElseIf e.Modifiers = Keys.None Then
e.Handled = True
Else
KeyStrokes = KeyStrokes & e.Modifiers.ToString
End If
If e.KeyCode <> Keys.ControlKey And e.KeyCode <> Keys.Menu And e.KeyCode <> Keys.ShiftKey And e.Modifiers <> Keys.None Then
KeyStrokes = KeyStrokes & " + " & e.KeyCode.ToString
End If
SetKey:
sender.Text = KeyStrokes
End Sub
Private Sub DriveMasterBrowse_Click(sender As System.Object, e As System.EventArgs) Handles DriveMasterBrowse.Click
If FileBrowserDialog.ShowDialog = Forms.DialogResult.OK Then
DriveMasterPath.Text = FileBrowserDialog.FileName
End If
End Sub
Private Sub DriveSlaveBrowse_Click(sender As System.Object, e As System.EventArgs) Handles DriveSlaveBrowse.Click
If FileBrowserDialog.ShowDialog = Forms.DialogResult.OK Then
DriveSlavePath.Text = FileBrowserDialog.FileName
End If
End Sub
Private Sub DisplayDriverBrowse_Click(sender As System.Object, e As System.EventArgs) Handles DisplayDriverBrowse.Click
If FileBrowserDialog.ShowDialog = Forms.DialogResult.OK Then
DisplayDriver.Text = FileBrowserDialog.FileName
End If
End Sub
Private Sub MiscPROMFileBrowse_Click(sender As System.Object, e As System.EventArgs) Handles MiscPROMFileBrowse.Click
If FileBrowserDialog.ShowDialog = Forms.DialogResult.OK Then
MiscPROMFile.Text = FileBrowserDialog.FileName
End If
End Sub
Private Sub MiscPROMBootPathBrowse_Click(sender As System.Object, e As System.EventArgs) Handles MiscPROMBootPathBrowse.Click
If SelectDrive.ShowDialog = Forms.DialogResult.OK Then
MiscPROMBootPath.Text = SelectDrive.SelectedPath
End If
End Sub
Private Sub MiscNVRAMFileBrowse_Click(sender As System.Object, e As System.EventArgs) Handles MiscNVRAMFileBrowse.Click
If FileBrowserDialog.ShowDialog = Forms.DialogResult.OK Then
MiscNVRAMFile.Text = FileBrowserDialog.FileName
End If
End Sub
End Class

932
frmSettingsQemuVM.Designer.vb generated Normal file
View File

@ -0,0 +1,932 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSettingsQemuVM
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim ListViewItem10 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Name", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem11 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Icon", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem12 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Memory")
Dim ListViewItem13 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Drives", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem14 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Network", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem15 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Screen", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem16 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Mouse and keyboard")
Dim ListViewItem17 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Serial ports")
Dim ListViewItem18 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Miscelaneous")
Me.BrowseIcon = New System.Windows.Forms.Button
Me.OptionPanel = New System.Windows.Forms.Panel
Me.SerialFrame = New System.Windows.Forms.GroupBox
Me.PrinterPort = New System.Windows.Forms.ComboBox
Me.PrinterPortLabel = New System.Windows.Forms.Label
Me.PrinterOutputFile = New System.Windows.Forms.Panel
Me.PrinterOutputPath = New System.Windows.Forms.TextBox
Me.BrowsePOFile = New System.Windows.Forms.Button
Me.ModemPort = New System.Windows.Forms.ComboBox
Me.Label2 = New System.Windows.Forms.Label
Me.ModemOutputFile = New System.Windows.Forms.Panel
Me.ModemOutputPath = New System.Windows.Forms.TextBox
Me.BrowseMOFile = New System.Windows.Forms.Button
Me.MiscFrame = New System.Windows.Forms.GroupBox
Me.IgnoreIllegal = New System.Windows.Forms.CheckBox
Me.IdleCPU = New System.Windows.Forms.CheckBox
Me.Enable68kEmu = New System.Windows.Forms.CheckBox
Me.EnableJIT = New System.Windows.Forms.CheckBox
Me.NetworkFrame = New System.Windows.Forms.GroupBox
Me.NetInterfaceLabel = New System.Windows.Forms.Label
Me.NetInterface = New System.Windows.Forms.ComboBox
Me.RouterPanel = New System.Windows.Forms.Panel
Me.FTPPortsLabel = New System.Windows.Forms.Label
Me.ServerPortsLabel = New System.Windows.Forms.Label
Me.FTPPorts = New System.Windows.Forms.TextBox
Me.ServerPorts = New System.Windows.Forms.TextBox
Me.InputFrame = New System.Windows.Forms.GroupBox
Me.KeyboardGroup = New System.Windows.Forms.GroupBox
Me.KeyCodesPathLabel = New System.Windows.Forms.Label
Me.KeyCodesPath = New System.Windows.Forms.TextBox
Me.UseKeycodes = New System.Windows.Forms.CheckBox
Me.BrowseKeyCodes = New System.Windows.Forms.Button
Me.MouseGroup = New System.Windows.Forms.GroupBox
Me.ScrollLinesLabel = New System.Windows.Forms.Label
Me.WheelFunctionLabel = New System.Windows.Forms.Label
Me.WheelFunction = New System.Windows.Forms.ComboBox
Me.ScrollLines = New System.Windows.Forms.NumericUpDown
Me.ScreenFrame = New System.Windows.Forms.GroupBox
Me.CustResolution = New System.Windows.Forms.CheckBox
Me.VMResHeight = New System.Windows.Forms.ComboBox
Me.VMResWidth = New System.Windows.Forms.ComboBox
Me.VMResLabel = New System.Windows.Forms.Label
Me.VMResDef = New System.Windows.Forms.ComboBox
Me.RefeshRateLabel = New System.Windows.Forms.Label
Me.RefreshRate = New System.Windows.Forms.ComboBox
Me.StartModeLabel = New System.Windows.Forms.Label
Me.StartMode = New System.Windows.Forms.ComboBox
Me.IconFrame = New System.Windows.Forms.GroupBox
Me.IconDescription = New System.Windows.Forms.Label
Me.IconList = New System.Windows.Forms.ListView
Me.DrivesFrame = New System.Windows.Forms.GroupBox
Me.DrivesList = New System.Windows.Forms.ListBox
Me.MoveItemDown = New System.Windows.Forms.Button
Me.MoveItemUp = New System.Windows.Forms.Button
Me.AddDisk = New System.Windows.Forms.Button
Me.AddCD = New System.Windows.Forms.Button
Me.DeleteItem = New System.Windows.Forms.Button
Me.MemoryFrame = New System.Windows.Forms.GroupBox
Me.Memory = New System.Windows.Forms.TextBox
Me.MegabyteLabel = New System.Windows.Forms.Label
Me.MemoryLabel = New System.Windows.Forms.Label
Me.MemorySlider = New System.Windows.Forms.TrackBar
Me.VMNameFrame = New System.Windows.Forms.GroupBox
Me.VMNameHelp = New System.Windows.Forms.Label
Me.VMName = New System.Windows.Forms.TextBox
Me.OptionList = New System.Windows.Forms.ListView
Me.Options = New System.Windows.Forms.ColumnHeader
Me.Value = New System.Windows.Forms.ColumnHeader
Me.cmdCancel = New System.Windows.Forms.Button
Me.cmdOK = New System.Windows.Forms.Button
Me.OptionPanel.SuspendLayout()
Me.SerialFrame.SuspendLayout()
Me.PrinterOutputFile.SuspendLayout()
Me.ModemOutputFile.SuspendLayout()
Me.MiscFrame.SuspendLayout()
Me.NetworkFrame.SuspendLayout()
Me.RouterPanel.SuspendLayout()
Me.InputFrame.SuspendLayout()
Me.KeyboardGroup.SuspendLayout()
Me.MouseGroup.SuspendLayout()
CType(Me.ScrollLines, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ScreenFrame.SuspendLayout()
Me.IconFrame.SuspendLayout()
Me.DrivesFrame.SuspendLayout()
Me.MemoryFrame.SuspendLayout()
CType(Me.MemorySlider, System.ComponentModel.ISupportInitialize).BeginInit()
Me.VMNameFrame.SuspendLayout()
Me.SuspendLayout()
'
'BrowseIcon
'
Me.BrowseIcon.Location = New System.Drawing.Point(286, 12)
Me.BrowseIcon.Name = "BrowseIcon"
Me.BrowseIcon.Size = New System.Drawing.Size(75, 23)
Me.BrowseIcon.TabIndex = 6
Me.BrowseIcon.Text = "Browse..."
Me.BrowseIcon.UseVisualStyleBackColor = True
'
'OptionPanel
'
Me.OptionPanel.Controls.Add(Me.SerialFrame)
Me.OptionPanel.Controls.Add(Me.MiscFrame)
Me.OptionPanel.Controls.Add(Me.NetworkFrame)
Me.OptionPanel.Controls.Add(Me.InputFrame)
Me.OptionPanel.Controls.Add(Me.ScreenFrame)
Me.OptionPanel.Controls.Add(Me.IconFrame)
Me.OptionPanel.Controls.Add(Me.DrivesFrame)
Me.OptionPanel.Controls.Add(Me.MemoryFrame)
Me.OptionPanel.Controls.Add(Me.VMNameFrame)
Me.OptionPanel.Location = New System.Drawing.Point(371, 1)
Me.OptionPanel.Name = "OptionPanel"
Me.OptionPanel.Size = New System.Drawing.Size(373, 294)
Me.OptionPanel.TabIndex = 29
'
'SerialFrame
'
Me.SerialFrame.Controls.Add(Me.PrinterPort)
Me.SerialFrame.Controls.Add(Me.PrinterPortLabel)
Me.SerialFrame.Controls.Add(Me.PrinterOutputFile)
Me.SerialFrame.Controls.Add(Me.ModemPort)
Me.SerialFrame.Controls.Add(Me.Label2)
Me.SerialFrame.Controls.Add(Me.ModemOutputFile)
Me.SerialFrame.Location = New System.Drawing.Point(0, 3)
Me.SerialFrame.Name = "SerialFrame"
Me.SerialFrame.Size = New System.Drawing.Size(367, 279)
Me.SerialFrame.TabIndex = 8
Me.SerialFrame.TabStop = False
Me.SerialFrame.Text = "Serial ports"
'
'PrinterPort
'
Me.PrinterPort.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.PrinterPort.FormattingEnabled = True
Me.PrinterPort.Items.AddRange(New Object() {"COM 1", "COM 2", "COM 3", "COM 4", "COM 5", "COM 6", "LPT 1", "LPT 2", "LPT 3", "LPT 4", "LPT 5", "LPT 6", "File"})
Me.PrinterPort.Location = New System.Drawing.Point(76, 80)
Me.PrinterPort.Name = "PrinterPort"
Me.PrinterPort.Size = New System.Drawing.Size(69, 21)
Me.PrinterPort.TabIndex = 8
'
'PrinterPortLabel
'
Me.PrinterPortLabel.AutoSize = True
Me.PrinterPortLabel.Location = New System.Drawing.Point(6, 84)
Me.PrinterPortLabel.Name = "PrinterPortLabel"
Me.PrinterPortLabel.Size = New System.Drawing.Size(62, 13)
Me.PrinterPortLabel.TabIndex = 7
Me.PrinterPortLabel.Text = "Printer Port:"
'
'PrinterOutputFile
'
Me.PrinterOutputFile.Controls.Add(Me.PrinterOutputPath)
Me.PrinterOutputFile.Controls.Add(Me.BrowsePOFile)
Me.PrinterOutputFile.Location = New System.Drawing.Point(6, 100)
Me.PrinterOutputFile.Name = "PrinterOutputFile"
Me.PrinterOutputFile.Size = New System.Drawing.Size(360, 31)
Me.PrinterOutputFile.TabIndex = 9
'
'PrinterOutputPath
'
Me.PrinterOutputPath.Location = New System.Drawing.Point(3, 5)
Me.PrinterOutputPath.Name = "PrinterOutputPath"
Me.PrinterOutputPath.Size = New System.Drawing.Size(274, 20)
Me.PrinterOutputPath.TabIndex = 0
'
'BrowsePOFile
'
Me.BrowsePOFile.Location = New System.Drawing.Point(283, 4)
Me.BrowsePOFile.Name = "BrowsePOFile"
Me.BrowsePOFile.Size = New System.Drawing.Size(75, 23)
Me.BrowsePOFile.TabIndex = 4
Me.BrowsePOFile.Text = "Browse"
Me.BrowsePOFile.UseVisualStyleBackColor = True
'
'ModemPort
'
Me.ModemPort.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ModemPort.FormattingEnabled = True
Me.ModemPort.Items.AddRange(New Object() {"COM 1", "COM 2", "COM 3", "COM 4", "COM 5", "COM 6", "LPT 1", "LPT 2", "LPT 3", "LPT 4", "LPT 5", "LPT 6", "File"})
Me.ModemPort.Location = New System.Drawing.Point(76, 20)
Me.ModemPort.Name = "ModemPort"
Me.ModemPort.Size = New System.Drawing.Size(69, 21)
Me.ModemPort.TabIndex = 5
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(6, 24)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(67, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Modem Port:"
'
'ModemOutputFile
'
Me.ModemOutputFile.Controls.Add(Me.ModemOutputPath)
Me.ModemOutputFile.Controls.Add(Me.BrowseMOFile)
Me.ModemOutputFile.Location = New System.Drawing.Point(6, 40)
Me.ModemOutputFile.Name = "ModemOutputFile"
Me.ModemOutputFile.Size = New System.Drawing.Size(360, 31)
Me.ModemOutputFile.TabIndex = 6
'
'ModemOutputPath
'
Me.ModemOutputPath.Location = New System.Drawing.Point(3, 5)
Me.ModemOutputPath.Name = "ModemOutputPath"
Me.ModemOutputPath.Size = New System.Drawing.Size(274, 20)
Me.ModemOutputPath.TabIndex = 0
'
'BrowseMOFile
'
Me.BrowseMOFile.Location = New System.Drawing.Point(283, 4)
Me.BrowseMOFile.Name = "BrowseMOFile"
Me.BrowseMOFile.Size = New System.Drawing.Size(75, 23)
Me.BrowseMOFile.TabIndex = 4
Me.BrowseMOFile.Text = "Browse"
Me.BrowseMOFile.UseVisualStyleBackColor = True
'
'MiscFrame
'
Me.MiscFrame.Controls.Add(Me.IgnoreIllegal)
Me.MiscFrame.Controls.Add(Me.IdleCPU)
Me.MiscFrame.Controls.Add(Me.Enable68kEmu)
Me.MiscFrame.Controls.Add(Me.EnableJIT)
Me.MiscFrame.Location = New System.Drawing.Point(0, 3)
Me.MiscFrame.Name = "MiscFrame"
Me.MiscFrame.Size = New System.Drawing.Size(367, 279)
Me.MiscFrame.TabIndex = 8
Me.MiscFrame.TabStop = False
Me.MiscFrame.Text = "Miscelaneous"
'
'IgnoreIllegal
'
Me.IgnoreIllegal.AutoSize = True
Me.IgnoreIllegal.Location = New System.Drawing.Point(3, 86)
Me.IgnoreIllegal.Name = "IgnoreIllegal"
Me.IgnoreIllegal.Size = New System.Drawing.Size(172, 17)
Me.IgnoreIllegal.TabIndex = 3
Me.IgnoreIllegal.Text = "Ignore illegal memory accesses"
Me.IgnoreIllegal.UseVisualStyleBackColor = True
'
'IdleCPU
'
Me.IdleCPU.AutoSize = True
Me.IdleCPU.Location = New System.Drawing.Point(3, 63)
Me.IdleCPU.Name = "IdleCPU"
Me.IdleCPU.Size = New System.Drawing.Size(144, 17)
Me.IdleCPU.TabIndex = 2
Me.IdleCPU.Text = "Don't use CPU when idle"
Me.IdleCPU.UseVisualStyleBackColor = True
'
'Enable68kEmu
'
Me.Enable68kEmu.AutoSize = True
Me.Enable68kEmu.Enabled = False
Me.Enable68kEmu.Location = New System.Drawing.Point(3, 40)
Me.Enable68kEmu.Name = "Enable68kEmu"
Me.Enable68kEmu.Size = New System.Drawing.Size(191, 17)
Me.Enable68kEmu.TabIndex = 1
Me.Enable68kEmu.Text = "Enable 68k emulator (experimental)"
Me.Enable68kEmu.UseVisualStyleBackColor = True
'
'EnableJIT
'
Me.EnableJIT.AutoSize = True
Me.EnableJIT.Location = New System.Drawing.Point(3, 17)
Me.EnableJIT.Name = "EnableJIT"
Me.EnableJIT.Size = New System.Drawing.Size(120, 17)
Me.EnableJIT.TabIndex = 0
Me.EnableJIT.Text = "Enable JIT Compiler"
Me.EnableJIT.UseVisualStyleBackColor = True
'
'NetworkFrame
'
Me.NetworkFrame.Controls.Add(Me.NetInterfaceLabel)
Me.NetworkFrame.Controls.Add(Me.NetInterface)
Me.NetworkFrame.Controls.Add(Me.RouterPanel)
Me.NetworkFrame.Location = New System.Drawing.Point(0, 3)
Me.NetworkFrame.Name = "NetworkFrame"
Me.NetworkFrame.Size = New System.Drawing.Size(367, 279)
Me.NetworkFrame.TabIndex = 8
Me.NetworkFrame.TabStop = False
Me.NetworkFrame.Text = "Network"
'
'NetInterfaceLabel
'
Me.NetInterfaceLabel.AutoSize = True
Me.NetInterfaceLabel.Location = New System.Drawing.Point(14, 30)
Me.NetInterfaceLabel.Name = "NetInterfaceLabel"
Me.NetInterfaceLabel.Size = New System.Drawing.Size(95, 13)
Me.NetInterfaceLabel.TabIndex = 2
Me.NetInterfaceLabel.Text = "Network Interface:"
'
'NetInterface
'
Me.NetInterface.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.NetInterface.FormattingEnabled = True
Me.NetInterface.Items.AddRange(New Object() {"Slirp", "Router", "Disabled"})
Me.NetInterface.Location = New System.Drawing.Point(119, 27)
Me.NetInterface.Name = "NetInterface"
Me.NetInterface.Size = New System.Drawing.Size(242, 21)
Me.NetInterface.TabIndex = 1
'
'RouterPanel
'
Me.RouterPanel.Controls.Add(Me.FTPPortsLabel)
Me.RouterPanel.Controls.Add(Me.ServerPortsLabel)
Me.RouterPanel.Controls.Add(Me.FTPPorts)
Me.RouterPanel.Controls.Add(Me.ServerPorts)
Me.RouterPanel.Location = New System.Drawing.Point(9, 51)
Me.RouterPanel.Name = "RouterPanel"
Me.RouterPanel.Size = New System.Drawing.Size(360, 62)
Me.RouterPanel.TabIndex = 8
'
'FTPPortsLabel
'
Me.FTPPortsLabel.AutoSize = True
Me.FTPPortsLabel.Location = New System.Drawing.Point(5, 6)
Me.FTPPortsLabel.Name = "FTPPortsLabel"
Me.FTPPortsLabel.Size = New System.Drawing.Size(54, 13)
Me.FTPPortsLabel.TabIndex = 4
Me.FTPPortsLabel.Text = "FTP Ports"
'
'ServerPortsLabel
'
Me.ServerPortsLabel.AutoSize = True
Me.ServerPortsLabel.Location = New System.Drawing.Point(5, 33)
Me.ServerPortsLabel.Name = "ServerPortsLabel"
Me.ServerPortsLabel.Size = New System.Drawing.Size(65, 13)
Me.ServerPortsLabel.TabIndex = 6
Me.ServerPortsLabel.Text = "Server Ports"
'
'FTPPorts
'
Me.FTPPorts.Location = New System.Drawing.Point(110, 3)
Me.FTPPorts.Name = "FTPPorts"
Me.FTPPorts.Size = New System.Drawing.Size(242, 20)
Me.FTPPorts.TabIndex = 3
'
'ServerPorts
'
Me.ServerPorts.Location = New System.Drawing.Point(110, 30)
Me.ServerPorts.Name = "ServerPorts"
Me.ServerPorts.Size = New System.Drawing.Size(242, 20)
Me.ServerPorts.TabIndex = 5
'
'InputFrame
'
Me.InputFrame.Controls.Add(Me.KeyboardGroup)
Me.InputFrame.Controls.Add(Me.MouseGroup)
Me.InputFrame.Location = New System.Drawing.Point(0, 3)
Me.InputFrame.Name = "InputFrame"
Me.InputFrame.Size = New System.Drawing.Size(367, 279)
Me.InputFrame.TabIndex = 8
Me.InputFrame.TabStop = False
Me.InputFrame.Text = "Mouse and keyboard"
'
'KeyboardGroup
'
Me.KeyboardGroup.Controls.Add(Me.KeyCodesPathLabel)
Me.KeyboardGroup.Controls.Add(Me.KeyCodesPath)
Me.KeyboardGroup.Controls.Add(Me.UseKeycodes)
Me.KeyboardGroup.Controls.Add(Me.BrowseKeyCodes)
Me.KeyboardGroup.Location = New System.Drawing.Point(6, 126)
Me.KeyboardGroup.Name = "KeyboardGroup"
Me.KeyboardGroup.Size = New System.Drawing.Size(355, 147)
Me.KeyboardGroup.TabIndex = 0
Me.KeyboardGroup.TabStop = False
Me.KeyboardGroup.Text = "Keyboard"
'
'KeyCodesPathLabel
'
Me.KeyCodesPathLabel.AutoSize = True
Me.KeyCodesPathLabel.Location = New System.Drawing.Point(3, 49)
Me.KeyCodesPathLabel.Name = "KeyCodesPathLabel"
Me.KeyCodesPathLabel.Size = New System.Drawing.Size(109, 13)
Me.KeyCodesPathLabel.TabIndex = 3
Me.KeyCodesPathLabel.Text = "Path to keycodes file:"
'
'KeyCodesPath
'
Me.KeyCodesPath.Location = New System.Drawing.Point(3, 70)
Me.KeyCodesPath.Name = "KeyCodesPath"
Me.KeyCodesPath.Size = New System.Drawing.Size(307, 20)
Me.KeyCodesPath.TabIndex = 2
'
'UseKeycodes
'
Me.UseKeycodes.AutoSize = True
Me.UseKeycodes.Location = New System.Drawing.Point(6, 20)
Me.UseKeycodes.Name = "UseKeycodes"
Me.UseKeycodes.Size = New System.Drawing.Size(110, 17)
Me.UseKeycodes.TabIndex = 0
Me.UseKeycodes.Text = "Use keycodes file"
Me.UseKeycodes.UseVisualStyleBackColor = True
'
'BrowseKeyCodes
'
Me.BrowseKeyCodes.Location = New System.Drawing.Point(316, 68)
Me.BrowseKeyCodes.Name = "BrowseKeyCodes"
Me.BrowseKeyCodes.Size = New System.Drawing.Size(33, 23)
Me.BrowseKeyCodes.TabIndex = 1
Me.BrowseKeyCodes.Text = "..."
Me.BrowseKeyCodes.UseVisualStyleBackColor = True
'
'MouseGroup
'
Me.MouseGroup.Controls.Add(Me.ScrollLinesLabel)
Me.MouseGroup.Controls.Add(Me.WheelFunctionLabel)
Me.MouseGroup.Controls.Add(Me.WheelFunction)
Me.MouseGroup.Controls.Add(Me.ScrollLines)
Me.MouseGroup.Location = New System.Drawing.Point(6, 20)
Me.MouseGroup.Name = "MouseGroup"
Me.MouseGroup.Size = New System.Drawing.Size(355, 100)
Me.MouseGroup.TabIndex = 5
Me.MouseGroup.TabStop = False
Me.MouseGroup.Text = "Mouse"
'
'ScrollLinesLabel
'
Me.ScrollLinesLabel.AutoSize = True
Me.ScrollLinesLabel.Location = New System.Drawing.Point(6, 47)
Me.ScrollLinesLabel.Name = "ScrollLinesLabel"
Me.ScrollLinesLabel.Size = New System.Drawing.Size(74, 13)
Me.ScrollLinesLabel.TabIndex = 6
Me.ScrollLinesLabel.Text = "Lines to scroll:"
'
'WheelFunctionLabel
'
Me.WheelFunctionLabel.AutoSize = True
Me.WheelFunctionLabel.Location = New System.Drawing.Point(6, 21)
Me.WheelFunctionLabel.Name = "WheelFunctionLabel"
Me.WheelFunctionLabel.Size = New System.Drawing.Size(82, 13)
Me.WheelFunctionLabel.TabIndex = 5
Me.WheelFunctionLabel.Text = "Wheel function:"
'
'WheelFunction
'
Me.WheelFunction.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.WheelFunction.FormattingEnabled = True
Me.WheelFunction.Items.AddRange(New Object() {"Cursor Up/Down", "Page Up/Down"})
Me.WheelFunction.Location = New System.Drawing.Point(95, 18)
Me.WheelFunction.Name = "WheelFunction"
Me.WheelFunction.Size = New System.Drawing.Size(76, 21)
Me.WheelFunction.TabIndex = 3
'
'ScrollLines
'
Me.ScrollLines.Location = New System.Drawing.Point(95, 45)
Me.ScrollLines.Maximum = New Decimal(New Integer() {50, 0, 0, 0})
Me.ScrollLines.Name = "ScrollLines"
Me.ScrollLines.Size = New System.Drawing.Size(76, 20)
Me.ScrollLines.TabIndex = 4
'
'ScreenFrame
'
Me.ScreenFrame.Controls.Add(Me.CustResolution)
Me.ScreenFrame.Controls.Add(Me.VMResHeight)
Me.ScreenFrame.Controls.Add(Me.VMResWidth)
Me.ScreenFrame.Controls.Add(Me.VMResLabel)
Me.ScreenFrame.Controls.Add(Me.VMResDef)
Me.ScreenFrame.Controls.Add(Me.RefeshRateLabel)
Me.ScreenFrame.Controls.Add(Me.RefreshRate)
Me.ScreenFrame.Controls.Add(Me.StartModeLabel)
Me.ScreenFrame.Controls.Add(Me.StartMode)
Me.ScreenFrame.Location = New System.Drawing.Point(0, 3)
Me.ScreenFrame.Name = "ScreenFrame"
Me.ScreenFrame.Size = New System.Drawing.Size(367, 279)
Me.ScreenFrame.TabIndex = 5
Me.ScreenFrame.TabStop = False
Me.ScreenFrame.Text = "Screen"
'
'CustResolution
'
Me.CustResolution.AutoSize = True
Me.CustResolution.Location = New System.Drawing.Point(189, 23)
Me.CustResolution.Name = "CustResolution"
Me.CustResolution.Size = New System.Drawing.Size(114, 17)
Me.CustResolution.TabIndex = 8
Me.CustResolution.Text = "Custom Resolution"
Me.CustResolution.UseVisualStyleBackColor = True
'
'VMResHeight
'
Me.VMResHeight.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.VMResHeight.FormattingEnabled = True
Me.VMResHeight.Items.AddRange(New Object() {"384", "480", "600", "768", "864", "1024"})
Me.VMResHeight.Location = New System.Drawing.Point(139, 21)
Me.VMResHeight.Name = "VMResHeight"
Me.VMResHeight.Size = New System.Drawing.Size(46, 21)
Me.VMResHeight.TabIndex = 7
Me.VMResHeight.Visible = False
'
'VMResWidth
'
Me.VMResWidth.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.VMResWidth.FormattingEnabled = True
Me.VMResWidth.Items.AddRange(New Object() {"512", "640", "800", "1024", "1152", "1280"})
Me.VMResWidth.Location = New System.Drawing.Point(87, 21)
Me.VMResWidth.Name = "VMResWidth"
Me.VMResWidth.Size = New System.Drawing.Size(46, 21)
Me.VMResWidth.TabIndex = 6
Me.VMResWidth.Visible = False
'
'VMResLabel
'
Me.VMResLabel.AutoSize = True
Me.VMResLabel.Location = New System.Drawing.Point(6, 24)
Me.VMResLabel.Name = "VMResLabel"
Me.VMResLabel.Size = New System.Drawing.Size(60, 13)
Me.VMResLabel.TabIndex = 5
Me.VMResLabel.Text = "Resolution:"
'
'VMResDef
'
Me.VMResDef.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.VMResDef.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.VMResDef.FormattingEnabled = True
Me.VMResDef.Items.AddRange(New Object() {"512x384", "640x480", "800x600", "1024x768", "1152x864", "1280x1024", "Maximum"})
Me.VMResDef.Location = New System.Drawing.Point(87, 21)
Me.VMResDef.Name = "VMResDef"
Me.VMResDef.Size = New System.Drawing.Size(98, 21)
Me.VMResDef.TabIndex = 4
'
'RefeshRateLabel
'
Me.RefeshRateLabel.AutoSize = True
Me.RefeshRateLabel.Location = New System.Drawing.Point(6, 78)
Me.RefeshRateLabel.Name = "RefeshRateLabel"
Me.RefeshRateLabel.Size = New System.Drawing.Size(73, 13)
Me.RefeshRateLabel.TabIndex = 3
Me.RefeshRateLabel.Text = "Refresh Rate:"
'
'RefreshRate
'
Me.RefreshRate.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.RefreshRate.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.RefreshRate.FormattingEnabled = True
Me.RefreshRate.Items.AddRange(New Object() {"5 Hz", "7.5 Hz", "10 Hz", "15 Hz", "30 Hz", "60 Hz", "Dynamic"})
Me.RefreshRate.Location = New System.Drawing.Point(87, 75)
Me.RefreshRate.Name = "RefreshRate"
Me.RefreshRate.Size = New System.Drawing.Size(98, 21)
Me.RefreshRate.TabIndex = 2
'
'StartModeLabel
'
Me.StartModeLabel.AutoSize = True
Me.StartModeLabel.Location = New System.Drawing.Point(6, 51)
Me.StartModeLabel.Name = "StartModeLabel"
Me.StartModeLabel.Size = New System.Drawing.Size(43, 13)
Me.StartModeLabel.TabIndex = 1
Me.StartModeLabel.Text = "Start in:"
'
'StartMode
'
Me.StartMode.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.StartMode.FlatStyle = System.Windows.Forms.FlatStyle.System
Me.StartMode.FormattingEnabled = True
Me.StartMode.Items.AddRange(New Object() {"Window", "Fullscreen"})
Me.StartMode.Location = New System.Drawing.Point(87, 48)
Me.StartMode.Name = "StartMode"
Me.StartMode.Size = New System.Drawing.Size(98, 21)
Me.StartMode.TabIndex = 0
'
'IconFrame
'
Me.IconFrame.Controls.Add(Me.BrowseIcon)
Me.IconFrame.Controls.Add(Me.IconDescription)
Me.IconFrame.Controls.Add(Me.IconList)
Me.IconFrame.Location = New System.Drawing.Point(0, 3)
Me.IconFrame.Name = "IconFrame"
Me.IconFrame.Size = New System.Drawing.Size(367, 279)
Me.IconFrame.TabIndex = 3
Me.IconFrame.TabStop = False
Me.IconFrame.Text = "Icon"
'
'IconDescription
'
Me.IconDescription.Location = New System.Drawing.Point(6, 17)
Me.IconDescription.Name = "IconDescription"
Me.IconDescription.Size = New System.Drawing.Size(261, 18)
Me.IconDescription.TabIndex = 7
Me.IconDescription.Text = "If you want an icon that isn't in the list, click Browse."
'
'IconList
'
Me.IconList.Location = New System.Drawing.Point(9, 38)
Me.IconList.Name = "IconList"
Me.IconList.Size = New System.Drawing.Size(352, 235)
Me.IconList.TabIndex = 6
Me.IconList.UseCompatibleStateImageBehavior = False
'
'DrivesFrame
'
Me.DrivesFrame.Controls.Add(Me.DrivesList)
Me.DrivesFrame.Controls.Add(Me.MoveItemDown)
Me.DrivesFrame.Controls.Add(Me.MoveItemUp)
Me.DrivesFrame.Controls.Add(Me.AddDisk)
Me.DrivesFrame.Controls.Add(Me.AddCD)
Me.DrivesFrame.Controls.Add(Me.DeleteItem)
Me.DrivesFrame.Location = New System.Drawing.Point(0, 3)
Me.DrivesFrame.Name = "DrivesFrame"
Me.DrivesFrame.Size = New System.Drawing.Size(367, 279)
Me.DrivesFrame.TabIndex = 8
Me.DrivesFrame.TabStop = False
Me.DrivesFrame.Text = "Drives"
'
'DrivesList
'
Me.DrivesList.FormattingEnabled = True
Me.DrivesList.Items.AddRange(New Object() {"C:\Users\Usuario\Documents\ISOs\Mac OS 8.5 Spanish.iso", "C:\Users\Usuario\Documents\My Macs\Mac OS 8\Mac OS 8.dsk", "C:\Users\Usuario\Documents\My Macs\Mac OS 8\Data.dsk"})
Me.DrivesList.Location = New System.Drawing.Point(3, 17)
Me.DrivesList.Name = "DrivesList"
Me.DrivesList.Size = New System.Drawing.Size(358, 186)
Me.DrivesList.TabIndex = 6
'
'MoveItemDown
'
Me.MoveItemDown.Enabled = False
Me.MoveItemDown.Location = New System.Drawing.Point(328, 213)
Me.MoveItemDown.Name = "MoveItemDown"
Me.MoveItemDown.Size = New System.Drawing.Size(33, 23)
Me.MoveItemDown.TabIndex = 5
Me.MoveItemDown.Text = "\/"
Me.MoveItemDown.UseVisualStyleBackColor = True
'
'MoveItemUp
'
Me.MoveItemUp.Enabled = False
Me.MoveItemUp.Location = New System.Drawing.Point(294, 213)
Me.MoveItemUp.Name = "MoveItemUp"
Me.MoveItemUp.Size = New System.Drawing.Size(33, 23)
Me.MoveItemUp.TabIndex = 4
Me.MoveItemUp.Text = "/\"
Me.MoveItemUp.UseVisualStyleBackColor = True
'
'AddDisk
'
Me.AddDisk.Location = New System.Drawing.Point(6, 213)
Me.AddDisk.Name = "AddDisk"
Me.AddDisk.Size = New System.Drawing.Size(56, 23)
Me.AddDisk.TabIndex = 3
Me.AddDisk.Text = "Add disk"
Me.AddDisk.UseVisualStyleBackColor = True
'
'AddCD
'
Me.AddCD.Location = New System.Drawing.Point(68, 213)
Me.AddCD.Name = "AddCD"
Me.AddCD.Size = New System.Drawing.Size(56, 23)
Me.AddCD.TabIndex = 2
Me.AddCD.Text = "Add CD"
Me.AddCD.UseVisualStyleBackColor = True
'
'DeleteItem
'
Me.DeleteItem.Location = New System.Drawing.Point(130, 213)
Me.DeleteItem.Name = "DeleteItem"
Me.DeleteItem.Size = New System.Drawing.Size(90, 23)
Me.DeleteItem.TabIndex = 1
Me.DeleteItem.Text = "Delete selected"
Me.DeleteItem.UseVisualStyleBackColor = True
'
'MemoryFrame
'
Me.MemoryFrame.Controls.Add(Me.Memory)
Me.MemoryFrame.Controls.Add(Me.MegabyteLabel)
Me.MemoryFrame.Controls.Add(Me.MemoryLabel)
Me.MemoryFrame.Controls.Add(Me.MemorySlider)
Me.MemoryFrame.Location = New System.Drawing.Point(0, 3)
Me.MemoryFrame.Name = "MemoryFrame"
Me.MemoryFrame.Size = New System.Drawing.Size(367, 279)
Me.MemoryFrame.TabIndex = 8
Me.MemoryFrame.TabStop = False
Me.MemoryFrame.Text = "Memory"
'
'Memory
'
Me.Memory.Location = New System.Drawing.Point(273, 61)
Me.Memory.Name = "Memory"
Me.Memory.Size = New System.Drawing.Size(43, 20)
Me.Memory.TabIndex = 5
'
'MegabyteLabel
'
Me.MegabyteLabel.AutoSize = True
Me.MegabyteLabel.Location = New System.Drawing.Point(322, 63)
Me.MegabyteLabel.Name = "MegabyteLabel"
Me.MegabyteLabel.Size = New System.Drawing.Size(23, 13)
Me.MegabyteLabel.TabIndex = 4
Me.MegabyteLabel.Text = "MB"
'
'MemoryLabel
'
Me.MemoryLabel.AutoSize = True
Me.MemoryLabel.Location = New System.Drawing.Point(6, 35)
Me.MemoryLabel.Name = "MemoryLabel"
Me.MemoryLabel.Size = New System.Drawing.Size(257, 13)
Me.MemoryLabel.TabIndex = 2
Me.MemoryLabel.Text = "Set the amount of RAM to dedicate to this Macintosh"
'
'MemorySlider
'
Me.MemorySlider.Location = New System.Drawing.Point(3, 60)
Me.MemorySlider.Maximum = 100
Me.MemorySlider.Name = "MemorySlider"
Me.MemorySlider.Size = New System.Drawing.Size(264, 45)
Me.MemorySlider.TabIndex = 0
Me.MemorySlider.TickFrequency = 5
'
'VMNameFrame
'
Me.VMNameFrame.Controls.Add(Me.VMNameHelp)
Me.VMNameFrame.Controls.Add(Me.VMName)
Me.VMNameFrame.Location = New System.Drawing.Point(0, 3)
Me.VMNameFrame.Name = "VMNameFrame"
Me.VMNameFrame.Size = New System.Drawing.Size(367, 279)
Me.VMNameFrame.TabIndex = 4
Me.VMNameFrame.TabStop = False
Me.VMNameFrame.Text = "Name"
'
'VMNameHelp
'
Me.VMNameHelp.Location = New System.Drawing.Point(6, 17)
Me.VMNameHelp.Name = "VMNameHelp"
Me.VMNameHelp.Size = New System.Drawing.Size(363, 18)
Me.VMNameHelp.TabIndex = 7
Me.VMNameHelp.Text = "Do you want a change? Why not start with the name?"
'
'VMName
'
Me.VMName.Location = New System.Drawing.Point(9, 38)
Me.VMName.Name = "VMName"
Me.VMName.Size = New System.Drawing.Size(352, 20)
Me.VMName.TabIndex = 6
'
'OptionList
'
Me.OptionList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Options, Me.Value})
Me.OptionList.FullRowSelect = True
Me.OptionList.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.OptionList.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem10, ListViewItem11, ListViewItem12, ListViewItem13, ListViewItem14, ListViewItem15, ListViewItem16, ListViewItem17, ListViewItem18})
Me.OptionList.Location = New System.Drawing.Point(12, 11)
Me.OptionList.Name = "OptionList"
Me.OptionList.Size = New System.Drawing.Size(353, 376)
Me.OptionList.TabIndex = 28
Me.OptionList.UseCompatibleStateImageBehavior = False
Me.OptionList.View = System.Windows.Forms.View.Details
'
'Options
'
Me.Options.Text = "Options"
Me.Options.Width = 173
'
'Value
'
Me.Value.Text = "Value"
Me.Value.Width = 176
'
'cmdCancel
'
Me.cmdCancel.BackColor = System.Drawing.SystemColors.Control
Me.cmdCancel.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdCancel.Location = New System.Drawing.Point(665, 366)
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdCancel.Size = New System.Drawing.Size(73, 22)
Me.cmdCancel.TabIndex = 27
Me.cmdCancel.Text = "Cancel"
Me.cmdCancel.UseVisualStyleBackColor = True
'
'cmdOK
'
Me.cmdOK.BackColor = System.Drawing.SystemColors.Control
Me.cmdOK.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdOK.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdOK.Location = New System.Drawing.Point(585, 366)
Me.cmdOK.Name = "cmdOK"
Me.cmdOK.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdOK.Size = New System.Drawing.Size(73, 22)
Me.cmdOK.TabIndex = 26
Me.cmdOK.Text = "OK"
Me.cmdOK.UseVisualStyleBackColor = True
'
'frmSettingsQemuVM
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(750, 400)
Me.Controls.Add(Me.OptionPanel)
Me.Controls.Add(Me.OptionList)
Me.Controls.Add(Me.cmdCancel)
Me.Controls.Add(Me.cmdOK)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.Name = "frmSettingsQemuVM"
Me.Text = "Settings for %s"
Me.OptionPanel.ResumeLayout(False)
Me.SerialFrame.ResumeLayout(False)
Me.SerialFrame.PerformLayout()
Me.PrinterOutputFile.ResumeLayout(False)
Me.PrinterOutputFile.PerformLayout()
Me.ModemOutputFile.ResumeLayout(False)
Me.ModemOutputFile.PerformLayout()
Me.MiscFrame.ResumeLayout(False)
Me.MiscFrame.PerformLayout()
Me.NetworkFrame.ResumeLayout(False)
Me.NetworkFrame.PerformLayout()
Me.RouterPanel.ResumeLayout(False)
Me.RouterPanel.PerformLayout()
Me.InputFrame.ResumeLayout(False)
Me.KeyboardGroup.ResumeLayout(False)
Me.KeyboardGroup.PerformLayout()
Me.MouseGroup.ResumeLayout(False)
Me.MouseGroup.PerformLayout()
CType(Me.ScrollLines, System.ComponentModel.ISupportInitialize).EndInit()
Me.ScreenFrame.ResumeLayout(False)
Me.ScreenFrame.PerformLayout()
Me.IconFrame.ResumeLayout(False)
Me.DrivesFrame.ResumeLayout(False)
Me.MemoryFrame.ResumeLayout(False)
Me.MemoryFrame.PerformLayout()
CType(Me.MemorySlider, System.ComponentModel.ISupportInitialize).EndInit()
Me.VMNameFrame.ResumeLayout(False)
Me.VMNameFrame.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents BrowseIcon As System.Windows.Forms.Button
Friend WithEvents OptionPanel As System.Windows.Forms.Panel
Friend WithEvents SerialFrame As System.Windows.Forms.GroupBox
Friend WithEvents PrinterPort As System.Windows.Forms.ComboBox
Friend WithEvents PrinterPortLabel As System.Windows.Forms.Label
Friend WithEvents PrinterOutputFile As System.Windows.Forms.Panel
Friend WithEvents PrinterOutputPath As System.Windows.Forms.TextBox
Friend WithEvents BrowsePOFile As System.Windows.Forms.Button
Friend WithEvents ModemPort As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents ModemOutputFile As System.Windows.Forms.Panel
Friend WithEvents ModemOutputPath As System.Windows.Forms.TextBox
Friend WithEvents BrowseMOFile As System.Windows.Forms.Button
Friend WithEvents MiscFrame As System.Windows.Forms.GroupBox
Friend WithEvents IgnoreIllegal As System.Windows.Forms.CheckBox
Friend WithEvents IdleCPU As System.Windows.Forms.CheckBox
Friend WithEvents Enable68kEmu As System.Windows.Forms.CheckBox
Friend WithEvents EnableJIT As System.Windows.Forms.CheckBox
Friend WithEvents NetworkFrame As System.Windows.Forms.GroupBox
Friend WithEvents NetInterfaceLabel As System.Windows.Forms.Label
Friend WithEvents NetInterface As System.Windows.Forms.ComboBox
Friend WithEvents RouterPanel As System.Windows.Forms.Panel
Friend WithEvents FTPPortsLabel As System.Windows.Forms.Label
Friend WithEvents ServerPortsLabel As System.Windows.Forms.Label
Friend WithEvents FTPPorts As System.Windows.Forms.TextBox
Friend WithEvents ServerPorts As System.Windows.Forms.TextBox
Friend WithEvents InputFrame As System.Windows.Forms.GroupBox
Friend WithEvents KeyboardGroup As System.Windows.Forms.GroupBox
Friend WithEvents KeyCodesPathLabel As System.Windows.Forms.Label
Friend WithEvents KeyCodesPath As System.Windows.Forms.TextBox
Friend WithEvents UseKeycodes As System.Windows.Forms.CheckBox
Friend WithEvents BrowseKeyCodes As System.Windows.Forms.Button
Friend WithEvents MouseGroup As System.Windows.Forms.GroupBox
Friend WithEvents ScrollLinesLabel As System.Windows.Forms.Label
Friend WithEvents WheelFunctionLabel As System.Windows.Forms.Label
Friend WithEvents WheelFunction As System.Windows.Forms.ComboBox
Friend WithEvents ScrollLines As System.Windows.Forms.NumericUpDown
Friend WithEvents ScreenFrame As System.Windows.Forms.GroupBox
Friend WithEvents CustResolution As System.Windows.Forms.CheckBox
Friend WithEvents VMResHeight As System.Windows.Forms.ComboBox
Friend WithEvents VMResWidth As System.Windows.Forms.ComboBox
Friend WithEvents VMResLabel As System.Windows.Forms.Label
Friend WithEvents VMResDef As System.Windows.Forms.ComboBox
Friend WithEvents RefeshRateLabel As System.Windows.Forms.Label
Friend WithEvents RefreshRate As System.Windows.Forms.ComboBox
Friend WithEvents StartModeLabel As System.Windows.Forms.Label
Friend WithEvents StartMode As System.Windows.Forms.ComboBox
Friend WithEvents IconFrame As System.Windows.Forms.GroupBox
Friend WithEvents IconDescription As System.Windows.Forms.Label
Friend WithEvents IconList As System.Windows.Forms.ListView
Friend WithEvents DrivesFrame As System.Windows.Forms.GroupBox
Friend WithEvents DrivesList As System.Windows.Forms.ListBox
Friend WithEvents MoveItemDown As System.Windows.Forms.Button
Friend WithEvents MoveItemUp As System.Windows.Forms.Button
Friend WithEvents AddDisk As System.Windows.Forms.Button
Friend WithEvents AddCD As System.Windows.Forms.Button
Friend WithEvents DeleteItem As System.Windows.Forms.Button
Friend WithEvents MemoryFrame As System.Windows.Forms.GroupBox
Friend WithEvents Memory As System.Windows.Forms.TextBox
Friend WithEvents MegabyteLabel As System.Windows.Forms.Label
Friend WithEvents MemoryLabel As System.Windows.Forms.Label
Friend WithEvents MemorySlider As System.Windows.Forms.TrackBar
Friend WithEvents VMNameFrame As System.Windows.Forms.GroupBox
Friend WithEvents VMNameHelp As System.Windows.Forms.Label
Friend WithEvents VMName As System.Windows.Forms.TextBox
Friend WithEvents OptionList As System.Windows.Forms.ListView
Friend WithEvents Options As System.Windows.Forms.ColumnHeader
Friend WithEvents Value As System.Windows.Forms.ColumnHeader
Public WithEvents cmdCancel As System.Windows.Forms.Button
Public WithEvents cmdOK As System.Windows.Forms.Button
End Class

120
frmSettingsQemuVM.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

12
frmSettingsQemuVM.vb Normal file
View File

@ -0,0 +1,12 @@
Public Class frmSettingsQemuVM
Private Sub frmSettingsQemuVM_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
LoadSettings()
End Sub
Public Sub LoadSettings()
Dim x As String
x = "qemu-system-ppc.exe -L pc-bios -boot d -m " _
+ 1024 + " -M mac99 -prom-env " & Chr(34) & "auto-boot?=true" & Chr(34) & " -prom-env " & Chr(34) & "boot-args=-v" & Chr(34) & " -prom-env " & Chr(34) & "vga-ndrv?=true" & Chr(34) & " -drive file=MacOS9.2.iso,format=raw,media=cdrom -drive file=MacOS9.2.img,format=raw,media=disk -sdl -netdev user,id=network01 -device sungem,netdev=network01 "
End Sub
End Class

1408
frmSettingsSheepVM.Designer.vb generated Normal file

File diff suppressed because it is too large Load Diff

241
frmSettingsSheepVM.resX Normal file
View File

@ -0,0 +1,241 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ControlInfo.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>5, 7</value>
</metadata>
<metadata name="Icons.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>184, 6</value>
</metadata>
<metadata name="Browser.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>103, 8</value>
</metadata>
<metadata name="DriveListContext.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>252, 5</value>
</metadata>
<metadata name="DriveIcons.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>380, 6</value>
</metadata>
<data name="DriveIcons.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACq
DwAAAk1TRnQBSQFMAgEBAwEAAdABAQHQAQEBEAEAARABAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFA
AwABEAMAAQEBAAEgBgABEBIAAy0BRQFaAVcBWgHFAVwBWQFcAcwBWwFZAVsBxAGQAYsBjgH/A10B0gNd
AdIDXQHSA10B0gNdAdIDXQHSAV4CXAHOAVgCVgG7AVgCVgG7AVwBWgFcAc0DQgF0QAADOgFgA14BzgFA
AjgB/wFAAjgB/wFAAjgB/wFAAjgB/wFAAjgB/wFAAjgB/wFAAjgB/wFAAjgB/wFAAjgB/wFAAjgB/wFA
AjgB/wFAAjgB/wNYAbkDOgFgQAADXwHoAdEBOAGuAf8BzAEuAacB/wHBAYgBrAH/Ab8CvQH/Ab8CvQH/
AaoCpgH/AaACnAH/AZQCkAH/AY0BigGJAf8BiwGJAYgB/wGBAkMB/wGSAQ0BPwH/AaUBHQGNAf8BuQEm
AZoB/wFRAlABnxAAAw4BEwM3AVsDUQGiA18B2wNcAeoDXwHbA1IBowM4AV0DDwEUDAADZQHlASMCHgH/
AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGv
AbAB/wG0Aa8BsAH/AbQBrwGwAf8BlwHGAaUB/wG0Aa8BsAH/ASMCHgH/A2UB5UAAA2QB8QHAATUBpAH/
Ab8BKQGdAf8BwAGLAa0B/wHTAtIB/wGsAR4BjwH/Aa4BIQGRAf8BqgKmAf8BnQKaAf8BkAKNAf8BiQKF
Af8BPAE5ATgB/wGKAQsBNwH/AZ0BGAGGAf8BsQEhAZMB/wNOAZkMAAMqAUADVAGsBP8B+gH7AfoB/wPn
Af8D1gH/AsoBywH/AcABvgG/Af8BsAG9AbgB/wNUAawDKAE8CAABQAI4Af8BtAGvAbAB/wHYAdYB1QH/
AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZ
AdgB/wE+AjoB/wECAbEBJwH/ASQCIQH/AbQBrwGwAf8BQAI4Af9AAANhAe4BxQE3AaYB/wHAASwBnwH/
AccBkgG1Af8D8gH/AbEBIQGTAf8BtAEjAZUB/wHFAsIB/wG6ArgB/wGoAqYB/wGdAZoBmQH/AYYCggH/
AY8BDQE8Af8BngEZAYUB/wGyASIBlAH/A04BmQgAAyoBQQNZAccE/wP9Af8D7QH/A94B/wPOAf8BvAG7
AbwB/wGyArMB/wGpAqwB/wOfAf8DWQHHAyUBNwQAAUACOAH/AbQBrwGwAf8B2AHWAdUB/wHlAdkB2AH/
AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8BJgGO
ATMB/wEAAeoBGQH/ARkCFgH/AbQBrwGwAf8BQAI4Af9AAANhAe4BxwE6AakB/wHAAS8BoAH/AccBlQG1
Bf8BtgEvAZsB/wG6ATABmwH/AfQC8wH/A+0B/wHTAtIB/wHCAsAB/wGiAqAB/wGTAQ8BPgH/AZ0BGAGE
Af8BsgEiAZQB/wNOAZkEAAMPARQDVAGsAdsB2gHYAf8B4AHfAd4B/wP3Af8D9wH/AeUC5gH/A88B/wK5
AboB/wOzAf8BmQKYAf8DjQH/AaQBpQGkAf8DVQGtAwwBEAFAAjgB/wG9AbgBuQH/AdgB1gHVAf8B5QHZ
AdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/AeUB2QHYAf8B5QHZAdgB/wHlAdkB2AH/
AT4COgH/AQABwAElAf8BKQEqASgB/wG1AbABsQH/AUACOAH/QAADYQHuAcgBPQGqAf8ByAE3AagB/wGz
ATIBnAH/AbgBiQGqAf8BpAE0AZMB/wGkATIBkgH/AbsBiwGsAf8BuQGKAakB/wG0AYIBpQH/Aa4BRQGe
Af8BogE1AY8B/wGTAQ4BQAH/AZoBFgGCAf8BswEfAZMB/wNOAZkEAAM6AWABXwFgAWIB+wHBAc8B2QH/
AckCygH/Ad8B4QHdAf8B+QH6AfkB/wNnAfIDYQHkA18B8wKgAaEB/wGOAY8BjgH/AZ4BnwGdAf8BsAGv
AbEB/wHEAcABxgH/AzUBVgFAAjgB/wHEAr8B/wHYAdYB1SX/AckB9wHZAf8B2QLWAf8BxgHCAcEB/wFA
AjgB/0AAA2EB7gHEATwBqQH/Ab4BQwGlAf8BwAFCAacB/wG5ATcBnQH/AbwBOwGiAf8BvAE3AZ8B/wG3
ATABmQH/AbYBLgGYAf8BtQEtAZcB/wGzASsBlQH/AbMBKQGSAf8BswEvAZUB/wGzASUBlAH/AbUBHAGS
Af8DTgGZBAADUwGlAbMB3QHkAf8BugHQAeoB/wHKAcYB5gH/AdEBxwHaAf8DXgHZA1ABngNOAZUDUQGi
A1wB3wGrAaYBrQH/AbYBrgG6Af8BrAGmAbAB/wGtAagBsAH/A1EBnAM6AWADZQHlAbQBrwGwAf8BtAGv
AbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/AbQBrwGwAf8BtAGvAbAB/wG0Aa8BsAH/
AbQBrwGwAf8BtQGwAbEB/wG0Aa8BsAH/A2UB5QM6AWBAAANhAe4BwAFEAagB/wGwATwBnQH/Ad0BxgHR
Af8B+AH2AfEB/wH4AfUB8AH/AfgB9QHuAf8B+AH0Ae0B/wH4AfQB6wH/AfgB8wHqAf8B+AHzAekB/wH4
AfIB5wH/Ad0BxgHRAf8BvgGIAaYB/wG2ARgBkwH/A04BmQQAA14BzgGVAZQBlgH/AZMBlQGZAf8BowGe
Aa4B/wNZAfUDUgGhAz4BawMrAUMDQAFxA1UBsANNAfoBmQGVAZsB/wGSAZABkQH/A5QB/wNYAbwEAAM/
AW0DVQG1A2IB9gHhAeAB4QH/AusB7QH/Au0B7wH/Au0B7wH/Au0B7wH/Au0B7wH/AuwB7gH/Ad8B3gHf
Af8DbQH3A1UBtQM/AW1EAANhAe4BwwGCAasB/wGwATwBnQH/AfoB+wH4Af8B+QH4AfUB/wH5AfgB9AH/
AfkB9wHzAf8B+QH3AfIB/wH5AfYB8QH/AfkB9gHwAf8B+QH1Ae8B/wH5AfUB7gH/AfsB/AH0Af8BvgGI
AaYB/wG6ARwBlQH/A04BmQQAA2AB1AKTAZEB/wGIAYkBhgH/AYcBiAGGAf8DYgHvA1EBnwM6AWEDGAEi
AzoBYQNTAagDbQH3AaYBpQGiAf8BrAGjAagB/wG0AaYBrAH/A1sBxAwAAwoBDQNRAaADWwHEA14B2ANe
AdgDXgHYA14B2ANaAb0DUQGgAwQBBUwAA2EB7gHDAYUBrAH/AbABPAGdAf8C+gH4Af8B+QH3AfUB/wH5
AfcB9AH/AfkB9gHyAf8B+QH2AfIB/wH5AfYB8AH/AfkB9QHvAf8B+QH1Ae4B/wH4AfQB7QH/AvsB8wH/
Ab4BiAGmAf8BvgEgAZsB/wNOAZkEAANbAcMBmAGXAZgB/wGWAZABlwH/AZgBkgGcAf8DXwH7A1cBuANI
AYMDQwF4A0gBgwNZAcIBpgGiAUAB/QGKAbkBPAH/AUEBxQGVAf8BkQHJAbEB/wNUAa+AAANhAe4BxQGJ
Aa8B/wGwATwBnQH/AvoB+AH/AfkB+AH1Af8B+QH3AfQB/wH5AfcB9AH/AfkB9wHyAf8B+QH2AfEB/wH5
AfUB8AH/AfkB9QHvAf8B+QH1Ae4B/wL7AfQB/wG+AYgBpgH/AcABJAGeAf8DTgGZBAADTgGUAaYBnwGp
Af8BmAGSAZwB/wGSAZABkwH/AZwBmwGcAf8DZQH0A1oBxQNWAbYDWwHGA2UB9AGbAZ0BkQH/AYEBqQFD
Af8BBQHTAYEB/wEAAf8BpAH/AUUCRgF/gAADYQHuAcUBjAGwAf8BsAE8AZ0B/wL6AfkB/wH5AfgB9gH/
AfkB+AH1Af8B+QH4AfUB/wH5AfcB8wH/AfkB9gHyAf8B+QH2AfEB/wH5AfUB8AH/AfkB9QHvAf8B+gH7
AfQB/wG+AYgBpgH/AcQBKAGiAf8DTgGZBAADLwFJA2QB7AGVAZYBlQH/AZ8BoAGfAf8BuAG5AbcB/wHd
AdwB3QH/AfcC+AH/A18B+wPPAf8CuwG8Af8CqwGuAf8BogGdAaIB/wGOAaQBmwH/AVkCZwHyAyABL4AA
A2cB8gHHAY8BsgH/AbABPAGdAf8C+gH5Af8B+QH4AfcB/wH5AfgB9gH/AfkB+AH1Af8B+QH3AfQB/wH5
AfcB8wH/AfkB9gHyAf8B+QH2AfEB/wH5AfUB8AH/AfoB+wH1Af8BvgGIAaYB/wHLAS0BqAH/A04BmAQA
AwwBEANIAYYCtQG0Af8DuQH/Ac8BzgHPAf8B7AHrAewB/wP7Af8D6wH/A9YB/wPFAf8DtQH/Aa8BrgGv
Af8BswGuAbEB/wNDAXiEAANcAdED1QH/AbABPAGdAf8D+gH/AfoC+QH/AvoB+AH/AfoB+QH4Af8B+wH5
AfcB/wH6AfkB9gH/AfoB+AH1Af8B+gH4AfMB/wH6AfcB8gH/AvwB9wH/Ab4BiAGmAf8D1QH/AUwBSwFM
AY8IAAMOARMDUAGbAdgB1wHYAf8B6gHoAeoB/wP1Af8D+AH/AegC6QH/A9kB/wPLAf8DxwH/AcECwAH/
A0wBkAMHAQmEAANVAbUBPAERATEB/wGwATwBnQH/AvoB+AH/AfcB9QHzAf8B9AHyAfAB/wHzAe8B7AH/
AfAB7AHpAf8B7wHrAecB/wHvAesB5gH/Ae8B6wHmAf8B7wHqAeYB/wHxAfAB6wH/Ab4BiAGmAf8BPAER
ATEB/wNKAY0MAAMKAQ4DPwFtA2EB4gj/AfcC9gH/A+sB/wPfAf8DXgHdAz0BaAMEAQaIAANdAdMB0AGh
AcAB/wHQAaEBwAH/Ad0BxgHRAf8B3QHGAdEB/wHdAcYB0QH/Ad0BxgHRAf8B3QHGAdEB/wHdAcYB0QH/
Ad0BxgHRAf8B3QHGAdEB/wHdAcYB0QH/Ad0BxgHRAf8B0AGhAcAB/wNZAfUDQQFyEAADAgEDAxYBHgM2
AVkDTQGRA1QBpgNMAZIDNAFUAxABFpAAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEBBQABgBcA
A/8DAAL/BgAB8AEHBgAB4AEDBgABwAEBBgABgAcAAYAHAAGABwABgAEAAYABAQQAAYABAAHgAQcEAAGA
AQAC/wQAAYABAAL/BAABgAEAAv8EAAGAAQEC/wQAAcABAQL/BAAB4AEDAv8EAAHwAQ8C/wIACw==
</value>
</data>
<data name="IconInfo.Text" xml:space="preserve">
<value>Some personalization to your Mac could come very handy. In this page
you can change an icon of your desire for your emulated Mac. Scroll
the bar to see more icons, or click in "Add" to add a picture and set it as
the icon for your Mac</value>
</data>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>44</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAIAICAQAAEABADoAgAAJgAAABAQEAABAAQAKAEAAA4DAAAoAAAAIAAAAEAAAAABAAQAAAAAAIAC
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAAAACAAIAAgIAAAMDAwACAgIAAAAD/AAD/
AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAAAAAAAAAAAAAB3d3d3d3d3d3d3cAAAAAAAd3d3
d3d3d3d3d3AAAAAAAHd3d3d3d3d3d3dwAAAAAAAAAAAAAAAAAAAAAAAAAAAHd3d3d3d3d3d3d3cAAAAA
B3d3d3d3d3d3d3d3AAAAAAd3d3d3d3d3d3d3dwAAAAAHd3d3d3d3d3d3d3cAAAAAB3AHd3d3d3AAAAd3
AAAAAAd3d3d3d3d3d3d3dwAAAAAHd3d3d3d3d3d3d3cAAAAAB3d3d3d3d3d3d3d3AAAAAAd3d3d3d3d3
d3d3dwAAAAAHdwAAAAAAAAAAB3cAAAAAB3B3d3d3d3d3d3B3AAAAAAdwd3d3d3d3d3dwdwAAAAAHcHd3
dwAAd3d3cHcAAAAAB3B3d3B3dwd3d3B3AAAAAAdwd3d3d3d3d3dwdwAAAAAHcHd3d3AHd3d3cHcAAAAA
B3B3d3d3B3d3d3B3AAAAAAdwd3d3dwd3d3dwdwAAAAAHcHd3B3cHdwd3cHcAAAAAB3B3dwd3B3cHd3B3
AAAAAAdwd3d3d3d3d3dwdwAAAAAHcHd3d3d3d3d3cHcAAAAAB3B3d3d3d3d3d3B3AAAAAAd3AAAAAAAA
AAAHdwAAAAAHd3d3d3d3d3d3d3cAAAAAAHd3d3d3d3d3d3dwAAAAAAAAAAAAAAAAAAAAAAAA+AAAD/gA
AA/4AAAP+AAAD/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AA
AAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/AAAAfwAAAH8AAAB/gA
AA8oAAAAEAAAACAAAAABAAQAAAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAgAAAAICAAIAA
AACAAIAAgIAAAMDAwACAgIAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAAAAAAAAd3d3d3
AAAAAAAAAAAAAAB3d3d3d3AAAHB3d3AAcAAAd3d3d3dwAABwAAAAAHAAAHB3d3dwcAAAcHcAB3BwAABw
cHdwcHAAAHB3cHdwcAAAcHBwcHBwAABwd3d3cHAAAHAAAAAAcAAAd3d3d3dwAAAAAAAAAAAAwAcAAMAH
AACAAwAAgAMAAIADAACAAwAAgAMAAIADAACAAwAAgAMAAIADAACAAwAAgAMAAIADAACAAwAAwAcAAA==
</value>
</data>
</root>

943
frmSettingsSheepVM.vb Normal file
View File

@ -0,0 +1,943 @@
Imports System.IO
Friend Class frmSettingsSheepVM
Inherits System.Windows.Forms.Form
Public ConfigFilePath As String
Public VMName As String
Public SelectedItem As Integer
Public Sub LoadSettingsFrom(Item As Integer)
ConfigFilePath = 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(ConfigFilePath)
Dim ConfigValues As New ArrayList()
Dim strContainer As String = ""
MacName.Text = frmMain.VMList.Items.Item(SelectedItem).Text
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 ConfigValues(x).ToString.Substring(0, 5) = "extfs" 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
If ConfigValues(x).ToString.Length > 7 Then
If ConfigValues(x).ToString.Substring(0, 7) = "screen " 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"
MediaMode.SelectedIndex = 0
Case "dga"
MediaMode.SelectedIndex = 1
End Select
For c As Integer = 0 To MediaResY.Items.Count - 1
If FoundX = True And FoundY = True Then
Exit For
End If
If InStr(MediaResX.Items.Item(c).ToString, b(1)) <> 0 Then
MediaResX.SelectedIndex = c
FoundX = True
ElseIf c = MediaResX.Items.Count - 1 And FoundX = False Then
MediaResX.Items.Add(b(1))
MediaResX.SelectedIndex = MediaResX.Items.Count - 1
End If
If InStr(MediaResY.Items.Item(c).ToString, b(2)) <> 0 Then
MediaResY.SelectedIndex = c
FoundY = True
ElseIf c = MediaResY.Items.Count - 1 And FoundY = False Then
MediaResY.Items.Add(b(2))
MediaResY.SelectedIndex = MediaResY.Items.Count - 1
End If
Next
End If
End If
If InStr(ConfigValues(x), "windowsmodes") <> 0 Then
End If
If InStr(ConfigValues(x), "screenmodes") <> 0 Then
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 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") <> 0 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"
MediaRefresh.SelectedIndex = 0
Case "8"
MediaRefresh.SelectedIndex = 1
Case "6"
MediaRefresh.SelectedIndex = 2
Case "4"
MediaRefresh.SelectedIndex = 3
Case "2"
MediaRefresh.SelectedIndex = 4
Case "1"
MediaRefresh.SelectedIndex = 5
End Select
End If
If InStr(ConfigValues(x), "gfxaccel") <> 0 Then
If ConfigValues(x).ToString.Substring(9) = "true" Then
MediaEnableQuickDraw.Checked = True
End If
End If
If InStr(ConfigValues(x), "nocdrom") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(8)
Case "false"
MediaEnableCD.Checked = True
Case "true"
MediaEnableCD.Checked = False
End Select
End If
If InStr(ConfigValues(x), "nonet") <> 0 Then
If ConfigValues(x).ToString.Substring(6) = "true" Then
NetEnable.Checked = False
End If
End If
If InStr(ConfigValues(x), "nosound") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(8)
Case "false"
MediaEnableSound.Checked = True
Case "true"
MediaEnableSound.Checked = False
End Select
End If
If InStr(ConfigValues(x), "nogui") <> 0 Then
If ConfigValues(x).ToString.Substring(6) = "true" Then
MiscEnableGUI.Checked = True
End If
End If
If InStr(ConfigValues(x), "noclipconversion") <> 0 Then
If ConfigValues(x).ToString.Substring(17, 4) = "true" Then
MiscClipConv.Checked = True
End If
End If
If InStr(ConfigValues(x), "ignoresegv") <> 0 Then
If ConfigValues(x).ToString.Substring(11) = "true" Then
MiscIgnoreSegv.Checked = True
End If
End If
If InStr(ConfigValues(x), "ignoreillegal") <> 0 Then
If ConfigValues(x).ToString.Substring(14) = "true" Then
MiscIgnoreIllegal.Checked = True
End If
End If
If InStr(ConfigValues(x), "jit") <> 0 Then
If ConfigValues(x).ToString.Substring(4) = "true" Then
JITEnable.Checked = True
End If
End If
If InStr(ConfigValues(x), "jit68k") <> 0 Then
If ConfigValues(x).ToString.Substring(7) = "true" Then
JIT68kEnable.Checked = True
End If
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), "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), "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), "keycodefile") <> 0 Then
InputKeyCodesPath.Text = ConfigValues(x).ToString.Substring(13)
End If
If InStr(ConfigValues(x), "mousewheelmode") <> 0 Then
Select Case ConfigValues(x).ToString.Substring(15, 1)
Case "0"
InputMouseWheelMode.SelectedIndex = 0
Case "1"
InputMouseWheelMode.SelectedIndex = 1
End Select
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), "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), "etherguid") <> 0 Then
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), "etherfakeaddress") <> 0 Then
NetFakeAddress.Text = ConfigValues(x).ToString.Substring(17)
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), "tcp_port") <> 0 Then
NetServerPorts.Text = ConfigValues(x).ToString.Substring(9)
End If
If InStr(ConfigValues(x), "ftp_port_list") <> 0 Then
NetFTPPorts.Text = ConfigValues(x).ToString.Substring(14)
End If
If InStr(ConfigValues(x), "portfile0") <> 0 Then
SerialAFilePath.Text = ConfigValues(x).ToString.Substring(10)
End If
If InStr(ConfigValues(x), "portfile1") <> 0 Then
SerialBFilePath.Text = ConfigValues(x).ToString.Substring(10)
End If
EMCEditor.Items.Add(ConfigValues(x))
Next
End Sub
Public Sub SaveSettings()
Dim ConfigFile As String = ""
'Set the Text of the TextBox as the Mac name
'frmMain.VMList.Items.Item(VMName).Text = MacName.Text
'Recollect data
For x As Integer = 0 To DriveList.Items.Count - 1
Select Case DriveList.Items.Item(x).SubItems(1).Text
Case "CD"
ConfigFile = ConfigFile & "cdrom " & DriveList.Items.Item(x).Text & vbCrLf
Case "Disk"
ConfigFile = ConfigFile & "disk " & DriveList.Items.Item(x).Text & vbCrLf
Case "Floppy"
ConfigFile = ConfigFile & "floppy " & DriveList.Items.Item(x).Text & vbCrLf
End Select
If DriveList.Items.Item(x).SubItems(2).Text = "*" Then
ConfigFile = ConfigFile & "bootdrive " & x & vbCrLf
End If
Next
ConfigFile = ConfigFile & "screen "
If MediaMode.SelectedIndex = 0 Then
ConfigFile = ConfigFile & "win/"
Else
ConfigFile = ConfigFile & "dga/"
End If
ConfigFile = ConfigFile & MediaResX.SelectedItem.ToString & "/"
ConfigFile = ConfigFile & MediaResY.SelectedItem.ToString & vbCrLf
If SerialA.SelectedItem.ToString <> "None" Then
Select Case SerialA.SelectedIndex
Case 0
ConfigFile = ConfigFile & "seriala COM1" & vbCrLf
Case 1
ConfigFile = ConfigFile & "seriala COM2" & vbCrLf
Case 2
ConfigFile = ConfigFile & "seriala COM3" & vbCrLf
Case 3
ConfigFile = ConfigFile & "seriala COM4" & vbCrLf
Case 4
ConfigFile = ConfigFile & "seriala COM5" & vbCrLf
Case 5
ConfigFile = ConfigFile & "seriala COM6" & vbCrLf
Case 6
ConfigFile = ConfigFile & "seriala LPT1" & vbCrLf
Case 7
ConfigFile = ConfigFile & "seriala LP2" & vbCrLf
Case 8
ConfigFile = ConfigFile & "seriala LPT3" & vbCrLf
Case 9
ConfigFile = ConfigFile & "seriala LPT4" & vbCrLf
Case 10
ConfigFile = ConfigFile & "seriala LPT5" & vbCrLf
Case 11
ConfigFile = ConfigFile & "seriala LPT6" & vbCrLf
Case 12
If SerialAFilePath.Text <> "" Then
ConfigFile = ConfigFile & "seriala FILE" & vbCrLf
ConfigFile = ConfigFile & "portfile0 " & SerialAFilePath.Text & vbCrLf
End If
End Select
End If
If SerialB.SelectedItem.ToString <> "None" Then
Select Case SerialB.SelectedIndex
Case 0
ConfigFile = ConfigFile & "serialb COM1" & vbCrLf
Case 1
ConfigFile = ConfigFile & "serialb COM2" & vbCrLf
Case 2
ConfigFile = ConfigFile & "serialb COM3" & vbCrLf
Case 3
ConfigFile = ConfigFile & "serialb COM4" & vbCrLf
Case 4
ConfigFile = ConfigFile & "serialb COM5" & vbCrLf
Case 5
ConfigFile = ConfigFile & "serialb COM6" & vbCrLf
Case 6
ConfigFile = ConfigFile & "serialb LPT1" & vbCrLf
Case 7
ConfigFile = ConfigFile & "serialb LP2" & vbCrLf
Case 8
ConfigFile = ConfigFile & "serialb LPT3" & vbCrLf
Case 9
ConfigFile = ConfigFile & "serialb LPT4" & vbCrLf
Case 10
ConfigFile = ConfigFile & "serialb LPT5" & vbCrLf
Case 11
ConfigFile = ConfigFile & "serialb LPT6" & vbCrLf
Case 12
If SerialBFilePath.Text <> "" Then
ConfigFile = ConfigFile & "serialb FILE" & vbCrLf
ConfigFile = ConfigFile & "portfile1 " & SerialBFilePath.Text & vbCrLf
End If
End Select
End If
ConfigFile = ConfigFile & "rom " & MiscROM.Text & vbCrLf
If DriveBootDisk.Checked = True Then
ConfigFile = ConfigFile & "bootdriver 0" & vbCrLf
Else
ConfigFile = ConfigFile & "bootdriver -62" & vbCrLf
End If
ConfigFile = ConfigFile & "ramsize " & (MemoryBox.Text * 1024) * 1024 & vbCrLf
Select Case MediaRefresh.SelectedIndex
Case 0
ConfigFile = ConfigFile & "frameskip 12" & vbCrLf
Case 1
ConfigFile = ConfigFile & "frameskip 8" & vbCrLf
Case 2
ConfigFile = ConfigFile & "frameskip 6" & vbCrLf
Case 3
ConfigFile = ConfigFile & "frameskip 4" & vbCrLf
Case 4
ConfigFile = ConfigFile & "frameskip 2" & vbCrLf
Case 5
ConfigFile = ConfigFile & "frameskip 1" & vbCrLf
End Select
If MediaEnableQuickDraw.Checked = True Then
ConfigFile = ConfigFile & "gfxaccel true" & vbCrLf
Else
ConfigFile = ConfigFile & "gfxaccel false" & vbCrLf
End If
If MediaEnableCD.Checked = True Then
ConfigFile = ConfigFile & "nocdrom false" & vbCrLf
Else
ConfigFile = ConfigFile & "nocdrom true" & vbCrLf
End If
If MediaEnableSound.Checked = True Then
ConfigFile = ConfigFile & "nosound false" & vbCrLf
Else
ConfigFile = ConfigFile & "nosound true" & vbCrLf
End If
If NetEnable.Checked = True Then
ConfigFile = ConfigFile & "nonet false" & vbCrLf
Else
ConfigFile = ConfigFile & "nonet true" & vbCrLf
End If
If MiscEnableGUI.Checked = True Then
ConfigFile = ConfigFile & "nogui false" & vbCrLf
Else
ConfigFile = ConfigFile & "nogui true" & vbCrLf
End If
If MiscClipConv.Checked = True Then
ConfigFile = ConfigFile & "noclipconversion false" & vbCrLf
Else
ConfigFile = ConfigFile & "noclipconversion true" & vbCrLf
End If
If MiscIgnoreSegv.Checked = True Then
ConfigFile = ConfigFile & "ignoresegv true" & vbCrLf
Else
ConfigFile = ConfigFile & "ignoresegv false" & vbCrLf
End If
If MiscIgnoreIllegal.Checked = True Then
ConfigFile = ConfigFile & "ignoreillegal true" & vbCrLf
Else
ConfigFile = ConfigFile & "ignoreillegal false" & vbCrLf
End If
If JITEnable.Checked = True Then
ConfigFile = ConfigFile & "jit true" & vbCrLf
Else
ConfigFile = ConfigFile & "jit false" & vbCrLf
End If
If JIT68kEnable.Checked = True Then
ConfigFile = ConfigFile & "jit68k true" & vbCrLf
Else
ConfigFile = ConfigFile & "jit68k false" & vbCrLf
End If
Select Case InputEmuKbdType.SelectedIndex
Case 0
ConfigFile = ConfigFile & "keyboardtype 5" & vbCrLf
Case 1
ConfigFile = ConfigFile & "keyboardtype 11" & vbCrLf
Case 2
ConfigFile = ConfigFile & "keyboardtype 13" & vbCrLf
End Select
Select Case NetType.SelectedIndex
Case 0
ConfigFile = ConfigFile & "ether slirp" & vbCrLf
Case 1
ConfigFile = ConfigFile & "ether router" & vbCrLf
End Select
If InputKeycodesEnable.Checked = True Then
ConfigFile = ConfigFile & "keycodes true" & vbCrLf
ConfigFile = ConfigFile & "keycodesfile " & InputKeyCodesPath.Text & vbCrLf
End If
Select Case InputMouseWheelMode.SelectedIndex = 0
Case 0
ConfigFile = ConfigFile & "mousewheelmode 0" & vbCrLf
Case 1
ConfigFile = ConfigFile & "mousewheelmode 1" & vbCrLf
ConfigFile = ConfigFile & "mousewheellines " & InputMouseWheelLines.Value & vbCrLf
End Select
If ExtFSEnable.Checked = True Then
ConfigFile = ConfigFile & "enableextfs true" & vbCrLf
ConfigFile = ConfigFile & "extfsdrives "
For x As Integer = 0 To ExtFSDrives.Items.Count
If ExtFSDrives.CheckedIndices.Contains(x) = True Then
ConfigFile = ConfigFile & ExtFSDrives.Items.Item(x).ToString()
End If
Next
ConfigFile = ConfigFile & vbCrLf
Else
ConfigFile = ConfigFile & "enableextfs false" & vbCrLf
End If
If JITDebugExtFS.Checked = True Then
ConfigFile = ConfigFile & "debugextfs true" & vbCrLf
Else
ConfigFile = ConfigFile & "debugextfs false" & vbCrLf
End If
If DrivePollMedia.Checked = True Then
ConfigFile = ConfigFile & "pollmedia true" & vbCrLf
Else
ConfigFile = ConfigFile & "pollmedia false" & vbCrLf
End If
If NetPermPhysicalAddress.Checked = True Then
ConfigFile = ConfigFile & "etherpermanentaddress true" & vbCrLf
Else
ConfigFile = ConfigFile & "etherpermanentaddress false" & vbCrLf
End If
If NetFakeAddress.Text <> "" Then
ConfigFile = ConfigFile & "etherfakeaddress " & NetFakeAddress.Text & vbCrLf
End If
If NetMulticastMode.Text <> "" Then
ConfigFile = ConfigFile & "ethermulticast " & NetMulticastMode.Text & vbCrLf
End If
If NetRouterEnabled.Checked = True Then
ConfigFile = ConfigFile & "routerenabled true" & vbCrLf
Else
ConfigFile = ConfigFile & "routerenabled false" & vbCrLf
End If
If NetFTPPorts.Text <> "" Then
ConfigFile = ConfigFile & "ftp_port_list " & NetFTPPorts.Text & vbCrLf
End If
If NetFTPPorts.Text <> "" Then
ConfigFile = ConfigFile & "tcp_port " & NetServerPorts.Text & vbCrLf
End If
ConfigFile = ConfigFile & "portfile0 " & SerialAFilePath.Text & vbCrLf
ConfigFile = ConfigFile & "portfile1 " & SerialBFilePath.Text & vbCrLf
MsgBox(ConfigFile)
ConfigFileHandler.Write(ConfigFile, ConfigFilePath)
End Sub
Private Sub SwitchPages(ByVal NewPage As System.Windows.Forms.GroupBox)
MacNameFrame.Visible = False
IconFrame.Visible = False
MemoryFrame.Visible = False
DriveFrame.Visible = False
NetworkFrame.Visible = False
MediaFrame.Visible = False
InputFrame.Visible = False
SerialFrame.Visible = False
ExtFSFrame.Visible = False
MiscFrame.Visible = False
JITFrame.Visible = False
EMCFrame.Visible = False
NewPage.Visible = True
End Sub
Private Sub cmdCancel_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdCancel.Click
Me.Close() 'Saves nothing and closes the dialog
End Sub
Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
'Save the config file and/or update the item in the console and leave
SaveSettings()
Me.Close()
End Sub
Private Sub frmSettingsSheepVM_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Set up some things
InitializeData()
'Load the config file into the respective groups
Settings()
End Sub
Public Sub InitializeData()
'Quite self explanatory, it gets the RAM in the host, divides it into MBs and sets the maximum values for the RAM controls
Dim HostRAM As Long = (My.Computer.Info.TotalPhysicalMemory / 1024) / 1024
MemoryTracker.Maximum = HostRAM
MemoryTracker.TickFrequency = HostRAM / 20
Me.Text = "Settings for " & frmMain.VMList.Items.Item(SelectedItem).Text
MediaRefresh.SelectedIndex = MediaRefresh.Items.Count - 1
'Code used to load icons
For x As Integer = 0 To frmMain.MacIcons.Images.Count - 1
Icons.Images.Add(frmMain.MacIcons.Images.Item(x).ToString, frmMain.MacIcons.Images.Item(x))
With IconList.Items.Add(x)
.ImageIndex = x
End With
Next
End Sub
Private Sub IconAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IconAdd.Click
'If the user did choose a valid file, then execute the code
If Browser.ShowDialog() = Forms.DialogResult.OK Then
Dim ImgName As String = System.IO.Path.GetFileNameWithoutExtension(Browser.FileName) 'Get the Name without extension for the pic name
Dim Img As System.Drawing.Image = Image.FromFile(Browser.FileName) 'Set a variable for the pic assign to it the image selected
frmMain.MacIcons.Images.Add(ImgName, Img) 'Add the icon to the console ImageList, so it can be shown with this dialog closed
My.Settings.x = My.Settings.x & Browser.FileName & "," 'Add the icon to the settings, so the icon can be loaded after closing and reopening the program
IconList.Items.Add(ImgName, Icons.Images.Count - 1) 'Add the icon to the form's ImageList
Icons.Images.Add(ImgName, Img) 'Add the icon to the form's ListView
IconList.Items.Item(Icons.Images.Count - 1).Focused = True 'Focus the item, so the user sees it has been added
End If
End Sub
Private Sub MemoryTracker_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles MemoryTracker.Scroll
'Set the same value in both Slider and NumericUpDown
MemoryBox.Text = MemoryTracker.Value
End Sub
Private Sub OptionList_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles OptionList.SelectedIndexChanged
'If the selected index changes (The user selects another "tab"), switch the tab visible
Select Case OptionList.FocusedItem.Index
Case 0
SwitchPages(MacNameFrame)
Case 1
SwitchPages(IconFrame)
Case 2
SwitchPages(MemoryFrame)
Case 3
SwitchPages(DriveFrame)
Case 4
SwitchPages(NetworkFrame)
Case 5
SwitchPages(MediaFrame)
Case 6
SwitchPages(InputFrame)
Case 7
SwitchPages(SerialFrame)
Case 8
SwitchPages(ExtFSFrame)
Case 9
SwitchPages(MiscFrame)
Case 10
SwitchPages(JITFrame)
Case 11
SwitchPages(EMCFrame)
End Select
End Sub
Private Sub ScrResCust_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MediaResCust.CheckedChanged
'If the user marks the checkbox of "Custom resolution", make visible the CustomResolution controls
If MediaResCust.Checked = True Then
MediaResX.Visible = True
MediaResY.Visible = True
Else
MediaResX.Visible = False
MediaResY.Visible = False
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.Enabled = True
Else
NetRouterConfig.Enabled = False
End If
End Sub
Private Sub SerialA_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SerialA.SelectedIndexChanged
If SerialA.SelectedIndex = 12 Then
SerialAFilePath.Enabled = True
SerialAFileBrowse.Enabled = True
Else
SerialAFilePath.Enabled = False
SerialAFileBrowse.Enabled = False
End If
End Sub
Private Sub SerialB_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SerialB.SelectedIndexChanged
If SerialB.SelectedIndex = 12 Then
SerialBFilePath.Enabled = True
SerialBFileBrowse.Enabled = True
Else
SerialBFileBrowse.Enabled = False
SerialBFilePath.Enabled = False
End If
End Sub
Private Sub EMCEditor_ItemActivate(sender As Object, e As System.EventArgs) Handles EMCEditor.ItemActivate
EMCEditor.FocusedItem.BeginEdit()
End Sub
Private Sub MiscROMBrowse_Click(sender As System.Object, e As System.EventArgs) Handles MiscROMBrowse.Click
If Browser.ShowDialog = Forms.DialogResult.OK Then
MiscROM.Text = Browser.FileName
End If
End Sub
Private Sub NetEnable_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles NetEnable.CheckedChanged
If NetEnable.Checked = True Then
NetContainer.Enabled = True
Else
NetContainer.Enabled = False
End If
End Sub
Private Sub NetFakeAddress_GotFocus(sender As Object, e As System.EventArgs) Handles NetFakeAddress.GotFocus
If NetFakeAddress.Text = "No phisical address set." Then
NetFakeAddress.ForeColor = Color.Black
NetFakeAddress.Text = ""
End If
End Sub
Private Sub NetFakeAddress_LostFocus(sender As Object, e As System.EventArgs) Handles NetFakeAddress.LostFocus
If NetFakeAddress.Text = "" Then
NetFakeAddress.ForeColor = Color.Gray
NetFakeAddress.Text = "No phisical address set."
End If
End Sub
Private Sub MemoryBox_TextChanged(sender As System.Object, e As System.EventArgs) Handles MemoryBox.TextChanged
MemoryTracker.Value = MemoryBox.Text
End Sub
Private Sub ExtFSEnable_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles ExtFSEnable.CheckedChanged
If ExtFSEnable.Checked Then
ExtFSDrives.Visible = True
Else
ExtFSDrives.Visible = False
End If
End Sub
Private Sub InputKeycodesEnable_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles InputKeycodesEnable.CheckedChanged
If InputKeycodesEnable.Checked Then
InputKeyCodesPathPanel.Enabled = True
Else
InputKeyCodesPathPanel.Enabled = False
End If
End Sub
End Class

290
frmSettingsvMacVM.Designer.vb generated Normal file
View File

@ -0,0 +1,290 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmSettingsvMacVM
Inherits System.Windows.Forms.Form
'Form reemplaza a Dispose para limpiar la lista de componentes.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Requerido por el Diseñador de Windows Forms
Private components As System.ComponentModel.IContainer
'NOTA: el Diseñador de Windows Forms necesita el siguiente procedimiento
'Se puede modificar usando el Diseñador de Windows Forms.
'No lo modifique con el editor de código.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Name", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Icon", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Dim ListViewItem3 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"Drives", ""}, -1, System.Drawing.SystemColors.WindowText, System.Drawing.SystemColors.Window, New System.Drawing.Font("Tahoma", 8.25!))
Me.OptionPanel = New System.Windows.Forms.Panel
Me.IconFrame = New System.Windows.Forms.GroupBox
Me.BrowseIcon = New System.Windows.Forms.Button
Me.IconDescription = New System.Windows.Forms.Label
Me.IconList = New System.Windows.Forms.ListView
Me.DrivesFrame = New System.Windows.Forms.GroupBox
Me.DrivesList = New System.Windows.Forms.ListBox
Me.MoveItemDown = New System.Windows.Forms.Button
Me.MoveItemUp = New System.Windows.Forms.Button
Me.AddDisk = New System.Windows.Forms.Button
Me.AddCD = New System.Windows.Forms.Button
Me.DeleteItem = New System.Windows.Forms.Button
Me.VMNameFrame = New System.Windows.Forms.GroupBox
Me.VMNameHelp = New System.Windows.Forms.Label
Me.VMName = New System.Windows.Forms.TextBox
Me.OptionList = New System.Windows.Forms.ListView
Me.Options = New System.Windows.Forms.ColumnHeader
Me.Value = New System.Windows.Forms.ColumnHeader
Me.cmdCancel = New System.Windows.Forms.Button
Me.cmdOK = New System.Windows.Forms.Button
Me.OptionPanel.SuspendLayout()
Me.IconFrame.SuspendLayout()
Me.DrivesFrame.SuspendLayout()
Me.VMNameFrame.SuspendLayout()
Me.SuspendLayout()
'
'OptionPanel
'
Me.OptionPanel.Controls.Add(Me.IconFrame)
Me.OptionPanel.Controls.Add(Me.DrivesFrame)
Me.OptionPanel.Controls.Add(Me.VMNameFrame)
Me.OptionPanel.Location = New System.Drawing.Point(371, 1)
Me.OptionPanel.Name = "OptionPanel"
Me.OptionPanel.Size = New System.Drawing.Size(373, 294)
Me.OptionPanel.TabIndex = 29
'
'IconFrame
'
Me.IconFrame.Controls.Add(Me.BrowseIcon)
Me.IconFrame.Controls.Add(Me.IconDescription)
Me.IconFrame.Controls.Add(Me.IconList)
Me.IconFrame.Location = New System.Drawing.Point(0, 3)
Me.IconFrame.Name = "IconFrame"
Me.IconFrame.Size = New System.Drawing.Size(367, 279)
Me.IconFrame.TabIndex = 3
Me.IconFrame.TabStop = False
Me.IconFrame.Text = "Icon"
'
'BrowseIcon
'
Me.BrowseIcon.Location = New System.Drawing.Point(286, 12)
Me.BrowseIcon.Name = "BrowseIcon"
Me.BrowseIcon.Size = New System.Drawing.Size(75, 23)
Me.BrowseIcon.TabIndex = 6
Me.BrowseIcon.Text = "Browse..."
Me.BrowseIcon.UseVisualStyleBackColor = True
'
'IconDescription
'
Me.IconDescription.Location = New System.Drawing.Point(6, 17)
Me.IconDescription.Name = "IconDescription"
Me.IconDescription.Size = New System.Drawing.Size(261, 18)
Me.IconDescription.TabIndex = 7
Me.IconDescription.Text = "If you want an icon that isn't in the list, click Browse."
'
'IconList
'
Me.IconList.Location = New System.Drawing.Point(9, 38)
Me.IconList.Name = "IconList"
Me.IconList.Size = New System.Drawing.Size(352, 235)
Me.IconList.TabIndex = 6
Me.IconList.UseCompatibleStateImageBehavior = False
'
'DrivesFrame
'
Me.DrivesFrame.Controls.Add(Me.DrivesList)
Me.DrivesFrame.Controls.Add(Me.MoveItemDown)
Me.DrivesFrame.Controls.Add(Me.MoveItemUp)
Me.DrivesFrame.Controls.Add(Me.AddDisk)
Me.DrivesFrame.Controls.Add(Me.AddCD)
Me.DrivesFrame.Controls.Add(Me.DeleteItem)
Me.DrivesFrame.Location = New System.Drawing.Point(0, 3)
Me.DrivesFrame.Name = "DrivesFrame"
Me.DrivesFrame.Size = New System.Drawing.Size(367, 279)
Me.DrivesFrame.TabIndex = 8
Me.DrivesFrame.TabStop = False
Me.DrivesFrame.Text = "Drives"
'
'DrivesList
'
Me.DrivesList.FormattingEnabled = True
Me.DrivesList.Items.AddRange(New Object() {"C:\Users\Usuario\Documents\ISOs\Mac OS 8.5 Spanish.iso", "C:\Users\Usuario\Documents\My Macs\Mac OS 8\Mac OS 8.dsk", "C:\Users\Usuario\Documents\My Macs\Mac OS 8\Data.dsk"})
Me.DrivesList.Location = New System.Drawing.Point(3, 17)
Me.DrivesList.Name = "DrivesList"
Me.DrivesList.Size = New System.Drawing.Size(358, 186)
Me.DrivesList.TabIndex = 6
'
'MoveItemDown
'
Me.MoveItemDown.Enabled = False
Me.MoveItemDown.Location = New System.Drawing.Point(328, 213)
Me.MoveItemDown.Name = "MoveItemDown"
Me.MoveItemDown.Size = New System.Drawing.Size(33, 23)
Me.MoveItemDown.TabIndex = 5
Me.MoveItemDown.Text = "\/"
Me.MoveItemDown.UseVisualStyleBackColor = True
'
'MoveItemUp
'
Me.MoveItemUp.Enabled = False
Me.MoveItemUp.Location = New System.Drawing.Point(294, 213)
Me.MoveItemUp.Name = "MoveItemUp"
Me.MoveItemUp.Size = New System.Drawing.Size(33, 23)
Me.MoveItemUp.TabIndex = 4
Me.MoveItemUp.Text = "/\"
Me.MoveItemUp.UseVisualStyleBackColor = True
'
'AddDisk
'
Me.AddDisk.Location = New System.Drawing.Point(6, 213)
Me.AddDisk.Name = "AddDisk"
Me.AddDisk.Size = New System.Drawing.Size(56, 23)
Me.AddDisk.TabIndex = 3
Me.AddDisk.Text = "Add disk"
Me.AddDisk.UseVisualStyleBackColor = True
'
'AddCD
'
Me.AddCD.Location = New System.Drawing.Point(68, 213)
Me.AddCD.Name = "AddCD"
Me.AddCD.Size = New System.Drawing.Size(56, 23)
Me.AddCD.TabIndex = 2
Me.AddCD.Text = "Add CD"
Me.AddCD.UseVisualStyleBackColor = True
'
'DeleteItem
'
Me.DeleteItem.Location = New System.Drawing.Point(130, 213)
Me.DeleteItem.Name = "DeleteItem"
Me.DeleteItem.Size = New System.Drawing.Size(90, 23)
Me.DeleteItem.TabIndex = 1
Me.DeleteItem.Text = "Delete selected"
Me.DeleteItem.UseVisualStyleBackColor = True
'
'VMNameFrame
'
Me.VMNameFrame.Controls.Add(Me.VMNameHelp)
Me.VMNameFrame.Controls.Add(Me.VMName)
Me.VMNameFrame.Location = New System.Drawing.Point(0, 3)
Me.VMNameFrame.Name = "VMNameFrame"
Me.VMNameFrame.Size = New System.Drawing.Size(367, 279)
Me.VMNameFrame.TabIndex = 4
Me.VMNameFrame.TabStop = False
Me.VMNameFrame.Text = "Name"
'
'VMNameHelp
'
Me.VMNameHelp.Location = New System.Drawing.Point(6, 17)
Me.VMNameHelp.Name = "VMNameHelp"
Me.VMNameHelp.Size = New System.Drawing.Size(363, 18)
Me.VMNameHelp.TabIndex = 7
Me.VMNameHelp.Text = "Do you want a change? Why not start with the name?"
'
'VMName
'
Me.VMName.Location = New System.Drawing.Point(9, 38)
Me.VMName.Name = "VMName"
Me.VMName.Size = New System.Drawing.Size(352, 20)
Me.VMName.TabIndex = 6
'
'OptionList
'
Me.OptionList.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.Options, Me.Value})
Me.OptionList.FullRowSelect = True
Me.OptionList.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.OptionList.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1, ListViewItem2, ListViewItem3})
Me.OptionList.Location = New System.Drawing.Point(12, 11)
Me.OptionList.Name = "OptionList"
Me.OptionList.Size = New System.Drawing.Size(353, 376)
Me.OptionList.TabIndex = 28
Me.OptionList.UseCompatibleStateImageBehavior = False
Me.OptionList.View = System.Windows.Forms.View.Details
'
'Options
'
Me.Options.Text = "Options"
Me.Options.Width = 173
'
'Value
'
Me.Value.Text = "Value"
Me.Value.Width = 176
'
'cmdCancel
'
Me.cmdCancel.BackColor = System.Drawing.SystemColors.Control
Me.cmdCancel.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.cmdCancel.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdCancel.Location = New System.Drawing.Point(665, 366)
Me.cmdCancel.Name = "cmdCancel"
Me.cmdCancel.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdCancel.Size = New System.Drawing.Size(73, 22)
Me.cmdCancel.TabIndex = 27
Me.cmdCancel.Text = "Cancel"
Me.cmdCancel.UseVisualStyleBackColor = True
'
'cmdOK
'
Me.cmdOK.BackColor = System.Drawing.SystemColors.Control
Me.cmdOK.Cursor = System.Windows.Forms.Cursors.Default
Me.cmdOK.ForeColor = System.Drawing.SystemColors.ControlText
Me.cmdOK.Location = New System.Drawing.Point(585, 366)
Me.cmdOK.Name = "cmdOK"
Me.cmdOK.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.cmdOK.Size = New System.Drawing.Size(73, 22)
Me.cmdOK.TabIndex = 26
Me.cmdOK.Text = "OK"
Me.cmdOK.UseVisualStyleBackColor = True
'
'frmSettingsvMacVM
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(750, 400)
Me.Controls.Add(Me.OptionPanel)
Me.Controls.Add(Me.OptionList)
Me.Controls.Add(Me.cmdCancel)
Me.Controls.Add(Me.cmdOK)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmSettingsvMacVM"
Me.Text = "Settings for %s"
Me.OptionPanel.ResumeLayout(False)
Me.IconFrame.ResumeLayout(False)
Me.DrivesFrame.ResumeLayout(False)
Me.VMNameFrame.ResumeLayout(False)
Me.VMNameFrame.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents OptionPanel As System.Windows.Forms.Panel
Friend WithEvents IconFrame As System.Windows.Forms.GroupBox
Friend WithEvents BrowseIcon As System.Windows.Forms.Button
Friend WithEvents IconDescription As System.Windows.Forms.Label
Friend WithEvents IconList As System.Windows.Forms.ListView
Friend WithEvents DrivesFrame As System.Windows.Forms.GroupBox
Friend WithEvents DrivesList As System.Windows.Forms.ListBox
Friend WithEvents MoveItemDown As System.Windows.Forms.Button
Friend WithEvents MoveItemUp As System.Windows.Forms.Button
Friend WithEvents AddDisk As System.Windows.Forms.Button
Friend WithEvents AddCD As System.Windows.Forms.Button
Friend WithEvents DeleteItem As System.Windows.Forms.Button
Friend WithEvents VMNameFrame As System.Windows.Forms.GroupBox
Friend WithEvents VMNameHelp As System.Windows.Forms.Label
Friend WithEvents VMName As System.Windows.Forms.TextBox
Friend WithEvents OptionList As System.Windows.Forms.ListView
Friend WithEvents Options As System.Windows.Forms.ColumnHeader
Friend WithEvents Value As System.Windows.Forms.ColumnHeader
Public WithEvents cmdCancel As System.Windows.Forms.Button
Public WithEvents cmdOK As System.Windows.Forms.Button
End Class

Some files were not shown because too many files have changed in this diff Show More