home *** CD-ROM | disk | FTP | other *** search
/ Multimédia la Compil' 2 / Sybex_Multimedia_La_Compil_2.iso / cooltool / cooldrum / drmabout.frm < prev    next >
Text File  |  1995-04-20  |  4KB  |  125 lines
  1. VERSION 2.00
  2. Begin Form AboutBox1 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "About Mixer"
  6.    ClientHeight    =   3885
  7.    ClientLeft      =   1740
  8.    ClientTop       =   1665
  9.    ClientWidth     =   4500
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    ForeColor       =   &H00C0C0C0&
  13.    Height          =   4290
  14.    Icon            =   DRMABOUT.FRX:0000
  15.    Left            =   1680
  16.    LinkMode        =   1  'Source
  17.    LinkTopic       =   "Form1"
  18.    MaxButton       =   0   'False
  19.    MinButton       =   0   'False
  20.    ScaleHeight     =   3885
  21.    ScaleWidth      =   4500
  22.    Top             =   1320
  23.    Width           =   4620
  24.    Begin CommandButton CmdOk 
  25.       Caption         =   "Ok"
  26.       Height          =   345
  27.       Left            =   1740
  28.       TabIndex        =   0
  29.       Top             =   3420
  30.       Visible         =   0   'False
  31.       Width           =   1065
  32.    End
  33.    Begin Timer Timer1 
  34.       Enabled         =   0   'False
  35.       Interval        =   1000
  36.       Left            =   4020
  37.       Top             =   1260
  38.    End
  39.    Begin Label Label3 
  40.       Alignment       =   2  'Center
  41.       BackColor       =   &H00C0C0C0&
  42.       Caption         =   "Copyright ⌐ 1995, Artic Software"
  43.       ForeColor       =   &H00808080&
  44.       Height          =   195
  45.       Index           =   1
  46.       Left            =   1320
  47.       TabIndex        =   1
  48.       Top             =   1020
  49.       Width           =   3435
  50.    End
  51.    Begin Label Label2 
  52.       Alignment       =   2  'Center
  53.       BackColor       =   &H00C0C0C0&
  54.       Caption         =   "PO Box 28, Waterford, WI  53185-0028  USA"
  55.       ForeColor       =   &H00808080&
  56.       Height          =   225
  57.       Index           =   2
  58.       Left            =   960
  59.       TabIndex        =   2
  60.       Top             =   3120
  61.       Width           =   3435
  62.    End
  63.    Begin Label Label4 
  64.       Alignment       =   2  'Center
  65.       BackColor       =   &H00C0C0C0&
  66.       BackStyle       =   0  'Transparent
  67.       Caption         =   "CoolDrum"
  68.       FontBold        =   -1  'True
  69.       FontItalic      =   -1  'True
  70.       FontName        =   "MS Sans Serif"
  71.       FontSize        =   24
  72.       FontStrikethru  =   0   'False
  73.       FontUnderline   =   0   'False
  74.       ForeColor       =   &H00808080&
  75.       Height          =   495
  76.       Left            =   60
  77.       TabIndex        =   3
  78.       Top             =   60
  79.       Width           =   2595
  80.    End
  81.    Begin Label Label1 
  82.       Alignment       =   2  'Center
  83.       BackColor       =   &H00C0C0C0&
  84.       BackStyle       =   0  'Transparent
  85.       Caption         =   "Version 1.1"
  86.       ForeColor       =   &H00808080&
  87.       Height          =   255
  88.       Left            =   180
  89.       TabIndex        =   4
  90.       Top             =   600
  91.       Width           =   2355
  92.    End
  93.    Begin Image Image1 
  94.       Height          =   3915
  95.       Left            =   0
  96.       Picture         =   DRMABOUT.FRX:0302
  97.       Stretch         =   -1  'True
  98.       Top             =   0
  99.       Width           =   4575
  100.    End
  101. End
  102. Sub CmdOk_Click ()
  103.     Screen.MousePointer = 11
  104.     AboutBox1.Hide
  105.     Screen.MousePointer = 0
  106. End Sub
  107.  
  108. Sub Form_Load ()
  109.     ' Center the AboutBox on the screen
  110.     '
  111.     Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  112.     
  113.     Timer1.Enabled = True
  114. End Sub
  115.  
  116. Sub Timer1_Timer ()
  117.     Screen.MousePointer = 11
  118.     CoolDrum.Show
  119.     AboutBox1.Hide
  120.     Screen.MousePointer = 0
  121.     Timer1.Enabled = False
  122.     AboutBox1.CmdOk.Visible = True
  123. End Sub
  124.  
  125.