object Pcode: TPcode Left = 137 Top = 80 BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Locate Postal Code' ClientHeight = 308 ClientWidth = 247 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OnActivate = FormActivate OnCreate = FormCreate OnDeactivate = FormDeactivate PixelsPerInch = 96 TextHeight = 13 object Panel3: TPanel Left = 0 Top = 278 Width = 247 Height = 30 Align = alBottom BevelOuter = bvNone Ctl3D = False ParentCtl3D = False TabOrder = 0 object Button1: TButton Left = 12 Top = 2 Width = 60 Height = 24 Caption = '&Find' Default = True TabOrder = 0 OnClick = Button1Click end object Button3: TButton Left = 76 Top = 2 Width = 60 Height = 24 Caption = '&Goto' TabOrder = 1 OnClick = Button3Click end object Button2: TButton Left = 140 Top = 2 Width = 60 Height = 24 Caption = '&Cancel' TabOrder = 2 OnClick = Button2Click end end object Panel4: TPanel Left = 0 Top = 0 Width = 247 Height = 278 Align = alClient BevelInner = bvRaised BevelOuter = bvNone BorderWidth = 4 TabOrder = 1 object Bevel1: TBevel Left = 5 Top = 5 Width = 237 Height = 50 Align = alTop Shape = bsFrame end object Label14: TLabel Left = 12 Top = 12 Width = 60 Height = 13 Caption = '&Postal Code:' FocusControl = Edit1 end object Label1: TLabel Left = 100 Top = 12 Width = 30 Height = 13 Caption = 'Z&oom:' FocusControl = cb1 end object Edit1: TEdit Left = 12 Top = 28 Width = 61 Height = 21 MaxLength = 5 TabOrder = 0 Text = 'T8A 2B9' end object cb1: TComboBox Left = 100 Top = 28 Width = 57 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '0.1' '0.5' '1' '2' '5' '10') TabOrder = 1 end object Panel1: TPanel Left = 5 Top = 55 Width = 237 Height = 218 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Panel1' TabOrder = 2 object Header1: THeader Left = 2 Top = 2 Width = 233 Height = 25 Align = alTop BorderStyle = bsNone Sections.Sections = ( #0'65'#0'Postal Code' #0'30'#0'City' #0'50'#0'Province') TabOrder = 0 OnSizing = Header1Sizing end object Lb1: TListBox Left = 2 Top = 27 Width = 233 Height = 161 Align = alClient Ctl3D = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentCtl3D = False ParentFont = False Style = lbOwnerDrawFixed TabOrder = 2 OnClick = Lb1Click OnDblClick = Lb1DblClick OnDrawItem = Lb1DrawItem end object Panel2: TPanel Left = 2 Top = 188 Width = 233 Height = 28 Align = alBottom Alignment = taLeftJustify BevelInner = bvLowered BevelOuter = bvNone BorderWidth = 3 TabOrder = 1 end end end end