object frmPeople: TfrmPeople Left = 118 Top = 12 Width = 381 Height = 442 ActiveControl = Panel1 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Contact' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Position = poScreenCenter OnActivate = FormActivate PixelsPerInch = 96 TextHeight = 13 object Label7: TLabel Left = 14 Top = 172 Width = 40 Height = 13 Caption = 'Job Title' FocusControl = EditJobTitle end object Panel1: TPanel Left = 0 Top = 374 Width = 373 Height = 41 Align = alBottom TabOrder = 0 object BitBtn1: TBitBtn Left = 192 Top = 8 Width = 75 Height = 25 TabOrder = 0 Kind = bkOK end object BitBtn2: TBitBtn Left = 276 Top = 8 Width = 75 Height = 25 TabOrder = 1 Kind = bkCancel end end object Panel2: TPanel Left = 0 Top = 0 Width = 373 Height = 374 Align = alClient BevelInner = bvLowered BorderWidth = 4 Caption = 'Panel2' TabOrder = 1 object ScrollBox: TScrollBox Left = 6 Top = 6 Width = 361 Height = 362 HorzScrollBar.Margin = 6 HorzScrollBar.Range = 348 VertScrollBar.Margin = 6 VertScrollBar.Range = 160 Align = alClient AutoScroll = False BorderStyle = bsNone TabOrder = 0 object Label1: TLabel Left = 10 Top = 6 Width = 61 Height = 13 Caption = 'First Name' FocusControl = EditFirstName Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 10 Top = 46 Width = 61 Height = 13 Caption = 'Last Name' FocusControl = EditLastName Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 10 Top = 130 Width = 50 Height = 13 Caption = 'Job Title' FocusControl = EditJobTitle Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 10 Top = 90 Width = 35 Height = 13 Caption = 'E-mail' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 238 Top = 178 Width = 76 Height = 13 Caption = 'Date Created' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 12 Top = 262 Width = 34 Height = 13 Caption = 'Notes' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 10 Top = 178 Width = 66 Height = 13 Caption = 'Department' FocusControl = EditJobTitle Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 14 Top = 222 Width = 37 Height = 13 Caption = 'Phone' FocusControl = EditJobTitle Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 238 Top = 222 Width = 21 Height = 13 Caption = 'Fax' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object EditFirstName: TDBEdit Left = 10 Top = 21 Width = 341 Height = 21 DataField = 'FirstName' DataSource = frmDataModule.DSPeople MaxLength = 30 TabOrder = 0 end object EditLastName: TDBEdit Left = 10 Top = 62 Width = 341 Height = 21 DataField = 'LastName' DataSource = frmDataModule.DSPeople MaxLength = 30 TabOrder = 1 end object EditJobTitle: TDBEdit Left = 10 Top = 149 Width = 341 Height = 21 DataField = 'JobTitle' DataSource = frmDataModule.DSPeople MaxLength = 30 TabOrder = 3 end object DBMemo1: TDBMemo Left = 10 Top = 279 Width = 341 Height = 77 DataField = 'Notes' DataSource = frmDataModule.DSPeople TabOrder = 8 OnDblClick = DBMemo1DblClick end object wwDBComboDlg1: TwwDBComboDlg Left = 10 Top = 104 Width = 341 Height = 21 OnCustomDlg = wwDBComboDlg1CustomDlg ShowButton = True Style = csDropDown DataField = 'EMail' DataSource = frmDataModule.DSPeople MaxLength = 50 TabOrder = 2 end object wwDBComboDlg2: TwwDBComboDlg Left = 10 Top = 236 Width = 167 Height = 21 OnCustomDlg = wwDBComboDlg2CustomDlg ShowButton = True Style = csDropDown DataField = 'Phone' DataSource = frmDataModule.DSPeople MaxLength = 20 TabOrder = 6 end object wwDBComboDlg3: TwwDBComboDlg Left = 238 Top = 236 Width = 113 Height = 21 OnCustomDlg = wwDBComboDlg3CustomDlg ShowButton = True Style = csDropDown DataField = 'Fax' DataSource = frmDataModule.DSPeople MaxLength = 20 TabOrder = 7 end object edtDate: TwwDBComboDlg Left = 238 Top = 193 Width = 113 Height = 21 OnCustomDlg = edtDateCustomDlg ShowButton = True Style = csDropDown DataField = 'DateCreated' DataSource = frmDataModule.DSPeople MaxLength = 0 TabOrder = 5 end object DBEdit1: TDBEdit Left = 10 Top = 193 Width = 171 Height = 21 DataField = 'Department' DataSource = frmDataModule.DSPeople MaxLength = 30 TabOrder = 4 end end end object wwComments: TwwMemoDialog DataSource = frmDataModule.DSPeople DataField = 'Notes' Font.Color = clBlack Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Caption = 'Site Description' DlgLeft = 0 DlgTop = 0 DlgWidth = 500 DlgHeight = 350 Left = 84 Top = 117 end end