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

tvplanit: Update FlexDatastore mapping form to scale correctly in the HiDPI mode of Lazarus 1.8. Update demos datastores/bufds and datastores/flex/access.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5873 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-19 16:22:42 +00:00
parent 5572830dac
commit 6ceea2b711
9 changed files with 572 additions and 487 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,14 +1,14 @@
object ContactEditForm: TContactEditForm
Left = 479
Height = 739
Top = 22
Width = 480
Height = 610
Top = 165
Width = 506
HorzScrollBar.Page = 432
VertScrollBar.Page = 320
ActiveControl = PageControl
Caption = 'ContactEdit'
ClientHeight = 739
ClientWidth = 480
ClientHeight = 610
ClientWidth = 506
Constraints.MinWidth = 480
OnCreate = FormCreate
OnKeyDown = FormKeyDown
@ -17,18 +17,18 @@ object ContactEditForm: TContactEditForm
LCLVersion = '1.9.0.0'
object PageControl: TPageControl
Left = 0
Height = 706
Height = 577
Top = 0
Width = 480
ActivePage = tabBaseData
Width = 506
ActivePage = tabAddresses
Align = alClient
TabIndex = 0
TabIndex = 1
TabOrder = 0
OnChange = PageControlChange
object tabBaseData: TTabSheet
Caption = 'tabBaseData'
ClientHeight = 678
ClientWidth = 472
ClientHeight = 545
ClientWidth = 498
ImageIndex = 0
object lblLastName: TLabel
AnchorSideTop.Control = edLastName
@ -53,7 +53,7 @@ object ContactEditForm: TContactEditForm
Left = 106
Height = 23
Top = 8
Width = 358
Width = 384
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 8
@ -86,7 +86,7 @@ object ContactEditForm: TContactEditForm
Left = 106
Height = 23
Top = 35
Width = 358
Width = 384
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 8
@ -190,14 +190,14 @@ object ContactEditForm: TContactEditForm
end
object tabAddresses: TTabSheet
Caption = 'tabAddresses'
ClientHeight = 752
ClientWidth = 617
ClientHeight = 549
ClientWidth = 498
ImageIndex = 1
object gbWorkAddress: TGroupBox
Left = 8
Height = 408
Height = 298
Top = 8
Width = 601
Width = 482
Align = alTop
AutoSize = True
BorderSpacing.Left = 8
@ -205,8 +205,8 @@ object ContactEditForm: TContactEditForm
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'gbWorkAddress'
ClientHeight = 388
ClientWidth = 597
ClientHeight = 278
ClientWidth = 478
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
@ -214,8 +214,8 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = gbWorkAddress
AnchorSideRight.Control = gbWorkAddress
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Left = 132
Height = 23
Top = 0
Width = 338
Anchors = [akTop, akRight]
@ -229,10 +229,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edCompany
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 147
Height = 25
Left = 59
Height = 15
Top = 4
Width = 96
Width = 65
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -246,10 +246,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edDepartment
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 129
Height = 25
Top = 41
Width = 114
Left = 48
Height = 15
Top = 31
Width = 76
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -265,9 +265,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCompany
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 37
Left = 132
Height = 23
Top = 27
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -280,10 +280,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edPosition
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 160
Height = 25
Top = 78
Width = 83
Left = 68
Height = 15
Top = 58
Width = 56
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -299,9 +299,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCompany
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 74
Left = 132
Height = 23
Top = 54
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -314,10 +314,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edAddressW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 159
Height = 25
Top = 115
Width = 84
Left = 69
Height = 15
Top = 85
Width = 55
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -333,9 +333,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCompany
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 111
Left = 132
Height = 23
Top = 81
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -348,10 +348,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edCityW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 194
Height = 25
Top = 152
Width = 49
Left = 90
Height = 15
Top = 112
Width = 34
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -367,9 +367,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCompany
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 148
Left = 132
Height = 23
Top = 108
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -382,10 +382,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edStateW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 184
Height = 25
Top = 189
Width = 59
Left = 85
Height = 15
Top = 139
Width = 39
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -401,9 +401,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCompany
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 185
Left = 132
Height = 23
Top = 135
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -416,10 +416,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = cbStateW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 128
Height = 25
Top = 226
Width = 119
Left = 49
Height = 15
Top = 166
Width = 79
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -436,9 +436,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCompany
AnchorSideRight.Side = asrBottom
Left = 251
Left = 132
Height = 23
Top = 222
Top = 162
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -452,10 +452,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edZipCodeW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 157
Height = 25
Top = 263
Width = 86
Left = 66
Height = 15
Top = 193
Width = 58
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -470,9 +470,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = cbStateW
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 259
Left = 132
Height = 23
Top = 189
Width = 120
BorderSpacing.Top = 4
BorderSpacing.Right = 8
@ -485,10 +485,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = cbCountryW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 101
Height = 25
Top = 300
Width = 142
Left = 28
Height = 15
Top = 220
Width = 96
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -505,9 +505,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCompany
AnchorSideRight.Side = asrBottom
Left = 251
Left = 132
Height = 23
Top = 296
Top = 216
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -523,10 +523,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edCountryW
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCompany
Left = 161
Height = 25
Top = 341
Width = 82
Left = 68
Height = 15
Top = 251
Width = 56
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -542,9 +542,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edCompany
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 337
Left = 132
Height = 23
Top = 247
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -555,9 +555,9 @@ object ContactEditForm: TContactEditForm
end
object gbHomeAddress: TGroupBox
Left = 8
Height = 297
Top = 432
Width = 601
Height = 217
Top = 322
Width = 482
Align = alTop
AutoSize = True
BorderSpacing.Left = 8
@ -565,8 +565,8 @@ object ContactEditForm: TContactEditForm
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'gbHomeAddress'
ClientHeight = 277
ClientWidth = 597
ClientHeight = 197
ClientWidth = 478
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
@ -574,10 +574,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edAddressH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edAddressH
Left = 159
Height = 25
Left = 69
Height = 15
Top = 4
Width = 84
Width = 55
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -591,8 +591,8 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = gbHomeAddress
AnchorSideRight.Control = gbHomeAddress
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Left = 132
Height = 23
Top = 0
Width = 338
Anchors = [akTop, akRight]
@ -606,10 +606,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edCityH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCityH
Left = 194
Height = 25
Top = 41
Width = 49
Left = 90
Height = 15
Top = 31
Width = 34
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -625,9 +625,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edAddressH
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 37
Left = 132
Height = 23
Top = 27
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -640,10 +640,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edStateH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edStateH
Left = 184
Height = 25
Top = 78
Width = 59
Left = 85
Height = 15
Top = 58
Width = 39
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -659,9 +659,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edAddressH
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 74
Left = 132
Height = 23
Top = 54
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -674,10 +674,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = cbStateH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbStateH
Left = 128
Height = 25
Top = 115
Width = 119
Left = 49
Height = 15
Top = 85
Width = 79
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -694,9 +694,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edAddressH
AnchorSideRight.Side = asrBottom
Left = 251
Left = 132
Height = 23
Top = 111
Top = 81
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -710,10 +710,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edZipCodeH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edZipCodeH
Left = 157
Height = 25
Top = 152
Width = 86
Left = 66
Height = 15
Top = 112
Width = 58
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -728,9 +728,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = cbStateH
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 148
Left = 132
Height = 23
Top = 108
Width = 120
BorderSpacing.Top = 4
BorderSpacing.Right = 8
@ -743,10 +743,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = cbCountryH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = cbCountryH
Left = 101
Height = 25
Top = 189
Width = 142
Left = 28
Height = 15
Top = 139
Width = 96
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -763,9 +763,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edAddressH
AnchorSideRight.Side = asrBottom
Left = 251
Left = 132
Height = 23
Top = 185
Top = 135
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -781,10 +781,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edCountryH
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCountryH
Left = 161
Height = 25
Top = 230
Width = 82
Left = 68
Height = 15
Top = 170
Width = 56
Alignment = taRightJustify
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
@ -800,9 +800,9 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = edAddressH
AnchorSideRight.Side = asrBottom
Left = 251
Height = 33
Top = 226
Left = 132
Height = 23
Top = 166
Width = 338
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
@ -814,22 +814,22 @@ object ContactEditForm: TContactEditForm
end
object tabContact: TTabSheet
Caption = 'tabContact'
ClientHeight = 752
ClientWidth = 617
ClientHeight = 545
ClientWidth = 498
ImageIndex = 1
object gbPhone: TGroupBox
Left = 8
Height = 219
Height = 159
Top = 8
Width = 601
Width = 482
Align = alTop
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Right = 8
Caption = 'Phone / fax'
ClientHeight = 199
ClientWidth = 597
ClientHeight = 139
ClientWidth = 478
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
@ -855,7 +855,7 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 37
Top = 27
Width = 88
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
@ -875,7 +875,7 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 74
Top = 54
Width = 88
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
@ -895,7 +895,7 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 111
Top = 81
Width = 88
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
@ -915,9 +915,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = edPhone3
AnchorSideRight.Side = asrBottom
Left = 100
Height = 33
Top = 111
Width = 489
Height = 23
Top = 81
Width = 370
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
MaxLength = 25
@ -933,9 +933,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = edPhone2
AnchorSideRight.Side = asrBottom
Left = 100
Height = 33
Top = 74
Width = 489
Height = 23
Top = 54
Width = 370
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
MaxLength = 25
@ -951,9 +951,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = edPhone1
AnchorSideRight.Side = asrBottom
Left = 100
Height = 33
Top = 37
Width = 489
Height = 23
Top = 27
Width = 370
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
MaxLength = 25
@ -969,9 +969,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = gbPhone
AnchorSideRight.Side = asrBottom
Left = 100
Height = 33
Height = 23
Top = 0
Width = 489
Width = 370
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Right = 8
@ -988,7 +988,7 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 148
Top = 108
Width = 88
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
@ -1008,9 +1008,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = edPhone4
AnchorSideRight.Side = asrBottom
Left = 100
Height = 33
Top = 148
Width = 489
Height = 23
Top = 108
Width = 370
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Bottom = 8
@ -1022,17 +1022,17 @@ object ContactEditForm: TContactEditForm
end
object gbEMail: TGroupBox
Left = 8
Height = 149
Top = 243
Width = 601
Height = 109
Top = 183
Width = 482
Align = alTop
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Top = 16
BorderSpacing.Right = 8
Caption = 'E-Mail'
ClientHeight = 129
ClientWidth = 597
ClientHeight = 89
ClientWidth = 478
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
@ -1044,9 +1044,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = gbEMail
AnchorSideRight.Side = asrBottom
Left = 128
Height = 33
Height = 23
Top = 4
Width = 461
Width = 342
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Right = 8
@ -1061,9 +1061,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = edEMail1
AnchorSideRight.Side = asrBottom
Left = 128
Height = 33
Top = 41
Width = 461
Height = 23
Top = 31
Width = 342
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
ParentFont = False
@ -1077,9 +1077,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = edEMail1
AnchorSideRight.Side = asrBottom
Left = 128
Height = 33
Top = 78
Width = 461
Height = 23
Top = 58
Width = 342
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Bottom = 8
@ -1109,7 +1109,7 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 41
Top = 31
Width = 116
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
@ -1129,7 +1129,7 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 78
Top = 58
Width = 116
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
@ -1144,9 +1144,9 @@ object ContactEditForm: TContactEditForm
end
object gbWebsites: TGroupBox
Left = 6
Height = 108
Top = 408
Width = 603
Height = 78
Top = 308
Width = 484
Align = alTop
AutoSize = True
BorderSpacing.Left = 6
@ -1154,8 +1154,8 @@ object ContactEditForm: TContactEditForm
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Websites'
ClientHeight = 88
ClientWidth = 599
ClientHeight = 58
ClientWidth = 480
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
@ -1167,9 +1167,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = gbWebsites
AnchorSideRight.Side = asrBottom
Left = 157
Height = 33
Height = 23
Top = 0
Width = 434
Width = 315
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Right = 8
@ -1184,9 +1184,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = edWebsite1
AnchorSideRight.Side = asrBottom
Left = 157
Height = 33
Top = 37
Width = 434
Height = 23
Top = 27
Width = 315
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 4
BorderSpacing.Bottom = 8
@ -1216,7 +1216,7 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Side = asrBottom
Left = 8
Height = 23
Top = 37
Top = 27
Width = 145
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8
@ -1233,17 +1233,17 @@ object ContactEditForm: TContactEditForm
end
object tabCustom: TTabSheet
Caption = 'tabCustom'
ClientHeight = 752
ClientWidth = 617
ClientHeight = 545
ClientWidth = 498
ImageIndex = 3
object lblCustom1: TLabel
AnchorSideTop.Control = edCustom1
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCustom1
Left = 61
Height = 25
Left = 91
Height = 15
Top = 12
Width = 91
Width = 61
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
@ -1255,10 +1255,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edCustom2
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCustom2
Left = 61
Height = 25
Top = 49
Width = 91
Left = 91
Height = 15
Top = 39
Width = 61
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
@ -1270,10 +1270,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edCustom3
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCustom3
Left = 61
Height = 25
Top = 86
Width = 91
Left = 91
Height = 15
Top = 66
Width = 61
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
@ -1285,10 +1285,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edCustom4
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edCustom4
Left = 61
Height = 25
Top = 123
Width = 91
Left = 91
Height = 15
Top = 93
Width = 61
Anchors = [akTop, akRight]
BorderSpacing.Left = 8
BorderSpacing.Right = 8
@ -1301,9 +1301,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = tabCustom
AnchorSideRight.Side = asrBottom
Left = 160
Height = 33
Height = 23
Top = 8
Width = 449
Width = 330
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 8
@ -1318,9 +1318,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = edCustom1
AnchorSideRight.Side = asrBottom
Left = 160
Height = 33
Top = 45
Width = 449
Height = 23
Top = 35
Width = 330
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxLength = 100
@ -1334,9 +1334,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = edCustom1
AnchorSideRight.Side = asrBottom
Left = 160
Height = 33
Top = 82
Width = 449
Height = 23
Top = 62
Width = 330
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
MaxLength = 100
@ -1350,9 +1350,9 @@ object ContactEditForm: TContactEditForm
AnchorSideRight.Control = edCustom1
AnchorSideRight.Side = asrBottom
Left = 160
Height = 33
Top = 119
Width = 449
Height = 23
Top = 89
Width = 330
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Bottom = 8
@ -1363,14 +1363,14 @@ object ContactEditForm: TContactEditForm
end
object tabNotes: TTabSheet
Caption = 'tabNotes'
ClientHeight = 752
ClientWidth = 617
ClientHeight = 549
ClientWidth = 498
ImageIndex = 4
object memoNotes: TMemo
Left = 4
Height = 744
Height = 541
Top = 4
Width = 609
Width = 490
Align = alClient
BorderSpacing.Around = 4
Constraints.MinHeight = 300
@ -1383,20 +1383,20 @@ object ContactEditForm: TContactEditForm
object pnlBottom: TPanel
Left = 0
Height = 33
Top = 706
Width = 480
Top = 577
Width = 506
Align = alBottom
AutoSize = True
BevelOuter = bvNone
ClientHeight = 33
ClientWidth = 480
ClientWidth = 506
TabOrder = 1
object OKBtn: TButton
AnchorSideTop.Control = CancelBtn
AnchorSideRight.Control = CancelBtn
AnchorSideBottom.Control = CancelBtn
AnchorSideBottom.Side = asrBottom
Left = 328
Left = 354
Height = 25
Top = 4
Width = 74
@ -1411,7 +1411,7 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = pnlBottom
AnchorSideRight.Side = asrBottom
Left = 410
Left = 436
Height = 25
Top = 4
Width = 62