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

CairoCanvas: don't call TCanvas.DoMoveTo which calls interface MoveToEx, fix crash on cairo LazReport exporting reports with lines or objects with incomplete frames

Browse Source 
git-svn-id: trunk@46247 -
This commit is contained in:
jesus 2014-09-18 17:35:59 +00:00
parent 97c1246eea
commit b42d8559bf
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/cairocanvas/cairocanvas.pas
View File

@ -64,6 +64,8 @@ type
ScaleX, ScaleY, FontScale: Double;
procedure SetLazClipRect(r: TRect);
procedure DoLineTo(X1,Y1: Integer); override;
procedure DoMoveTo(x, y: integer); override;
function CreateCairoHandle: HDC; virtual; abstract;
procedure DestroyCairoHandle; virtual;
procedure SetHandle(NewHandle: HDC); override;
@ -320,6 +322,12 @@ begin
Changed;
end;
procedure TCairoPrinterCanvas.DoMoveTo(x, y: integer);
begin
// should not call inherited DoMoveTo which would end calling
// interface MoveToEx which breaks things for Qt
end;
procedure TCairoPrinterCanvas.DestroyCairoHandle;
begin
end;