From 6845c9f3bb781203c5e0f1716699a6374e90a9dc Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 18 Apr 2018 23:26:48 +0000
Subject: [PATCH] jvcllaz: Fix overflow error in JvJCLUtils (issue #33589).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6320 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/jvcllaz/run/JvCore/JvJCLUtils.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/jvcllaz/run/JvCore/JvJCLUtils.pas b/components/jvcllaz/run/JvCore/JvJCLUtils.pas
index 39f87c04c..d3d4a1f5e 100644
--- a/components/jvcllaz/run/JvCore/JvJCLUtils.pas
+++ b/components/jvcllaz/run/JvCore/JvJCLUtils.pas
@@ -8201,7 +8201,7 @@ end;
 function MinimizeFileName(const FileName: string; Canvas: TCanvas; MaxLen: Integer): string;
 var
   R: TRect;
-  flags: Word;
+  flags: Cardinal;
 begin
   Result := FileName;
   R := Rect(0, 0, MaxLen, Canvas.TextHeight('Wq'));