tvplanit: Fix display of end date in an all-day event in GanttView. Less hints and warnings.

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

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

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;

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;

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

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 }