object SetLayerDialog: TSetLayerDialog Left = 253 Top = 113 Width = 200 Height = 349 BorderIcons = [biSystemMenu, biMinimize] Caption = 'Layer - setting' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate OnHide = FormHide OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Bevel2: TBevel Left = 8 Top = 136 Width = 177 Height = 32 Shape = bsFrame Style = bsRaised end object Bevel1: TBevel Left = 0 Top = 0 Width = 192 Height = 322 Align = alClient end object Label1: TLabel Left = 8 Top = 10 Width = 81 Height = 13 Caption = 'Current layer:' end object Label2: TLabel Left = 8 Top = 35 Width = 81 Height = 13 Caption = 'Outline color:' end object Label3: TLabel Left = 8 Top = 83 Width = 81 Height = 13 Caption = 'Filled color:' end object Label4: TLabel Left = 8 Top = 108 Width = 81 Height = 13 Caption = 'Style object' end object Label5: TLabel Left = 14 Top = 143 Width = 75 Height = 13 Caption = 'ObjectSize:' end object Label6: TLabel Left = 8 Top = 179 Width = 81 Height = 13 Caption = 'Label field:' end object ShObjectXx: TShape Left = 120 Top = 144 Width = 57 Height = 17 Brush.Style = bsClear Pen.Style = psClear OnMouseUp = ShObjectXxMouseUp end object Bevel3: TBevel Left = 8 Top = 170 Width = 177 Height = 111 end object Label7: TLabel Left = 16 Top = 248 Width = 89 Height = 16 Caption = 'AutoLabel:' Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object CBLayer: TComboBox Left = 88 Top = 8 Width = 97 Height = 21 ItemHeight = 13 TabOrder = 0 Text = '...' OnChange = CBLayerChange end object CBOline: TComboBox Left = 88 Top = 32 Width = 97 Height = 21 ItemHeight = 13 Items.Strings = ( 'Aqua ' 'Black ' 'Blue ' 'Fuchsia' 'Gray ' 'Green ' 'Lime ' 'Maroon ' 'Navy ' 'Olive ' 'Purple ' 'Red ' 'Silver ' 'Teal ' 'White ' 'Yellow ') TabOrder = 1 Text = '...' OnChange = CBOlineChange end object CBFill: TComboBox Left = 88 Top = 80 Width = 97 Height = 21 ItemHeight = 13 Items.Strings = ( 'Aqua ' 'Black ' 'Blue ' 'Fuchsia' 'Gray ' 'Green ' 'Lime ' 'Maroon ' 'Navy ' 'Olive ' 'Purple ' 'Red ' 'Silver ' 'Teal ' 'White ' 'Yellow ') TabOrder = 4 Text = '...' OnChange = CBFillChange end object CBType: TComboBox Left = 88 Top = 104 Width = 97 Height = 21 ItemHeight = 13 TabOrder = 5 Text = '...' OnChange = CBTypeChange end object ChBOline1: TCheckBox Left = 8 Top = 58 Width = 89 Height = 17 Caption = 'single outline ' Color = clBtnFace ParentColor = False State = cbChecked TabOrder = 2 OnClick = ChBOline1Click end object ChBOline2: TCheckBox Left = 96 Top = 58 Width = 89 Height = 17 Caption = 'double outline' TabOrder = 3 OnClick = ChBOline2Click end object ButSet: TButton Left = 104 Top = 292 Width = 73 Height = 25 Caption = 'Accept' TabOrder = 7 OnClick = ButSetClick end object ESize: TEdit Left = 88 Top = 141 Width = 25 Height = 21 TabOrder = 6 Text = '10' OnExit = ESizeExit end object CBLabel: TComboBox Left = 88 Top = 176 Width = 97 Height = 21 ItemHeight = 13 TabOrder = 8 Text = '...' end object PFont: TPanel Left = 10 Top = 200 Width = 173 Height = 33 Hint = 'dblClik - setting dialog' Caption = 'Set Label font' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 9 OnDblClick = PFontDblClick end object DB: TButton Left = 16 Top = 292 Width = 75 Height = 25 Caption = 'Default' Enabled = False TabOrder = 10 OnClick = DBClick end object BLabDraw: TButton Left = 104 Top = 238 Width = 73 Height = 19 Caption = 'Draw' TabOrder = 11 OnClick = BLabDrawClick end object BLabClear: TButton Left = 104 Top = 257 Width = 73 Height = 19 Caption = 'Clear' TabOrder = 12 OnClick = BLabClearClick end object FD: TFontDialog Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Left = 8 Top = 200 end end