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

TvPlanIt: Fix compilation after Laz/main commit 74446557f6825c4ddadd9f6321a80147798dbf99. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8836 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-15 10:20:49 +00:00
parent 875a3a826d
commit b84bdf27e1
10 changed files with 45 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -886,7 +886,7 @@ var
begin
inherited;
FScaledTextMargin := round(FContactGrid.TextMargin * Scale);
FAnchorMargin := round(Scale * MARGIN) + FScaledTextMargin * 2;
FAnchorMargin := round(Scale * MARGIN) {%H-}+ FScaledTextMargin * 2;
numCols := FContactGrid.PrintNumColumns;
if DisplayOnly and (numCols > 0) then