pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: In contact editor, split combined name field into separate fields for first and last names

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4857 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-28 19:50:19 +00:00
parent e575855f93
commit f2d0a36d2a
7 changed files with 173 additions and 121 deletions
Download Patch File Download Diff File Expand all files Collapse all files

128
components/tvplanit/source/vpcontacteditdlg.lfm
View File

@ -1,13 +1,13 @@
object ContactEditForm: TContactEditForm
Left = 311
Height = 320
Height = 355
Top = 245
Width = 433
HorzScrollBar.Page = 432
VertScrollBar.Page = 320
ActiveControl = tsContacts
Caption = 'ContactEdit'
ClientHeight = 320
ClientHeight = 355
ClientWidth = 433
OnCreate = FormCreate
OnKeyDown = FormKeyDown
@ -16,7 +16,7 @@ object ContactEditForm: TContactEditForm
LCLVersion = '1.7'
object tsContacts: TPageControl
Left = 0
Height = 279
Height = 314
Top = 0
Width = 433
ActivePage = tabMain
@ -26,23 +26,23 @@ object ContactEditForm: TContactEditForm
OnChange = tsContactsChange
object tabMain: TTabSheet
Caption = 'RSMasterData'
ClientHeight = 251
ClientHeight = 286
ClientWidth = 425
object NameLbl: TLabel
object LastNameLbl: TLabel
Left = 8
Height = 16
Top = 6
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'Name'
FocusControl = NameEdit
Caption = 'Last name'
FocusControl = LastNameEdit
ParentColor = False
end
object AddrLbl: TLabel
Left = 8
Height = 16
Top = 54
Top = 81
Width = 127
Alignment = taRightJustify
AutoSize = False
@ -53,7 +53,7 @@ object ContactEditForm: TContactEditForm
object CityLbl: TLabel
Left = 8
Height = 16
Top = 78
Top = 105
Width = 127
Alignment = taRightJustify
AutoSize = False
@ -64,7 +64,7 @@ object ContactEditForm: TContactEditForm
object StateLbl: TLabel
Left = 8
Height = 16
Top = 102
Top = 129
Width = 127
Alignment = taRightJustify
AutoSize = False
@ -75,7 +75,7 @@ object ContactEditForm: TContactEditForm
object ZipLbl: TLabel
Left = 8
Height = 16
Top = 126
Top = 153
Width = 127
Alignment = taRightJustify
AutoSize = False
@ -86,7 +86,7 @@ object ContactEditForm: TContactEditForm
object CountryLbl: TLabel
Left = 8
Height = 16
Top = 150
Top = 177
Width = 127
Alignment = taRightJustify
AutoSize = False
@ -97,7 +97,7 @@ object ContactEditForm: TContactEditForm
object PositionLbl: TLabel
Left = 8
Height = 16
Top = 199
Top = 226
Width = 127
Alignment = taRightJustify
AutoSize = False
@ -108,7 +108,7 @@ object ContactEditForm: TContactEditForm
object TitleLbl: TLabel
Left = 8
Height = 16
Top = 31
Top = 58
Width = 127
Alignment = taRightJustify
AutoSize = False
@ -119,7 +119,7 @@ object ContactEditForm: TContactEditForm
object CompanyLbl: TLabel
Left = 8
Height = 16
Top = 175
Top = 202
Width = 127
Alignment = taRightJustify
AutoSize = False
@ -130,7 +130,7 @@ object ContactEditForm: TContactEditForm
object CategoryLbl: TLabel
Left = 8
Height = 16
Top = 226
Top = 253
Width = 127
Alignment = taRightJustify
AutoSize = False
@ -138,10 +138,10 @@ object ContactEditForm: TContactEditForm
FocusControl = cboxCategory
ParentColor = False
end
object NameEdit: TEdit
object LastNameEdit: TEdit
Left = 136
Height = 23
Top = 4
Top = 6
Width = 247
MaxLength = 100
OnChange = ItemChanged
@ -150,96 +150,96 @@ object ContactEditForm: TContactEditForm
object AddressEdit: TEdit
Left = 136
Height = 23
Top = 52
Top = 79
Width = 247
MaxLength = 100
OnChange = ItemChanged
TabOrder = 2
TabOrder = 3
end
object CityEdit: TEdit
Left = 136
Height = 23
Top = 76
Top = 103
Width = 247
MaxLength = 50
OnChange = ItemChanged
TabOrder = 3
TabOrder = 4
end
object StateEdit: TEdit
Left = 168
Height = 23
Top = 100
Top = 127
Width = 247
MaxLength = 25
OnChange = ItemChanged
TabOrder = 5
TabOrder = 6
end
object ZipCodeEdit: TEdit
Left = 136
Height = 23
Top = 124
Top = 151
Width = 121
MaxLength = 10
OnChange = ItemChanged
TabOrder = 6
TabOrder = 7
end
object PositionEdit: TEdit
Left = 136
Height = 23
Top = 197
Top = 224
Width = 121
MaxLength = 50
OnChange = ItemChanged
TabOrder = 11
end
object TitleEdit: TEdit
Left = 136
Height = 23
Top = 56
Width = 121
MaxLength = 50
OnChange = ItemChanged
TabOrder = 2
end
object CompanyEdit: TEdit
Left = 136
Height = 23
Top = 200
Width = 121
MaxLength = 50
OnChange = ItemChanged
TabOrder = 10
end
object TitleEdit: TEdit
Left = 136
Height = 23
Top = 29
Width = 121
MaxLength = 50
OnChange = ItemChanged
TabOrder = 1
end
object CompanyEdit: TEdit
Left = 136
Height = 23
Top = 173
Width = 121
MaxLength = 50
OnChange = ItemChanged
TabOrder = 9
end
object cboxCategory: TComboBox
Left = 136
Height = 23
Top = 224
Top = 251
Width = 121
ItemHeight = 15
MaxLength = 65535
TabOrder = 11
TabOrder = 12
end
object cboxState: TComboBox
Left = 136
Height = 23
Top = 100
Top = 127
Width = 249
ItemHeight = 15
MaxLength = 65535
TabOrder = 4
TabOrder = 5
Visible = False
end
object edtCountry: TEdit
Left = 152
Height = 23
Top = 148
Top = 175
Width = 249
TabOrder = 8
TabOrder = 9
end
object cboxCountry: TComboBox
Left = 136
Height = 21
Top = 148
Top = 175
Width = 249
Font.Height = -11
Font.Name = 'MS Sans Serif'
@ -247,7 +247,27 @@ object ContactEditForm: TContactEditForm
MaxLength = 65535
OnChange = cboxCountryChange
ParentFont = False
TabOrder = 7
TabOrder = 8
end
object FirstNameEdit: TEdit
Left = 136
Height = 23
Top = 29
Width = 247
MaxLength = 100
OnChange = ItemChanged
TabOrder = 1
end
object FirstNameLbl: TLabel
Left = 8
Height = 16
Top = 31
Width = 127
Alignment = taRightJustify
AutoSize = False
Caption = 'First name'
FocusControl = FirstNameEdit
ParentColor = False
end
end
object tabContact: TTabSheet
@ -456,7 +476,7 @@ object ContactEditForm: TContactEditForm
object pnlBottom: TPanel
Left = 0
Height = 41
Top = 279
Top = 314
Width = 433
Align = alBottom
BevelOuter = bvNone