Macintosh-Tools/Virtual-Mac
1
0
Fork 0
mirror of https://github.com/SistemaRayoXP/Virtual-Mac.git synced 2025-01-20 13:30:38 +00:00
Code Issues Projects Releases Wiki Activity
Virtual-Mac/frmAbout.frm

277 lines
9.2 KiB
Plaintext
Raw Normal View History

Add files via upload
2018-02-22 12:04:06 -06:00
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 <20> 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 <20> 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
Reference in New Issue Copy Permalink