object FClip: TFClip
  Left = 711
  Top = 116
  Width = 257
  Height = 337
  Caption = 'Digitize'
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 205
    Width = 249
    Height = 105
    Align = alBottom
    TabOrder = 0
    object RGObject: TRadioGroup
      Left = 4
      Top = 3
      Width = 240
      Height = 38
      Hint = 'Mouse [L]: new point'
      Caption = 'GeoObject Type  '
      Columns = 3
      ItemIndex = 0
      Items.Strings = (
        'Point'
        'Line'
        'Polygon')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = RGObjectClick
    end
    object Clear: TButton
      Left = 12
      Top = 48
      Width = 109
      Height = 25
      Hint = 'Clear all points'
      Caption = 'Clear'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = ClearClick
    end
    object ButtonAdd: TButton
      Left = 125
      Top = 75
      Width = 109
      Height = 25
      Hint = 'Add to selected geoLayer'
      Caption = 'Add to Layer'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = ButtonAddClick
    end
    object ButtonSave: TButton
      Left = 125
      Top = 48
      Width = 109
      Height = 25
      Hint = 'Save all coordinate into file'
      Caption = 'Save as *.txt'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = ButtonSaveClick
    end
    object Button3: TButton
      Left = 12
      Top = 75
      Width = 109
      Height = 25
      Hint = 'Create new layer '
      Caption = 'New Layer'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = Button3Click
    end
  end
  object CMemo: TListBox
    Left = 0
    Top = 0
    Width = 249
    Height = 205
    Hint = 'Mouse - DblClick: modify coordinate'
    Align = alClient
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = CMemoClick
    OnDblClick = CMemoDblClick
    OnExit = CMemoExit
  end
  object SD: TSaveDialog
    DefaultExt = 'TXT'
    FileEditStyle = fsEdit
    Options = [ofOverwritePrompt]
    Title = 'Save into ASCII file'
    Left = 8
    Top = 8
  end
end