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

jvcllaz: Fix overflow error in JvJCLUtils (issue #33589).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6320 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-04-18 23:26:48 +00:00
parent ad369ea4cc
commit 6845c9f3bb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/jvcllaz/run/JvCore/JvJCLUtils.pas
View File

@ -8201,7 +8201,7 @@ end;
function MinimizeFileName(const FileName: string; Canvas: TCanvas; MaxLen: Integer): string; function MinimizeFileName(const FileName: string; Canvas: TCanvas; MaxLen: Integer): string;
var var
R: TRect; R: TRect;
flags: Word; flags: Cardinal;
begin begin
Result := FileName; Result := FileName;
R := Rect(0, 0, MaxLen, Canvas.TextHeight('Wq')); R := Rect(0, 0, MaxLen, Canvas.TextHeight('Wq'));