object FormContact: TFormContact Left = 423 Height = 490 Top = 271 Width = 762 Caption = 'Contact' ClientHeight = 490 ClientWidth = 762 DesignTimePPI = 120 OnClose = FormClose OnCreate = FormCreate OnShow = FormShow LCLVersion = '1.8.0.6' object PageControlContact: TPageControl Left = 8 Height = 424 Top = 8 Width = 744 ActivePage = TabSheetAll Anchors = [akTop, akLeft, akRight, akBottom] TabIndex = 2 TabOrder = 0 object TabSheetGeneral: TTabSheet Caption = 'General' ClientHeight = 391 ClientWidth = 736 object Label1: TLabel Left = 13 Height = 20 Top = 13 Width = 43 Caption = 'Name:' ParentColor = False end object EditName: TEdit Left = 120 Height = 28 Top = 16 Width = 212 TabOrder = 0 end object Label2: TLabel Left = 13 Height = 20 Top = 47 Width = 74 Caption = 'Cell phone:' ParentColor = False end object EditCellPhone: TEdit Left = 120 Height = 28 Top = 47 Width = 212 TabOrder = 1 end object EditPhone: TEdit Left = 120 Height = 28 Top = 83 Width = 212 TabOrder = 2 end object Label3: TLabel Left = 13 Height = 20 Top = 81 Width = 44 Caption = 'Phone:' ParentColor = False end object EditEmail: TEdit Left = 479 Height = 28 Top = 49 Width = 212 TabOrder = 3 end object Label4: TLabel Left = 360 Height = 20 Top = 47 Width = 46 Caption = 'E-mail:' ParentColor = False end object EditSurname: TEdit Left = 479 Height = 28 Top = 15 Width = 212 TabOrder = 4 end object Label5: TLabel Left = 360 Height = 20 Top = 13 Width = 61 Caption = 'Surname:' ParentColor = False end object MemoNotes: TMemo Left = 13 Height = 185 Top = 192 Width = 708 Anchors = [akTop, akLeft, akRight, akBottom] TabOrder = 5 end object Label6: TLabel Left = 16 Height = 20 Top = 168 Width = 42 Caption = 'Notes:' ParentColor = False end object EditEmailHome: TEdit Left = 479 Height = 28 Top = 83 Width = 212 TabOrder = 6 end object Label20: TLabel Left = 360 Height = 20 Top = 80 Width = 101 Caption = 'E-mail (Home):' ParentColor = False end object EditEmailWork: TEdit Left = 479 Height = 28 Top = 122 Width = 212 TabOrder = 7 end object Label21: TLabel Left = 360 Height = 20 Top = 120 Width = 95 Caption = 'E-mail (Work):' ParentColor = False end object EditBirthday: TEdit Left = 120 Height = 28 Top = 120 Width = 212 TabOrder = 8 end object Label22: TLabel Left = 13 Height = 20 Top = 120 Width = 58 Caption = 'Birthday:' ParentColor = False end end object TabSheetDetails: TTabSheet Caption = 'Details' ClientHeight = 391 ClientWidth = 736 object Label7: TLabel Left = 8 Height = 20 Top = 15 Width = 99 Caption = 'Phone (Home):' ParentColor = False end object EditPhoneHome: TEdit Left = 144 Height = 28 Top = 15 Width = 212 TabOrder = 0 end object Label8: TLabel Left = 8 Height = 20 Top = 51 Width = 93 Caption = 'Phone (Work):' ParentColor = False end object EditPhoneWork: TEdit Left = 144 Height = 28 Top = 51 Width = 212 TabOrder = 1 end object Label9: TLabel Left = 8 Height = 20 Top = 88 Width = 129 Caption = 'Cell phone (Home):' ParentColor = False end object EditCellPhoneHome: TEdit Left = 144 Height = 28 Top = 90 Width = 212 TabOrder = 2 end object Label10: TLabel Left = 8 Height = 20 Top = 122 Width = 123 Caption = 'Cell phone (Work):' ParentColor = False end object EditCellPhoneWork: TEdit Left = 144 Height = 28 Top = 122 Width = 212 TabOrder = 3 end object Label11: TLabel Left = 376 Height = 20 Top = 13 Width = 25 Caption = 'Fax:' ParentColor = False end object EditFax: TEdit Left = 487 Height = 28 Top = 15 Width = 212 TabOrder = 4 end object Label12: TLabel Left = 376 Height = 20 Top = 48 Width = 80 Caption = 'Fax (Home):' ParentColor = False end object EditFaxHome: TEdit Left = 487 Height = 28 Top = 51 Width = 212 TabOrder = 5 end object Label13: TLabel Left = 376 Height = 20 Top = 88 Width = 74 Caption = 'Fax (Work):' ParentColor = False end object EditFaxWork: TEdit Left = 487 Height = 28 Top = 90 Width = 212 TabOrder = 6 end object Label14: TLabel Left = 376 Height = 20 Top = 120 Width = 41 Caption = 'Pager:' ParentColor = False end object EditPager: TEdit Left = 487 Height = 28 Top = 122 Width = 212 TabOrder = 7 end object Label15: TLabel Left = 8 Height = 20 Top = 184 Width = 72 Caption = 'Web page:' ParentColor = False end object EditWebPage: TEdit Left = 144 Height = 28 Top = 184 Width = 212 TabOrder = 8 end object Label16: TLabel Left = 8 Height = 20 Top = 216 Width = 127 Caption = 'Web page (Home):' ParentColor = False end object EditWebPageHome: TEdit Left = 144 Height = 28 Top = 216 Width = 212 TabOrder = 9 end object Label17: TLabel Left = 8 Height = 20 Top = 248 Width = 121 Caption = 'Web page (Work):' ParentColor = False end object EditWebPageWork: TEdit Left = 144 Height = 28 Top = 248 Width = 212 TabOrder = 10 end object Label18: TLabel Left = 375 Height = 20 Top = 184 Width = 32 Caption = 'Title:' ParentColor = False end object EditTitle: TEdit Left = 487 Height = 28 Top = 184 Width = 212 TabOrder = 11 end object Label19: TLabel Left = 375 Height = 20 Top = 216 Width = 56 Caption = 'Address:' ParentColor = False end object EditAddress: TEdit Left = 488 Height = 28 Top = 216 Width = 212 TabOrder = 12 end object LabelOrganization: TLabel Left = 376 Height = 20 Top = 248 Width = 89 Caption = 'Organization:' ParentColor = False end object EditOrganization: TEdit Left = 487 Height = 28 Top = 248 Width = 212 TabOrder = 13 end end object TabSheetAll: TTabSheet Caption = 'All fields' ClientHeight = 391 ClientWidth = 736 OnShow = TabSheetAllShow object ListView1: TListView Left = 8 Height = 368 Top = 16 Width = 721 Anchors = [akTop, akLeft, akRight, akBottom] Columns = < item Caption = 'Item' Width = 200 end item Caption = 'Value' Width = 200 end> OwnerData = True PopupMenu = PopupMenu1 ReadOnly = True RowSelect = True TabOrder = 0 ViewStyle = vsReport OnData = ListView1Data OnDblClick = AEditFieldExecute end end end object ButtonCancel: TButton Left = 656 Height = 31 Top = 448 Width = 96 Anchors = [akRight, akBottom] Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end object ButtonOk: TButton Left = 544 Height = 31 Top = 448 Width = 99 Anchors = [akRight, akBottom] Caption = 'OK' ModalResult = 1 TabOrder = 2 end object ActionList1: TActionList Images = Core.ImageList1 left = 317 top = 157 object AEditField: TAction Caption = 'Edit' OnExecute = AEditFieldExecute end end object PopupMenu1: TPopupMenu Images = Core.ImageList1 left = 172 top = 159 object MenuItem1: TMenuItem Action = AEditField end end end