object CustClrDlg: TCustClrDlg
  Left = 243
  Top = 135
  ActiveControl = DrawGrid2
  BorderStyle = bsDialog
  Caption = 'Custom Colors'
  ClientHeight = 271
  ClientWidth = 376
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 376
    Height = 271
    Align = alClient
    BevelOuter = bvNone
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object Panel2: TPanel
      Left = 7
      Top = 7
      Width = 180
      Height = 21
      Hint = '|Selected floss DMC color name'
      BevelOuter = bvLowered
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 190
      Top = 7
      Width = 180
      Height = 21
      Hint = '|Selected DMC color name'
      BevelOuter = bvLowered
      TabOrder = 1
    end
    object DrawGrid2: TDrawGrid
      Left = 190
      Top = 32
      Width = 180
      Height = 212
      Hint = '|Floss that are going to be tweeded'
      ColCount = 8
      DefaultColWidth = 15
      DefaultRowHeight = 15
      FixedCols = 0
      FixedRows = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goThumbTracking]
      TabOrder = 2
      OnClick = DrawGrid2Click
      OnDblClick = DrawGrid2DblClick
      OnDrawCell = DrawGrid2DrawCell
    end
    object DrawGrid1: TDrawGrid
      Left = 7
      Top = 32
      Width = 180
      Height = 212
      Hint = '|Pure floss available for tweeding'
      ColCount = 8
      DefaultColWidth = 15
      DefaultRowHeight = 15
      FixedCols = 0
      FixedRows = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goThumbTracking]
      TabOrder = 3
      OnClick = DrawGrid1Click
      OnDblClick = DrawGrid1DblClick
      OnDrawCell = DrawGrid1DrawCell
    end
    object reset: TButton
      Left = 7
      Top = 247
      Width = 58
      Height = 22
      Hint = '|Empty the right list box '
      Caption = '&Reset'
      TabOrder = 4
      OnClick = resetClick
    end
    object addall: TButton
      Left = 69
      Top = 247
      Width = 58
      Height = 22
      Hint = '|Add every pure floss from right to left'
      Caption = '&Add All'
      TabOrder = 5
      OnClick = addallClick
    end
    object tweed: TButton
      Left = 130
      Top = 247
      Width = 58
      Height = 22
      Hint = '|Create colors by tweeding pure floss in the right listbox'
      Caption = '&Tweed'
      Default = True
      Enabled = False
      TabOrder = 6
      OnClick = tweedClick
    end
    object Button1: TButton
      Left = 315
      Top = 248
      Width = 58
      Height = 20
      Caption = '&Ok'
      Default = True
      ModalResult = 1
      TabOrder = 7
    end
    object Button2: TButton
      Left = 253
      Top = 248
      Width = 58
      Height = 20
      Cancel = True
      Caption = '&Cancel'
      ModalResult = 2
      TabOrder = 8
    end
    object HelpButton: TButton
      Left = 192
      Top = 247
      Width = 58
      Height = 22
      Hint = '|Create colors by tweeding pure floss in the right listbox'
      Caption = '&Help'
      Default = True
      Enabled = False
      TabOrder = 9
      OnClick = HelpButtonClick
    end
  end
end