home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PROG_BAS
/
PWBROW.ZIP
/
DISP.FRM
< prev
next >
Wrap
Text File
|
1994-01-27
|
11KB
|
341 lines
VERSION 2.00
Begin Form frmDisp
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Display Version Information"
ClientHeight = 4800
ClientLeft = 5265
ClientTop = 765
ClientWidth = 7770
Height = 5265
Icon = DISP.FRX:0000
Left = 5175
LinkTopic = "Form2"
MaxButton = 0 'False
ScaleHeight = 4800
ScaleWidth = 7770
Top = 390
Width = 7950
Begin Label lblInternalName
BackStyle = 0 'Transparent
Caption = "lblInternalName"
Height = 255
Left = 1680
TabIndex = 0
Top = 2160
Width = 6015
End
Begin Label Label12
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Internal Name:"
Height = 255
Left = 120
TabIndex = 1
Top = 2160
Width = 1455
End
Begin Label lblTrademarks
BackStyle = 0 'Transparent
Caption = "lblTrademarks"
Height = 375
Left = 1680
TabIndex = 2
Top = 3120
Width = 6015
End
Begin Label lblCopyright
BackStyle = 0 'Transparent
Caption = "lblCopyright"
Height = 375
Left = 1680
TabIndex = 3
Top = 2760
Width = 6015
End
Begin Label Label3
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Trademarks:"
Height = 255
Left = 240
TabIndex = 4
Top = 3120
Width = 1335
End
Begin Label Label16
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Copyright:"
Height = 255
Left = 120
TabIndex = 5
Top = 2760
Width = 1455
End
Begin Label lblOriginalFileName
BackStyle = 0 'Transparent
Caption = "lblOriginalFileName"
Height = 255
Left = 1680
TabIndex = 6
Top = 1920
Width = 6015
End
Begin Label Label2
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Original Name:"
Height = 255
Left = 240
TabIndex = 7
Top = 1920
Width = 1335
End
Begin Label lblComments
BackStyle = 0 'Transparent
Caption = "lblComments"
Height = 255
Left = 1680
TabIndex = 8
Top = 2400
Width = 6015
End
Begin Label Label1
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Comments:"
Height = 255
Left = 600
TabIndex = 9
Top = 2400
Width = 975
End
Begin Label lblLanguage
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "lblLanguage"
Height = 255
Left = 1680
TabIndex = 10
Top = 1680
Width = 6015
End
Begin Label Label13
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Language:"
Height = 255
Left = 600
TabIndex = 11
Top = 1680
Width = 975
End
Begin Label lblCompanyName
BackStyle = 0 'Transparent
Caption = "lblCompanyName"
Height = 255
Left = 1680
TabIndex = 12
Top = 1440
Width = 6015
End
Begin Label Label9
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Company Name:"
Height = 255
Left = 120
TabIndex = 13
Top = 1440
Width = 1455
End
Begin Label lblFileDescription
BackStyle = 0 'Transparent
Caption = "lblFileDescription"
Height = 255
Left = 1680
TabIndex = 14
Top = 960
Width = 6015
End
Begin Label Label8
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Description:"
Height = 255
Left = 240
TabIndex = 15
Top = 960
Width = 1335
End
Begin Label lblName
BackStyle = 0 'Transparent
Caption = "lblName"
Height = 255
Left = 1680
TabIndex = 16
Top = 240
Width = 6015
End
Begin Label Label7
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Name:"
Height = 255
Left = 840
TabIndex = 17
Top = 240
Width = 735
End
Begin Label lblFileVersion
BackStyle = 0 'Transparent
Caption = "lblFileVersion"
Height = 255
Left = 1680
TabIndex = 18
Top = 1200
Width = 6015
End
Begin Label Label5
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "File Version:"
Height = 255
Left = 120
TabIndex = 19
Top = 1200
Width = 1455
End
Begin Label lblSize
BackStyle = 0 'Transparent
Caption = "lblSize"
Height = 255
Left = 1680
TabIndex = 20
Top = 720
Width = 4095
End
Begin Label Label6
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Size:"
Height = 255
Left = 1080
TabIndex = 21
Top = 720
Width = 495
End
Begin Label lblDate
BackStyle = 0 'Transparent
Caption = "lblDate"
Height = 255
Left = 1680
TabIndex = 22
Top = 480
Width = 5415
End
Begin Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Last Modified:"
Height = 255
Left = 120
TabIndex = 23
Top = 480
Width = 1455
End
Begin Label Label10
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Product Name:"
Height = 255
Left = 240
TabIndex = 24
Top = 3600
Width = 1335
End
Begin Label lblProductName
BackStyle = 0 'Transparent
Caption = "lblProductName"
Height = 255
Left = 1680
TabIndex = 25
Top = 3600
Width = 6015
End
Begin Label Label11
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Product Version:"
Height = 255
Left = 120
TabIndex = 30
Top = 3840
Width = 1455
End
Begin Label lblProductVersion
BackStyle = 0 'Transparent
Caption = "lblProductVersion"
Height = 255
Left = 1680
TabIndex = 31
Top = 3840
Width = 6015
End
Begin Label lblSpecialBuild
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "lblSpecialBuild"
Height = 255
Left = 1680
TabIndex = 29
Top = 4200
Width = 6015
End
Begin Label lblPrivateBuild
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "lblPrivateBuild"
Height = 255
Left = 1680
TabIndex = 28
Top = 4440
Width = 6015
End
Begin Label Label15
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Private Build:"
Height = 255
Left = 240
TabIndex = 27
Top = 4440
Width = 1335
End
Begin Label Label14
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Special Build:"
Height = 255
Left = 240
TabIndex = 26
Top = 4200
Width = 1335
End
End
Sub Form_Load ()
frmDisp.Top = DispTop
frmDisp.Left = DispLeft
End Sub
Sub Form_Unload (Cancel As Integer)
If frmDisp.WindowState <> 1 Then
' window not minimized
DispTop = frmDisp.Top
DispLeft = frmDisp.Left
End If
End Sub
