object ConfigForm: TConfigForm Left = 223 Top = 179 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'AquaScape' ClientHeight = 452 ClientWidth = 632 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Position = poScreenCenter Scaled = False ShowHint = True OnClose = FormClose OnCreate = FormCreate OnMouseMove = SignDescMouseMove PixelsPerInch = 96 TextHeight = 14 object AquaScapeLabel: TImage Left = 148 Top = 7 Width = 358 Height = 14 AutoSize = True Picture.Data = {} Transparent = True end object CopyrightLabel: TImage Left = 6 Top = 427 Width = 186 Height = 23 Cursor = 5 Hint = 'Click to launch browser and go to website' AutoSize = True Picture.Data = {} Transparent = True OnClick = CopyrightLabelClick end object TabbedNotebook: TTabbedNotebook Left = 2 Top = 26 Width = 628 Height = 393 TabFont.Charset = DEFAULT_CHARSET TabFont.Color = clBtnText TabFont.Height = -11 TabFont.Name = 'Arial' TabFont.Style = [] TabOrder = 2 Visible = False OnChange = TabbedNotebookChange object TTabPage Left = 4 Top = 25 Caption = 'General' object GeneralDivider: TBevel Left = 309 Top = 9 Width = 3 Height = 349 end object HelpLabel: TLabel Left = 324 Top = 342 Width = 289 Height = 14 AutoSize = False Caption = 'For context-sensitive help, right click any configuration item.' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object BubbleOptions: TGroupBox Tag = 26 Left = 321 Top = 135 Width = 295 Height = 76 Caption = 'Bubbles' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 6 OnMouseDown = ControlMouseDown object BubbleOptionsDivider: TBevel Left = 109 Top = 12 Width = 4 Height = 59 Shape = bsLeftLine end object BubbleAmountLabel: TLabel Tag = 26 Left = 118 Top = 15 Width = 95 Height = 14 Hint = 'Choose the amount of bubbles ' Caption = 'Amount of Bubbles:' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Bubbles1Check: TRadioButton Tag = 26 Left = 115 Top = 33 Width = 54 Height = 17 Hint = 'Choose the amount of bubbles' Caption = 'A few' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown end object Bubbles2Check: TRadioButton Tag = 26 Left = 179 Top = 33 Width = 102 Height = 17 Hint = 'Choose the amount of bubbles ' Caption = 'Average amount' Checked = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 1 TabStop = True OnMouseDown = ControlMouseDown end object ShowBubblesCheck: TCheckBox Tag = 26 Left = 10 Top = 35 Width = 95 Height = 17 Hint = 'Choose this option to display the bubble tubes' Caption = 'Airtube Bubbles' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 2 OnMouseDown = ControlMouseDown end object BubbleSFXCheck: TCheckBox Tag = 26 Left = 10 Top = 53 Width = 91 Height = 17 Hint = 'Now you too can enjoy the sound of an aquarium!' Caption = 'Bubbles SFX' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 3 OnMouseDown = ControlMouseDown end object Bubbles3Check: TRadioButton Tag = 26 Left = 115 Top = 53 Width = 54 Height = 17 Hint = 'Choose the amount of bubbles ' Caption = 'A lot' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 4 OnMouseDown = ControlMouseDown end object Bubbles4Check: TRadioButton Tag = 26 Left = 179 Top = 53 Width = 106 Height = 17 Hint = 'Choose the amount of bubbles ' Caption = 'An absurd amount' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 5 OnMouseDown = ControlMouseDown end object TankBubblesCheck: TCheckBox Tag = 26 Left = 10 Top = 17 Width = 95 Height = 17 Hint = 'Choose this option to display bubbles tank wide' Caption = 'Tank Bubbles' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 6 OnMouseDown = ControlMouseDown end end object ProgramModels: TGroupBox Tag = 20 Left = 6 Top = 3 Width = 294 Height = 114 Hint = 'Select a program model to set other global settings' Caption = 'Program Models' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown object PMDescLabel: TLabel Tag = 20 Left = 12 Top = 38 Width = 273 Height = 72 AutoSize = False Caption = 'The Ulta-Lite model uses the least features, but also uses the l' + 'east memory and yields the best animation performance. Only a f' + 'ew fish and the lowest-res screen mode are used. Best used as a' + ' light screensaver on a slower computer.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True OnMouseDown = ControlMouseDown end object PMUltraLiteCheck: TRadioButton Tag = 20 Left = 11 Top = 19 Width = 72 Height = 17 Caption = 'Ulta-Lite' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = PMUltraLiteCheckClick OnMouseDown = ControlMouseDown end object PMLiteCheck: TRadioButton Tag = 20 Left = 78 Top = 19 Width = 42 Height = 17 Caption = 'Lite' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = PMLiteCheckClick OnMouseDown = ControlMouseDown end object PMNormalCheck: TRadioButton Tag = 20 Left = 122 Top = 19 Width = 55 Height = 17 Caption = 'Normal' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = PMNormalCheckClick OnMouseDown = ControlMouseDown end object PMFullCheck: TRadioButton Tag = 20 Left = 183 Top = 19 Width = 38 Height = 17 Caption = 'Full' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = PMFullCheckClick OnMouseDown = ControlMouseDown end object PMCustom1: TRadioButton Tag = 20 Left = 227 Top = 19 Width = 62 Height = 17 Caption = 'Custom' Checked = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 TabStop = True OnClick = PMCustom1Click OnMouseDown = ControlMouseDown end end object Gravels: TGroupBox Tag = 21 Left = 6 Top = 119 Width = 294 Height = 140 Hint = 'Select gravel color' HelpContext = 21 Caption = 'Gravel' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 1 OnMouseDown = ControlMouseDown object Gravel: TImage Tag = 21 Left = 32 Top = 33 Width = 251 Height = 99 Hint = 'Select a gravel color or choose random multi-colored gravel' Picture.Data = {} Transparent = True OnMouseDown = ControlMouseDown OnMouseUp = GravelMouseUp end object GravelCheck0: TRadioButton Tag = 21 Left = 11 Top = 15 Width = 272 Height = 17 Hint = 'Disable gravel' Caption = ' None' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown end object GravelCheck1: TRadioButton Tag = 21 Left = 11 Top = 32 Width = 14 Height = 17 Checked = True PopupMenu = RightClickMenu TabOrder = 1 TabStop = True OnMouseDown = ControlMouseDown end object GravelCheck2: TRadioButton Tag = 21 Left = 11 Top = 49 Width = 14 Height = 17 PopupMenu = RightClickMenu TabOrder = 2 OnMouseDown = ControlMouseDown end object GravelCheck3: TRadioButton Tag = 21 Left = 11 Top = 66 Width = 14 Height = 17 PopupMenu = RightClickMenu TabOrder = 3 OnMouseDown = ControlMouseDown end object GravelCheck4: TRadioButton Tag = 21 Left = 11 Top = 83 Width = 14 Height = 17 PopupMenu = RightClickMenu TabOrder = 4 OnMouseDown = ControlMouseDown end object GravelCheck5: TRadioButton Tag = 21 Left = 11 Top = 100 Width = 14 Height = 17 PopupMenu = RightClickMenu TabOrder = 5 OnMouseDown = ControlMouseDown end object MultiGravelCheck: TRadioButton Tag = 21 Left = 11 Top = 117 Width = 14 Height = 17 Caption = 'MultiGravelCheck' PopupMenu = RightClickMenu TabOrder = 6 OnMouseDown = ControlMouseDown end end object Decors: TGroupBox Tag = 22 Left = 6 Top = 261 Width = 294 Height = 97 Hint = 'Select tank decor type' HelpContext = 22 Caption = 'Tank Decor' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 2 OnMouseDown = ControlMouseDown object Decor1: TImage Tag = 22 Left = 32 Top = 36 Width = 251 Height = 15 Picture.Data = {} OnClick = Decor1Click OnMouseDown = ControlMouseDown end object Decor2: TImage Tag = 22 Left = 32 Top = 54 Width = 251 Height = 15 Picture.Data = {} OnClick = Decor2Click OnMouseDown = ControlMouseDown end object Decor3: TImage Tag = 22 Left = 32 Top = 72 Width = 251 Height = 15 Picture.Data = {} OnClick = Decor3Click OnMouseDown = ControlMouseDown end object DecorCheck0: TRadioButton Tag = 22 Left = 11 Top = 17 Width = 270 Height = 17 Hint = 'Disable decor border' Caption = ' None' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 OnMouseDown = ControlMouseDown end object DecorCheck1: TRadioButton Tag = 22 Left = 11 Top = 35 Width = 14 Height = 17 Caption = 'DecorCheck1' Checked = True TabOrder = 1 TabStop = True OnMouseDown = ControlMouseDown end object DecorCheck2: TRadioButton Tag = 22 Left = 11 Top = 53 Width = 14 Height = 17 Caption = 'DecorCheck2' TabOrder = 2 OnMouseDown = ControlMouseDown end object DecorCheck3: TRadioButton Tag = 22 Left = 11 Top = 71 Width = 14 Height = 17 Caption = 'DecorCheck3' TabOrder = 3 OnMouseDown = ControlMouseDown end end object TankSizes: TGroupBox Tag = 23 Left = 321 Top = 3 Width = 295 Height = 42 Hint = 'On slower computers, a smaller tank increases animation performa' + 'nce' Caption = 'Tank Size' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 3 OnMouseDown = ControlMouseDown object TSSmallCheck: TRadioButton Tag = 23 Left = 11 Top = 19 Width = 62 Height = 17 Caption = 'Small' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown end object TSMediumCheck: TRadioButton Tag = 23 Left = 71 Top = 19 Width = 62 Height = 17 Caption = 'Medium' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 1 OnMouseDown = ControlMouseDown end object TSLargeCheck: TRadioButton Tag = 23 Left = 143 Top = 19 Width = 54 Height = 17 Caption = 'Large' Checked = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 2 TabStop = True OnMouseDown = ControlMouseDown end object TSFullCheck: TRadioButton Tag = 23 Left = 203 Top = 19 Width = 78 Height = 17 Caption = 'Full Screen' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 3 OnMouseDown = ControlMouseDown end end object TankLayouts: TGroupBox Tag = 24 Left = 321 Top = 47 Width = 295 Height = 42 Caption = 'Tank Layout' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 4 OnMouseDown = ControlMouseDown object TLRoundCheck: TRadioButton Tag = 24 Left = 65 Top = 19 Width = 66 Height = 17 Caption = 'Circular' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown end object TLRectCheck: TRadioButton Tag = 24 Left = 155 Top = 19 Width = 90 Height = 17 Caption = 'Rectanglular' Checked = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 1 TabStop = True OnMouseDown = ControlMouseDown end end object WaterColors: TGroupBox Tag = 25 Left = 321 Top = 91 Width = 295 Height = 42 Hint = 'Choose a water color, or none to improve animation performance' Caption = ' Water Color' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 5 OnMouseDown = ControlMouseDown object WCNone: TRadioButton Tag = 25 Left = 11 Top = 19 Width = 62 Height = 17 Caption = 'None' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown end object WCMidnight: TRadioButton Tag = 25 Left = 65 Top = 19 Width = 86 Height = 17 Caption = 'Midnight Blue' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 1 OnMouseDown = ControlMouseDown end object WCFull: TRadioButton Tag = 25 Left = 154 Top = 19 Width = 62 Height = 17 Caption = 'Full Blue' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 2 OnMouseDown = ControlMouseDown end object WCMist: TRadioButton Tag = 25 Left = 219 Top = 19 Width = 74 Height = 17 Caption = 'Sea Foam' Checked = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 3 TabStop = True OnMouseDown = ControlMouseDown end end object OtherOptions: TGroupBox Tag = 28 Left = 321 Top = 276 Width = 295 Height = 60 Caption = 'Other Options' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentColor = False ParentFont = False PopupMenu = RightClickMenu TabOrder = 7 OnMouseDown = ControlMouseDown object FishLib: TImage Left = 274 Top = 138 Width = 193 Height = 1412 AutoSize = True Picture.Data = {} Transparent = True Visible = False end object AlwaysonTopCheck: TCheckBox Tag = 28 Left = 146 Top = 17 Width = 139 Height = 17 Hint = 'This will hide the mouse cursor, start bar, and other shortcut b' + 'ars' Caption = 'Aquarium always on top' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown end object ZoomCamCheck: TCheckBox Tag = 28 Left = 10 Top = 17 Width = 131 Height = 17 Hint = 'The zoom camera pans and zooms around the tank randomly' Caption = 'Activate zoom camera' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 1 OnMouseDown = ControlMouseDown end object RandomChangesCheck: TCheckBox Tag = 28 Left = 10 Top = 37 Width = 113 Height = 17 Hint = 'Good idea if running AquaScape as a screensaver, but may cause p' + 'roblems on some systems' Caption = 'Random changes' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 2 OnMouseDown = ControlMouseDown end end object ScreenOptions: TGroupBox Tag = 27 Left = 321 Top = 213 Width = 295 Height = 60 Caption = 'Screen Mode' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 8 OnMouseDown = ControlMouseDown object LowResModeCheck: TRadioButton Tag = 27 Left = 7 Top = 19 Width = 70 Height = 17 Hint = 'Low-resolution graphics (400*300)' Caption = 'Low-res' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown end object MedResModeCheck: TRadioButton Tag = 27 Left = 103 Top = 19 Width = 82 Height = 17 Hint = 'Medium-resolution graphics (640*480)' Caption = 'Medium-res' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 1 OnMouseDown = ControlMouseDown end object HiResModeCheck: TRadioButton Tag = 27 Left = 202 Top = 19 Width = 67 Height = 17 Hint = 'High-resolution graphics (best 800*600)' Caption = 'High-res' Checked = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 2 TabStop = True OnMouseDown = ControlMouseDown end object NoResModeCheck: TRadioButton Tag = 27 Left = 7 Top = 37 Width = 162 Height = 17 Hint = 'Click to disable any kind of screen mode changes' Caption = 'Do not change screen mode' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 3 OnMouseDown = ControlMouseDown end object DirectXCheck: TCheckBox Tag = 27 Left = 202 Top = 37 Width = 82 Height = 17 Hint = 'Check to enable DirectX support' Caption = 'Use DirectX' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 4 OnClick = DirectXCheckClick end end end object TTabPage Left = 4 Top = 25 Caption = 'Real Fish' object Max1Label: TLabel Tag = 30 Left = 126 Top = 32 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max2Label: TLabel Tag = 30 Left = 126 Top = 70 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max3Label: TLabel Tag = 30 Left = 126 Top = 108 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max4Label: TLabel Tag = 30 Left = 126 Top = 146 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max5Label: TLabel Tag = 30 Left = 126 Top = 184 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max6Label: TLabel Tag = 30 Left = 126 Top = 222 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max7Label: TLabel Tag = 30 Left = 126 Top = 260 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max8Label: TLabel Tag = 30 Left = 126 Top = 298 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max9Label: TLabel Tag = 30 Left = 126 Top = 336 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max10Label: TLabel Tag = 30 Left = 552 Top = 32 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max11Label: TLabel Tag = 30 Left = 552 Top = 70 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max12Label: TLabel Tag = 30 Left = 552 Top = 108 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max13Label: TLabel Tag = 30 Left = 552 Top = 146 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max14Label: TLabel Tag = 30 Left = 552 Top = 184 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max15Label: TLabel Tag = 30 Left = 552 Top = 222 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max16Label: TLabel Tag = 30 Left = 552 Top = 260 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max17Label: TLabel Tag = 30 Left = 552 Top = 298 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max18Label: TLabel Tag = 30 Left = 552 Top = 336 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object FishColumn1: TImage Tag = 30 Left = 17 Top = 28 Width = 75 Height = 329 Hint = 'Click the checkbox to enable this fish' Picture.Data = {} PopupMenu = RightClickMenu Transparent = True OnMouseDown = ControlMouseDown OnMouseMove = FishColumn1MouseMove end object FishColumn2: TImage Left = 212 Top = 176 Width = 95 Height = 186 Hint = 'Click the checkbox to enable this fish' Picture.Data = {} PopupMenu = RightClickMenu Transparent = True OnMouseMove = FishColumn2MouseMove end object FishColumn3: TImage Tag = 30 Left = 429 Top = 21 Width = 90 Height = 340 Hint = 'Click the checkbox to enable this fish' Picture.Data = {} PopupMenu = RightClickMenu Transparent = True OnMouseDown = ControlMouseDown OnMouseMove = FishColumn3MouseMove end object Max19Label: TLabel Tag = 30 Left = 340 Top = 186 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max20Label: TLabel Tag = 30 Left = 340 Top = 224 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max21Label: TLabel Tag = 30 Left = 340 Top = 262 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max22Label: TLabel Tag = 30 Left = 340 Top = 300 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Max23Label: TLabel Tag = 30 Left = 340 Top = 338 Width = 23 Height = 14 Hint = 'Max amount of this fish allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object AddFishTheme: TSpeedButton Tag = 30 Left = 209 Top = 0 Width = 25 Height = 21 Hint = 'Add or save current theme' Glyph.Data = { 4E010000424D4E01000000000000760000002800000015000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333330003333333333333333333330003333333330033333333330003333 3333300333333333300033333333300333333333300033333333300333333333 3000333333333003333333333000333333333003333333333000333000000000 0000033330003330000000000000033330003333333330033333333330003333 3333300333333333300033333333300333333333300033333333300333333333 3000333333333003333333333000333333333333333333333000333333333333 333333333000333333333333333333333000} Spacing = 2 OnClick = AddFishThemeClick OnMouseDown = ControlMouseDown end object DeleteFishTheme: TSpeedButton Tag = 30 Left = 375 Top = 0 Width = 25 Height = 21 Hint = 'Delete current theme' Glyph.Data = { 4E010000424D4E01000000000000760000002800000015000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333330003333333333333333333330003333333333333333333330003333 3333333333333333300033333333333333333333300033333333333333333333 3000333333333333333333333000333333333333333333333000333000000000 0000033330003330000000000000033330003333333333333333333330003333 3333333333333333300033333333333333333333300033333333333333333333 3000333333333333333333333000333333333333333333333000333333333333 333333333000333333333333333333333000} OnClick = DeleteFishThemeClick OnMouseDown = ControlMouseDown end object TotalFishLabel: TLabel Tag = 30 Left = 506 Top = 4 Width = 70 Height = 14 Hint = 'Total number of fish that can be on-screen at once' Caption = 'Total max fish:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object FishColumn2a: TImage Left = 212 Top = 176 Width = 95 Height = 36 Hint = 'Click the checkbox to enable this fish' AutoSize = True Picture.Data = {} PopupMenu = RightClickMenu Transparent = True Visible = False OnMouseMove = FishColumn2MouseMove end object FishColumn3a: TImage Tag = 30 Left = 429 Top = 21 Width = 90 Height = 302 Hint = 'Click the checkbox to enable this fish' AutoSize = True Picture.Data = {} PopupMenu = RightClickMenu Transparent = True Visible = False OnMouseDown = ControlMouseDown OnMouseMove = FishColumn3MouseMove end object FishColumn1a: TImage Tag = 30 Left = 17 Top = 108 Width = 75 Height = 96 Hint = 'Click the checkbox to enable this fish' Picture.Data = {} PopupMenu = RightClickMenu Transparent = True Visible = False OnMouseDown = ControlMouseDown OnMouseMove = FishColumn1MouseMove end object Fish1: TCheckBox Tag = 30 Left = 106 Top = 30 Width = 15 Height = 17 Hint = 'Toggle fish' PopupMenu = RightClickMenu State = cbChecked TabOrder = 0 OnMouseDown = ControlMouseDown end object Fish1Max: TEdit Tag = 30 Left = 154 Top = 28 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 1 Text = '4' OnMouseDown = ControlMouseDown end object FishPanel: TPanel Tag = 30 Left = 203 Top = 24 Width = 203 Height = 148 PopupMenu = RightClickMenu TabOrder = 2 OnMouseDown = ControlMouseDown object FishImage: TImage Tag = 30 Left = 1 Top = 1 Width = 201 Height = 100 PopupMenu = RightClickMenu Transparent = True OnMouseDown = ControlMouseDown end object FishDescLabel: TLabel Tag = 30 Left = 3 Top = 104 Width = 197 Height = 41 Hint = 'Fish description' Alignment = taCenter AutoSize = False Caption = 'Cardinal Tetra: Freshwater community fish. Very popular fish wi' + 'th bright neon colors. Similar to the Neon.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu Transparent = True WordWrap = True OnMouseDown = ControlMouseDown end end object Fish2: TCheckBox Tag = 30 Left = 106 Top = 68 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'Fish2' PopupMenu = RightClickMenu State = cbChecked TabOrder = 3 OnMouseDown = ControlMouseDown end object Fish2Max: TEdit Tag = 30 Left = 154 Top = 66 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 4 Text = '4' OnMouseDown = ControlMouseDown end object Fish3: TCheckBox Tag = 30 Left = 106 Top = 106 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'Fish3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 5 OnMouseDown = ControlMouseDown end object Fish3Max: TEdit Tag = 30 Left = 154 Top = 104 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 6 Text = '4' OnMouseDown = ControlMouseDown end object Fish4: TCheckBox Tag = 30 Left = 106 Top = 144 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 7 OnMouseDown = ControlMouseDown end object Fish4Max: TEdit Tag = 30 Left = 154 Top = 142 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 8 Text = '2' OnMouseDown = ControlMouseDown end object Fish5: TCheckBox Tag = 30 Left = 106 Top = 182 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 9 OnMouseDown = ControlMouseDown end object Fish5Max: TEdit Tag = 30 Left = 154 Top = 180 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 10 Text = '2' OnMouseDown = ControlMouseDown end object Fish6: TCheckBox Tag = 30 Left = 106 Top = 220 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 11 OnMouseDown = ControlMouseDown end object Fish6Max: TEdit Tag = 30 Left = 154 Top = 218 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 12 Text = '2' OnMouseDown = ControlMouseDown end object Fish7: TCheckBox Tag = 30 Left = 106 Top = 258 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 13 OnMouseDown = ControlMouseDown end object Fish7Max: TEdit Tag = 30 Left = 154 Top = 256 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 14 Text = '3' OnMouseDown = ControlMouseDown end object Fish8: TCheckBox Tag = 30 Left = 106 Top = 296 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 15 OnMouseDown = ControlMouseDown end object Fish8Max: TEdit Tag = 30 Left = 154 Top = 294 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 16 Text = '2' OnMouseDown = ControlMouseDown end object Fish9: TCheckBox Tag = 30 Left = 106 Top = 334 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 17 OnMouseDown = ControlMouseDown end object Fish9Max: TEdit Tag = 30 Left = 154 Top = 332 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 18 Text = '2' OnMouseDown = ControlMouseDown end object Fish10: TCheckBox Tag = 30 Left = 532 Top = 30 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'Fish10' PopupMenu = RightClickMenu State = cbChecked TabOrder = 19 OnMouseDown = ControlMouseDown end object Fish11: TCheckBox Tag = 30 Left = 532 Top = 68 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox2' PopupMenu = RightClickMenu State = cbChecked TabOrder = 20 OnMouseDown = ControlMouseDown end object Fish12: TCheckBox Tag = 30 Left = 532 Top = 106 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 21 OnMouseDown = ControlMouseDown end object Fish13: TCheckBox Tag = 30 Left = 532 Top = 144 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 22 OnMouseDown = ControlMouseDown end object Fish14: TCheckBox Tag = 30 Left = 532 Top = 182 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 23 OnMouseDown = ControlMouseDown end object Fish15: TCheckBox Tag = 30 Left = 532 Top = 220 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 24 OnMouseDown = ControlMouseDown end object Fish16: TCheckBox Tag = 30 Left = 532 Top = 258 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 25 OnMouseDown = ControlMouseDown end object Fish17: TCheckBox Tag = 30 Left = 532 Top = 296 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 26 OnMouseDown = ControlMouseDown end object Fish18: TCheckBox Tag = 30 Left = 532 Top = 334 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 27 OnMouseDown = ControlMouseDown end object Fish10Max: TEdit Tag = 30 Left = 580 Top = 28 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 28 Text = '2' OnMouseDown = ControlMouseDown end object Fish11Max: TEdit Tag = 30 Left = 580 Top = 66 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 29 Text = '2' OnMouseDown = ControlMouseDown end object Fish12Max: TEdit Tag = 30 Left = 580 Top = 104 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 30 Text = '2' OnMouseDown = ControlMouseDown end object Fish13Max: TEdit Tag = 30 Left = 580 Top = 142 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 31 Text = '3' OnMouseDown = ControlMouseDown end object Fish14Max: TEdit Tag = 30 Left = 580 Top = 180 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 32 Text = '3' OnMouseDown = ControlMouseDown end object Fish15Max: TEdit Tag = 30 Left = 580 Top = 218 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 33 Text = '3' OnMouseDown = ControlMouseDown end object Fish16Max: TEdit Tag = 30 Left = 580 Top = 256 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 34 Text = '2' OnMouseDown = ControlMouseDown end object Fish17Max: TEdit Tag = 30 Left = 580 Top = 294 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 35 Text = '2' OnMouseDown = ControlMouseDown end object Fish18Max: TEdit Tag = 30 Left = 580 Top = 332 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 36 Text = '2' OnMouseDown = ControlMouseDown end object Fish19: TCheckBox Tag = 30 Left = 320 Top = 184 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 37 OnMouseDown = ControlMouseDown end object Fish20: TCheckBox Tag = 30 Left = 320 Top = 222 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 38 OnMouseDown = ControlMouseDown end object Fish21: TCheckBox Tag = 30 Left = 320 Top = 260 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 39 OnMouseDown = ControlMouseDown end object Fish22: TCheckBox Tag = 30 Left = 320 Top = 298 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 40 OnMouseDown = ControlMouseDown end object Fish23: TCheckBox Tag = 30 Left = 320 Top = 336 Width = 15 Height = 17 Hint = 'Toggle fish' Caption = 'CheckBox3' PopupMenu = RightClickMenu State = cbChecked TabOrder = 41 OnMouseDown = ControlMouseDown end object Fish19Max: TEdit Tag = 30 Left = 368 Top = 182 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 42 Text = '2' OnMouseDown = ControlMouseDown end object Fish20Max: TEdit Tag = 30 Left = 368 Top = 220 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 43 Text = '3' OnMouseDown = ControlMouseDown end object Fish21Max: TEdit Tag = 30 Left = 368 Top = 258 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 44 Text = '2' OnMouseDown = ControlMouseDown end object Fish22Max: TEdit Tag = 30 Left = 368 Top = 296 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 45 Text = '2' OnMouseDown = ControlMouseDown end object Fish23Max: TEdit Tag = 30 Left = 368 Top = 334 Width = 27 Height = 22 Hint = 'Max amount of this fish allowed at once' PopupMenu = RightClickMenu TabOrder = 46 Text = '2' OnMouseDown = ControlMouseDown end object RandomFishCheck: TCheckBox Tag = 30 Left = 18 Top = 3 Width = 83 Height = 17 Hint = 'Choose fish randomally at start-up' Caption = 'Random' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 47 OnMouseDown = ControlMouseDown end object AllFishCheck: TCheckBox Tag = 30 Left = 106 Top = 3 Width = 51 Height = 17 Hint = 'Choose all fish' Caption = 'All' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 48 OnClick = AllFishCheckClick OnMouseDown = ControlMouseDown end object FishThemeBox: TComboBox Tag = 30 Left = 239 Top = 0 Width = 131 Height = 22 Hint = 'Choose fish theme' DropDownCount = 12 ItemHeight = 14 Items.Strings = ( 'Very Small Fish' 'Small Fish' 'Freshwater Fish' 'Tropical Fish' 'Current Settings') MaxLength = 20 PopupMenu = RightClickMenu TabOrder = 49 Text = 'Fish Themes' OnChange = FishThemeBoxChange end object TotalFish: TEdit Tag = 30 Left = 580 Top = 0 Width = 27 Height = 22 Hint = 'Total number of fish that can be on-screen at once' PopupMenu = RightClickMenu TabOrder = 50 Text = '14' OnMouseDown = ControlMouseDown end end object TTabPage Left = 4 Top = 25 Caption = 'Other Creatures' object CartoonWarning: TLabel Tag = 80 Left = 14 Top = 347 Width = 389 Height = 14 Caption = 'Note: All of the above are fully animated and use more memory th' + 'an the real fish.' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown OnMouseMove = SignDescMouseMove end object TotalCreatureLabel: TLabel Tag = 80 Left = 477 Top = 347 Width = 99 Height = 14 Hint = 'Total number of fish that can be on-screen at once' Caption = 'Total max creatures:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object CartoonBox2: TPanel Tag = 80 Left = 14 Top = 68 Width = 265 Height = 68 PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown object CarDesc2: TLabel Left = 124 Top = 5 Width = 136 Height = 41 AutoSize = False Caption = 'An unusually happy octopus.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True end object CarMaxLabel2: TLabel Tag = 80 Left = 202 Top = 49 Width = 23 Height = 14 Hint = 'Max amount of this creature allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object CartoonImage2: TImage Tag = 80 Left = 8 Top = 5 Width = 105 Height = 59 Picture.Data = {} OnMouseDown = ControlMouseDown end object Cartoon2: TCheckBox Tag = 80 Left = 182 Top = 48 Width = 15 Height = 17 Hint = 'Check to enable' Caption = 'Fish2' PopupMenu = RightClickMenu State = cbChecked TabOrder = 0 OnMouseDown = ControlMouseDown end object CartoonMax2: TEdit Tag = 80 Left = 230 Top = 46 Width = 27 Height = 22 Hint = 'Max amount of this creature allowed at once' PopupMenu = RightClickMenu TabOrder = 1 Text = '4' OnMouseDown = ControlMouseDown end end object CartoonBox3: TPanel Tag = 80 Left = 14 Top = 136 Width = 265 Height = 68 PopupMenu = RightClickMenu TabOrder = 1 OnMouseDown = ControlMouseDown object CarDesc3: TLabel Tag = 80 Left = 124 Top = 5 Width = 136 Height = 41 AutoSize = False Caption = 'Your basic crayfish.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True OnMouseDown = ControlMouseDown end object CarMaxLabel3: TLabel Tag = 80 Left = 202 Top = 49 Width = 23 Height = 14 Hint = 'Max amount of this creature allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object CartoonImage3: TImage Tag = 80 Left = 8 Top = 5 Width = 105 Height = 59 Picture.Data = {} OnMouseDown = ControlMouseDown end object Cartoon3: TCheckBox Tag = 80 Left = 182 Top = 48 Width = 15 Height = 17 Hint = 'Check to enable' Caption = 'Fish2' PopupMenu = RightClickMenu State = cbChecked TabOrder = 0 OnMouseDown = ControlMouseDown end object CartoonMax3: TEdit Tag = 80 Left = 230 Top = 46 Width = 27 Height = 22 Hint = 'Max amount of this creature allowed at once' PopupMenu = RightClickMenu TabOrder = 1 Text = '4' OnMouseDown = ControlMouseDown end end object CartoonBox4: TPanel Tag = 80 Left = 14 Top = 204 Width = 265 Height = 68 PopupMenu = RightClickMenu TabOrder = 2 OnMouseDown = ControlMouseDown OnMouseMove = SignDescMouseMove object CarDesc4: TLabel Left = 124 Top = 3 Width = 136 Height = 41 AutoSize = False Caption = 'A very suspiscious-looking character. He/she/it'#39's got his/her/i' + 'ts eye on YOU.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True end object CarMaxLabel4: TLabel Tag = 80 Left = 202 Top = 49 Width = 23 Height = 14 Hint = 'Max amount of this creature allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object CartoonImage4: TImage Tag = 80 Left = 8 Top = 5 Width = 105 Height = 59 Picture.Data = {} OnMouseDown = ControlMouseDown end object Cartoon4: TCheckBox Tag = 80 Left = 182 Top = 48 Width = 15 Height = 17 Hint = 'Check to enable' Caption = 'Fish2' PopupMenu = RightClickMenu State = cbChecked TabOrder = 0 OnMouseDown = ControlMouseDown end object CartoonMax4: TEdit Tag = 80 Left = 230 Top = 46 Width = 27 Height = 22 Hint = 'Max amount of this creature allowed at once' PopupMenu = RightClickMenu TabOrder = 1 Text = '4' OnMouseDown = ControlMouseDown end end object SignPanel: TPanel Tag = 80 Left = 14 Top = 272 Width = 265 Height = 68 TabOrder = 3 OnMouseDown = ControlMouseDown OnMouseMove = SignDescMouseMove object SignDesc: TLabel Tag = 80 Left = 124 Top = 5 Width = 136 Height = 16 AutoSize = False Caption = 'Customizable sign:' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True OnMouseDown = ControlMouseDown OnMouseMove = SignDescMouseMove end object SignImage: TImage Tag = 80 Left = 8 Top = 5 Width = 105 Height = 59 Picture.Data = {} OnMouseDown = ControlMouseDown OnMouseMove = SignDescMouseMove end object SignPosLabel: TLabel Left = 144 Top = 50 Width = 21 Height = 14 Caption = 'Pos:' PopupMenu = RightClickMenu OnMouseMove = SignDescMouseMove end object Sign: TCheckBox Tag = 80 Left = 124 Top = 48 Width = 15 Height = 17 Hint = 'Check to enable' Caption = 'Fish2' PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown OnMouseMove = SignDescMouseMove end object SignFront: TRadioButton Tag = 80 Left = 168 Top = 49 Width = 45 Height = 17 Caption = 'Front' PopupMenu = RightClickMenu TabOrder = 1 OnMouseDown = ControlMouseDown OnMouseMove = SignDescMouseMove end object SignBack: TRadioButton Tag = 80 Left = 216 Top = 49 Width = 45 Height = 17 Caption = 'Back' PopupMenu = RightClickMenu TabOrder = 2 OnMouseDown = ControlMouseDown OnMouseMove = SignDescMouseMove end object SignText: TComboBox Left = 124 Top = 21 Width = 133 Height = 22 DropDownCount = 5 ItemHeight = 14 Items.Strings = ( 'Hi Mom!' 'No Fishing' 'No Smoking' 'Fishing Season' 'Dagwood'#39's Den' 'Don'#39't feed the fish') TabOrder = 3 OnChange = SignTextChange OnExit = SignTextExit end end object TotalCreatures: TEdit Tag = 80 Left = 579 Top = 345 Width = 27 Height = 22 Hint = 'Total number of fish that can be on-screen at once' PopupMenu = RightClickMenu TabOrder = 4 Text = '14' OnMouseDown = ControlMouseDown end object CartoonBox6: TPanel Tag = 80 Left = 340 Top = 0 Width = 265 Height = 68 PopupMenu = RightClickMenu TabOrder = 5 OnMouseDown = ControlMouseDown object CarDesc6: TLabel Tag = 80 Left = 124 Top = 5 Width = 136 Height = 41 AutoSize = False Caption = 'Some kind of hybrid fish that likes to blow bubbles.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True OnMouseDown = ControlMouseDown end object CarMaxLabel6: TLabel Tag = 80 Left = 202 Top = 49 Width = 23 Height = 14 Hint = 'Max amount of this creature allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object CartoonImage6: TImage Tag = 80 Left = 8 Top = 5 Width = 105 Height = 59 Picture.Data = {} PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Cartoon6: TCheckBox Tag = 80 Left = 182 Top = 48 Width = 15 Height = 17 Hint = 'Check to enable' Caption = 'Fish2' PopupMenu = RightClickMenu State = cbChecked TabOrder = 0 OnMouseDown = ControlMouseDown end object CartoonMax6: TEdit Tag = 80 Left = 230 Top = 46 Width = 27 Height = 22 Hint = 'Max amount of this creature allowed at once' PopupMenu = RightClickMenu TabOrder = 1 Text = '4' OnMouseDown = ControlMouseDown end end object CartoonBox7: TPanel Tag = 80 Left = 340 Top = 68 Width = 265 Height = 68 PopupMenu = RightClickMenu TabOrder = 6 OnMouseDown = ControlMouseDown object CarDesc7: TLabel Tag = 80 Left = 124 Top = 3 Width = 136 Height = 41 AutoSize = False Caption = 'The legendary underwater dinosaur - The biggest creature in Aqua' + 'Scape.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True OnMouseDown = ControlMouseDown end object CarMaxLabel7: TLabel Tag = 80 Left = 202 Top = 49 Width = 23 Height = 14 Hint = 'Max amount of this creature allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object CartoonImage7: TImage Tag = 80 Left = 8 Top = 5 Width = 105 Height = 59 Picture.Data = {} PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Cartoon7: TCheckBox Tag = 80 Left = 182 Top = 48 Width = 15 Height = 17 Hint = 'Check to enable' Caption = 'Fish2' PopupMenu = RightClickMenu State = cbChecked TabOrder = 0 OnMouseDown = ControlMouseDown end object CartoonMax7: TEdit Tag = 80 Left = 230 Top = 46 Width = 27 Height = 22 Hint = 'Max amount of this creature allowed at once' PopupMenu = RightClickMenu TabOrder = 1 Text = '4' OnMouseDown = ControlMouseDown end end object CartoonBox8: TPanel Tag = 80 Left = 340 Top = 136 Width = 265 Height = 68 PopupMenu = RightClickMenu TabOrder = 7 OnMouseDown = ControlMouseDown object CarDesc8: TLabel Tag = 80 Left = 124 Top = 5 Width = 136 Height = 41 AutoSize = False Caption = 'A baby alligator. Perfect size for a fish tank.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True OnMouseDown = ControlMouseDown end object CarMaxLabel8: TLabel Tag = 80 Left = 202 Top = 49 Width = 23 Height = 14 Hint = 'Max amount of this creature allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object CartoonImage8: TImage Tag = 80 Left = 8 Top = 5 Width = 105 Height = 59 Picture.Data = {} PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Cartoon8: TCheckBox Tag = 80 Left = 182 Top = 48 Width = 15 Height = 17 Hint = 'Check to enable' Caption = 'Fish2' PopupMenu = RightClickMenu State = cbChecked TabOrder = 0 OnMouseDown = ControlMouseDown end object CartoonMax8: TEdit Tag = 80 Left = 230 Top = 46 Width = 27 Height = 22 Hint = 'Max amount of this creature allowed at once' PopupMenu = RightClickMenu TabOrder = 1 Text = '4' OnMouseDown = ControlMouseDown end end object CartoonBox9: TPanel Tag = 80 Left = 340 Top = 204 Width = 265 Height = 68 PopupMenu = RightClickMenu TabOrder = 8 OnMouseDown = ControlMouseDown object CarDesc9: TLabel Tag = 80 Left = 124 Top = 5 Width = 136 Height = 41 AutoSize = False Caption = 'A friendly whale complete with a functioning air spout.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True OnMouseDown = ControlMouseDown end object CarMaxLabel9: TLabel Tag = 80 Left = 202 Top = 49 Width = 23 Height = 14 Hint = 'Max amount of this creature allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object CartoonImage9: TImage Tag = 80 Left = 8 Top = 5 Width = 105 Height = 59 Picture.Data = {} PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Cartoon9: TCheckBox Tag = 80 Left = 182 Top = 48 Width = 15 Height = 17 Hint = 'Check to enable' Caption = 'Fish2' PopupMenu = RightClickMenu State = cbChecked TabOrder = 0 OnMouseDown = ControlMouseDown end object CartoonMax9: TEdit Tag = 80 Left = 230 Top = 46 Width = 27 Height = 22 Hint = 'Max amount of this creature allowed at once' PopupMenu = RightClickMenu TabOrder = 1 Text = '4' OnMouseDown = ControlMouseDown end end object ChestBox: TPanel Tag = 80 Left = 340 Top = 272 Width = 265 Height = 68 PopupMenu = RightClickMenu TabOrder = 9 OnMouseDown = ControlMouseDown object ChestDesc: TLabel Tag = 80 Left = 124 Top = 3 Width = 136 Height = 41 AutoSize = False Caption = 'A treasure chest that opens periodically to release bubbles.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True OnMouseDown = ControlMouseDown end object ChestImage: TImage Tag = 80 Left = 8 Top = 5 Width = 105 Height = 59 Picture.Data = {} PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object CheckPosLabel: TLabel Tag = 80 Left = 144 Top = 50 Width = 21 Height = 14 Caption = 'Pos:' OnMouseDown = ControlMouseDown end object Chest: TCheckBox Tag = 80 Left = 124 Top = 48 Width = 15 Height = 17 Hint = 'Check to enable' Caption = 'Fish2' PopupMenu = RightClickMenu TabOrder = 0 OnMouseDown = ControlMouseDown end object ChestFront: TRadioButton Tag = 80 Left = 168 Top = 49 Width = 45 Height = 17 Caption = 'Front' PopupMenu = RightClickMenu TabOrder = 1 OnMouseDown = ControlMouseDown end object ChestBack: TRadioButton Tag = 80 Left = 216 Top = 49 Width = 45 Height = 17 Caption = 'Back' PopupMenu = RightClickMenu TabOrder = 2 OnMouseDown = ControlMouseDown end end object CartoonBox1: TPanel Tag = 80 Left = 14 Top = 0 Width = 265 Height = 68 PopupMenu = RightClickMenu TabOrder = 10 object CarDesc1: TLabel Tag = 80 Left = 124 Top = 5 Width = 136 Height = 41 AutoSize = False Caption = 'It'#39's a swimming caveman, complete with club and air bubbles.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True OnMouseDown = ControlMouseDown end object CarMaxLabel1: TLabel Tag = 80 Left = 202 Top = 49 Width = 23 Height = 14 Hint = 'Max amount of this creature allowed at once' Caption = 'Max:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object CartoonImage1: TImage Tag = 80 Left = 8 Top = 5 Width = 105 Height = 59 Picture.Data = {} OnMouseDown = ControlMouseDown end object Cartoon1: TCheckBox Tag = 80 Left = 182 Top = 48 Width = 15 Height = 17 Hint = 'Check to enable' Caption = 'Fish2' PopupMenu = RightClickMenu State = cbChecked TabOrder = 0 OnMouseDown = ControlMouseDown end object CartoonMax1: TEdit Tag = 80 Left = 230 Top = 48 Width = 27 Height = 22 Hint = 'Max amount of this creature allowed at once' PopupMenu = RightClickMenu TabOrder = 1 Text = '4' OnMouseDown = ControlMouseDown end end end object TTabPage Left = 4 Top = 25 Caption = 'Plant Life' object Tank: TImage Tag = 40 Left = 10 Top = 2 Width = 600 Height = 293 Picture.Data = {} PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object Plant1: TImage Left = 66 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant1MouseDown OnMouseMove = Plant1MouseMove OnMouseUp = Plant1MouseUp end object PlantThumbnails: TImage Tag = 40 Left = 10 Top = 298 Width = 333 Height = 45 Picture.Data = {} PopupMenu = RightClickMenu Stretch = True Transparent = True OnMouseDown = PlantThumbnailsMouseDown end object PlantLifeLabel: TLabel Tag = 40 Left = 10 Top = 349 Width = 423 Height = 13 AutoSize = False Caption = 'To add a plant, click a plant thumbnail. Move the plant around ' + 'by clicking and draging.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object AddPlantThemeButton: TSpeedButton Tag = 40 Left = 553 Top = 321 Width = 25 Height = 21 Hint = 'Add or save current theme' Glyph.Data = { 4E010000424D4E01000000000000760000002800000015000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333330003333333333333333333330003333333330033333333330003333 3333300333333333300033333333300333333333300033333333300333333333 3000333333333003333333333000333333333003333333333000333000000000 0000033330003330000000000000033330003333333330033333333330003333 3333300333333333300033333333300333333333300033333333300333333333 3000333333333003333333333000333333333333333333333000333333333333 333333333000333333333333333333333000} Spacing = 2 OnClick = AddPlantThemeButtonClick OnMouseDown = ControlMouseDown end object DeletePlantThemeButton: TSpeedButton Tag = 40 Left = 585 Top = 321 Width = 25 Height = 21 Hint = 'Delete current theme' Glyph.Data = { 4E010000424D4E01000000000000760000002800000015000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333330003333333333333333333330003333333333333333333330003333 3333333333333333300033333333333333333333300033333333333333333333 3000333333333333333333333000333333333333333333333000333000000000 0000033330003330000000000000033330003333333333333333333330003333 3333333333333333300033333333333333333333300033333333333333333333 3000333333333333333333333000333333333333333333333000333333333333 333333333000333333333333333333333000} OnClick = DeletePlantThemeButtonClick OnMouseDown = ControlMouseDown end object CopyButton: TSpeedButton Tag = 40 Left = 349 Top = 298 Width = 25 Height = 21 Hint = 'Duplicate current plant' Glyph.Data = { 4E010000424D4E01000000000000760000002800000014000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333333333333333300003333333334444444443300003333 333334FFFFFFF43300003333333334F00000F43300003330000004FFFFFFF433 00003330FFFFF4F00000F43300003330F00004FFFFFFF43300003330FFFFF4F0 0F44443300003330F00004FFFF4F433300003330FFFFF4FFFF44333300003330 F00F04444443333300003330FFFF0F033333333300003330FFFF003333333333 0000333000000333333333330000333333333333333333330000333333333333 333333330000333333333333333333330000} OnClick = CopyButtonClick OnMouseDown = ControlMouseDown end object CutButton: TSpeedButton Tag = 40 Left = 379 Top = 298 Width = 25 Height = 21 Hint = 'Delete current plant' Glyph.Data = { 4E010000424D4E01000000000000760000002800000014000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333333333333333300003333333333333333333300003333 3344333333333333000033333433433443333333000033333433434334333333 0000333333444343343333330000333333334344433333330000333333334043 3333333300003333333330333333333300003333333300033333333300003333 3333030333333333000033333330030033333333000033333330333033333333 0000333333303330333333330000333333333333333333330000333333333333 333333330000333333333333333333330000} OnClick = CutButtonClick OnMouseDown = ControlMouseDown end object DepthLabel: TLabel Tag = 40 Left = 350 Top = 331 Width = 31 Height = 14 Hint = 'Choose a depth' Caption = 'Depth:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu OnMouseDown = ControlMouseDown end object EnlargeButton: TSpeedButton Tag = 40 Left = 409 Top = 298 Width = 25 Height = 21 Hint = 'Enlarge plant' Glyph.Data = { 4E010000424D4E01000000000000760000002800000014000000120000000100 040000000000D8000000C30E0000C30E00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333333333330033300003333333333333300033300003333 3333333334403333000033333333333344433333000033333344443444333333 0000333366FFFF444333333300003336FFFFFFFF4333333300003336FFF44FFF 433333330000336FFFF44FFFF43333330000336FF444444FF43333330000336F F444444FF43333330000336FFFF44FFFF433333300003336FFF44FEF63333333 00003336FFFFFEFF633333330000333366FFFF66333333330000333333666633 333333330000333333333333333333330000} OnClick = EnlargeButtonClick end object ReduceButton: TSpeedButton Tag = 40 Left = 439 Top = 298 Width = 25 Height = 21 Hint = 'Reduce plant' Glyph.Data = { 4E010000424D4E01000000000000760000002800000014000000120000000100 040000000000D8000000C30E0000C30E00001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333300003333333333333330033300003333333333333300033300003333 3333333334403333000033333333333344433333000033333344443444333333 0000333366FFFF444333333300003336FFFFFFFF4333333300003336FFFFFFFF 433333330000336FFFFFFFFFF43333330000336FF444444FF43333330000336F F444444FF43333330000336FFFFFFFFFF433333300003336FEFFFFFF63333333 00003336FFEFFFFF633333330000333366FFFF66333333330000333333666633 333333330000333333333333333333330000} OnClick = ReduceButtonClick end object Plant2: TImage Left = 90 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant2MouseDown OnMouseMove = Plant2MouseMove OnMouseUp = Plant2MouseUp end object Plant3: TImage Left = 114 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant3MouseDown OnMouseMove = Plant3MouseMove OnMouseUp = Plant3MouseUp end object Plant4: TImage Left = 138 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant4MouseDown OnMouseMove = Plant4MouseMove OnMouseUp = Plant4MouseUp end object Plant5: TImage Left = 162 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant5MouseDown OnMouseMove = Plant5MouseMove OnMouseUp = Plant5MouseUp end object Plant6: TImage Left = 182 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant6MouseDown OnMouseMove = Plant6MouseMove OnMouseUp = Plant6MouseUp end object Plant7: TImage Left = 206 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant7MouseDown OnMouseMove = Plant7MouseMove OnMouseUp = Plant7MouseUp end object Plant8: TImage Left = 230 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant8MouseDown OnMouseMove = Plant8MouseMove OnMouseUp = Plant8MouseUp end object Plant9: TImage Left = 254 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant9MouseDown OnMouseMove = Plant9MouseMove OnMouseUp = Plant9MouseUp end object Plant10: TImage Left = 278 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant10MouseDown OnMouseMove = Plant10MouseMove OnMouseUp = Plant10MouseUp end object Plant11: TImage Left = 302 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant11MouseDown OnMouseMove = Plant11MouseMove OnMouseUp = Plant11MouseUp end object Plant12: TImage Left = 326 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant12MouseDown OnMouseMove = Plant12MouseMove OnMouseUp = Plant12MouseUp end object Plant13: TImage Left = 350 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant13MouseDown OnMouseMove = Plant13MouseMove OnMouseUp = Plant13MouseUp end object Plant14: TImage Left = 374 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant14MouseDown OnMouseMove = Plant14MouseMove OnMouseUp = Plant14MouseUp end object Plant15: TImage Left = 398 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant15MouseDown OnMouseMove = Plant15MouseMove OnMouseUp = Plant15MouseUp end object Plant16: TImage Left = 422 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant16MouseDown OnMouseMove = Plant16MouseMove OnMouseUp = Plant16MouseUp end object Plant17: TImage Left = 446 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant17MouseDown OnMouseMove = Plant17MouseMove OnMouseUp = Plant17MouseUp end object Plant18: TImage Left = 470 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant18MouseDown OnMouseMove = Plant18MouseMove OnMouseUp = Plant18MouseUp end object Plant19: TImage Left = 494 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant19MouseDown OnMouseMove = Plant19MouseMove OnMouseUp = Plant19MouseUp end object Plant20: TImage Left = 518 Top = 6 Width = 20 Height = 15 AutoSize = True DragCursor = crDefault Visible = False OnMouseDown = Plant20MouseDown OnMouseMove = Plant20MouseMove OnMouseUp = Plant20MouseUp end object RemovePlantsButton: TSpeedButton Tag = 40 Left = 469 Top = 298 Width = 25 Height = 21 Hint = 'Remove all plants' Glyph.Data = { 4E010000424D4E01000000000000760000002800000015000000120000000100 040000000000D800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333330003333333333333333333330003330033333333330033330003333 0033333333003333300033333003333330033333300033333300333300333333 3000333333300330033333333000333333330000333333333000333333333003 3333333330003333333300003333333330003333333003300333333330003333 3300333300333333300033333003333330033333300033330033333333003333 3000333003333333333003333000333333333333333333333000333333333333 333333333000333333333333333333333000} Spacing = 2 OnClick = RemovePlantsButtonClick end object PlantThemeBox: TComboBox Tag = 40 Left = 500 Top = 298 Width = 111 Height = 22 Hint = 'Choose plant theme' ItemHeight = 14 MaxLength = 20 PopupMenu = RightClickMenu TabOrder = 0 Text = 'Plant Life Themes' OnChange = PlantThemeBoxChange end object FrontDepth: TRadioButton Tag = 40 Left = 388 Top = 330 Width = 47 Height = 17 Hint = 'Choose a depth' Caption = 'Front' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 1 OnClick = FrontDepthClick OnMouseDown = ControlMouseDown end object MiddleDepth: TRadioButton Tag = 40 Left = 436 Top = 330 Width = 51 Height = 17 Hint = 'Choose a depth' Caption = 'Middle' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 2 OnClick = MiddleDepthClick OnMouseDown = ControlMouseDown end object BackDepth: TRadioButton Tag = 40 Left = 492 Top = 330 Width = 45 Height = 17 Hint = 'Choose a depth' Caption = 'Back' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 3 OnClick = BackDepthClick OnMouseDown = ControlMouseDown end object RandomPlantsButton: TButton Tag = 40 Left = 553 Top = 344 Width = 57 Height = 20 Hint = 'Generate a random plant layout' Caption = 'Random' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 4 OnClick = RandomPlantsButtonClick OnMouseDown = ControlMouseDown end object RandomPlantsCheck: TCheckBox Tag = 40 Left = 436 Top = 347 Width = 113 Height = 17 Hint = 'Random each time' Caption = 'Random each time' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu TabOrder = 5 OnMouseDown = ControlMouseDown end end object TTabPage Left = 4 Top = 25 Caption = 'Gallery' object GalImage1: TImage Left = 20 Top = 54 Width = 580 Height = 251 Picture.Data = {} Transparent = True OnMouseDown = GalImage1MouseDown end object ClickLabel: TLabel Left = 20 Top = 310 Width = 581 Height = 15 Alignment = taCenter AutoSize = False Caption = 'Left-click an image to view full screen, or right-click to set a' + 'n image as your desktop wallpaper.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object ImageGalleryLabel: TImage Left = 20 Top = 6 Width = 580 Height = 36 AutoSize = True Picture.Data = {} Transparent = True end object GalleryUnRegLabel: TLabel Left = 68 Top = 328 Width = 489 Height = 15 Alignment = taCenter AutoSize = False Caption = 'Note: Only image 8 (the middle image), is included in this unreg' + 'istered version.' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = True end object ZoomPreviewCheck: TCheckBox Tag = 50 Left = 198 Top = 345 Width = 255 Height = 17 Caption = 'Enable zoom effect for full-screen preview' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False PopupMenu = RightClickMenu State = cbChecked TabOrder = 0 OnMouseDown = ControlMouseDown end end object TTabPage Left = 4 Top = 25 Caption = 'Aquarium Guide' object RegLabel1: TLabel Left = 4 Top = 342 Width = 613 Height = 17 Alignment = taCenter AutoSize = False Caption = 'This bonus feature is available only in the registered version o' + 'f AquaScape. For info on registering, click the register button' + '.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object TOCPanel: TPanel Left = 16 Top = 26 Width = 587 Height = 307 BevelOuter = bvLowered BevelWidth = 2 Color = clWhite TabOrder = 1 OnMouseMove = TOCPanelMouseMove object Ch1: TLabel Left = 157 Top = 46 Width = 14 Height = 21 Caption = '1.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Ch1Click end object Ch2: TLabel Left = 157 Top = 76 Width = 14 Height = 21 Caption = '2.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Ch1Title: TLabel Left = 181 Top = 46 Width = 92 Height = 21 Cursor = 5 Caption = 'Introduction' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Ch1Click OnMouseMove = Ch1TitleMouseMove end object Ch2Title: TLabel Left = 181 Top = 76 Width = 247 Height = 21 Cursor = 5 Caption = 'Setting up your first real fish tank' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Ch2TitleClick OnMouseMove = Ch2TitleMouseMove end object Ch3: TLabel Left = 157 Top = 106 Width = 14 Height = 21 Caption = '3.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Ch3Title: TLabel Left = 181 Top = 106 Width = 177 Height = 21 Cursor = 5 Caption = 'Choosing your first fish' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Ch3TitleClick OnMouseMove = Ch3TitleMouseMove end object Ch4: TLabel Left = 157 Top = 136 Width = 14 Height = 21 Caption = '4.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Ch4Title: TLabel Left = 181 Top = 136 Width = 170 Height = 21 Cursor = 5 Caption = 'Plants and landscaping' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Ch4TitleClick OnMouseMove = Ch4TitleMouseMove end object Ch5: TLabel Left = 157 Top = 166 Width = 14 Height = 21 Caption = '5.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Ch5Title: TLabel Left = 181 Top = 166 Width = 187 Height = 21 Cursor = 5 Caption = 'Feeding and maintenance' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Ch5TitleClick OnMouseMove = Ch5TitleMouseMove end object Ch6: TLabel Left = 157 Top = 196 Width = 14 Height = 21 Caption = '6.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Ch6Title: TLabel Left = 181 Top = 196 Width = 215 Height = 21 Cursor = 5 Caption = 'Water quality and health care' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Ch6TitleClick OnMouseMove = Ch6TitleMouseMove end object Ch7: TLabel Left = 157 Top = 226 Width = 14 Height = 21 Caption = '7.' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Ch7Title: TLabel Left = 181 Top = 226 Width = 170 Height = 21 Cursor = 5 Caption = 'Where to go from here' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False OnClick = Ch7TitleClick OnMouseMove = Ch7TitleMouseMove end object TOCLabel: TLabel Left = 181 Top = 16 Width = 219 Height = 16 Caption = 'Aquarium Guide Table of Contents' Font.Charset = DEFAULT_CHARSET Font.Color = clRed Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold, fsUnderline] ParentFont = False OnMouseMove = TOCLabelMouseMove end object GuideDesc: TLabel Left = 104 Top = 262 Width = 381 Height = 33 Alignment = taCenter AutoSize = False Caption = 'This guide provides information on helping you get started in se' + 'tting up a real aquarium if you wish to do so. To display a top' + 'ic, just click its title.' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False WordWrap = True OnMouseMove = GuideDescMouseMove end end object Guide: TRichEdit Left = 0 Top = 352 Width = 31 Height = 10 HideScrollBars = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 Visible = False OnMouseDown = GuideMouseDown end object TOCButton: TBitBtn Left = 241 Top = 337 Width = 125 Height = 25 Caption = 'Return to Contents' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 Visible = False OnClick = TOCButtonClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3 333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0 C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0 F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF 00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333 3333333373FF7333333333333000333333333333377733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end end end object ExitButton: TBitBtn Left = 570 Top = 424 Width = 60 Height = 24 Caption = 'Exit' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = ExitButtonClick Kind = bkAbort end object RunButton: TBitBtn Tag = 100 Left = 502 Top = 424 Width = 60 Height = 24 Hint = 'Start Aquarium' Caption = 'Run' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 1 OnClick = RunButtonClick Glyph.Data = { DE000000424DDE0000000000000076000000280000000F0000000D0000000100 0400000000006800000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00311111119333 3330333399919993333019331999119933309193919919199330391999199191 993039199919919999903919991991999990391999199199B930919391991991 9930193319991919933033339991919933303339999999933330311111119333 3330} end object AboutButton: TBitBtn Left = 276 Top = 424 Width = 67 Height = 24 Caption = 'About' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = AboutButtonClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333333FFFFF3333333333CCCCC33 33333FFFF77777FFFFFFCCCCCC808CCCCCC377777737F777777F008888070888 8003773FFF7773FFF77F0F0770F7F0770F037F777737F777737F70FFFFF7FFFF F07373F3FFF7F3FFF37F70F000F7F000F07337F77737F777373330FFFFF7FFFF F03337FF3FF7F3FF37F3370F00F7F00F0733373F7737F77337F3370FFFF7FFFF 0733337F33373F337333330FFF030FFF03333373FF7373FF7333333000333000 3333333777333777333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object RegisterButton: TBitBtn Left = 351 Top = 424 Width = 75 Height = 24 Caption = 'Register' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ModalResult = 3 ParentFont = False TabOrder = 4 OnClick = RegisterButtonClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555FFFFF555555555544C4C5555555555F777775FF5555554C444C444 5555555775FF55775F55554C4334444445555575577F55557FF554C4C334C4C4 335557F5577FF55577F554CCC3334444335557555777F555775FCCCCC333CCC4 C4457F55F777F555557F4CC33333CCC444C57F577777F5F5557FC4333333C3C4 CCC57F777777F7FF557F4CC33333333C4C457F577777777F557FCCC33CC4333C C4C575F7755F777FF5755CCCCC3333334C5557F5FF777777F7F554C333333333 CC55575777777777F755553333CC3C33C555557777557577755555533CC4C4CC 5555555775FFFF77555555555C4CCC5555555555577777555555} NumGlyphs = 2 end object HelpButton: TBitBtn Left = 434 Top = 424 Width = 60 Height = 24 Caption = '&Help' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = HelpButtonClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333CCCCC33 33333FFFF77777FFFFFFCCCCCC808CCCCCC3777777F7F777777F008888070888 8003777777777777777F0F0770F7F0770F0373F33337F333337370FFFFF7FFFF F07337F33337F33337F370FFFB99FBFFF07337F33377F33337F330FFBF99BFBF F033373F337733333733370BFBF7FBFB0733337F333FF3337F33370FBF98BFBF 0733337F3377FF337F333B0BFB990BFB03333373FF777FFF73333FB000B99000 B33333377737777733333BFBFBFB99FBF33333333FF377F333333FBF99BF99BF B333333377F377F3333333FB99FB99FB3333333377FF77333333333FB9999FB3 333333333777733333333333FBFBFB3333333333333333333333} NumGlyphs = 2 end object Timer: TTimer Interval = 100 OnTimer = TimerTimer Left = 594 Top = 10 end object RightClickMenu: TPopupMenu Left = 556 Top = 4 object Whatthis: TMenuItem Caption = 'What'#39's this?' Default = True OnClick = WhatthisClick end end end