object WinCurLineSet: TWinCurLineSet
  Left = 214
  Top = 133
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Select and edit the sets of lines'
  ClientHeight = 357
  ClientWidth = 430
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 309
    Width = 430
    Height = 48
    Align = alBottom
    TabOrder = 0
    object BtOK: TBitBtn
      Left = 70
      Top = 11
      Width = 75
      Height = 25
      TabOrder = 0
      TabStop = False
      Kind = bkOK
    end
    object BtCancel: TBitBtn
      Left = 286
      Top = 11
      Width = 75
      Height = 25
      TabOrder = 1
      TabStop = False
      Kind = bkCancel
    end
    object BtUndo: TButton
      Left = 178
      Top = 11
      Width = 75
      Height = 25
      Caption = '&Undo'
      TabOrder = 2
      TabStop = False
      OnClick = BtUndoClick
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 209
    Height = 309
    TabOrder = 1
    object Label10: TLabel
      Left = 14
      Top = 38
      Width = 28
      Height = 13
      Caption = '&Name'
      FocusControl = EditNom
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label11: TLabel
      Left = 40
      Top = 5
      Width = 129
      Height = 16
      Caption = 'Current set of lines'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 32
      Top = 72
      Width = 29
      Height = 13
      Caption = 'Colors'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
    end
    object LblEpaisseurTrait: TLabel
      Left = 106
      Top = 72
      Width = 33
      Height = 13
      Caption = 'Widths'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
    end
    object EditNom: TEdit
      Left = 53
      Top = 33
      Width = 142
      Height = 21
      MaxLength = 25
      TabOrder = 1
    end
    object RGSubDiv: TRadioGroup
      Left = 100
      Top = 201
      Width = 60
      Height = 61
      Items.Strings = (
        'Dot'
        'Dash'
        'Solid')
      TabOrder = 0
    end
    object BtPrnTest: TButton
      Left = 53
      Top = 273
      Width = 103
      Height = 25
      Hint = 'Series of lines with increasing thichnesses'
      Caption = '&Print test page'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      TabStop = False
      OnClick = BtPrnTestClick
    end
  end
  object Panel1: TPanel
    Left = 209
    Top = 0
    Width = 221
    Height = 309
    TabOrder = 2
    object Label8: TLabel
      Left = 28
      Top = 5
      Width = 165
      Height = 16
      Caption = 'Registered sets of lines'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object LB: TListBox
      Left = 9
      Top = 31
      Width = 202
      Height = 220
      ItemHeight = 16
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnClick = LBClick
      OnDrawItem = LBDrawItem
      OnKeyDown = LBKeyDown
    end
    object BtDel: TButton
      Left = 15
      Top = 265
      Width = 55
      Height = 25
      Hint = 'To erase a set of lines'
      Caption = '&Delete'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TabStop = False
      OnClick = BtDelClick
    end
    object BtRename: TButton
      Left = 83
      Top = 264
      Width = 55
      Height = 25
      Hint = 'To change the name of a set of line'
      Caption = '&Rename'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      TabStop = False
      OnClick = BtRenameClick
    end
    object BtDefaultLineSet: TButton
      Left = 150
      Top = 264
      Width = 55
      Height = 25
      Hint = 'To reset default set of lines'
      Caption = 'De&fault'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      TabStop = False
      OnClick = BtDefaultLineSetClick
    end
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 12
    Top = 5
  end
end