home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 February / Chip_2003-02_cd1.bin / tema / siggis / siGGis.exe / 0 / RCDATA / TFCLIP / TFCLIP.txt
Text File  |  2001-12-03  |  2KB  |  113 lines
  1. object FClip: TFClip
  2.   Left = 711
  3.   Top = 116
  4.   Width = 257
  5.   Height = 337
  6.   Caption = 'Digitize'
  7.   Font.Color = clWindowText
  8.   Font.Height = -11
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   Position = poScreenCenter
  12.   OnActivate = FormActivate
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object Panel1: TPanel
  16.     Left = 0
  17.     Top = 205
  18.     Width = 249
  19.     Height = 105
  20.     Align = alBottom
  21.     TabOrder = 0
  22.     object RGObject: TRadioGroup
  23.       Left = 4
  24.       Top = 3
  25.       Width = 240
  26.       Height = 38
  27.       Hint = 'Mouse [L]: new point'
  28.       Caption = 'GeoObject Type  '
  29.       Columns = 3
  30.       ItemIndex = 0
  31.       Items.Strings = (
  32.         'Point'
  33.         'Line'
  34.         'Polygon')
  35.       ParentShowHint = False
  36.       ShowHint = True
  37.       TabOrder = 0
  38.       OnClick = RGObjectClick
  39.     end
  40.     object Clear: TButton
  41.       Left = 12
  42.       Top = 48
  43.       Width = 109
  44.       Height = 25
  45.       Hint = 'Clear all points'
  46.       Caption = 'Clear'
  47.       ParentShowHint = False
  48.       ShowHint = True
  49.       TabOrder = 1
  50.       OnClick = ClearClick
  51.     end
  52.     object ButtonAdd: TButton
  53.       Left = 125
  54.       Top = 75
  55.       Width = 109
  56.       Height = 25
  57.       Hint = 'Add to selected geoLayer'
  58.       Caption = 'Add to Layer'
  59.       ParentShowHint = False
  60.       ShowHint = True
  61.       TabOrder = 2
  62.       OnClick = ButtonAddClick
  63.     end
  64.     object ButtonSave: TButton
  65.       Left = 125
  66.       Top = 48
  67.       Width = 109
  68.       Height = 25
  69.       Hint = 'Save all coordinate into file'
  70.       Caption = 'Save as *.txt'
  71.       ParentShowHint = False
  72.       ShowHint = True
  73.       TabOrder = 3
  74.       OnClick = ButtonSaveClick
  75.     end
  76.     object Button3: TButton
  77.       Left = 12
  78.       Top = 75
  79.       Width = 109
  80.       Height = 25
  81.       Hint = 'Create new layer '
  82.       Caption = 'New Layer'
  83.       ParentShowHint = False
  84.       ShowHint = True
  85.       TabOrder = 4
  86.       OnClick = Button3Click
  87.     end
  88.   end
  89.   object CMemo: TListBox
  90.     Left = 0
  91.     Top = 0
  92.     Width = 249
  93.     Height = 205
  94.     Hint = 'Mouse - DblClick: modify coordinate'
  95.     Align = alClient
  96.     ItemHeight = 13
  97.     ParentShowHint = False
  98.     ShowHint = True
  99.     TabOrder = 1
  100.     OnClick = CMemoClick
  101.     OnDblClick = CMemoDblClick
  102.     OnExit = CMemoExit
  103.   end
  104.   object SD: TSaveDialog
  105.     DefaultExt = 'TXT'
  106.     FileEditStyle = fsEdit
  107.     Options = [ofOverwritePrompt]
  108.     Title = 'Save into ASCII file'
  109.     Left = 8
  110.     Top = 8
  111.   end
  112. end
  113.