You've already forked lazarus-ccr
TvPlanIt: Fix FlexDatastore crashing in Access demo when birthdate of a contact is not specified.
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8948 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
@ -9,19 +9,19 @@ object ContactEditForm: TContactEditForm
|
||||
Caption = 'ContactEdit'
|
||||
ClientHeight = 610
|
||||
ClientWidth = 506
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '3.99.0.0'
|
||||
OnCreate = FormCreate
|
||||
OnKeyDown = FormKeyDown
|
||||
OnShow = FormShow
|
||||
Position = poScreenCenter
|
||||
LCLVersion = '2.3.0.0'
|
||||
object PageControl: TPageControl
|
||||
Left = 0
|
||||
Height = 577
|
||||
Top = 0
|
||||
Width = 506
|
||||
ActivePage = tabAddresses
|
||||
ActivePage = tabBaseData
|
||||
Align = alClient
|
||||
TabIndex = 1
|
||||
TabIndex = 0
|
||||
TabOrder = 0
|
||||
OnChange = PageControlChange
|
||||
object tabBaseData: TTabSheet
|
||||
@ -57,8 +57,8 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 0
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblFirstName: TLabel
|
||||
AnchorSideTop.Control = edFirstName
|
||||
@ -90,8 +90,8 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 8
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 1
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblTitle: TLabel
|
||||
AnchorSideTop.Control = edTitle
|
||||
@ -119,8 +119,8 @@ object ContactEditForm: TContactEditForm
|
||||
Width = 153
|
||||
BorderSpacing.Top = 4
|
||||
MaxLength = 50
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 2
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblCategory: TLabel
|
||||
AnchorSideTop.Control = cbCategory
|
||||
@ -179,13 +179,47 @@ object ContactEditForm: TContactEditForm
|
||||
DateOrder = doNone
|
||||
ButtonWidth = 23
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Bottom = 8
|
||||
NumGlyphs = 1
|
||||
MaxLength = 0
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
Text = 'edBirthdate'
|
||||
end
|
||||
object lblAnniversary: TLabel
|
||||
AnchorSideTop.Control = edAnniversary
|
||||
AnchorSideTop.Side = asrCenter
|
||||
AnchorSideRight.Control = edAnniversary
|
||||
Left = 36
|
||||
Height = 15
|
||||
Top = 147
|
||||
Width = 62
|
||||
Alignment = taRightJustify
|
||||
Anchors = [akTop, akRight]
|
||||
BorderSpacing.Left = 8
|
||||
BorderSpacing.Right = 8
|
||||
Caption = 'Anniversary'
|
||||
FocusControl = edAnniversary
|
||||
ParentColor = False
|
||||
end
|
||||
object edAnniversary: TDateEdit
|
||||
AnchorSideLeft.Control = edLastName
|
||||
AnchorSideTop.Control = edBirthdate
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Left = 106
|
||||
Height = 23
|
||||
Top = 143
|
||||
Width = 153
|
||||
CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
|
||||
DateOrder = doNone
|
||||
ButtonWidth = 23
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Bottom = 8
|
||||
NumGlyphs = 1
|
||||
MaxLength = 0
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
Text = 'edAnniversary'
|
||||
end
|
||||
end
|
||||
object tabAddresses: TTabSheet
|
||||
Caption = 'tabAddresses'
|
||||
@ -220,9 +254,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Right = 8
|
||||
MaxLength = 50
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblCompany: TLabel
|
||||
AnchorSideTop.Control = edCompany
|
||||
@ -271,9 +305,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
MaxLength = 50
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblPosition: TLabel
|
||||
AnchorSideTop.Control = edPosition
|
||||
@ -305,9 +339,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
MaxLength = 50
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblAddressW: TLabel
|
||||
AnchorSideTop.Control = edAddressW
|
||||
@ -339,9 +373,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblCityW: TLabel
|
||||
AnchorSideTop.Control = edCityW
|
||||
@ -373,9 +407,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
MaxLength = 50
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblStateW: TLabel
|
||||
AnchorSideTop.Control = edStateW
|
||||
@ -407,9 +441,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblStateComboW: TLabel
|
||||
AnchorSideTop.Control = cbStateW
|
||||
@ -476,9 +510,9 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 8
|
||||
MaxLength = 10
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 7
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblCountryComboW: TLabel
|
||||
AnchorSideTop.Control = cbCountryW
|
||||
@ -513,10 +547,10 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Bottom = 8
|
||||
ItemHeight = 15
|
||||
MaxLength = 65535
|
||||
OnChange = cbCountryChange
|
||||
ParentFont = False
|
||||
TabOrder = 8
|
||||
Visible = False
|
||||
OnChange = cbCountryChange
|
||||
end
|
||||
object lblCountryW: TLabel
|
||||
AnchorSideTop.Control = edCountryW
|
||||
@ -597,9 +631,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Right = 8
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblCityH: TLabel
|
||||
AnchorSideTop.Control = edCityH
|
||||
@ -631,9 +665,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
MaxLength = 50
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblStateH: TLabel
|
||||
AnchorSideTop.Control = edStateH
|
||||
@ -665,9 +699,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblStateComboH: TLabel
|
||||
AnchorSideTop.Control = cbStateH
|
||||
@ -734,9 +768,9 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Right = 8
|
||||
MaxLength = 10
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 4
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object lblCountryComboH: TLabel
|
||||
AnchorSideTop.Control = cbCountryH
|
||||
@ -771,10 +805,10 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Bottom = 8
|
||||
ItemHeight = 15
|
||||
MaxLength = 65535
|
||||
OnChange = cbCountryChange
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
Visible = False
|
||||
OnChange = cbCountryChange
|
||||
end
|
||||
object lblCountryH: TLabel
|
||||
AnchorSideTop.Control = edCountryH
|
||||
@ -920,9 +954,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 7
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object edPhone3: TEdit
|
||||
AnchorSideLeft.Control = cbPhone3
|
||||
@ -938,9 +972,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 5
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object edPhone2: TEdit
|
||||
AnchorSideLeft.Control = cbPhone2
|
||||
@ -956,9 +990,9 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Left = 4
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 3
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object edPhone1: TEdit
|
||||
AnchorSideLeft.Control = cbPhone1
|
||||
@ -975,9 +1009,9 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Right = 8
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 1
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object cbPhone5: TComboBox
|
||||
AnchorSideLeft.Control = gbPhone
|
||||
@ -1014,9 +1048,9 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Left = 4
|
||||
BorderSpacing.Bottom = 8
|
||||
MaxLength = 25
|
||||
OnChange = ItemChanged
|
||||
ParentFont = False
|
||||
TabOrder = 9
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
end
|
||||
object gbEMail: TGroupBox
|
||||
@ -1307,8 +1341,8 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Top = 8
|
||||
BorderSpacing.Right = 8
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 0
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object edCustom2: TEdit
|
||||
AnchorSideLeft.Control = edCustom1
|
||||
@ -1323,8 +1357,8 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 1
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object edCustom3: TEdit
|
||||
AnchorSideLeft.Control = edCustom1
|
||||
@ -1339,8 +1373,8 @@ object ContactEditForm: TContactEditForm
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
BorderSpacing.Top = 4
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 2
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
object edCustom4: TEdit
|
||||
AnchorSideLeft.Control = edCustom1
|
||||
@ -1356,8 +1390,8 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Top = 4
|
||||
BorderSpacing.Bottom = 8
|
||||
MaxLength = 100
|
||||
OnChange = ItemChanged
|
||||
TabOrder = 3
|
||||
OnChange = ItemChanged
|
||||
end
|
||||
end
|
||||
object tabNotes: TTabSheet
|
||||
@ -1401,8 +1435,8 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Bottom = 4
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
OnClick = OKBtnClick
|
||||
TabOrder = 0
|
||||
OnClick = OKBtnClick
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 436
|
||||
@ -1416,8 +1450,8 @@ object ContactEditForm: TContactEditForm
|
||||
BorderSpacing.Bottom = 4
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
OnClick = CancelBtnClick
|
||||
TabOrder = 1
|
||||
OnClick = CancelBtnClick
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user