paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Fix possible word overflow in wmfVectorialWriter.PrepareScaling

Browse Source 
git-svn-id: branches/fixes_2_0@64011 -
This commit is contained in:
mattias 2020-10-15 11:20:45 +00:00
parent d6eb3f3a05
commit 886ab5f015
1 changed files with 15 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/fpvectorial/wmfvectorialwriter.pas
View File

@ -337,15 +337,24 @@ begin
end;
procedure TvWMFVectorialWriter.PrepareScaling(APage: TvVectorialPage);
const
MAXINT16 = 32767;
var
maxx, maxy: Double;
begin
FScalingFactor := round(ONE_INCH * 100); // 1 logical unit is 1/100 mm = 10 µm
FLogicalMaxX := trunc(APage.Width * FScalingFactor);
FLogicalMaxY := trunc(APage.Height * FScalingFactor);
maxx := APage.Width * FScalingFactor;
maxy := APage.Height * FScalingFactor;
// wmf is 16 bit only! --> reduce magnification if numbers get too big
if Max(FLogicalMaxX, FLogicalMaxY) > $7FFF then begin
FScalingFactor := trunc($7FFF / Max(APage.Width, APage.Height));
FLogicalMaxX := trunc(APage.Width * FScalingFactor);
FLogicalMaxY := trunc(APage.Height * FScalingFactor);
if Max(maxx, maxy) > MAXINT16 then
begin
FScalingFactor := trunc(MAXINT16 / Max(APage.Width, APage.Height));
FLogicalMaxX := word(trunc(APage.Width * FScalingFactor));
FLogicalMaxY := word(trunc(APage.Height * FScalingFactor));
end else
begin
FLogicalMaxX := trunc(maxx);
FLogicalMaxY := trunc(maxy);
end;
end;