tvplanit: Trying to get high-dpi correct (many changes)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5077 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/vpcontacteditdlg.lfm

@@ -1,13 +1,13 @@
 object ContactEditForm: TContactEditForm
   Left = 311
-  Height = 511
+  Height = 382
   Top = 245
   Width = 433
   HorzScrollBar.Page = 432
   VertScrollBar.Page = 320
   ActiveControl = tsContacts
   Caption = 'ContactEdit'
-  ClientHeight = 511
+  ClientHeight = 382
   ClientWidth = 433
   OnCreate = FormCreate
   OnKeyDown = FormKeyDown
@@ -16,7 +16,7 @@ object ContactEditForm: TContactEditForm
   LCLVersion = '1.7'
   object tsContacts: TPageControl
     Left = 0
-    Height = 470
+    Height = 341
     Top = 0
     Width = 433
     ActivePage = tabMain
@@ -26,7 +26,7 @@ object ContactEditForm: TContactEditForm
     OnChange = tsContactsChange
     object tabMain: TTabSheet
       Caption = 'RSMasterData'
-      ClientHeight = 442
+      ClientHeight = 313
       ClientWidth = 425
       object LastNameLbl: TLabel
         Left = 9
@@ -168,7 +168,7 @@ object ContactEditForm: TContactEditForm
         Left = 136
         Height = 23
         Top = 151
-        Width = 121
+        Width = 153
         MaxLength = 10
         OnChange = ItemChanged
         TabOrder = 7
@@ -177,7 +177,7 @@ object ContactEditForm: TContactEditForm
         Left = 136
         Height = 23
         Top = 224
-        Width = 121
+        Width = 152
         MaxLength = 50
         OnChange = ItemChanged
         TabOrder = 11
@@ -186,7 +186,7 @@ object ContactEditForm: TContactEditForm
         Left = 136
         Height = 23
         Top = 56
-        Width = 121
+        Width = 153
         MaxLength = 50
         OnChange = ItemChanged
         TabOrder = 2
@@ -204,7 +204,7 @@ object ContactEditForm: TContactEditForm
         Left = 136
         Height = 23
         Top = 251
-        Width = 121
+        Width = 153
         ItemHeight = 15
         MaxLength = 65535
         TabOrder = 12
@@ -259,10 +259,8 @@ object ContactEditForm: TContactEditForm
         Left = 136
         Height = 23
         Top = 280
-        Width = 121
+        Width = 153
         CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
-        OKCaption = 'OK'
-        CancelCaption = 'Cancel'
         DateOrder = doNone
         ButtonWidth = 23
         NumGlyphs = 1
@@ -491,7 +489,7 @@ object ContactEditForm: TContactEditForm
   object pnlBottom: TPanel
     Left = 0
     Height = 41
-    Top = 470
+    Top = 341
     Width = 433
     Align = alBottom
     BevelOuter = bvNone