From 944028577566fe5e617d62cf3cf18a4a02f3be96 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 22 Mar 2022 17:24:20 +0000
Subject: [PATCH] TvPlanIt: Fix type of designtime package.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8221 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/laz_visualplanit_design.lpk | 7 +++----
 components/tvplanit/source/vpdayviewpainter.pas | 2 +-
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/components/tvplanit/laz_visualplanit_design.lpk b/components/tvplanit/laz_visualplanit_design.lpk
index c48a8fac1..90690b812 100644
--- a/components/tvplanit/laz_visualplanit_design.lpk
+++ b/components/tvplanit/laz_visualplanit_design.lpk
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
-  <Package Version="5">
+  <Package Version="4">
     <PathDelim Value="\"/>
     <Name Value="laz_visualplanit_design"/>
-    <Type Value="RunAndDesignTime"/>
+    <Type Value="DesignTime"/>
     <Author Value="Original author: TurboPower Software"/>
     <CompilerOptions>
       <Version Value="11"/>
@@ -14,7 +14,7 @@
         <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\design"/>
       </SearchPaths>
     </CompilerOptions>
-    <Description Value="Lazarus Port of Turbo Power&apos;s VisualPlanIt components based on version 1.0.3. 
+    <Description Value="Lazarus Port of Turbo Power's VisualPlanIt components based on version 1.0.3. 
 (Designtime package)"/>
     <License Value="The contents of these files are subject to the Mozilla Public License  Version 1.1 (the &quot;License&quot;); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/.
 
@@ -55,7 +55,6 @@ Contributor(s): "/>
         <Type Value="LFM"/>
       </Item6>
     </Files>
-    <CompatibilityMode Value="True"/>
     <i18n>
       <EnableI18N Value="True"/>
       <OutDir Value="languages"/>
diff --git a/components/tvplanit/source/vpdayviewpainter.pas b/components/tvplanit/source/vpdayviewpainter.pas
index cd7dfe5f3..bb117d2df 100644
--- a/components/tvplanit/source/vpdayviewpainter.pas
+++ b/components/tvplanit/source/vpdayviewpainter.pas
@@ -1589,7 +1589,6 @@ var
   ShowCustom: Boolean;
   Icons: TVpDVIcons;
   cat: TVpCategoryInfo;
-  w: Integer;
   isOverlayed: Boolean;
   grp: TVpResourceGroup;
   imgList: TCustomImageList;
@@ -1598,6 +1597,7 @@ var
   ppi: Integer;
   f: Double;
   w96: Integer;
+  w: Integer;
   {$IFEND}
  {$ENDIF}
 begin