pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlanIt: Fix type of designtime package.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8221 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-03-22 17:24:20 +00:00
parent 91c06583cd
commit 9440285775
2 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
components/tvplanit/laz_visualplanit_design.lpk
View File

@ -1,9 +1,9 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="5"> <Package Version="4">
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="laz_visualplanit_design"/> <Name Value="laz_visualplanit_design"/>
<Type Value="RunAndDesignTime"/> <Type Value="DesignTime"/>
<Author Value="Original author: TurboPower Software"/> <Author Value="Original author: TurboPower Software"/>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
@ -14,7 +14,7 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\design"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\design"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </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)"/> (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/. <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"/> <Type Value="LFM"/>
</Item6> </Item6>
</Files> </Files>
<CompatibilityMode Value="True"/>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>
<OutDir Value="languages"/> <OutDir Value="languages"/>

2
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -1589,7 +1589,6 @@ var
ShowCustom: Boolean; ShowCustom: Boolean;
Icons: TVpDVIcons; Icons: TVpDVIcons;
cat: TVpCategoryInfo; cat: TVpCategoryInfo;
w: Integer;
isOverlayed: Boolean; isOverlayed: Boolean;
grp: TVpResourceGroup; grp: TVpResourceGroup;
imgList: TCustomImageList; imgList: TCustomImageList;
@ -1598,6 +1597,7 @@ var
ppi: Integer; ppi: Integer;
f: Double; f: Double;
w96: Integer; w96: Integer;
w: Integer;
{$IFEND} {$IFEND}
{$ENDIF} {$ENDIF}
begin begin