home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Multimédia la Compil' 2
/
Sybex_Multimedia_La_Compil_2.iso
/
cooltool
/
cooldrum
/
drmabout.frm
< prev
next >
Wrap
Text File
|
1995-04-20
|
4KB
|
125 lines
VERSION 2.00
Begin Form AboutBox1
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "About Mixer"
ClientHeight = 3885
ClientLeft = 1740
ClientTop = 1665
ClientWidth = 4500
ClipControls = 0 'False
ControlBox = 0 'False
ForeColor = &H00C0C0C0&
Height = 4290
Icon = DRMABOUT.FRX:0000
Left = 1680
LinkMode = 1 'Source
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3885
ScaleWidth = 4500
Top = 1320
Width = 4620
Begin CommandButton CmdOk
Caption = "Ok"
Height = 345
Left = 1740
TabIndex = 0
Top = 3420
Visible = 0 'False
Width = 1065
End
Begin Timer Timer1
Enabled = 0 'False
Interval = 1000
Left = 4020
Top = 1260
End
Begin Label Label3
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Copyright ⌐ 1995, Artic Software"
ForeColor = &H00808080&
Height = 195
Index = 1
Left = 1320
TabIndex = 1
Top = 1020
Width = 3435
End
Begin Label Label2
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "PO Box 28, Waterford, WI 53185-0028 USA"
ForeColor = &H00808080&
Height = 225
Index = 2
Left = 960
TabIndex = 2
Top = 3120
Width = 3435
End
Begin Label Label4
Alignment = 2 'Center
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "CoolDrum"
FontBold = -1 'True
FontItalic = -1 'True
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00808080&
Height = 495
Left = 60
TabIndex = 3
Top = 60
Width = 2595
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
BackStyle = 0 'Transparent
Caption = "Version 1.1"
ForeColor = &H00808080&
Height = 255
Left = 180
TabIndex = 4
Top = 600
Width = 2355
End
Begin Image Image1
Height = 3915
Left = 0
Picture = DRMABOUT.FRX:0302
Stretch = -1 'True
Top = 0
Width = 4575
End
End
Sub CmdOk_Click ()
Screen.MousePointer = 11
AboutBox1.Hide
Screen.MousePointer = 0
End Sub
Sub Form_Load ()
' Center the AboutBox on the screen
'
Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
Timer1.Enabled = True
End Sub
Sub Timer1_Timer ()
Screen.MousePointer = 11
CoolDrum.Show
AboutBox1.Hide
Screen.MousePointer = 0
Timer1.Enabled = False
AboutBox1.CmdOk.Visible = True
End Sub