From 72c05e34030e0d62b9fc87755e08314fb80cadb2 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 21 Jul 2023 21:44:06 +0000
Subject: [PATCH] TvPlanIt: Fix compilation after previous commit

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8890 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpcanvasutils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/tvplanit/source/vpcanvasutils.pas b/components/tvplanit/source/vpcanvasutils.pas
index ebcd70038..fe83b66b0 100644
--- a/components/tvplanit/source/vpcanvasutils.pas
+++ b/components/tvplanit/source/vpcanvasutils.pas
@@ -1615,7 +1615,7 @@ begin
   try
     bmp.SetSize(10, 10);
     bmp.Canvas.Font.Assign(ACanvas.Font);
-    GetTextMetrics(bmp.Canvas.Handle, Metrics) then
+    GetTextMetrics(bmp.Canvas.Handle, Metrics);
     Result := Metrics.tmAveCharWidth;
   finally
     bmp.Free;