home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1994 September
/
CICA_Shareware_for_Windows_Walnut_Creek_September_1994.iso
/
win3
/
winsock
/
gcp_24.exe
/
ABOUT.FR_
/
ABOUT.FR
Wrap
Text File
|
1994-03-06
|
6KB
|
197 lines
VERSION 2.00
Begin Form frmAbout
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "About VT-220 for Workgroups"
ClientHeight = 3075
ClientLeft = 2910
ClientTop = 2205
ClientWidth = 6165
ClipControls = 0 'False
ControlBox = 0 'False
Height = 3450
Left = 2865
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3075
ScaleWidth = 6165
Top = 1875
Width = 6255
Begin PictureBox Picture1
AutoSize = -1 'True
Height = 810
Left = 4140
Picture = ABOUT.FRX:0000
ScaleHeight = 780
ScaleWidth = 1710
TabIndex = 12
Top = 300
Width = 1740
End
Begin PictureBox picIcon
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Height = 480
Left = 420
Picture = ABOUT.FRX:0CAA
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 0
Top = 300
Width = 480
End
Begin Label Label2
BackStyle = 0 'Transparent
Caption = "(315) 841-8106"
Height = 255
Left = 1320
TabIndex = 3
Top = 1200
Width = 1935
WordWrap = -1 'True
End
Begin Label Label1
BackStyle = 0 'Transparent
Caption = "Dart Communications"
Height = 255
Left = 1320
TabIndex = 4
Top = 960
Width = 1815
WordWrap = -1 'True
End
Begin Label lblMath
BackStyle = 0 'Transparent
Caption = "Unknown"
Height = 255
Left = 3600
TabIndex = 11
Top = 2760
Width = 2295
End
Begin Label lblMemory
BackStyle = 0 'Transparent
Caption = "Unknown KB Free"
Height = 255
Left = 3600
TabIndex = 10
Top = 2520
Width = 2295
End
Begin Label Label9
BackStyle = 0 'Transparent
Caption = "Math Co-processor:"
Height = 255
Left = 1320
TabIndex = 9
Top = 2760
Width = 2175
End
Begin Label Label8
BackStyle = 0 'Transparent
Caption = "Memory:"
Height = 255
Left = 1320
TabIndex = 8
Top = 2520
Width = 2175
End
Begin Label lblCPU
BackStyle = 0 'Transparent
Caption = "x86 Unknown Mode"
Height = 255
Left = 1320
TabIndex = 7
Top = 2280
Width = 3495
End
Begin Line Line1
BorderWidth = 2
X1 = 1320
X2 = 5880
Y1 = 2160
Y2 = 2160
End
Begin Label lblSerialNumber
BackStyle = 0 'Transparent
Caption = "1.00"
Height = 255
Left = 2880
TabIndex = 6
Top = 1920
Width = 2055
End
Begin Label lblSerialNumberLabel
BackStyle = 0 'Transparent
Caption = "Version Number:"
Height = 255
Left = 1320
TabIndex = 5
Top = 1920
Width = 1455
End
Begin Label lblCredits
BackStyle = 0 'Transparent
Caption = "By Michael Baldwin"
Height = 255
Left = 1320
TabIndex = 2
Top = 480
Width = 2235
WordWrap = -1 'True
End
Begin Label lblTitle
BackStyle = 0 'Transparent
Caption = "VT-220 for Workgroups"
Height = 255
Left = 1320
TabIndex = 1
Top = 240
Width = 2295
End
End
Declare Function GetWinFlags Lib "Kernel" () As Long
Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long
Sub Form_Click ()
Unload Me
End Sub
Sub Form_Load ()
Me.Top = (Screen.Height - Me.Height) / 2
Me.Left = (Screen.Width - Me.Width) / 2
UpdateCPUInfo
End Sub
Sub Picture1_Click ()
Unload Me
End Sub
Sub UpdateCPUInfo ()
frmAbout.picIcon.Picture = frmMDI.Icon
Dim WinFlags As Long
WinFlags = GetWinFlags()
If WinFlags And &H2 Then CPU$ = "286 "
If WinFlags And &H4 Then CPU$ = "386 "
If WinFlags And &H8 Then CPU$ = "486 "
If WinFlags And &H20 Then
CPU$ = CPU$ + "Enhanced Mode"
Else
CPU$ = CPU$ + "Standard Mode"
End If
frmAbout.lblCPU.Caption = CPU$
frmAbout.lblMemory.Caption = Format$(GetFreeSpace(0) \ 1000) & " KB Free"
If WinFlags And &H400 Then
frmAbout.lblMath.Caption = "Present"
Else
frmAbout.lblMath.Caption = "None"
End If
End Sub