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 = 30 Top = 228 Width = 149 Height = 57 Caption = ' Subdivision lines ' Columns = 3 Items.Strings = ( 'Dot' 'Dash' 'Solid') TabOrder = 0 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 Caption = '&Delete' TabOrder = 1 TabStop = False OnClick = BtDelClick end object BtRename: TButton Left = 83 Top = 264 Width = 55 Height = 25 Caption = '&Rename' TabOrder = 2 TabStop = False OnClick = BtRenameClick end object BtDefaultLineSet: TButton Left = 150 Top = 264 Width = 55 Height = 25 Caption = 'De&fault' TabOrder = 3 TabStop = False OnClick = BtDefaultLineSetClick end end object ColorDialog1: TColorDialog Ctl3D = True Left = 12 Top = 5 end end