diff --git a/ActiveX Controls/COMCTL32.OCX b/ActiveX Controls/COMCTL32.OCX new file mode 100644 index 0000000..3465245 Binary files /dev/null and b/ActiveX Controls/COMCTL32.OCX differ diff --git a/ActiveX Controls/COMDLG32.OCX b/ActiveX Controls/COMDLG32.OCX new file mode 100644 index 0000000..84022fb Binary files /dev/null and b/ActiveX Controls/COMDLG32.OCX differ diff --git a/ActiveX Controls/CustomProgressBar.ocx b/ActiveX Controls/CustomProgressBar.ocx new file mode 100644 index 0000000..17eb54b Binary files /dev/null and b/ActiveX Controls/CustomProgressBar.ocx differ diff --git a/ActiveX Controls/SYSINFO.OCX b/ActiveX Controls/SYSINFO.OCX new file mode 100644 index 0000000..929fd28 Binary files /dev/null and b/ActiveX Controls/SYSINFO.OCX differ diff --git a/ActiveX Controls/SysTray.ocx b/ActiveX Controls/SysTray.ocx new file mode 100644 index 0000000..83cebf3 Binary files /dev/null and b/ActiveX Controls/SysTray.ocx differ diff --git a/ActiveX Controls/TABCTL32.OCX b/ActiveX Controls/TABCTL32.OCX new file mode 100644 index 0000000..5a661fb Binary files /dev/null and b/ActiveX Controls/TABCTL32.OCX differ diff --git a/MSSCCPRJ.SCC b/MSSCCPRJ.SCC new file mode 100644 index 0000000..6f60e74 --- /dev/null +++ b/MSSCCPRJ.SCC @@ -0,0 +1,5 @@ +[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= diff --git a/VirtualMac.RES b/VirtualMac.RES new file mode 100644 index 0000000..36f26e2 Binary files /dev/null and b/VirtualMac.RES differ diff --git a/VirtualMac.vbp b/VirtualMac.vbp new file mode 100644 index 0000000..878b786 --- /dev/null +++ b/VirtualMac.vbp @@ -0,0 +1,57 @@ +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 diff --git a/VirtualMac.vbw b/VirtualMac.vbw new file mode 100644 index 0000000..b7507f1 --- /dev/null +++ b/VirtualMac.vbw @@ -0,0 +1,9 @@ +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 diff --git a/basDeclarations.bas b/basDeclarations.bas new file mode 100644 index 0000000..2d107ca --- /dev/null +++ b/basDeclarations.bas @@ -0,0 +1,4 @@ +Attribute VB_Name = "basDeclarations" +Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _ +ByVal hWndNewParent As Long) As Long + diff --git a/frmAbout.frm b/frmAbout.frm new file mode 100644 index 0000000..a30dd5c --- /dev/null +++ b/frmAbout.frm @@ -0,0 +1,276 @@ +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 diff --git a/frmAbout.frx b/frmAbout.frx new file mode 100644 index 0000000..8613f66 Binary files /dev/null and b/frmAbout.frx differ diff --git a/frmMain.frm b/frmMain.frm new file mode 100644 index 0000000..e465e87 --- /dev/null +++ b/frmMain.frm @@ -0,0 +1,703 @@ +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 diff --git a/frmMain.frx b/frmMain.frx new file mode 100644 index 0000000..becf416 Binary files /dev/null and b/frmMain.frx differ diff --git a/frmNewDisk.frm b/frmNewDisk.frm new file mode 100644 index 0000000..e8b6646 --- /dev/null +++ b/frmNewDisk.frm @@ -0,0 +1,480 @@ +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 diff --git a/frmNewDisk.frx b/frmNewDisk.frx new file mode 100644 index 0000000..755101c Binary files /dev/null and b/frmNewDisk.frx differ diff --git a/frmNewMac.frm b/frmNewMac.frm new file mode 100644 index 0000000..7834467 --- /dev/null +++ b/frmNewMac.frm @@ -0,0 +1,1448 @@ +VERSION 5.00 +Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" +Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX" +Begin VB.Form frmNewMac + 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 = "frmNewMac.frx":0000 + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ScaleHeight = 5415 + ScaleWidth = 7455 + StartUpPosition = 2 'CenterScreen + Begin VB.Frame NewMac1 + BackColor = &H00FFFFFF& + BorderStyle = 0 'None + Height = 4695 + Left = 0 + TabIndex = 8 + Top = 0 + Width = 7455 + Begin VB.PictureBox WizardStart + BackColor = &H00404040& + BorderStyle = 0 'None + Height = 4695 + Left = 0 + Picture = "frmNewMac.frx":18BA + ScaleHeight = 4695 + ScaleWidth = 2460 + TabIndex = 9 + TabStop = 0 'False + Top = 0 + Width = 2460 + End + Begin VB.Label TitleStart + BackStyle = 0 'Transparent + Caption = "Welcome to the New Virtual Macintosh Wizard" + BeginProperty Font + Name = "Arial" + Size = 12 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 735 + Left = 2640 + TabIndex = 11 + Top = 240 + Width = 4575 + End + Begin VB.Label DescriptionStart + BackStyle = 0 'Transparent + Caption = $"frmNewMac.frx":27476 + Height = 1335 + Left = 2640 + TabIndex = 10 + Top = 1080 + Width = 4695 + End + End + Begin VB.Frame NewMacWizard + BorderStyle = 0 'None + Caption = "Frame1" + Height = 4695 + Left = 0 + TabIndex = 12 + Top = 0 + Visible = 0 'False + Width = 7455 + Begin VB.Frame NewMac2 + BorderStyle = 0 'None + Height = 3855 + Left = 0 + TabIndex = 17 + Top = 840 + Visible = 0 'False + Width = 7215 + Begin VB.PictureBox NewMac2ButtonFixer + Height = 4215 + Left = -120 + ScaleHeight = 4155 + ScaleWidth = 7395 + TabIndex = 30 + TabStop = 0 'False + Top = -240 + Width = 7455 + Begin VB.OptionButton CreateNew + Caption = "Create a Virtual Macintosh Machine" + Height = 375 + Left = 880 + TabIndex = 31 + Top = 700 + Value = -1 'True + Width = 5175 + End + Begin VB.OptionButton UseDefaults + Caption = "Use default settings to create a Virtual Mac" + Height = 375 + Left = 880 + TabIndex = 32 + Top = 1580 + Width = 5175 + End + Begin VB.OptionButton AddExist + Caption = "Add an existing Virtual Mac" + Height = 375 + Left = 880 + TabIndex = 33 + Top = 2640 + Width = 5175 + End + Begin VB.Label HelpSelect + Caption = "Select an option:" + Height = 255 + Left = 720 + TabIndex = 47 + Top = 420 + Width = 2295 + End + Begin VB.Label NewDescription2 + BackStyle = 0 'Transparent + Caption = "This option guides you throught the basic configurations neccesary for creating a new Virtual Macintosh Machine." + Height = 495 + Left = 1140 + TabIndex = 36 + Top = 1060 + Width = 6135 + End + Begin VB.Label UseDefaultsDescription2 + BackStyle = 0 'Transparent + Caption = $"frmNewMac.frx":27687 + Height = 615 + Left = 1140 + TabIndex = 35 + Top = 1940 + Width = 5895 + End + Begin VB.Label AddExistDescription2 + Caption = "You can add a Virtual Macintosh Machine to the Virtual Mac Console from existing .mcc files." + Height = 375 + Left = 1140 + TabIndex = 34 + Top = 3000 + Width = 6015 + End + End + End + Begin VB.Frame NewMac5 + BorderStyle = 0 'None + Height = 3855 + Left = 0 + TabIndex = 55 + Top = 840 + Visible = 0 'False + Width = 7455 + Begin VB.PictureBox NewMac5ButtonFixer + Height = 4095 + Left = -120 + ScaleHeight = 4035 + ScaleWidth = 7515 + TabIndex = 56 + TabStop = 0 'False + Top = -120 + Width = 7575 + Begin VB.Frame RAMAdjuster + BorderStyle = 0 'None + Height = 1095 + Left = 840 + TabIndex = 57 + Top = 2280 + Visible = 0 'False + Width = 6135 + Begin ComctlLib.Slider RAMAdjust + Height = 495 + Left = 320 + TabIndex = 3 + TabStop = 0 'False + Top = 460 + Width = 4780 + _ExtentX = 8440 + _ExtentY = 873 + _Version = 327682 + LargeChange = 4 + SmallChange = 2 + Max = 1000 + TickFrequency = 50 + End + Begin VB.TextBox RAMMegabyteNumber + Alignment = 1 'Right Justify + Height = 315 + Left = 5280 + TabIndex = 2 + TabStop = 0 'False + Text = "128" + Top = 495 + Width = 495 + End + Begin VB.Label MegaByte + Caption = "MB" + Height = 255 + Left = 5805 + TabIndex = 59 + Top = 540 + Width = 255 + End + Begin VB.Label RAMDescription + Caption = "Set the RAM for this Macintosh:" + Height = 255 + Left = 120 + TabIndex = 58 + Top = 120 + Width = 2415 + End + End + Begin VB.OptionButton Recommend + Caption = "Using the recomended RAM" + Height = 255 + Left = 840 + TabIndex = 0 + Top = 1680 + Value = -1 'True + Width = 4815 + End + Begin VB.OptionButton Adjust + Caption = "Ajusting the RAM" + Height = 255 + Left = 840 + TabIndex = 1 + Top = 2040 + Width = 4815 + End + Begin VB.Label RecRAM + Caption = "Recommended RAM [128 MB]" + Height = 255 + Left = 720 + TabIndex = 62 + Top = 1080 + Width = 2295 + End + Begin VB.Label RAMHelpTitle + Caption = "Allocate RAM for this Mac by:" + Height = 255 + Left = 720 + TabIndex = 61 + Top = 1440 + Width = 2175 + End + Begin VB.Label RAMHelp + Caption = $"frmNewMac.frx":2776B + Height = 855 + Left = 720 + TabIndex = 60 + Top = 360 + Width = 6135 + End + End + End + Begin VB.Frame NewMac3 + BorderStyle = 0 'None + Height = 3855 + Left = 0 + TabIndex = 18 + Top = 840 + Visible = 0 'False + Width = 7215 + Begin VB.TextBox FileNameC + Height = 285 + Left = 480 + TabIndex = 42 + Text = "New Mac" + Top = 1560 + Width = 5175 + End + Begin VB.CommandButton BrowseC + Caption = "Browse..." + Height = 340 + Left = 5760 + TabIndex = 19 + Top = 1530 + Width = 1095 + End + Begin VB.Label FileNameTitleC + Caption = "Name and location:" + Height = 255 + Left = 480 + TabIndex = 21 + Top = 1320 + Width = 1695 + End + Begin VB.Label HelpC + Caption = $"frmNewMac.frx":27858 + Height = 855 + Left = 480 + TabIndex = 20 + Top = 240 + Width = 6495 + End + End + Begin VB.Frame NewMac6 + BorderStyle = 0 'None + Height = 3855 + Left = 0 + TabIndex = 70 + Top = 840 + Visible = 0 'False + Width = 7215 + Begin VB.TextBox DiskSizeMB + Alignment = 1 'Right Justify + Height = 285 + Left = 3120 + TabIndex = 77 + Text = "1024" + Top = 2260 + Width = 735 + End + Begin VB.CommandButton NewVDBrowse + Caption = "Browse..." + Height = 340 + Left = 5760 + TabIndex = 72 + Top = 1460 + Width = 1095 + End + Begin VB.TextBox NewMac7VDName + Height = 285 + Left = 680 + TabIndex = 71 + Top = 1480 + Width = 4935 + End + Begin VB.Label WarningLowerSize + Caption = "Please enter a size value between 4 MB and 130,557 MB." + Height = 255 + Left = 720 + TabIndex = 81 + Top = 2640 + Visible = 0 'False + Width = 4335 + End + Begin VB.Label VDInfoAboutVD + Caption = "To learn more about virtual disks, see Virtual Mac Help. For advanced virtual hard disk options, use the Virtual Disk Wizard." + Height = 495 + Left = 720 + TabIndex = 80 + Top = 3120 + Width = 6375 + End + Begin VB.Label VDInfoMaxMBSize + Caption = "130,557 MB" + Height = 255 + Left = 3260 + TabIndex = 79 + Top = 1920 + Width = 975 + End + Begin VB.Label VDMBInfo + Caption = "MB" + Height = 255 + Left = 3900 + TabIndex = 78 + Top = 2280 + Width = 255 + End + Begin VB.Label MaxVDSize + Caption = "Maxium virtual disk size:" + Height = 255 + Left = 720 + TabIndex = 76 + Top = 1920 + Width = 1935 + End + Begin VB.Label InfoVDSize + Caption = "Virtual disk size:" + Height = 255 + Left = 720 + TabIndex = 75 + Top = 2280 + Width = 1695 + End + Begin VB.Label NewVDHelp + Caption = $"frmNewMac.frx":27984 + Height = 855 + Left = 680 + TabIndex = 74 + Top = 240 + Width = 6495 + End + Begin VB.Label NewVDTitleHelp + Caption = "Name and location:" + Height = 255 + Left = 680 + TabIndex = 73 + Top = 1110 + Width = 1695 + End + End + Begin VB.Frame NewMac60 + BorderStyle = 0 'None + Height = 3855 + Left = 0 + TabIndex = 63 + Top = 840 + Visible = 0 'False + Width = 7455 + Begin VB.PictureBox Picture1 + Height = 4215 + Left = -120 + ScaleHeight = 4155 + ScaleWidth = 7515 + TabIndex = 64 + TabStop = 0 'False + Top = -160 + Width = 7575 + Begin VB.OptionButton CreateNewVD + Caption = "A new virtual disk" + Height = 255 + Left = 840 + TabIndex = 66 + Top = 1840 + Value = -1 'True + Width = 4815 + End + Begin VB.OptionButton AddExistingVD + Caption = "An existing virtual hard disk" + Height = 255 + Left = 840 + TabIndex = 65 + Top = 2140 + Width = 4815 + End + Begin VB.Label NewMac60Help + BackStyle = 0 'Transparent + Caption = $"frmNewMac.frx":27A54 + Height = 495 + Left = 720 + TabIndex = 69 + Top = 360 + Width = 6135 + End + Begin VB.Label Label4 + Caption = "Do you want to use:" + Height = 255 + Left = 720 + TabIndex = 68 + Top = 1520 + Width = 2175 + End + Begin VB.Label NewMac60About + BackStyle = 0 'Transparent + Caption = "The first virtual hard disk you create or select for your virtual machine is called Disk 1 in Settings and is the Startup disk." + Height = 495 + Left = 720 + TabIndex = 67 + Top = 960 + Width = 6015 + End + End + End + Begin VB.Frame Top + BackColor = &H00FFFFFF& + Height = 975 + Left = 0 + TabIndex = 13 + Top = -120 + Width = 7455 + Begin VB.PictureBox WizardPictureSmall + Height = 800 + Left = 6600 + Picture = "frmNewMac.frx":27AEF + ScaleHeight = 735 + ScaleWidth = 735 + TabIndex = 14 + TabStop = 0 'False + Top = 140 + Width = 800 + End + Begin VB.Label ActionDescription + BackStyle = 0 'Transparent + Caption = "You can create a new Virtual Mac or add an existing one to the Virtual Mac Console." + Height = 375 + Left = 600 + TabIndex = 16 + Top = 480 + Width = 5175 + End + Begin VB.Label Action + BackStyle = 0 'Transparent + Caption = "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 = 15 + Top = 240 + Width = 5175 + End + End + Begin VB.Frame NewMac4 + BorderStyle = 0 'None + Height = 3975 + Left = 0 + TabIndex = 26 + Top = 840 + Visible = 0 'False + Width = 7455 + Begin VB.ComboBox OSList + Height = 315 + ItemData = "frmNewMac.frx":29787 + Left = 720 + List = "frmNewMac.frx":297A3 + Style = 2 'Dropdown List + TabIndex = 27 + Top = 1560 + Width = 2295 + End + Begin VB.Label CPUArch + Alignment = 1 'Right Justify + Caption = "PowerPC" + Height = 255 + Left = 4800 + TabIndex = 54 + Top = 2280 + Width = 1215 + End + Begin VB.Label DiskMB + Alignment = 1 'Right Justify + Caption = "500 MB" + Height = 255 + Left = 4920 + TabIndex = 53 + Top = 1920 + Width = 1095 + End + Begin VB.Label MemoryMB + Alignment = 1 'Right Justify + Caption = "256 MB" + Height = 255 + Left = 4920 + TabIndex = 52 + Top = 1560 + Width = 1095 + End + Begin VB.Label CPUType + Caption = "CPU arquitecture:" + Height = 255 + Left = 3360 + TabIndex = 51 + Top = 2280 + Width = 1335 + End + Begin VB.Label Disk + Caption = "Disk space:" + Height = 255 + Left = 3360 + TabIndex = 50 + Top = 1920 + Width = 975 + End + Begin VB.Label Memory + Caption = "Memory:" + Height = 255 + Left = 3360 + TabIndex = 49 + Top = 1560 + Width = 975 + End + Begin VB.Label DefaultHardware + Caption = "Default hardware selection:" + Height = 255 + Left = 3360 + TabIndex = 48 + Top = 1220 + Width = 2055 + End + Begin VB.Label OSListTitle + Caption = "Operating system: " + Height = 255 + Left = 600 + TabIndex = 29 + Top = 1220 + Width = 1695 + End + Begin VB.Label Help4 + Caption = $"frmNewMac.frx":29804 + Height = 855 + Left = 600 + TabIndex = 28 + Top = 240 + Width = 6255 + End + End + Begin VB.Frame NewMacFromExist + BorderStyle = 0 'None + Height = 3855 + Left = 0 + TabIndex = 22 + Top = 840 + Visible = 0 'False + Width = 7215 + Begin VB.TextBox FileNameA + Height = 285 + IMEMode = 3 'DISABLE + Left = 600 + TabIndex = 41 + Top = 840 + Width = 5055 + End + Begin VB.CommandButton BrowseA + Caption = "Browse..." + Height = 340 + Left = 5760 + TabIndex = 23 + Top = 825 + Width = 1095 + End + Begin VB.Label FileNameTitleA + Caption = "Name and location:" + Height = 255 + Left = 600 + TabIndex = 25 + 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 = 24 + Top = 240 + Width = 5775 + End + End + End + Begin VB.Frame NewMacEnd + BackColor = &H00FFFFFF& + BorderStyle = 0 'None + Caption = "NewMac1" + Height = 4695 + Left = 0 + TabIndex = 37 + 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 = 44 + Top = 3060 + Value = 1 'Checked + Width = 4215 + End + Begin VB.PictureBox WizardEnd + BackColor = &H00800000& + BorderStyle = 0 'None + Height = 4695 + Left = 0 + Picture = "frmNewMac.frx":29907 + ScaleHeight = 4695 + ScaleWidth = 2460 + TabIndex = 38 + Top = 0 + Width = 2460 + End + Begin VB.Label AdviceClickFinish + BackStyle = 0 'Transparent + Caption = "To close this wizard, click Finish." + Height = 255 + Left = 2680 + TabIndex = 46 + 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 = 45 + Top = 1800 + Visible = 0 'False + Width = 4095 + End + Begin VB.Label VMName + AutoSize = -1 'True + BackStyle = 0 'Transparent + Height = 435 + Left = 2640 + TabIndex = 43 + 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 = 40 + 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 = 39 + 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 = 7 + Top = 4620 + Width = 7455 + Begin VB.CommandButton cmdCancel + Cancel = -1 'True + Caption = "Cancel" + Height = 340 + Left = 6200 + TabIndex = 6 + Top = 300 + Width = 1095 + End + Begin VB.CommandButton cmdNext + Caption = "Next >" + Default = -1 'True + Height = 340 + Left = 4920 + TabIndex = 5 + Top = 300 + Width = 1095 + End + Begin VB.CommandButton cmdBack + Caption = "< Back" + Enabled = 0 'False + Height = 340 + Left = 3810 + TabIndex = 4 + ToolTipText = "Atras" + Top = 300 + Width = 1095 + End + End +End +Attribute VB_Name = "frmNewMac" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +'Honestly, the most complicated assistant (Here is where my hard work is :D) + +Private Type MEMORYSTATUS 'Api for checking how much RAM is avaible in the machine +dwLength As Long +dwMemoryLoad As Long +dwTotalPhys As Long +dwAvailPhys As Long +dwTotalPageFile As Long +dwAvailPageFile As Long +dwTotalVirtual As Long +dwAvailVirtual As Long +End Type +Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS) + +Private Sub Adjust_Click() + +'This makes visible the Frame that shows the RAM slider to adjust the RAM + +If Adjust.Value = True Then +RAMAdjuster.Visible = True +RAMAdjust.TabStop = True +RAMMegabyteNumber.TabStop = True +End If + +End Sub + +Private Sub BrowseA_Click() + +'A for Add, that means 'Add an existing machine'. +'Opens a 'Open dialog' to search VirtualMac config file + +Browse.Filter = "Virtual Mac Configuration File (*.mcc)|*.mcc|All files (*.*)|*.*" +Browse.ShowOpen +FileNameC.Text = Browse.FileName +End Sub + +Private Sub BrowseC_Click() +'C for Create, that means 'Create a new machine' +'Opens the save dialog that let's you choose where +'will the config file be saved + +Browse.Filter = "Virtual Mac Configuration File (*.mcc)|*.mcc|All files (*.*)|*.*" +Browse.ShowSave +FileNameC.Text = Browse.FileName + +End Sub + +Private Sub cmdBack_Click() + +'This is the first part of the hard code, this makes +'that the right Frame will be shown, this is in base +'to which is the currently visible frame. This makes +'visible the earlier Frame. The instruction +' makes that you won't automatically jump +'until the Start screen + +If NewMac2.Visible = True Then 'Go back to Start screen + cmdBack.Enabled = False + NewMac2.Visible = False + NewMacWizard.Visible = False + NewMac1.Visible = True + GoTo EndNext +End If + +'Both fo these go back to Page 2. But every one is different +'since one creates a new Mac, the other adds a new one + +If NewMac3.Visible = True Then 'Back from the page 'Create a new one' + NewMac3.Visible = False + Action.Caption = "Options" + ActionDescription.Caption = "You can create a new Virtual Mac or add an existing one to the Virtual Mac Console" + NewMac2.Visible = True + GoTo EndNext +End If + +If NewMacFromExist.Visible = True Then 'Back from page 'Add a new one' + NewMacFromExist.Visible = False + Action.Caption = "Options" + ActionDescription.Caption = "You can create a new Virtual Mac or add an existing one to the Virtual Mac Console" + NewMac2.Visible = True + GoTo EndNext +End If + +If NewMac4.Visible = True Then 'Back from the page 'Name and Location' + NewMac4.Visible = False + Action.Caption = "Virtual Macintosh Name and Location" + ActionDescription.Caption = "The name you specify will appear in the list of Virtual Macintoshes in the Virtual Mac Console" + NewMac3.Visible = True + GoTo EndNext +End If + +If NewMac5.Visible = True Then 'Back from the page 'Select OS' + NewMac5.Visible = False + Action.Caption = "Operating System" + ActionDescription.Caption = "Select the operating system you plan to install on this machine" + NewMac4.Visible = True + GoTo EndNext +End If + +If NewMac6.Visible = True Then 'Back from the page 'RAM for this Mac' + NewMac6.Visible = False + Action.Caption = "Memory" + ActionDescription.Caption = "You can configure the RAM on this Mac" + NewMac5.Visible = True + GoTo EndNext +End If + + +'Back from the page 'Finishing the New Mac Wizard'. Note: This changes as which option was choosen +If NewMacEnd.Visible = True Then + + 'If choosen the option 'Create a new Mac', this will return + 'to the 'RAM' page + If CreateNew.Value = True Then + NewMacEnd.Visible = False + cmdNext.Caption = "Next >" + NewMacWizard.Visible = True + NewMac6.Visible = True + GoTo EndNext + End If + + 'If choosen the option 'Use default settings to create a Virtual Mac' + 'this will return to the page 2 + If UseDefaults.Value = True Then + NewMacEnd.Visible = False + AdviceNoHD.Visible = False + cmdNext.Caption = "Next >" + NewMacWizard.Visible = True + NewMac3.Visible = True + GoTo EndNext + End If +End If + +EndNext: +End Sub + +Private Sub cmdCancel_Click() + 'If you cahnge of opinion and you think you don't need + 'a New Mac, this will Unload the current Window + Unload Me +End Sub + +Private Sub cmdNext_Click() +'Here is the REALLY HARD work. This code will make you advance +'throught the assistant. This will check which page (Frame) is +'shown and in base to your choices, it will show diferrent things + +'Declarations +Dim MemStat As MEMORYSTATUS +Dim RAM As Long +Dim MacName As String +Dim VMemory As Long +Dim VDisk As Long +Dim VArch As String + +'Assigning values to the declarations +MacName = Replace(FileNameC.Text, ".mcc", "") +VMemory = Replace(MemoryMB, " MB", "") +VDisk = DiskSizeMB +VArch = CPUArch.Caption + +GlobalMemoryStatus MemStat +RAM = Str$(MemStat.dwTotalPhys / 1024 / 1024) + + +If NewMac1.Visible = True Then 'Shows the assistant + NewMacWizard.Visible = True + NewMac1.Visible = False + NewMac2.Visible = True + cmdBack.Enabled = True + GoTo EndNext +End If + +If NewMac2.Visible = True Then 'This will differ as the option you choose + + If AddExist.Value = True Then 'If you want to add from existing file + NewMac2.Visible = False + Action.Caption = "Existing Virtual Macintosh Name and Location" + ActionDescription.Caption = "You can add a .mcc file from this computer or another computer to the Virtual Mac Console" + NewMacFromExist.Visible = True + FileNameA.SetFocus + GoTo EndNext + End If + + NewMac2.Visible = False 'If you want to create a NEW Mac + Action.Caption = "Virtual Macintosh Name and Location" + ActionDescription.Caption = "The name you specify will appear in the list of Virtual Macintoshes in the Virtual Mac Console" + NewMac3.Visible = True + FileNameC.SetFocus + GoTo EndNext +End If + +If NewMac3.Visible = True Then 'This will differ too with the choice that you've made before + + If Not Browse.FileTitle = "" Then + MacName = Replace(Browse.FileTitle, ".mcc", "") + End If + + If Browse.FileTitle = "" Then + MacName = FileNameC + End If + + If CreateNew.Value = True Then 'If you choosed to Create a new thing and follow instruction step by step + AutoDetectOS + Action.Caption = "Operating System" + ActionDescription.Caption = "Select the operating system you plan to install on this machine" + NewMac3.Visible = False + cmdBack.Default = True + cmdNext.Default = True + cmdNext.SetFocus + NewMac4.Visible = True + GoTo EndNext + End If + + If UseDefaults.Value = True Then 'If you don't wanna waste time and just want a new machine NOW + AutoDetectOS + 'AutoConfigure 'This will be uncommented when implemmented + VMName.Caption = MacName + NewMacWizard.Visible = False + cmdNext.Caption = "Finish" + cmdBack.Default = True + cmdNext.Default = True + cmdNext.SetFocus + AdviceNoHD.Visible = True + NewMacEnd.Visible = True + GoTo EndNext + End If + +End If + + +'Move away from the OS page and choose the RAM for you new Mac! +'(Only avaible when creating new one, not when you choosed use defaults) +If NewMac4.Visible = True Then + NewMac4.Visible = False + Action.Caption = "Memory" + ActionDescription.Caption = "You can configure the RAM on this Mac" + RAMAdjust.Max = RAM + RAMAdjust.Value = VMemory + RAMMegabyteNumber.Text = VMemory + RecRAM.Caption = "Recommended RAM: [" & MemoryMB.Caption & "]" + NewMac5.Visible = True + GoTo EndNext +End If + +If NewMac5.Visible = True Then 'Configure you new hard disk! + NewMac5.Visible = False + Action.Caption = "Virtual Hard Disk Location" + ActionDescription.Caption = "This wizard creates a fixed size virtual disk with the specified size" + DiskSizeMB.Text = Replace(DiskMB.Caption, " MB", "") + + If Not Browse.FileName = "" Then + NewMac7VDName.Text = Replace(Browse.FileName, ".mcc", ".dsk") + End If + + If Browse.FileName = "" Then + NewMac7VDName = frmOptions.DefaultMacFolder & "\" & MacName & ".dsk" + End If + + NewMac6.Visible = True + GoTo EndNext +End If + +If NewMac6.Visible = True Then 'You'll see the Finish page + NewMac6.Visible = False + OpenSettingsAfterFinish.Visible = False + NewMacWizard.Visible = False + cmdNext.Caption = "Finish" + NewMacEnd.Visible = True + GoTo EndNext +End If + + +If NewMacEnd.Visible = True Then + + frmMain.VMList.AddItem MacName + + frmMain.RedrawList + + Unload Me + If OpenSettingsAfterFinish.Visible = True Then + If OpenSettingsAfterFinish.Value = 1 Then + + frmVMSettings.Show MacName + End If + End If + +End If + +EndNext: +End Sub + + +Public Sub AutoDetectOS() +'This is another part of hard work. This works 60% +'since when it finds: 5,6,7,7.,8,9,10,10. and X +'it will automatically detect an OS. Later I will add +'CodeNames to this 'Detector' + +'Declarations +Dim OSDetected As Integer +Dim Found As Long +Dim VDisk As Long +Dim VMemory As Long +Dim VArch As String +Dim Arch As String + +'Thing that checks if you wrote any of these characters: +'"5","6","7","7.","8","9","10","10.","X" + +Found = InStr(FileNameC.Text, " 5 ") +If Found <> 0 Then +OSDetected = 5 +GoTo HardwareEngineer +End If + +SysSoftware6: +Found = InStr(FileNameC.Text, " 6 ") +If Found <> 0 Then +OSDetected = 6 +GoTo HardwareEngineer +End If + +MacOS70: +Found = InStr(FileNameC.Text, " 7 ") +If Found <> 0 Then +OSDetected = 70 +GoTo HardwareEngineer +End If + +Found = InStr(FileNameC.Text, " 7.") +If Found <> 0 Then +OSDetected = 75 +GoTo HardwareEngineer +End If + +MacOS8: +Found = InStr(FileNameC.Text, " 8 ") +If Found <> 0 Then +OSDetected = 8 +GoTo HardwareEngineer +End If + +MacOS9: +Found = InStr(FileNameC.Text, " 9 ") +If Found <> 0 Then +OSDetected = 9 +GoTo HardwareEngineer +End If + +MacOSClassic: +Found = InStr(FileNameC.Text, " 9.") +If Found <> 0 Then +OSDetected = 9 +GoTo HardwareEngineer +End If + +OSX: +Found = InStr(FileNameC.Text, " X ") +If Found <> 0 Then +OSDetected = 10 +GoTo HardwareEngineer +End If + +Found = InStr(FileNameC.Text, " 10 ") +If Found <> 0 Then +OSDetected = 10 +GoTo HardwareEngineer +End If + +Found = InStr(FileNameC.Text, " 10.") +If Found <> 0 Then +OSDetected = 10 +GoTo HardwareEngineer +End If + +'These instructions set the OS to Other when you've not wrote any of these characters +If OSDetected <> 0 Then GoTo HardwareEngineer + +OSDetected = 1 + +'This 'Hardware Engineer' makes default hardware choices for a specific OS +'Soon I will add support for Darwin and Linux +HardwareEngineer: + Select Case OSDetected + Case "5" 'System Software 5 Detected + VMemory = 4 + VDisk = 100 + VArch = "m68k" + OSList.ListIndex = 0 + Case "6" 'System Software 6 Detected + VMemory = 8 + VDisk = 100 + VArch = "m68k" + OSList.ListIndex = 1 + Case "70" 'MacOS 7.0/7.1 Detected + VMemory = 16 + VDisk = 200 + VArch = "m68k" + OSList.ListIndex = 2 + Case "75" 'MacOS 7.5/7.6 Detected + VMemory = 32 + VDisk = 500 + VArch = "PPC" + OSList.ListIndex = 3 + Case "8" 'MacOS 8 Detected + VMemory = 64 + VDisk = 500 + VArch = "PPC" + OSList.ListIndex = 4 + Case "9" 'MacOS 9/Classic Detected + VMemory = 128 + VDisk = 1024 + VArch = "PPC" + OSList.ListIndex = 5 + Case "10" 'OS X Detected + VMemory = 256 + VDisk = 3072 + VArch = "PPC" + OSList.ListIndex = 6 + Case "1" 'Couldn't detect the OS, so it's set to other + VMemory = 128 + VDisk = 500 + VArch = "PPC" + OSList.ListIndex = 7 + End Select + +ArchFixer: + Select Case VArch + Case "m68k" + Arch = "Motorola 68000" + Case "PPC" + Arch = "PowerPC" + End Select + +ListFixer: + MemoryMB.Caption = VMemory & " MB" + DiskMB.Caption = VDisk & " MB" + CPUArch.Caption = Arch + +End Sub + +Private Sub DiskSizeMB_Change() +'This is the tiny code that makes the slider and the textbox to synchronize + +On Error Resume Next + +If DiskSizeMB.Text = "" Then +cmdNext.Enabled = False +WarningLowerSize.Visible = True +DiskSizeMB.SetFocus +Else +cmdNext.Enabled = True +WarningLowerSize.Visible = False +DiskSizeMB.SetFocus +End If + +If DiskSizeMB.Text > 130557 Then +cmdNext.Enabled = False +WarningLowerSize.Visible = True +DiskSizeMB.SetFocus +Else +cmdNext.Enabled = True +WarningLowerSize.Visible = False +DiskSizeMB.SetFocus +End If + +End Sub + +Private Sub DiskSizeMB_Click() +DiskSizeMB.SetFocus +End Sub + +Private Sub DiskSizeMB_KeyPress(KeyAscii As Integer) +'Goes to a function that makes that you can only press numbers, +'no letters, no dots, no special characters +KeyAscii = VerifyKey(KeyAscii) + +End Sub + +Private Sub NewVDBrowse_Click() +'Opens the dialog to let you choice the location of the new hard disk + +Browse.Filter = "Virtual Mac Disk (*.dsk)|*.dsk|All files (*.*)|*.*" +Browse.ShowSave +NewMac7VDName.Text = Browse.FileName +End Sub + +Private Sub RAMMegabyteNumber_GotFocus() +'This selects all the text when you click the TextBox with the +'Megabytes of RAM for your machine + +RAMMegabyteNumber.SelStart = 0 +RAMMegabyteNumber.SelLength = Len(RAMMegabyteNumber.Text) +End Sub + +Private Sub Recommend_Click() +'Makes Invisible the Frame with the RAM Slider so you will use the default RAM for the machine + +If Recommend.Value = True Then +RAMAdjuster.Visible = False +RAMAdjust.TabStop = False +RAMMegabyteNumber.TabStop = False +End If +End Sub + +Private Sub FileNameC_GotFocus() +'Selects all the text when you click in the machine FileName TextBox + +FileNameC.SelStart = 0 +FileNameC.SelLength = Len(FileNameC.Text) +End Sub + +Private Sub OSList_Change() +'Fixes the OSList so it will show the processor, +'amount of RAM and disk as you select another OS + +ListFixer: + MemoryMB.Caption = VMemory & " MB" + DiskMB.Caption = VDisk & " MB" + CPUArch.Caption = Arch + +End Sub + +Private Sub OSList_Click() +'Fixes the OSList so it will show the processor, +'amount of RAM and disk as you select another OS + +'Boring delcarations +Dim ChangeOS As Integer + +'Same as Hardware Engineer, it selects a default amount of RAM, disk and the right processor +HardwareFixer: + Select Case OSList.ListIndex + Case "0" + VMemory = 4 + VDisk = 100 + VArch = "m68k" + Case "1" + VMemory = 8 + VDisk = 100 + VArch = "m683" + Case "2" + VMemory = 16 + VDisk = 200 + VArch = "m684" + Case "3" + VMemory = 32 + VDisk = 200 + VArch = "PPC" + Case "4" + VMemory = 64 + VDisk = 500 + VArch = "PPC" + Case "5" + VMemory = 128 + VDisk = 500 + VArch = "PPC" + Case "6" + VMemory = 256 + VDisk = 1024 + VArch = "PPC" + Case "7" + VMemory = 128 + VDisk = 1024 + VArch = "PPC" + End Select + +ArchFixer: + Select Case VArch + Case "m68k" + Arch = "Motorola 68000" + Case "m682" + Arch = "Motorola 68020" + Case "m683" + Arch = "Motorola 68030" + Case "m684" + Arch = "Motorola 68040" + Case "PPC" + Arch = "PowerPC" + End Select + +'This fixes the list and labels +ListFixer: + MemoryMB.Caption = VMemory & " MB" + DiskMB.Caption = VDisk & " MB" + CPUArch.Caption = Arch +ChangeOS = OSList.ListIndex + +End Sub + +Private Sub RAMAdjust_Scroll() +'Synchronizes the slider and the TextBox + +RAMMegabyteNumber.Text = RAMAdjust.Value + +End Sub + +Private Sub RAMMegabyteNumber_Change() +'Makes that the value of the TextBox will be represented in the slider + +On Error GoTo ErrorHandler + +RAMAdjust.Value = RAMMegabyteNumber + + + +ErrorHandler: +If Not Err.Number = 0 Then + If Err.Number = 13 Then + RAMAdjust.Value = 0 + End If + + If Err.Number <> 13 Then + MsgBox Err.Description, vbCritical + End If +End If +End Sub + +Private Sub RAMMegabyteNumber_KeyPress(KeyAscii As Integer) + +KeyAscii = VerifyKey(KeyAscii) + +End Sub + +Function VerifyKey(PressedKey) +'Lets only to send the keys assigned to numbers in the keyboard + +'Declarations +Dim AllowedKeys As String + + 'Here are listed the 'allowed' keys + AllowedKeys = "1234567890" & Chr(vbKeyBack) + + 'Here is made the check with a 'If' instruction + If InStr(1, AllowedKeys, Chr(PressedKey)) Then + VerifyKey = PressedKey 'If the pressed key is one of the allowed + Else + VerifyKey = 0 + End If + + +End Function + +Public Sub AddVM() +'This procedure will, make place where at the end +'of the assistant the machine is made and the config file +'is written to disk. But for now it's incomplete + +frmMain.RedrawList 'Verifies for new items and redraws the list + +End Sub diff --git a/frmNewMac.frx b/frmNewMac.frx new file mode 100644 index 0000000..024aaf4 Binary files /dev/null and b/frmNewMac.frx differ diff --git a/frmOptions.frm b/frmOptions.frm new file mode 100644 index 0000000..54f07da --- /dev/null +++ b/frmOptions.frm @@ -0,0 +1,346 @@ +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 diff --git a/frmOptions.frx b/frmOptions.frx new file mode 100644 index 0000000..58ad05f Binary files /dev/null and b/frmOptions.frx differ diff --git a/frmSplash.frm b/frmSplash.frm new file mode 100644 index 0000000..89813b8 --- /dev/null +++ b/frmSplash.frm @@ -0,0 +1,167 @@ +VERSION 5.00 +Object = "{DA729E34-689F-49EA-A856-B57046630B73}#1.0#0"; "CustomProgressBar.ocx" +Begin VB.Form frmSplash + BackColor = &H8000000A& + BorderStyle = 3 'Fixed Dialog + ClientHeight = 4845 + ClientLeft = 45 + ClientTop = 45 + ClientWidth = 6315 + ControlBox = 0 'False + FillColor = &H8000000A& + BeginProperty Font + Name = "Tahoma" + Size = 27.75 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H8000000A& + Icon = "frmSplash.frx":0000 + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + MouseIcon = "frmSplash.frx":000C + MousePointer = 99 'Custom + Picture = "frmSplash.frx":015E + ScaleHeight = 4845 + ScaleWidth = 6315 + ShowInTaskbar = 0 'False + StartUpPosition = 2 'CenterScreen + Begin Proyecto2.XP_ProgressBar LoadingBar + CausesValidation= 0 'False + Height = 200 + Left = 1950 + TabIndex = 3 + TabStop = 0 'False + Top = 4350 + Width = 2415 + _ExtentX = 4260 + _ExtentY = 344 + 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 + BrushStyle = 0 + Color = 16744528 + Max = 10000 + Scrolling = 9 + End + Begin VB.Timer BarLoader + Interval = 1 + Left = 360 + Top = 0 + End + Begin VB.Timer LoadingTimer + Interval = 1000 + Left = 0 + Top = 0 + End + Begin VB.Label Mac + Alignment = 2 'Center + BackStyle = 0 'Transparent + Caption = "Mac" + BeginProperty Font + Name = "David Transparent" + Size = 48 + Charset = 177 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + ForeColor = &H00C06C3A& + Height = 975 + Left = 3675 + TabIndex = 2 + Top = 2520 + Width = 1725 + End + Begin VB.Label Starting + Alignment = 2 'Center + BackStyle = 0 'Transparent + Caption = "Starting..." + BeginProperty Font + Name = "System" + Size = 9.75 + Charset = 0 + Weight = 700 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Left = 2310 + TabIndex = 1 + Top = 4080 + Width = 1695 + End + Begin VB.Label Virtual + Alignment = 2 'Center + BackStyle = 0 'Transparent + Caption = "Virtual" + BeginProperty Font + Name = "David Transparent" + Size = 48 + Charset = 177 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 975 + Left = 915 + TabIndex = 0 + Top = 2520 + Width = 2685 + End +End +Attribute VB_Name = "frmSplash" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Private Declare Sub InitCommonControls Lib "comctl32" () + +Private Sub BarLoader_Timer() +Dim X As Integer + +X = 0 + +For X = 0 To 5000 +LoadingBar.Value = X +Next + +BarLoader.Enabled = False + +End Sub + +Private Sub Form_Initialize() +InitCommonControls +End Sub + +Private Sub Form_Load() + +With LoadingBar + + LoadingBar.Max = 5000 + LoadingBar.Min = 0 + LoadingBar.Value = 0 + +End With + +End Sub + +Private Sub LoadingTimer_Timer() +Unload Me +frmMain.VirtualMacTrayIcon.PonerSystray +frmMain.Show +End Sub + diff --git a/frmSplash.frx b/frmSplash.frx new file mode 100644 index 0000000..93b8f0e Binary files /dev/null and b/frmSplash.frx differ diff --git a/frmVMSettings.frm b/frmVMSettings.frm new file mode 100644 index 0000000..f26d77a --- /dev/null +++ b/frmVMSettings.frm @@ -0,0 +1,59 @@ +VERSION 5.00 +Begin VB.Form frmVMSettings + BorderStyle = 3 'Fixed Dialog + Caption = "Settings for Macintosh" + ClientHeight = 5835 + ClientLeft = 45 + ClientTop = 435 + ClientWidth = 8865 + BeginProperty Font + Name = "Tahoma" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Icon = "frmVMSettings.frx":0000 + LinkTopic = "Form1" + MaxButton = 0 'False + MinButton = 0 'False + ScaleHeight = 5835 + ScaleWidth = 8865 + ShowInTaskbar = 0 'False + StartUpPosition = 3 'Windows Default + Begin VB.CommandButton cmdCancel + Cancel = -1 'True + Caption = "Cancel" + Height = 320 + Left = 7680 + TabIndex = 1 + Top = 5400 + Width = 1095 + End + Begin VB.CommandButton cmdOK + Caption = "OK" + Height = 320 + Left = 6480 + TabIndex = 0 + Top = 5400 + Width = 1095 + End +End +Attribute VB_Name = "frmVMSettings" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False +Private Sub cmdCancel_Click() +Unload Me 'Saves nothing and closes the dialog +End Sub + +Private Sub cmdOK_Click() +SaveSettings: +'Save settings in a file + +Unload Me + +End Sub diff --git a/frmVMSettings.frx b/frmVMSettings.frx new file mode 100644 index 0000000..b20c2b6 Binary files /dev/null and b/frmVMSettings.frx differ diff --git a/frmVirtualMacintosh.frm b/frmVirtualMacintosh.frm new file mode 100644 index 0000000..2acd5b0 --- /dev/null +++ b/frmVirtualMacintosh.frm @@ -0,0 +1,194 @@ +VERSION 5.00 +Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX" +Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX" +Begin VB.Form frmVirtualMacintosh + BorderStyle = 1 'Fixed Single + Caption = "Macintosh - Virtual Mac" + ClientHeight = 7560 + ClientLeft = 150 + ClientTop = 840 + ClientWidth = 10770 + BeginProperty Font + Name = "Tahoma" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = 0 'False + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Icon = "frmVirtualMacintosh.frx":0000 + LinkTopic = "Form1" + MaxButton = 0 'False + ScaleHeight = 7560 + ScaleWidth = 10770 + StartUpPosition = 3 'Windows Default + Begin MSComDlg.CommonDialog Browser + Left = 0 + Top = 6840 + _ExtentX = 847 + _ExtentY = 847 + _Version = 393216 + End + Begin ComctlLib.StatusBar VMStatusBar + Align = 2 'Align Bottom + Height = 300 + Left = 0 + TabIndex = 1 + Top = 7260 + Width = 10770 + _ExtentX = 18997 + _ExtentY = 529 + SimpleText = "" + _Version = 327682 + BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} + NumPanels = 5 + BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} + Bevel = 0 + Object.Width = 529 + MinWidth = 529 + Object.Tag = "" + EndProperty + BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} + AutoSize = 2 + Object.Width = 529 + MinWidth = 529 + Text = "2" + TextSave = "2" + Object.Tag = "" + EndProperty + BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} + Bevel = 2 + Object.Width = 529 + MinWidth = 529 + Text = "3" + TextSave = "3" + Object.Tag = "" + EndProperty + BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} + Bevel = 0 + Object.Width = 529 + MinWidth = 529 + Text = "4" + TextSave = "4" + Object.Tag = "" + EndProperty + BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7} + AutoSize = 2 + Bevel = 0 + Enabled = 0 'False + Object.Width = 344 + MinWidth = 353 + Text = "|" + TextSave = "|" + Object.Tag = "" + EndProperty + EndProperty + 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 + End + Begin VB.PictureBox VMScreen + Height = 7335 + Left = 0 + Picture = "frmVirtualMacintosh.frx":18BA + ScaleHeight = 7275 + ScaleWidth = 10755 + TabIndex = 0 + TabStop = 0 'False + Top = 0 + Width = 10815 + End + Begin VB.Menu mnuAction + Caption = "Action" + Begin VB.Menu mnuActionFullScreen + Caption = "Full Screen Mode" + Enabled = 0 'False + Shortcut = %{BKSP} + End + Begin VB.Menu mnuActionBar0 + Caption = "-" + End + Begin VB.Menu mnuActionCloseVM + Caption = "Close" + End + End + Begin VB.Menu mnuCD + Caption = "CD" + Begin VB.Menu mnuCDCapture + Caption = "Capture ISO Image..." + End + Begin VB.Menu mnuCDBar0 + Caption = "-" + End + Begin VB.Menu mnuCDRelease + Caption = "Release CD" + Enabled = 0 'False + End + End + Begin VB.Menu mnuFloppy + Caption = "Floppy" + Begin VB.Menu mnuFloppyCapture + Caption = "Capture Floppy Disk Image..." + End + Begin VB.Menu mnuFloppyBar0 + Caption = "-" + End + Begin VB.Menu mnuFloppyRelease + Caption = "Release Disk" + Enabled = 0 'False + End + End + Begin VB.Menu mnuHelp + Caption = "Help" + Begin VB.Menu mnuHelpContents + Caption = "Virtual Mac Help" + Enabled = 0 'False + End + Begin VB.Menu mnuHelpBar0 + Caption = "-" + End + Begin VB.Menu mnuHelpOnline + Caption = "Virtual Mac Online" + Enabled = 0 'False + End + Begin VB.Menu mnuHelpBar1 + Caption = "-" + End + Begin VB.Menu mnuHelpAbout + Caption = "About Virtual Mac..." + End + End +End +Attribute VB_Name = "frmVirtualMacintosh" +Attribute VB_GlobalNameSpace = False +Attribute VB_Creatable = False +Attribute VB_PredeclaredId = True +Attribute VB_Exposed = False + +Private Sub mnuActionCloseVM_Click() +Unload Me +End Sub + +Private Sub mnuCDCapture_Click() +Browser.Filter = "Disc Images (*.iso)|*.iso|All files (*.*)|*.*" +Browser.ShowOpen +MsgBox Browser.FileName +End Sub + +Private Sub mnuFloppyCapture_Click() +Browser.Filter = "Floppy Images (*.img;*.ima)|*.img;*.ima|All files (*.*)|*.*" +Browser.ShowOpen +MsgBox Browser.FileName +End Sub + +Private Sub mnuHelpAbout_Click() +frmAbout.Show +End Sub + diff --git a/frmVirtualMacintosh.frx b/frmVirtualMacintosh.frx new file mode 100644 index 0000000..a4281d5 Binary files /dev/null and b/frmVirtualMacintosh.frx differ