object AboutBox: TAboutBox Left = 288 Top = 229 BorderStyle = bsDialog Caption = 'About' ClientHeight = 338 ClientWidth = 362 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter Scaled = False ShowHint = True OnClose = FormClose OnHide = FormHide OnMouseMove = NotonWebAddress OnShow = FormShow PixelsPerInch = 96 TextHeight = 14 object AnimationStrip: TImage Left = 324 Top = 316 Width = 31 Height = 18 Picture.Data = {} Visible = False end object Panel1: TPanel Left = 5 Top = 8 Width = 352 Height = 293 BevelInner = bvRaised BevelOuter = bvLowered ParentColor = True TabOrder = 0 OnMouseMove = Panel1MouseMove object ProductName: TLabel Left = 134 Top = 15 Width = 163 Height = 14 Caption = 'AquaScape v0.98 Beta (2/28/98)' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnMouseMove = CopyrightMouseMove IsControl = True end object Copyright: TLabel Left = 134 Top = 31 Width = 195 Height = 14 Caption = 'Copyright 1997, 1998, Run Productions' OnMouseMove = CopyrightMouseMove IsControl = True end object Label1: TLabel Left = 134 Top = 63 Width = 167 Height = 14 Caption = 'Design, Programming, Sound, and' OnMouseMove = CopyrightMouseMove IsControl = True end object Label3: TLabel Left = 11 Top = 107 Width = 330 Height = 30 AutoSize = False Caption = 'Special thanks to Totem Graphics, Inc. for their superb collecti' + 'on of beautiful fish clipart that was used as the basis for the ' + 'fish cast!' WordWrap = True IsControl = True end object DelphiLabel: TLabel Left = 132 Top = 47 Width = 151 Height = 14 Hint = 'A Great programming language!' AutoSize = False Caption = ' Written in Borland Delphi 3.0' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnMouseMove = DelphiLabelMouseMove IsControl = True end object Label8: TLabel Left = 11 Top = 272 Width = 139 Height = 14 AutoSize = False Caption = 'Email: runpro@multipro.com' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnMouseMove = NotonWebAddress end object WebAddress: TLabel Left = 172 Top = 272 Width = 171 Height = 14 Cursor = 5 Hint = 'Click to launch browser and visit site' Alignment = taRightJustify AutoSize = False Caption = ' Web: users.multipro.com/runpro' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = WebAddressClick OnMouseMove = WebAddressMouseMove end object Label9: TLabel Left = 134 Top = 79 Width = 147 Height = 14 Caption = 'Photography by Steve Barber' OnMouseMove = CopyrightMouseMove IsControl = True end object Label2: TLabel Left = 11 Top = 149 Width = 98 Height = 19 AutoSize = False Caption = 'About the author:' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False WordWrap = True IsControl = True end object Label5: TLabel Left = 11 Top = 167 Width = 334 Height = 56 AutoSize = False Caption = 'I am currently a senior in computer science at Tennessee Tech Un' + 'iversity. I enjoy photography, backpacking, writing music, mult' + 'imedia programming, fishkeeping, and InterVarsity. My favorite ' + 'fish are the iridescent shark, angelfish, puffer, and gourami.' WordWrap = True OnMouseMove = NotonWebAddress IsControl = True end object Label6: TLabel Left = 11 Top = 230 Width = 322 Height = 31 AutoSize = False Caption = 'For more information on AquaScape, Run Productions, or the autho' + 'r, please visit Run Productions on the Internet.' Transparent = True WordWrap = True OnMouseMove = NotonWebAddress IsControl = True end object Panel2: TPanel Left = 12 Top = 9 Width = 112 Height = 89 BevelOuter = bvNone BorderStyle = bsSingle Ctl3D = True ParentCtl3D = False TabOrder = 0 object Animation: TImage Left = 0 Top = 0 Width = 108 Height = 85 Align = alClient Stretch = True OnMouseMove = CopyrightMouseMove IsControl = True end end end object OKButton: TBitBtn Left = 146 Top = 308 Width = 75 Height = 25 Caption = 'Cool' TabOrder = 1 OnClick = OKButtonClick Kind = bkOK end object AnimationTimer: TTimer Enabled = False Interval = 150 OnTimer = AnimationTimerTimer Left = 288 Top = 307 end end