mirror of
https://github.com/SistemaRayoXP/Virtual-Mac.git
synced 2024-06-01 17:41:36 +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.
37 lines
1.7 KiB
VB.net
37 lines
1.7 KiB
VB.net
Option Strict Off
|
|
Option Explicit On
|
|
Friend Class frmAbout
|
|
Inherits System.Windows.Forms.Form
|
|
' ; Note for me: The labels can confuse values with the declarations, rename them
|
|
|
|
Private Sub EmaculationLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles EmaculationLink.LinkClicked
|
|
Process.Start("http://www.emaculation.com/doku.php")
|
|
End Sub
|
|
|
|
Private Sub ArmandoLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles ArmandoLink.LinkClicked
|
|
Process.Start("http://edsonarmando.000webhostapp.com")
|
|
End Sub
|
|
|
|
Private Sub frmAbout_ChangeUICues(sender As Object, e As System.Windows.Forms.UICuesEventArgs) Handles Me.ChangeUICues
|
|
MsgBox(sender.ToString)
|
|
End Sub
|
|
|
|
Private Sub frmAbout_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
My.Application.ChangeUICulture(My.Settings.Lang)
|
|
OSName.Text = SysInfo.OSName
|
|
OSVersion.Text = SysInfo.OSBuild
|
|
CPUType.Text = SysInfo.CPUClass
|
|
CPUCores.Text = SysInfo.CPUCores
|
|
RAMInstalled.Text = SysInfo.InstalledRAM
|
|
CurrUsr.Text = SysInfo.UserName
|
|
PCName.Text = SysInfo.ComputerName
|
|
|
|
Dim AvailRAM As Long = (My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024
|
|
RAMAvailable.Text = AvailRAM & " MB"
|
|
End Sub
|
|
|
|
Private Sub AvailMemTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvailMemTimer.Tick
|
|
Dim AvailRAM As Long = (My.Computer.Info.AvailablePhysicalMemory / 1024) / 1024
|
|
RAMAvailable.Text = AvailRAM & " MB"
|
|
End Sub
|
|
End Class |