From 9e7605f4f6fa55a388edb7f14548a9e680e2ca51 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 21 Jul 2016 22:28:06 +0000
Subject: [PATCH] tvplanit: Fix minor edit alignment issue at 120 dpi in
 contact edit form.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5022 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpcontacteditdlg.lfm | 12 ++++++------
 components/tvplanit/source/vpcontacteditdlg.pas |  5 +++--
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/components/tvplanit/source/vpcontacteditdlg.lfm b/components/tvplanit/source/vpcontacteditdlg.lfm
index 9a6c76de6..d166db92f 100644
--- a/components/tvplanit/source/vpcontacteditdlg.lfm
+++ b/components/tvplanit/source/vpcontacteditdlg.lfm
@@ -1,13 +1,13 @@
 object ContactEditForm: TContactEditForm
   Left = 311
-  Height = 420
+  Height = 511
   Top = 245
   Width = 433
   HorzScrollBar.Page = 432
   VertScrollBar.Page = 320
   ActiveControl = tsContacts
   Caption = 'ContactEdit'
-  ClientHeight = 420
+  ClientHeight = 511
   ClientWidth = 433
   OnCreate = FormCreate
   OnKeyDown = FormKeyDown
@@ -16,7 +16,7 @@ object ContactEditForm: TContactEditForm
   LCLVersion = '1.7'
   object tsContacts: TPageControl
     Left = 0
-    Height = 379
+    Height = 470
     Top = 0
     Width = 433
     ActivePage = tabMain
@@ -26,7 +26,7 @@ object ContactEditForm: TContactEditForm
     OnChange = tsContactsChange
     object tabMain: TTabSheet
       Caption = 'RSMasterData'
-      ClientHeight = 351
+      ClientHeight = 442
       ClientWidth = 425
       object LastNameLbl: TLabel
         Left = 9
@@ -259,7 +259,7 @@ object ContactEditForm: TContactEditForm
         Left = 136
         Height = 23
         Top = 280
-        Width = 120
+        Width = 121
         CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
         OKCaption = 'OK'
         CancelCaption = 'Cancel'
@@ -491,7 +491,7 @@ object ContactEditForm: TContactEditForm
   object pnlBottom: TPanel
     Left = 0
     Height = 41
-    Top = 379
+    Top = 470
     Width = 433
     Align = alBottom
     BevelOuter = bvNone
diff --git a/components/tvplanit/source/vpcontacteditdlg.pas b/components/tvplanit/source/vpcontacteditdlg.pas
index 6e319d27f..ebe223606 100644
--- a/components/tvplanit/source/vpcontacteditdlg.pas
+++ b/components/tvplanit/source/vpcontacteditdlg.pas
@@ -481,8 +481,9 @@ begin
     end;
 
   { Set form height such that first tab is filled completely by controls }
-  ClientHeight := BirthdateEdit.Top + BirthdateEdit.Height + TopField +
-    pnlBottom.Height + tsContacts.Height - tabMain.Height;
+  ClientHeight := BirthDateEdit.Top + editHeight + TopField + // required height of tab sheet
+    pnlBottom.Height +  // height of button panel
+    tsContacts.Height - tabMain.ClientHeight;   // Height of tab + border
 
   { Page "Contact" }
   SetLength(Comboboxes, 5);