mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-09-28 09:54:44 +00:00
8b3286fe05
New Mac Wizard working, and revamped, so now you choose emulator and OS. Thank to adespoton for the Mac compatibility matrix. (https://docs.google.com/spreadsheets/d/1us6SCBgVs8NqbxofJXTmHDeK3nKQJpcgya2nWC9_t2w/edit#gid=0) Now PearPC files can be loaded and saved (I've taken code from PearPC Config File Generator and adapted it to Virtual Mac) Still getting the challenge of dealing with BII and SheepShaver config files. Will upload new versions of files when they work. Updated to 0.6.1 in file version, but technically it's 0.6.1 Beta (Or 0.6.1 RC, 0.6.0, not the final 0.6.1) Now with some investigation, the app is "translated" to Spanish and German (Please forgive the bad German translation, I used GTranslate and Virtual PC as reference points for this). To change the language, go to File > Options > Language and select the new language. Note that German(de-DE) or Spanish(es-MX) might be loaded by default if you are using these languages in you Windows installation. Note that the translation is crap, and is not complete, so many parts are still in English. Will try to fix this in 0.7.1 Still need to fix Saving BII and SS files, so this is not final 0.6.1, will release a "revision" later.
126 lines
4.8 KiB
VB.net
126 lines
4.8 KiB
VB.net
Public Class frmNewDisk
|
|
Private Sub frmNewDisk_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
SetInitialData()
|
|
End Sub
|
|
|
|
Public Sub SetInitialData()
|
|
DiskSizeDefaults.SelectedIndex = 0
|
|
Welcome.BringToFront()
|
|
Welcome.Visible = True
|
|
Wizard.Visible = False
|
|
EndWizard.Visible = False
|
|
End Sub
|
|
|
|
Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub cmdNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdNext.Click
|
|
If Welcome.Visible = True Then
|
|
If DiskPath.Text = "" Then
|
|
cmdNext.Enabled = False
|
|
Else
|
|
cmdNext.Enabled = True
|
|
End If
|
|
|
|
SwitchPages(Welcome, Wizard)
|
|
cmdBack.Enabled = True
|
|
DiskPath.Focus()
|
|
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If DiskPath.Text <> "" And Wizard.Visible = True Then
|
|
Dim SizeToGrow As Integer = FixControlHeight(EndDefPath, EndWizard, 30)
|
|
EndDefSize.Top = EndDefSize.Top + SizeToGrow
|
|
EndDefSizeLabel.Top = EndDefSizeLabel.Top + SizeToGrow
|
|
EndInfoFinish.Top = EndInfoFinish.Top + SizeToGrow
|
|
|
|
EndDefPath.Text = DiskPath.Text
|
|
EndDefSize.Text = DiskSize.Value & " MB"
|
|
|
|
SwitchPages(Wizard, EndWizard)
|
|
cmdNext.Text = "Finish"
|
|
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
If EndWizard.Visible = True Then
|
|
CreateDiskInBackground.RunWorkerAsync(DiskSize.Value & ";" & DiskPath.Text)
|
|
MsgBox("The image ''" & DiskPath.Text & "'' is being created in the background.", MsgBoxStyle.Exclamation, "Creating disk image")
|
|
Me.Close()
|
|
GoTo EndOfInstruction
|
|
End If
|
|
|
|
EndOfInstruction:
|
|
|
|
End Sub
|
|
|
|
Public Function FixControlHeight(ByVal Control As System.Windows.Forms.Control, ByVal Parent As System.Windows.Forms.Control, ByVal LeftMargin As Long) As Integer
|
|
'Parent - Control.Location = Total size of the area where is visible the control
|
|
'Size of the area where the control should be - Margin = Are where we want the control to stay on
|
|
'Note that this is only minding the Width/X growing the height, so a certain space is respected
|
|
Dim StayArea As UInteger = ((Parent.Width - Control.Location.X) - LeftMargin)
|
|
Dim StayAreaTimes As Integer
|
|
Dim HeightGrowth As Integer
|
|
Dim OldHeight As Integer = Control.Height
|
|
|
|
If (Control.PreferredSize.Width) > StayArea Then
|
|
If Not Control.Height > Control.PreferredSize.Height Then
|
|
While (Control.PreferredSize.Width) > StayAreaTimes
|
|
StayAreaTimes = StayAreaTimes + StayArea
|
|
End While
|
|
StayAreaTimes -= StayArea
|
|
Dim PercentageToGrow As Integer = StayAreaTimes / StayArea + 1
|
|
HeightGrowth = OldHeight * PercentageToGrow
|
|
Control.Height = HeightGrowth
|
|
End If
|
|
End If
|
|
|
|
Return HeightGrowth
|
|
|
|
End Function
|
|
|
|
Private Sub cmdBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBack.Click
|
|
|
|
If Wizard.Visible = True Then
|
|
cmdBack.Enabled = False
|
|
cmdNext.Enabled = True
|
|
SwitchPages(Wizard, Welcome)
|
|
End If
|
|
|
|
If EndWizard.Visible = True Then
|
|
SwitchPages(EndWizard, Wizard)
|
|
cmdNext.Text = "Next >"
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Sub SwitchPages(ByVal EarlyPage As System.Windows.Forms.Panel, ByVal NewPage As System.Windows.Forms.Panel)
|
|
EarlyPage.BringToFront()
|
|
NewPage.Visible = True
|
|
NewPage.BringToFront()
|
|
EarlyPage.Visible = False
|
|
End Sub
|
|
|
|
Private Sub SaveDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveDisk.Click
|
|
Save.ShowDialog()
|
|
If Save.FileName <> "" Then
|
|
DiskPath.Text = Save.FileName
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub DiskPath_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DiskPath.TextChanged
|
|
If DiskPath.Text <> "" Then
|
|
cmdNext.Enabled = True
|
|
Else
|
|
cmdNext.Enabled = False
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CreateDiskInBackground_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles CreateDiskInBackground.DoWork
|
|
Dim HDSize As Long = e.Argument.ToString.Substring(0, InStr(e.Argument.ToString, ";") - 1)
|
|
Dim HDPath As String = e.Argument.ToString.Substring(InStr(e.Argument.ToString, ";"))
|
|
DiskImageCreator.CreateRawDisk(HDSize, HDPath)
|
|
End Sub
|
|
End Class |