PC Shareware 1997 December/PCShareware-12-97.iso.bin/inet/huey/_setup.1/Huey.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 1997-10-06 | 11KB | 500 lines

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 = {<image000.ico>}
  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