paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 06:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

carbon: set antialiasing on DCSetAntialiasing

Browse Source 
git-svn-id: trunk@17394 -
This commit is contained in:
paul 2008-11-14 17:54:25 +00:00
parent 32454b8ceb
commit cd22fbf5f5
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/interfaces/carbon/carbonint.pas
View File

@ -106,6 +106,7 @@ type
function DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor; override;
procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); override;
procedure DCRedraw(CanvasHandle: HDC); override;
procedure DCSetAntialiasing(CanvasHandle: HDC; AEnabled: Boolean); override;
procedure SetDesigning(AComponent: TComponent); override;

10
lcl/interfaces/carbon/carbonobject.inc
View File

@ -1151,10 +1151,18 @@ begin
{$ENDIF}
if not CheckDC(CanvasHandle, 'DCRedraw') then Exit;
CGContextFlush(TCarbonContext(CanvasHandle).CGContext);
end;
procedure TCarbonWidgetSet.DCSetAntialiasing(CanvasHandle: HDC;
AEnabled: Boolean);
begin
if not CheckDC(CanvasHandle, 'DCSetAntialiasing') then Exit;
TCarbonDeviceContext(CanvasHandle).SetAntialiasing(AEnabled);
end;
{------------------------------------------------------------------------------
Method: TCarbonWidgetSet.SetDesigning
Params: AComponent - Component to set designing