diff --git a/components/tvplanit/source/vpedelem.lfm b/components/tvplanit/source/vpedelem.lfm
index c7be6ff4f..88487c1c0 100644
--- a/components/tvplanit/source/vpedelem.lfm
+++ b/components/tvplanit/source/vpedelem.lfm
@@ -13,6 +13,7 @@ object frmEditElement: TfrmEditElement
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
+  LCLVersion = '2.3.0.0'
   object gbCaption: TGroupBox
     Left = 12
     Height = 54
@@ -40,7 +41,6 @@ object frmEditElement: TfrmEditElement
       Width = 27
       BorderSpacing.Left = 8
       Caption = 'Text: '
-      Color = clDefault
       FocusControl = edCaptionText
       ParentColor = False
       ParentFont = False
@@ -104,7 +104,6 @@ object frmEditElement: TfrmEditElement
       Top = 4
       Width = 38
       Caption = 'Name: '
-      Color = clDefault
       ParentColor = False
     end
     object edName: TEdit
@@ -420,7 +419,6 @@ object frmEditElement: TfrmEditElement
           BorderSpacing.Left = 1
           BorderSpacing.Right = 8
           Caption = 'Top:'
-          Color = clDefault
           FocusControl = edTop
           ParentColor = False
         end
@@ -498,7 +496,6 @@ object frmEditElement: TfrmEditElement
           BorderSpacing.Left = 1
           BorderSpacing.Right = 8
           Caption = 'Left:'
-          Color = clDefault
           FocusControl = edLeft
           ParentColor = False
         end
@@ -531,7 +528,6 @@ object frmEditElement: TfrmEditElement
           Anchors = [akTop, akRight]
           BorderSpacing.Right = 8
           Caption = 'Height:'
-          Color = clDefault
           FocusControl = edHeight
           ParentColor = False
         end
@@ -578,7 +574,6 @@ object frmEditElement: TfrmEditElement
           Anchors = [akTop, akRight]
           BorderSpacing.Right = 8
           Caption = 'Width:'
-          Color = clDefault
           FocusControl = edWidth
           ParentColor = False
         end
diff --git a/components/tvplanit/source/vpedelem.pas b/components/tvplanit/source/vpedelem.pas
index cef8e5ca2..4bb9596c5 100644
--- a/components/tvplanit/source/vpedelem.pas
+++ b/components/tvplanit/source/vpedelem.pas
@@ -25,7 +25,7 @@
 {* Contributor(s):                                                            *}
 {*                                                                            *}
 {* ***** END LICENSE BLOCK *****                                              *}
-
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 {$I vp.inc}
 
 unit VpEdElem;
diff --git a/components/tvplanit/source/vpganttview.pas b/components/tvplanit/source/vpganttview.pas
index 623deee96..a6cf8496d 100644
--- a/components/tvplanit/source/vpganttview.pas
+++ b/components/tvplanit/source/vpganttview.pas
@@ -1,7 +1,7 @@
 unit VpGanttView;
 
 {$mode objfpc}{$H+}
-
+{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
 interface
 
 uses
@@ -498,7 +498,6 @@ begin
   begin
     dt1 := DatePart(AEvent.StartTime);
     dt2 := DatePart(AEvent.EndTime) + 1;
-    if frac(AEvent.EndTime) = 0 then dt2 := dt2 + 1;
   end else
   begin
     dt1 := AEvent.StartTime;
diff --git a/components/tvplanit/source/vpprtprvdlg.lfm b/components/tvplanit/source/vpprtprvdlg.lfm
index 7a30b32b7..bc084aa4b 100644
--- a/components/tvplanit/source/vpprtprvdlg.lfm
+++ b/components/tvplanit/source/vpprtprvdlg.lfm
@@ -14,6 +14,7 @@ object frmPrintPreview: TfrmPrintPreview
   OnCreate = FormCreate
   OnKeyDown = FormKeyDown
   OnShow = FormShow
+  LCLVersion = '2.3.0.0'
   object Panel1: TPanel
     Left = 0
     Height = 56
diff --git a/components/tvplanit/source/vpprtprvdlg.pas b/components/tvplanit/source/vpprtprvdlg.pas
index a9d5cb261..621b24a98 100644
--- a/components/tvplanit/source/vpprtprvdlg.pas
+++ b/components/tvplanit/source/vpprtprvdlg.pas
@@ -169,7 +169,7 @@ implementation
 
 uses
   OSPrinters,
-  VpConst,  // needed for define VP_LCL_SCALING
+  {%H-}VpConst,  // needed for define VP_LCL_SCALING
   VpPrtFmt;
 
 { TfrmPrintPreview }