tvplanit: Remove unnecessary routines. Improved HiDPI performance of TaskEdit dlg, Alarm dlg, and ExVpRptSetup (used by fulldemo).

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

components/tvplanit/source/vptaskeditdlg.lfm

@@ -11,7 +11,7 @@ object TaskEditForm: TTaskEditForm
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '1.9.0.0'
+  LCLVersion = '1.6.4.0'
   object ButtonPanel: TPanel
     Left = 0
     Height = 33
@@ -90,20 +90,25 @@ object TaskEditForm: TTaskEditForm
       ClientHeight = 369
       ClientWidth = 539
       object DueDateLbl: TLabel
+        AnchorSideLeft.Control = imgCalendar
+        AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = DueDateEdit
         AnchorSideTop.Side = asrCenter
-        Left = 52
+        Left = 56
         Height = 15
         Top = 68
         Width = 50
+        BorderSpacing.Left = 16
+        BorderSpacing.Right = 8
         Caption = 'Due date:'
         FocusControl = DueDateEdit
         ParentColor = False
       end
       object LblCreatedOn: TLabel
+        AnchorSideLeft.Control = DueDateLbl
         AnchorSideTop.Control = DueDateEdit
         AnchorSideTop.Side = asrBottom
-        Left = 52
+        Left = 56
         Height = 15
         Top = 91
         Width = 61
@@ -112,8 +117,9 @@ object TaskEditForm: TTaskEditForm
         ParentColor = False
       end
       object LblCompletedOn: TLabel
+        AnchorSideLeft.Control = CbPriority
         AnchorSideTop.Control = LblCreatedOn
-        Left = 333
+        Left = 326
         Height = 15
         Top = 91
         Width = 79
@@ -133,6 +139,7 @@ object TaskEditForm: TTaskEditForm
         Shape = bsTopLine
       end
       object imgCalendar: TImage
+        AnchorSideLeft.Control = tabTask
         AnchorSideTop.Control = Bevel1
         AnchorSideTop.Side = asrBottom
         Left = 8
@@ -140,6 +147,7 @@ object TaskEditForm: TTaskEditForm
         Top = 64
         Width = 32
         AutoSize = True
+        BorderSpacing.Left = 8
         BorderSpacing.Top = 4
         Picture.Data = {
           07544269746D6170360C0000424D360C00000000000036000000280000002000
@@ -245,9 +253,10 @@ object TaskEditForm: TTaskEditForm
         Transparent = True
       end
       object imgCompleted: TImage
+        AnchorSideLeft.Control = LblPriority
         AnchorSideTop.Control = Bevel1
         AnchorSideTop.Side = asrBottom
-        Left = 290
+        Left = 277
         Height = 32
         Top = 64
         Width = 32
@@ -297,9 +306,10 @@ object TaskEditForm: TTaskEditForm
         Text = 'DescriptionEdit'
       end
       object CbComplete: TCheckBox
+        AnchorSideLeft.Control = CbPriority
         AnchorSideTop.Control = DueDateEdit
         AnchorSideTop.Side = asrCenter
-        Left = 333
+        Left = 326
         Height = 19
         Top = 66
         Width = 72
@@ -334,12 +344,14 @@ object TaskEditForm: TTaskEditForm
         TabOrder = 3
       end
       object DueDateEdit: TDateEdit
+        AnchorSideLeft.Control = DueDateLbl
+        AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = Bevel1
         AnchorSideTop.Side = asrBottom
-        Left = 128
+        Left = 114
         Height = 23
         Top = 64
-        Width = 120
+        Width = 110
         CalendarDisplaySettings = [dsShowHeadings, dsShowDayNames]
         DateOrder = doNone
         ButtonWidth = 23
@@ -352,21 +364,25 @@ object TaskEditForm: TTaskEditForm
       object LblCategory: TLabel
         AnchorSideTop.Control = CbCategory
         AnchorSideTop.Side = asrCenter
-        Left = 62
+        AnchorSideRight.Control = CbCategory
+        Left = 55
         Height = 15
         Top = 35
         Width = 51
+        Anchors = [akTop, akRight]
+        BorderSpacing.Right = 8
         Caption = 'Category:'
         FocusControl = CbCategory
         ParentColor = False
       end
       object CbCategory: TComboBox
+        AnchorSideLeft.Control = DueDateEdit
         AnchorSideTop.Control = DescriptionEdit
         AnchorSideTop.Side = asrBottom
-        Left = 128
+        Left = 114
         Height = 23
         Top = 31
-        Width = 120
+        Width = 139
         BorderSpacing.Top = 4
         ItemHeight = 15
         ItemIndex = 0
@@ -382,23 +398,29 @@ object TaskEditForm: TTaskEditForm
         Text = 'Business'
       end
       object LblPriority: TLabel
+        AnchorSideLeft.Control = CbCategory
+        AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = CbPriority
         AnchorSideTop.Side = asrCenter
-        Left = 281
+        Left = 277
         Height = 15
         Top = 35
         Width = 41
+        BorderSpacing.Left = 24
         Caption = 'Priority:'
         FocusControl = CbPriority
         ParentColor = False
       end
       object CbPriority: TComboBox
+        AnchorSideLeft.Control = LblPriority
+        AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = DescriptionEdit
         AnchorSideTop.Side = asrBottom
-        Left = 333
+        Left = 326
         Height = 23
         Top = 31
         Width = 120
+        BorderSpacing.Left = 8
         BorderSpacing.Top = 4
         BorderSpacing.Right = 4
         ItemHeight = 15