paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 18:53:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, PostScriptCanvas, added dummy RealizeAntialising which causes crash on carbon, from Patrick Chevalley, issue #23751

Browse Source 
git-svn-id: trunk@39975 -
This commit is contained in:
jesus 2013-01-27 09:15:25 +00:00
parent 97f3b5ba82
commit 9ae6ac7874
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/postscriptcanvas.pas
View File

@ -131,6 +131,7 @@ Type
procedure RegionChanging(APen: TObject); override;
procedure RequiredState(ReqState: TCanvasState); override;
procedure DoEllipseAndFill(const Bounds: TRect); override;
procedure RealizeAntialiasing; override;
function GetClipRect: TRect; override;
procedure SetClipRect(const ARect: TRect); override;
@ -1162,6 +1163,11 @@ begin
SetHandle(1); // set dummy handle
end;
procedure TPostScriptPrinterCanvas.RealizeAntialiasing;
begin
// handle is dummy, so do nothing here
end;
procedure TPostScriptPrinterCanvas.CreateBrush;
begin
// handle is dummy, so do nothing here