Add files via upload
This commit is contained in:
parent
645a732d65
commit
708ec3d40c
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
@ -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=<This is an empty string for the mssccprj.scc file>
|
Binary file not shown.
|
@ -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
|
|
@ -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
|
|
@ -0,0 +1,4 @@
|
|||
Attribute VB_Name = "basDeclarations"
|
||||
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
|
||||
ByVal hWndNewParent As Long) As Long
|
||||
|
|
@ -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
|
Binary file not shown.
|
@ -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
|
Binary file not shown.
|
@ -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
|
Binary file not shown.
File diff suppressed because it is too large
Load Diff
Binary file not shown.
|
@ -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
|
Binary file not shown.
|
@ -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
|
||||
|
Binary file not shown.
|
@ -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
|
Binary file not shown.
|
@ -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
|
||||
|
Binary file not shown.
Loading…
Reference in New Issue