object frmMain: TfrmMain Left = 593 Top = 416 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Huey v.1.2' ClientHeight = 357 ClientWidth = 487 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} KeyPreview = True Menu = MainMenu1 PopupMenu = PopupMenu1 Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object GroupBox2: TGroupBox Left = 10 Top = 265 Width = 470 Height = 63 Caption = 'Colour Schemes' TabOrder = 1 object ComboBox1: TComboBox Left = 20 Top = 26 Width = 240 Height = 21 Style = csDropDownList ItemHeight = 13 Sorted = True TabOrder = 0 OnChange = ComboBox1Change end object btnSaveAs: TButton Left = 270 Top = 22 Width = 85 Height = 25 Caption = 'Sa&ve As...' TabOrder = 1 OnClick = btnSaveAsClick OnMouseMove = btnSaveAsMouseMove end object btnDelete: TButton Left = 365 Top = 22 Width = 85 Height = 25 Caption = '&Delete' TabOrder = 2 OnClick = btnDeleteClick OnMouseMove = btnDeleteMouseMove end end object StatusBar1: TStatusBar Left = 0 Top = 338 Width = 487 Height = 19 Panels = < item Width = 363 end item Width = 50 end> SimplePanel = False SizeGrip = False end object TabControl1: TTabControl Left = 10 Top = 5 Width = 470 Height = 251 TabIndex = 0 TabOrder = 0 Tabs.Strings = ( 'Background' 'Foreground' 'Hyperlink' 'Visited Link' 'Active Link') OnChange = TabControl1Change object Label3: TLabel Left = 59 Top = 110 Width = 7 Height = 13 Caption = '&B' end object Label2: TLabel Left = 59 Top = 80 Width = 8 Height = 13 Caption = '&G' end object Label1: TLabel Left = 59 Top = 50 Width = 8 Height = 13 Caption = '&R' end object EditR: TEdit Left = 20 Top = 45 Width = 30 Height = 21 MaxLength = 3 ParentShowHint = False ShowHint = False TabOrder = 0 Text = '192' OnChange = EditRChange OnExit = EditRExit OnKeyDown = EditRKeyDown OnKeyPress = EditRKeyPress end object EditG: TEdit Left = 20 Top = 75 Width = 30 Height = 21 MaxLength = 3 ParentShowHint = False ShowHint = False TabOrder = 1 Text = '192' OnChange = EditGChange OnExit = EditGExit OnKeyDown = EditGKeyDown OnKeyPress = EditGKeyPress end object EditB: TEdit Left = 20 Top = 105 Width = 30 Height = 21 MaxLength = 3 ParentShowHint = False ShowHint = False TabOrder = 2 Text = '192' OnChange = EditBChange OnExit = EditBExit OnKeyDown = EditBKeyDown OnKeyPress = EditBKeyPress end object Panel1: TPanel Left = 20 Top = 145 Width = 325 Height = 85 BevelOuter = bvLowered PopupMenu = PopupMenu1 TabOrder = 11 OnClick = Panel1Click OnDblClick = Panel1DblClick object LabelForeground: TLabel Left = 70 Top = 20 Width = 128 Height = 19 Caption = 'Foreground Text' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False PopupMenu = PopupMenu1 Transparent = True OnClick = LabelForegroundClick OnDblClick = LabelForegroundDblClick end object LabelHyperlink: TLabel Left = 70 Top = 45 Width = 59 Height = 17 Caption = 'Hyperlink' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsUnderline] ParentFont = False PopupMenu = PopupMenu1 Transparent = True OnClick = LabelHyperlinkClick OnDblClick = LabelHyperlinkDblClick end object LabelActive: TLabel Left = 232 Top = 45 Width = 69 Height = 17 Caption = 'Active Link' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsUnderline] ParentFont = False PopupMenu = PopupMenu1 Transparent = True OnClick = LabelActiveClick OnDblClick = LabelActiveDblClick end object LabelVisited: TLabel Left = 144 Top = 45 Width = 73 Height = 17 Caption = 'Visited Link' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = 'Arial' Font.Style = [fsUnderline] ParentFont = False PopupMenu = PopupMenu1 Transparent = True OnClick = LabelVisitedClick OnDblClick = LabelVisitedDblClick end end object ScrollBarB: TScrollBar Left = 76 Top = 105 Width = 269 Height = 20 LargeChange = 10 Max = 255 Position = 192 TabOrder = 8 TabStop = False OnChange = ScrollBarBChange OnScroll = ScrollBarBScroll end object ScrollBarG: TScrollBar Left = 76 Top = 75 Width = 269 Height = 20 LargeChange = 10 Max = 255 Position = 192 TabOrder = 9 TabStop = False OnChange = ScrollBarGChange OnScroll = ScrollBarGScroll end object ScrollBarR: TScrollBar Left = 76 Top = 45 Width = 269 Height = 20 LargeChange = 10 Max = 255 Position = 192 TabOrder = 10 TabStop = False OnChange = ScrollBarRChange OnScroll = ScrollBarRScroll end object btnPicker: TButton Left = 365 Top = 45 Width = 85 Height = 25 Caption = '&Picker...' TabOrder = 4 OnClick = btnPickerClick OnMouseMove = btnPickerMouseMove end object btnSafe: TButton Left = 365 Top = 80 Width = 85 Height = 25 Caption = '&Safe Palette' TabOrder = 5 OnClick = btnSafeClick OnMouseMove = btnSafeMouseMove end object CheckSnap: TCheckBox Left = 365 Top = 145 Width = 67 Height = 17 Caption = '&Autosafe' TabOrder = 6 OnClick = CheckSnapClick OnMouseMove = CheckSnapMouseMove end object EditT: TEdit Left = 20 Top = 145 Width = 51 Height = 21 CharCase = ecUpperCase MaxLength = 6 ParentShowHint = False ShowHint = False TabOrder = 3 Text = 'C0C0C0' OnChange = EditTChange OnExit = EditTExit OnKeyDown = EditTKeyDown OnKeyPress = EditTKeyPress end object btnExit: TButton Left = 365 Top = 205 Width = 85 Height = 25 Caption = 'E&xit' TabOrder = 7 OnClick = btnExitClick OnMouseMove = btnExitMouseMove end end object ColorDialog1: TColorDialog Ctl3D = True Options = [cdFullOpen] Left = 535 Top = 49 end object MainMenu1: TMainMenu Left = 536 Top = 105 object File1: TMenuItem Caption = '&File' object SaveColourAs1: TMenuItem Caption = 'Sa&ve Scheme As...' ShortCut = 16467 OnClick = SaveColourAs1Click end object N1: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'E&xit' OnClick = Exit1Click end end object Edit1: TMenuItem Caption = '&Edit' object Background1: TMenuItem Caption = '&Background' RadioItem = True ShortCut = 112 OnClick = Background1Click end object Foreground1: TMenuItem Caption = '&Foreground' RadioItem = True ShortCut = 113 OnClick = Foreground1Click end object Hyperlink1: TMenuItem Caption = '&Hyperlink' RadioItem = True ShortCut = 114 OnClick = Hyperlink1Click end object VisitedLink1: TMenuItem Caption = 'Visited Link' RadioItem = True ShortCut = 115 OnClick = VisitedLink1Click end object ActiveLink1: TMenuItem Caption = '&Active Link' RadioItem = True ShortCut = 116 OnClick = ActiveLink1Click end object N2: TMenuItem Caption = '-' end object SafePalette1: TMenuItem Caption = '&Safe Palette' OnClick = SafePalette1Click end object Autosafe1: TMenuItem Caption = '&Autosafe' OnClick = Autosafe1Click end end object View1: TMenuItem Caption = '&View' object WindowsColorPicker1: TMenuItem Caption = 'Color &Picker...' OnClick = WindowsColorPicker1Click end end object Help1: TMenuItem Caption = '&Help' object AboutHuey1: TMenuItem Caption = '&About Huey' OnClick = AboutHuey1Click end end end object Timer1: TTimer Enabled = False Interval = 2000 OnTimer = Timer1Timer Left = 535 Top = 167 end object PopupMenu1: TPopupMenu Left = 534 Top = 229 object Black1: TMenuItem Caption = 'Black' OnClick = Black1Click end object White1: TMenuItem Caption = 'White' OnClick = White1Click end object N3: TMenuItem Caption = '-' end object Green1: TMenuItem Caption = 'Green' OnClick = Green1Click end object Maroon1: TMenuItem Caption = 'Maroon' OnClick = Maroon1Click end object Olive1: TMenuItem Caption = 'Olive' OnClick = Olive1Click end object Navy1: TMenuItem Caption = 'Navy' OnClick = Navy1Click end object Purple1: TMenuItem Caption = 'Purple' OnClick = Purple1Click end object Gray1: TMenuItem Caption = 'Gray' OnClick = Gray1Click end object Yellow1: TMenuItem Caption = 'Yellow' OnClick = Yellow1Click end object Lime1: TMenuItem Caption = 'Lime' OnClick = Lime1Click end object Aqua1: TMenuItem Caption = 'Aqua' OnClick = Aqua1Click end object Fuchsia1: TMenuItem Caption = 'Fuchsia' OnClick = Fuchsia1Click end object Silver1: TMenuItem Caption = 'Silver' OnClick = Silver1Click end object Red1: TMenuItem Caption = 'Red' OnClick = Red1Click end object Blue1: TMenuItem Caption = 'Blue' OnClick = Blue1Click end object Teal1: TMenuItem Caption = 'Teal' OnClick = Teal1Click end object N4: TMenuItem Caption = '-' end object Custom1: TMenuItem Caption = 'Custom...' OnClick = Custom1Click end end end