object Locator: TLocator Left = 52 Top = 97 BorderIcons = [] BorderStyle = bsNone ClientHeight = 266 ClientWidth = 337 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Position = poScreenCenter OnCreate = FormCreate OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object tsizer4: tsizer Left = 0 Top = 0 Width = 337 Height = 266 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Caption = 'Point Locator' Bw = 8 OnMouseDown = tsizer4MouseDown OnSpclose = tsizer4Spclose Anchor = False object TabControl1: TTabControl Left = 9 Top = 34 Width = 319 Height = 193 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabIndex = 0 TabOrder = 0 Tabs.Strings = ( ' Address' ' Place' ' Zip' ' Phone' ' Lon/Lat') OnChange = TabControl1Change object GroupBox1: TGroupBox Left = 12 Top = 84 Width = 293 Height = 81 Caption = ' Format Examples ' TabOrder = 3 object Label3: TLabel Left = 12 Top = 24 Width = 114 Height = 13 Caption = '1) -87.66342, 41.99654' end object Label4: TLabel Left = 12 Top = 40 Width = 114 Height = 13 Caption = '2) -87:35.22, 41:59.332' end object Label5: TLabel Left = 12 Top = 56 Width = 108 Height = 13 Caption = '3) -87:35:13, 41:59:18' end object Label7: TLabel Left = 152 Top = 24 Width = 50 Height = 13 Caption = 'DEG.DDD' end object Label9: TLabel Left = 152 Top = 40 Width = 67 Height = 13 Caption = 'DEG:MIN.MM' end object Label10: TLabel Left = 152 Top = 56 Width = 70 Height = 13 Caption = 'DEG:MIN:SEC' end end object nb2: TNotebook Left = 4 Top = 24 Width = 311 Height = 53 Align = alTop PageIndex = 1 TabOrder = 0 OnPageChanged = nb2PageChanged object TPage Left = 0 Top = 0 Caption = '0' object lb1: TLabel Left = 8 Top = 4 Width = 144 Height = 13 Caption = '&Address:(# street,city,state,zip)' FocusControl = Edit3 end object Edit3: TEdit Left = 4 Top = 20 Width = 229 Height = 21 TabOrder = 0 Text = '127th Street,Lemont,IL 60439' OnKeyPress = Edit3KeyPress end end object TPage Left = 0 Top = 0 Caption = '1' object Label6: TLabel Left = 8 Top = 4 Width = 27 Height = 13 Caption = '&Place' FocusControl = Edit4 end object Edit4: TEdit Left = 8 Top = 20 Width = 197 Height = 21 TabOrder = 0 Text = 'Lemont,IL' OnKeyPress = Edit4KeyPress end end object TPage Left = 0 Top = 0 Caption = '2' object Label8: TLabel Left = 8 Top = 4 Width = 43 Height = 13 Caption = '&Zip Code' FocusControl = Edit5 end object Edit5: TEdit Left = 8 Top = 20 Width = 73 Height = 21 TabOrder = 0 Text = '60439' OnKeyPress = Edit5KeyPress end end object TPage Left = 0 Top = 0 Caption = '3' object Label1: TLabel Left = 12 Top = 4 Width = 40 Height = 13 Caption = 'Number:' end object MaskEdit1: TMaskEdit Left = 12 Top = 20 Width = 105 Height = 21 EditMask = '!( 000 ) 999 - 9999;1;_' MaxLength = 19 TabOrder = 0 Text = '( 630 ) 257 - 7616' end end object TPage Left = 0 Top = 0 Caption = '4' object Label32: TLabel Left = 12 Top = 4 Width = 54 Height = 13 Caption = 'C&oordinate:' FocusControl = Edit2 end object Edit2: TEdit Left = 8 Top = 20 Width = 157 Height = 21 TabOrder = 0 OnKeyPress = Edit2KeyPress end end end object L2: TListBox Left = 4 Top = 77 Width = 311 Height = 112 Align = alClient Ctl3D = True ItemHeight = 16 ParentCtl3D = False Style = lbOwnerDrawFixed TabOrder = 1 OnDblClick = L2DblClick OnDrawItem = L2DrawItem OnKeyPress = L2KeyPress end object Panel1: TPanel Left = 240 Top = 24 Width = 73 Height = 45 BevelOuter = bvNone TabOrder = 2 Visible = False object Label2: TLabel Left = 10 Top = 4 Width = 30 Height = 13 Caption = '&Zoom:' FocusControl = ComboBox1 end object ComboBox1: TComboBox Left = 8 Top = 20 Width = 57 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '0.1' '0.2' '0.5' '1' '2' '5' '10' '50' '') TabOrder = 0 end end end object Panel3: TPanel Left = 9 Top = 227 Width = 319 Height = 30 Align = alBottom BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 object BtOk: TButton Left = 188 Top = 4 Width = 57 Height = 25 Caption = '&Ok' TabOrder = 0 OnClick = BtOkClick end object BtCn: TButton Left = 252 Top = 4 Width = 57 Height = 25 Caption = '&Cancel' TabOrder = 1 OnClick = BtCnClick end object bt1: TButton Left = 4 Top = 4 Width = 57 Height = 25 Caption = '&Find' TabOrder = 2 OnClick = bt1Click end object CheckBox1: TCheckBox Left = 76 Top = 8 Width = 81 Height = 17 Caption = 'Mark Point' TabOrder = 3 OnClick = CheckBox1Click end end end end