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

TvPlanIt: Fix compilation after previous commit

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8890 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-07-21 21:44:06 +00:00
parent 64ad1bbe8c
commit 72c05e3403
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1615,7 +1615,7 @@ begin
try try
bmp.SetSize(10, 10); bmp.SetSize(10, 10);
bmp.Canvas.Font.Assign(ACanvas.Font); bmp.Canvas.Font.Assign(ACanvas.Font);
GetTextMetrics(bmp.Canvas.Handle, Metrics) then GetTextMetrics(bmp.Canvas.Handle, Metrics);
Result := Metrics.tmAveCharWidth; Result := Metrics.tmAveCharWidth;
finally finally
bmp.Free; bmp.Free;