paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 04:40:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Fix wmf drawer ignoring size of destination rectangle (see http://forum.lazarus.freepascal.org/index.php/topic,25972.msg158712.html).

Browse Source 
git-svn-id: trunk@46346 -
This commit is contained in:
wp 2014-09-29 15:47:26 +00:00
parent 38a1473ed5
commit afebfc0820
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/tachart/tadrawerwmf.pas
View File

@ -119,6 +119,9 @@ end;
procedure TWindowsMetafileDrawer.DrawingBegin(const ABoundingBox: TRect);
begin
inherited DrawingBegin(ABoundingBox);
FreeAndNil(FCanvas);
FMetafile.Width := ABoundingBox.Right - ABoundingBox.Left;
FMetafile.Height := ABoundingBox.Bottom - ABoundingBox.Top;
if FCanvas = nil then
FCanvas := TMetafileCanvas.Create(FMetafile, 0);
end;