frmabout.frm

WinBig. A file archive utility written in VB. Compression and decompression routines are LZSS. Full

VERSION 5.00
Begin VB.Form frmAbout 
   BorderStyle     =   4  'Fixed ToolWindow
   ClientHeight    =   3555
   ClientLeft      =   2310
   ClientTop       =   1620
   ClientWidth     =   5730
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2453.724
   ScaleMode       =   0  'User
   ScaleWidth      =   5380.766
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox tbRegNbr 
      BackColor       =   &H80000000&
      Enabled         =   0   'False
      Height          =   285
      Left            =   1305
      TabIndex        =   5
      Text            =   "D64B-0EF34-008AD6"
      Top             =   2055
      Width           =   1725
   End
   Begin VB.PictureBox picIcon 
      AutoSize        =   -1  'True
      ClipControls    =   0   'False
      Height          =   540
      Left            =   240
      Picture         =   "frmAbout.frx":0000
      ScaleHeight     =   337.12
      ScaleMode       =   0  'User
      ScaleWidth      =   337.12
      TabIndex        =   1
      Top             =   240
      Width           =   540
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   345
      Left            =   4245
      TabIndex        =   0
      Top             =   2625
      Width           =   1260
   End
   Begin VB.Label lblDisclaimer 
      Caption         =   "Nothing"
      ForeColor       =   &H00000000&
      Height          =   825
      Left            =   225
      TabIndex        =   7
      Top             =   2625
      Width           =   3870
   End
   Begin VB.Label Label1 
      Caption         =   "Registration #"
      Height          =   210
      Left            =   225
      TabIndex        =   6
      Top             =   2085
      Width           =   1020
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   84.515
      X2              =   5309.398
      Y1              =   1687.583
      Y2              =   1687.583
   End
   Begin VB.Label lblDescription 
      Caption         =   "App Description"
      ForeColor       =   &H00000000&
      Height          =   1005
      Left            =   1050
      TabIndex        =   2
      Top             =   930
      Width           =   3885
   End
   Begin VB.Label lblTitle 
      Caption         =   "Application Title"
      ForeColor       =   &H00000000&
      Height          =   225
      Left            =   1050
      TabIndex        =   3
      Top             =   255
      Width           =   3885
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   98.6
      X2              =   5309.398
      Y1              =   1697.936
      Y2              =   1697.936
   End
   Begin VB.Label lblVersion 
      Caption         =   "Version"
      Height          =   225
      Left            =   1050
      TabIndex        =   4
      Top             =   600
      Width           =   3885
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdOK_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    CenterForm
    
    Me.Caption = "About " & App.Title
    picIcon.Picture = fFrmMain.Icon
    
    lblVersion.Caption = "Version: " & App.Major & "." & App.Minor & "." & App.Revision
    lblTitle.Caption = App.EXEName
    lblDescription.Caption = App.FileDescription & vbCrLf & vbCrLf & App.CompanyName & vbCrLf & App.Comments
    
    lblDisclaimer.Caption = "This program is freeware and I only ask that you let me know if it has been useful to you." & vbCrLf & vbCrLf & "Please report any errors/problems to me."
End Sub

Private Sub CenterForm()
    '* Centers form in the center of the screen,
    
    'make sure our form isn't too big
    If Me.Width > Screen.Width Then Me.Width = Screen.Width
    If Me.Height > Screen.Height Then Me.Height = Screen.Height
    'center the form
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
End Sub