home *** CD-ROM | disk | FTP | other *** search
- object findGeo: TfindGeo
- Left = 463
- Top = 23
- BorderStyle = bsDialog
- Caption = 'findGeo'
- ClientHeight = 366
- ClientWidth = 267
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnHide = FormHide
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 267
- Height = 121
- Align = alTop
- TabOrder = 5
- object Label1: TLabel
- Left = 8
- Top = 11
- Width = 105
- Height = 13
- Alignment = taRightJustify
- Caption = 'Select Layer:'
- end
- object Label2: TLabel
- Left = 8
- Top = 35
- Width = 105
- Height = 13
- Alignment = taRightJustify
- Caption = 'Select field:'
- end
- object Label3: TLabel
- Left = 8
- Top = 59
- Width = 105
- Height = 13
- Alignment = taRightJustify
- Caption = 'Find text:'
- end
- end
- object CBLayer: TComboBox
- Left = 120
- Top = 8
- Width = 145
- Height = 21
- ItemHeight = 13
- TabOrder = 0
- Text = '...all... '
- OnChange = CBLayerChange
- end
- object CBField: TComboBox
- Left = 120
- Top = 32
- Width = 145
- Height = 21
- ItemHeight = 13
- TabOrder = 1
- Text = '...all...'
- end
- object Edit1: TEdit
- Left = 120
- Top = 56
- Width = 145
- Height = 21
- TabOrder = 2
- Text = '...'
- end
- object RG: TRadioGroup
- Left = 8
- Top = 77
- Width = 153
- Height = 36
- Columns = 2
- ItemIndex = 0
- Items.Strings = (
- 'equal'
- 'within')
- TabOrder = 3
- end
- object Button1: TButton
- Left = 168
- Top = 85
- Width = 97
- Height = 25
- Caption = 'Find geoObjects'
- TabOrder = 4
- OnClick = Button1Click
- end
- object Panel2: TPanel
- Left = 0
- Top = 296
- Width = 267
- Height = 70
- Align = alBottom
- TabOrder = 6
- object Button2: TButton
- Left = 16
- Top = 20
- Width = 75
- Height = 25
- Caption = 'Show all'
- TabOrder = 0
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 184
- Top = 36
- Width = 73
- Height = 25
- Caption = 'Close'
- TabOrder = 1
- OnClick = Button3Click
- end
- object Reset: TButton
- Left = 104
- Top = 36
- Width = 75
- Height = 25
- Caption = 'Reset'
- TabOrder = 2
- OnClick = ResetClick
- end
- object Button4: TButton
- Left = 104
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Save '
- TabOrder = 3
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 184
- Top = 8
- Width = 75
- Height = 25
- Caption = 'Load'
- TabOrder = 4
- OnClick = Button5Click
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 121
- Width = 267
- Height = 175
- Align = alClient
- TabOrder = 7
- object lst: TListBox
- Left = 1
- Top = 1
- Width = 265
- Height = 173
- Align = alClient
- ItemHeight = 13
- TabOrder = 0
- OnKeyDown = lstKeyDown
- end
- end
- object SD: TSaveDialog
- FileEditStyle = fsEdit
- Left = 184
- Top = 129
- end
- object OD: TOpenDialog
- FileEditStyle = fsEdit
- Left = 192
- Top = 161
- end
- end
-