PC World Komputer 1998 January/Pcwk0198.iso/Zadarmo/CYBERCON/_SETUP.1/Ccontact.exe/0/RCDATA/TFRMPEOPLE/TFRMPEOPLE.txt

Text File | 1997-08-26 | 7KB | 306 lines

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 = {<image000.ico>}
  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