home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ttedit / about.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-04  |  4.7 KB  |  149 lines
  1. VERSION 2.00
  2. Begin Form frmAbout 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   2550
  6.    ClientLeft      =   3165
  7.    ClientTop       =   5235
  8.    ClientWidth     =   5370
  9.    ClipControls    =   0   'False
  10.    Height          =   2955
  11.    Left            =   3105
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   2550
  14.    ScaleWidth      =   5370
  15.    Top             =   4890
  16.    Visible         =   0   'False
  17.    Width           =   5490
  18.    Begin CommandButton btnOK 
  19.       Caption         =   "&OK"
  20.       Default         =   -1  'True
  21.       Height          =   375
  22.       Left            =   2160
  23.       TabIndex        =   4
  24.       Top             =   2100
  25.       Visible         =   0   'False
  26.       Width           =   1095
  27.    End
  28.    Begin Label Label1 
  29.       BackStyle       =   0  'Transparent
  30.       Caption         =   "Compuserve: 72557,3632                         Internet: 72557.3632@Compuserve.com"
  31.       FontBold        =   0   'False
  32.       FontItalic      =   0   'False
  33.       FontName        =   "MS Sans Serif"
  34.       FontSize        =   8.25
  35.       FontStrikethru  =   0   'False
  36.       FontUnderline   =   0   'False
  37.       Height          =   435
  38.       Left            =   2280
  39.       TabIndex        =   5
  40.       Top             =   1440
  41.       Width           =   3015
  42.       WordWrap        =   -1  'True
  43.    End
  44.    Begin Label Label4 
  45.       BackStyle       =   0  'Transparent
  46.       Caption         =   "All Rights Reserved. Legal use subject to conditions."
  47.       FontBold        =   0   'False
  48.       FontItalic      =   0   'False
  49.       FontName        =   "MS Sans Serif"
  50.       FontSize        =   8.25
  51.       FontStrikethru  =   0   'False
  52.       FontUnderline   =   0   'False
  53.       Height          =   435
  54.       Left            =   2280
  55.       TabIndex        =   0
  56.       Top             =   1020
  57.       Width           =   2775
  58.       WordWrap        =   -1  'True
  59.    End
  60.    Begin Label lblApp_Title 
  61.       BackStyle       =   0  'Transparent
  62.       FontBold        =   -1  'True
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   12
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       Height          =   255
  69.       Left            =   2280
  70.       TabIndex        =   3
  71.       Top             =   120
  72.       Width           =   3015
  73.    End
  74.    Begin Label lblVersion 
  75.       BackStyle       =   0  'Transparent
  76.       Caption         =   "Version "
  77.       FontBold        =   0   'False
  78.       FontItalic      =   0   'False
  79.       FontName        =   "MS Sans Serif"
  80.       FontSize        =   8.25
  81.       FontStrikethru  =   0   'False
  82.       FontUnderline   =   0   'False
  83.       Height          =   255
  84.       Left            =   2280
  85.       TabIndex        =   2
  86.       Top             =   420
  87.       Width           =   3015
  88.    End
  89.    Begin Label Label3 
  90.       BackStyle       =   0  'Transparent
  91.       Caption         =   "Copyright 
  92.  1994 Thorp Technology"
  93.       FontBold        =   0   'False
  94.       FontItalic      =   0   'False
  95.       FontName        =   "MS Sans Serif"
  96.       FontSize        =   8.25
  97.       FontStrikethru  =   0   'False
  98.       FontUnderline   =   0   'False
  99.       Height          =   255
  100.       Left            =   2280
  101.       TabIndex        =   1
  102.       Top             =   720
  103.       Width           =   3015
  104.    End
  105.    Begin Image logo 
  106.       BorderStyle     =   1  'Fixed Single
  107.       Enabled         =   0   'False
  108.       Height          =   1305
  109.       Left            =   120
  110.       Picture         =   ABOUT.FRX:0000
  111.       Top             =   180
  112.       Width           =   1980
  113.    End
  114.    Begin Line Line2 
  115.       BorderColor     =   &H00FFFFFF&
  116.       X1              =   150
  117.       X2              =   5220
  118.       Y1              =   1980
  119.       Y2              =   1980
  120.    End
  121.    Begin Line Line1 
  122.       BorderColor     =   &H00808080&
  123.       BorderWidth     =   3
  124.       X1              =   150
  125.       X2              =   5200
  126.       Y1              =   1965
  127.       Y2              =   1965
  128.    End
  129. Option Explicit
  130. Sub btnOK_Click ()
  131.     btnOk.Visible = False
  132.     Unload Me
  133. End Sub
  134. Sub Form_Load ()
  135.     lblVersion = lblVersion & APP_VERSION_NUMBER
  136.     lblAPP_TITLE = APP_TITLE
  137.     If Forms.Count > 1 Then
  138.        Left = (MDI.Width - Width) / 2 + MDI.Left ' Center form horizontally.
  139.        Top = (MDI.Height - Height) / 2 + MDI.Top ' Center form vertically.
  140.     Else
  141.        Left = (Screen.Width - Width) / 2   ' Center form horizontally.
  142.        Top = (Screen.Height - Height) / 2  ' Center form vertically.
  143.     End If
  144. End Sub
  145. Sub Form_Paint ()
  146.   Call Indent(logo)
  147.   Raiseform Me
  148. End Sub
  149.