Files
lazarus-ccr/components/tvplanit/source/vpcontacteditdlg.lfm

1303 lines
37 KiB
Plaintext
Raw Normal View History

object ContactEditForm: TContactEditForm
Left = 679
Height = 629
Top = 224
Width = 575
HorzScrollBar.Page = 432
VertScrollBar.Page = 320
ActiveControl = PageControl
Caption = 'ContactEdit'
ClientHeight = 629
ClientWidth = 575
OnCreate = FormCreate
OnKeyDown = FormKeyDown
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '1.7'
object PageControl: TPageControl
Left = 0
Height = 592
Top = 0
Width = 575
ActivePage = tabContact
Align = alClient
TabIndex = 2
TabOrder = 0
OnChange = PageControlChange
object tabBaseData: TTabSheet
Caption = 'tabBaseData'
ClientHeight = 564
ClientWidth = 567
ImageIndex = 0
object lblLastName: TLabel
Left = 9
Height = 15
Top = 6
Width = 54
Alignment = taRightJustify
BorderSpacing.Left = 8
Caption = 'Last name'
FocusControl = edLastName
ParentColor = False
end
object edLastName: TEdit
Left = 136
Height = 23
Top = 6
Width = 232
BorderSpacing.Right = 8
MaxLength = 100
OnChange = ItemChanged
TabOrder = 0
end
object lblFirstName: TLabel
Left = 8
Height = 15
Top = 31
Width = 55
Alignment = taRightJustify
BorderSpacing.Left = 8
Caption = 'First name'
FocusControl = edFirstName
ParentColor = False
end
object edFirstName: TEdit
Left = 136
Height = 23
Top = 29
Width = 232
BorderSpacing.Right = 8
MaxLength = 100
OnChange = ItemChanged
TabOrder = 1
end
object lblTitle: TLabel
Left = 8
Height = 15
Top = 58
Width = 23
Alignment = taRightJustify
BorderSpacing.Left = 8
Caption = 'Title'
FocusControl = edTitle
ParentColor = False
end
object edTitle: TEdit
Left = 136
Height = 23
Top = 56
Width = 153
MaxLength = 50
OnChange = ItemChanged
TabOrder = 2
end
object lblCategory: TLabel
Left = 8
Height = 15
Top = 90
Width = 48
Alignment = taRightJustify
BorderSpacing.Left = 8
Caption = 'Category'
FocusControl = cbCategory
ParentColor = False
end
object cbCategory: TComboBox
Left = 136
Height = 23
Top = 88
Width = 153
ItemHeight = 15
MaxLength = 65535
TabOrder = 3
end
object lblBirthdate: TLabel
Left = 16
Height = 15
Top = 124
Width = 51
Alignment = taRightJustify
BorderSpacing.Left = 8
Caption = 'Birth date'
FocusControl = edBirthdate
ParentColor = False
end
object edBirthdate: TDateEdit
Left = 136
Height = 23
Top = 120
Width = 153
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
DateOrder = doNone
ButtonWidth = 23
BorderSpacing.Bottom = 8
NumGlyphs = 1
MaxLength = 0
ParentFont = False
TabOrder = 4
Text = 'edBirthdate'
end
end
object tabAddresses: TTabSheet
Caption = 'tabAddresses'
ClientHeight = 564
ClientWidth = 567
ImageIndex = 1
object gbWorkAddress: TGroupBox
Left = 8
Height = 311
Top = 8
Width = 551
Align = alTop
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'gbWorkAddress'
ClientHeight = 291
ClientWidth = 547
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object edCompany: TEdit
AnchorSideTop.Control = gbWorkAddress
AnchorSideRight.Control = gbWorkAddress
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 0
Width = 338
Anchors = [akTop, akRight]
AutoSize = False
BorderSpacing.Right = 8
MaxLength = 50
OnChange = ItemChanged
ParentFont = False
TabOrder = 0
end
object lblCompany: TLabel
AnchorSideTop.Control = edCompany
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 128
Height = 15
Top = 4
Width = 65
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblCompany'
FocusControl = edCompany
ParentColor = False
ParentFont = False
end
object lblDepartment: TLabel
AnchorSideTop.Control = edDepartment
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 117
Height = 15
Top = 31
Width = 76
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblDepartment'
FocusControl = edDepartment
ParentColor = False
ParentFont = False
end
object edDepartment: TEdit
AnchorSideLeft.Control = edCompany
AnchorSideTop.Control = edCompany
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCompany
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 27
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxLength = 50
OnChange = ItemChanged
ParentFont = False
TabOrder = 1
end
object lblPosition: TLabel
AnchorSideTop.Control = edPosition
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 137
Height = 15
Top = 58
Width = 56
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblPosition'
FocusControl = edPosition
ParentColor = False
ParentFont = False
end
object edPosition: TEdit
AnchorSideLeft.Control = edDepartment
AnchorSideTop.Control = edDepartment
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edDepartment
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 54
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Bottom = 17
MaxLength = 50
OnChange = ItemChanged
ParentFont = False
TabOrder = 2
end
object lblAddressW: TLabel
AnchorSideTop.Control = edAddressW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 138
Height = 15
Top = 98
Width = 55
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblAddress'
FocusControl = edAddressW
ParentColor = False
ParentFont = False
end
object edAddressW: TEdit
AnchorSideLeft.Control = edPosition
AnchorSideTop.Control = edPosition
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edPosition
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 94
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxLength = 100
OnChange = ItemChanged
ParentFont = False
TabOrder = 3
end
object lblCityW: TLabel
AnchorSideTop.Control = edCityW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 159
Height = 15
Top = 125
Width = 34
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblCity'
FocusControl = edCityW
ParentColor = False
ParentFont = False
end
object edCityW: TEdit
AnchorSideLeft.Control = edAddressW
AnchorSideTop.Control = edAddressW
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edAddressW
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 121
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxLength = 50
OnChange = ItemChanged
ParentFont = False
TabOrder = 4
end
object lblStateW: TLabel
AnchorSideTop.Control = edStateW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 154
Height = 15
Top = 152
Width = 39
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblState'
FocusControl = edStateW
ParentColor = False
ParentFont = False
end
object edStateW: TEdit
AnchorSideLeft.Control = edCityW
AnchorSideTop.Control = edCityW
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCityW
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 148
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxLength = 25
OnChange = ItemChanged
ParentFont = False
TabOrder = 5
end
object lblStateComboW: TLabel
AnchorSideTop.Control = cbStateW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 118
Height = 15
Top = 179
Width = 79
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 4
Caption = 'lblStateCombo'
FocusControl = cbStateW
ParentColor = False
ParentFont = False
Visible = False
end
object cbStateW: TComboBox
AnchorSideLeft.Control = edStateW
AnchorSideTop.Control = edStateW
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edStateW
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 175
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
ItemHeight = 15
MaxLength = 65535
ParentFont = False
TabOrder = 6
Visible = False
end
object lblZipCodeW: TLabel
AnchorSideTop.Control = edZipCodeW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 135
Height = 15
Top = 206
Width = 58
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblZipCode'
FocusControl = edZipCodeW
ParentColor = False
ParentFont = False
end
object edZipCodeW: TEdit
AnchorSideLeft.Control = cbStateW
AnchorSideTop.Control = cbStateW
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 202
Width = 120
BorderSpacing.Top = 4
BorderSpacing.Right = 8
MaxLength = 10
OnChange = ItemChanged
ParentFont = False
TabOrder = 7
end
object lblCountryComboW: TLabel
AnchorSideTop.Control = cbCountryW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 97
Height = 15
Top = 233
Width = 96
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblCountryCombo'
FocusControl = cbCountryW
ParentColor = False
ParentFont = False
Visible = False
end
object cbCountryW: TComboBox
AnchorSideLeft.Control = edZipCodeW
AnchorSideTop.Control = edZipCodeW
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbWorkAddress
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 229
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ItemHeight = 15
MaxLength = 65535
OnChange = cbCountryChange
ParentFont = False
TabOrder = 8
Visible = False
end
object lblCountryW: TLabel
AnchorSideTop.Control = edCountryW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 137
Height = 15
Top = 264
Width = 56
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblCountry'
FocusControl = edCountryW
ParentColor = False
ParentFont = False
end
object edCountryW: TEdit
AnchorSideLeft.Control = cbCountryW
AnchorSideTop.Control = cbCountryW
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbWorkAddress
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 260
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ParentFont = False
TabOrder = 9
end
end
object gbHomeAddress: TGroupBox
Left = 8
Height = 217
Top = 335
Width = 551
Align = alTop
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 16
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'gbHomeAddress'
ClientHeight = 197
ClientWidth = 547
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object lblAddressH: TLabel
AnchorSideTop.Control = edAddressH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edAddressH
Left = 138
Height = 15
Top = 4
Width = 55
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblAddress'
FocusControl = edAddressH
ParentColor = False
ParentFont = False
end
object edAddressH: TEdit
AnchorSideTop.Control = gbHomeAddress
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 0
Width = 338
Anchors = [akTop, akRight]
MaxLength = 100
OnChange = ItemChanged
ParentFont = False
TabOrder = 0
end
object lblCityH: TLabel
AnchorSideTop.Control = edCityH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCityH
Left = 159
Height = 15
Top = 31
Width = 34
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblCity'
FocusControl = edCityH
ParentColor = False
ParentFont = False
end
object edCityH: TEdit
AnchorSideLeft.Control = edAddressH
AnchorSideTop.Control = edAddressH
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edAddressH
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 27
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxLength = 50
OnChange = ItemChanged
ParentFont = False
TabOrder = 1
end
object lblStateH: TLabel
AnchorSideTop.Control = edStateH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edStateH
Left = 154
Height = 15
Top = 58
Width = 39
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblState'
FocusControl = edStateH
ParentColor = False
ParentFont = False
end
object edStateH: TEdit
AnchorSideLeft.Control = edCityH
AnchorSideTop.Control = edCityH
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCityH
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 54
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxLength = 25
OnChange = ItemChanged
ParentFont = False
TabOrder = 2
end
object lblStateComboH: TLabel
AnchorSideTop.Control = cbStateH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbStateH
Left = 118
Height = 15
Top = 85
Width = 79
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 4
Caption = 'lblStateCombo'
FocusControl = cbStateH
ParentColor = False
ParentFont = False
Visible = False
end
object cbStateH: TComboBox
AnchorSideLeft.Control = edStateH
AnchorSideTop.Control = edStateH
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edStateH
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 81
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
ItemHeight = 15
MaxLength = 65535
ParentFont = False
TabOrder = 3
Visible = False
end
object lblZipCodeH: TLabel
AnchorSideTop.Control = edZipCodeH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edZipCodeH
Left = 135
Height = 15
Top = 112
Width = 58
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblZipCode'
FocusControl = edZipCodeH
ParentColor = False
ParentFont = False
end
object edZipCodeH: TEdit
AnchorSideLeft.Control = cbStateH
AnchorSideTop.Control = cbStateH
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 108
Width = 120
BorderSpacing.Top = 4
BorderSpacing.Right = 8
MaxLength = 10
OnChange = ItemChanged
ParentFont = False
TabOrder = 4
end
object lblCountryComboH: TLabel
AnchorSideTop.Control = cbCountryH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbCountryH
Left = 97
Height = 15
Top = 139
Width = 96
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblCountryCombo'
FocusControl = cbCountryH
ParentColor = False
ParentFont = False
Visible = False
end
object cbCountryH: TComboBox
AnchorSideLeft.Control = edZipCodeH
AnchorSideTop.Control = edZipCodeH
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbHomeAddress
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 135
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ItemHeight = 15
MaxLength = 65535
OnChange = cbCountryChange
ParentFont = False
TabOrder = 5
Visible = False
end
object lblCountryH: TLabel
AnchorSideTop.Control = edCountryH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCountryH
Left = 137
Height = 15
Top = 170
Width = 56
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Caption = 'lblCountry'
FocusControl = edCountryH
ParentColor = False
ParentFont = False
end
object edCountryH: TEdit
AnchorSideLeft.Control = cbCountryH
AnchorSideTop.Control = cbCountryH
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbHomeAddress
AnchorSideRight.Side = asrBottom
Left = 201
Height = 23
Top = 166
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ParentFont = False
TabOrder = 6
end
end
end
object tabContact: TTabSheet
Caption = 'tabContact'
ClientHeight = 564
ClientWidth = 567
ImageIndex = 1
object gbPhone: TGroupBox
AnchorSideTop.Control = tabContact
Left = 8
Height = 159
Top = 8
Width = 384
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'Phone / fax'
ClientHeight = 139
ClientWidth = 380
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object cbPhone1: TComboBox
AnchorSideLeft.Control = gbPhone
Left = 8
Height = 23
Top = 0
Width = 88
BorderSpacing.Left = 8
ItemHeight = 15
MaxLength = 65535
ParentFont = False
Style = csDropDownList
TabOrder = 0
end
object cbPhone2: TComboBox
AnchorSideLeft.Control = gbPhone
AnchorSideTop.Control = cbPhone1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbPhone1
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 27
Width = 88
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
ItemHeight = 15
MaxLength = 65535
ParentFont = False
Style = csDropDownList
TabOrder = 2
end
object cbPhone3: TComboBox
AnchorSideLeft.Control = gbPhone
AnchorSideTop.Control = cbPhone2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbPhone1
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 54
Width = 88
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
ItemHeight = 15
MaxLength = 65535
ParentFont = False
Style = csDropDownList
TabOrder = 4
end
object cbPhone4: TComboBox
AnchorSideLeft.Control = gbPhone
AnchorSideTop.Control = cbPhone3
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbPhone1
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 81
Width = 88
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
ItemHeight = 15
MaxLength = 65535
ParentFont = False
Style = csDropDownList
TabOrder = 6
end
object edPhone4: TEdit
AnchorSideLeft.Control = cbPhone4
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbPhone4
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edPhone3
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 81
Width = 260
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
MaxLength = 25
OnChange = ItemChanged
ParentFont = False
TabOrder = 7
end
object edPhone3: TEdit
AnchorSideLeft.Control = cbPhone3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbPhone3
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edPhone2
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 54
Width = 260
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
MaxLength = 25
OnChange = ItemChanged
ParentFont = False
TabOrder = 5
end
object edPhone2: TEdit
AnchorSideLeft.Control = cbPhone2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbPhone2
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edPhone1
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 27
Width = 260
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
MaxLength = 25
OnChange = ItemChanged
ParentFont = False
TabOrder = 3
end
object edPhone1: TEdit
AnchorSideLeft.Control = cbPhone1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbPhone1
AnchorSideTop.Side = asrCenter
Left = 100
Height = 23
Top = 0
Width = 260
BorderSpacing.Left = 4
BorderSpacing.Right = 8
MaxLength = 25
OnChange = ItemChanged
ParentFont = False
TabOrder = 1
end
object cbPhone5: TComboBox
AnchorSideLeft.Control = gbPhone
AnchorSideTop.Control = cbPhone4
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbPhone1
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 108
Width = 88
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
ItemHeight = 15
MaxLength = 65535
ParentFont = False
Style = csDropDownList
TabOrder = 8
end
object edPhone5: TEdit
AnchorSideLeft.Control = cbPhone5
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbPhone5
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edPhone4
AnchorSideRight.Side = asrBottom
Left = 100
Height = 23
Top = 108
Width = 260
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Bottom = 8
MaxLength = 25
OnChange = ItemChanged
ParentFont = False
TabOrder = 9
end
end
object gbEMail: TGroupBox
AnchorSideTop.Control = gbPhone
AnchorSideTop.Side = asrBottom
Left = 8
Height = 109
Top = 183
Width = 421
AutoSize = True
BorderSpacing.Top = 16
BorderSpacing.Right = 8
Caption = 'E-Mail'
ClientHeight = 89
ClientWidth = 417
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object edEMail1: TEdit
AnchorSideLeft.Control = cbEMail1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbEMail1
AnchorSideTop.Side = asrCenter
Left = 128
Height = 23
Top = 4
Width = 281
BorderSpacing.Left = 4
BorderSpacing.Right = 8
ParentFont = False
TabOrder = 1
end
object edEMail2: TEdit
AnchorSideLeft.Control = cbEMail2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbEMail2
AnchorSideTop.Side = asrCenter
Left = 128
Height = 23
Top = 31
Width = 281
BorderSpacing.Left = 4
ParentFont = False
TabOrder = 3
end
object edEMail3: TEdit
AnchorSideLeft.Control = cbEMail3
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbEMail3
AnchorSideTop.Side = asrCenter
Left = 128
Height = 23
Top = 58
Width = 281
BorderSpacing.Left = 4
BorderSpacing.Bottom = 8
ParentFont = False
TabOrder = 5
end
object cbEMail1: TComboBox
AnchorSideLeft.Control = gbEMail
Left = 8
Height = 23
Top = 4
Width = 116
BorderSpacing.Left = 8
BorderSpacing.Top = 4
ItemHeight = 15
MaxLength = 65535
ParentFont = False
Style = csDropDownList
TabOrder = 0
end
object cbEMail2: TComboBox
AnchorSideLeft.Control = gbEMail
AnchorSideTop.Control = cbEMail1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbEMail1
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 31
Width = 116
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
ItemHeight = 15
MaxLength = 65535
ParentFont = False
Style = csDropDownList
TabOrder = 2
end
object cbEMail3: TComboBox
AnchorSideLeft.Control = gbEMail
AnchorSideTop.Control = cbEMail2
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbEMail1
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 58
Width = 116
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
ItemHeight = 15
MaxLength = 65535
ParentFont = False
Style = csDropDownList
TabOrder = 4
end
end
object gbWebsites: TGroupBox
AnchorSideTop.Control = gbEMail
AnchorSideTop.Side = asrBottom
Left = 8
Height = 82
Top = 308
Width = 454
BorderSpacing.Top = 16
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Websites'
ClientHeight = 62
ClientWidth = 450
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object edWebsite1: TEdit
AnchorSideLeft.Control = cbWebsite1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbWebsite1
AnchorSideTop.Side = asrCenter
Left = 157
Height = 23
Top = 0
Width = 281
BorderSpacing.Left = 4
BorderSpacing.Right = 8
ParentFont = False
TabOrder = 1
end
object edWebsite2: TEdit
AnchorSideLeft.Control = cbWebsite2
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = cbWebsite2
AnchorSideTop.Side = asrCenter
Left = 157
Height = 23
Top = 27
Width = 281
BorderSpacing.Left = 4
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
ParentFont = False
TabOrder = 3
end
object cbWebsite1: TComboBox
AnchorSideLeft.Control = gbWebsites
AnchorSideTop.Control = gbWebsites
Left = 8
Height = 23
Top = 0
Width = 145
BorderSpacing.Left = 8
ItemHeight = 15
MaxLength = 65535
ParentFont = False
Style = csDropDownList
TabOrder = 0
end
object cbWebsite2: TComboBox
AnchorSideLeft.Control = gbWebsites
AnchorSideTop.Control = cbWebsite1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = cbWebsite1
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 27
Width = 145
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Bottom = 8
ItemHeight = 15
MaxLength = 65535
ParentFont = False
Style = csDropDownList
TabOrder = 2
end
end
end
object tabCustom: TTabSheet
Caption = 'tabCustom'
ClientHeight = 538
ClientWidth = 518
ImageIndex = 3
object lblCustom1: TLabel
Left = 8
Height = 15
Top = 12
Width = 61
BorderSpacing.Left = 8
Caption = 'lblCustom1'
FocusControl = edCustom1
ParentColor = False
end
object lblCustom2: TLabel
Left = 8
Height = 15
Top = 36
Width = 61
BorderSpacing.Left = 8
Caption = 'lblCustom2'
FocusControl = edCustom2
ParentColor = False
end
object lblCustom3: TLabel
Left = 8
Height = 15
Top = 60
Width = 61
BorderSpacing.Left = 8
Caption = 'lblCustom3'
FocusControl = edCustom3
ParentColor = False
end
object lblCustom4: TLabel
Left = 8
Height = 15
Top = 84
Width = 61
BorderSpacing.Left = 8
Caption = 'lblCustom4'
FocusControl = edCustom4
ParentColor = False
end
object edCustom1: TEdit
Left = 80
Height = 23
Top = 8
Width = 337
BorderSpacing.Right = 8
MaxLength = 100
OnChange = ItemChanged
TabOrder = 0
end
object edCustom2: TEdit
Left = 80
Height = 23
Top = 32
Width = 337
BorderSpacing.Right = 8
MaxLength = 100
OnChange = ItemChanged
TabOrder = 1
end
object edCustom3: TEdit
Left = 80
Height = 23
Top = 56
Width = 337
BorderSpacing.Right = 8
MaxLength = 100
OnChange = ItemChanged
TabOrder = 2
end
object edCustom4: TEdit
Left = 80
Height = 23
Top = 80
Width = 337
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
MaxLength = 100
OnChange = ItemChanged
TabOrder = 3
end
end
object tabNotes: TTabSheet
Caption = 'tabNotes'
ClientHeight = 264
ClientWidth = 472
ImageIndex = 4
object memoNotes: TMemo
Left = 4
Height = 300
Top = 4
Width = 600
Align = alClient
BorderSpacing.Around = 4
Constraints.MinHeight = 300
Constraints.MinWidth = 600
MaxLength = 1024
ScrollBars = ssVertical
TabOrder = 0
end
end
end
object pnlBottom: TPanel
Left = 0
Height = 37
Top = 592
Width = 575
Align = alBottom
BevelOuter = bvNone
ClientHeight = 37
ClientWidth = 575
TabOrder = 1
object OKBtn: TButton
AnchorSideTop.Control = pnlBottom
AnchorSideTop.Side = asrCenter
Left = 415
Height = 25
Top = 6
Width = 74
Anchors = [akTop, akRight]
Caption = 'OK'
Default = True
OnClick = OKBtnClick
TabOrder = 0
end
object CancelBtn: TButton
AnchorSideTop.Side = asrCenter
Left = 493
Height = 25
Top = 6
Width = 75
Anchors = [akTop, akRight]
Cancel = True
Caption = 'Cancel'
OnClick = CancelBtnClick
TabOrder = 1
end
end
end