paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-03 19:20:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

TAChart: Implement clipping in BGRA drawing back-end

Browse Source 
git-svn-id: trunk@30392 -
This commit is contained in:
ask 2011-04-20 03:40:36 +00:00
parent 7c478b02f8
commit bdbc5868d3
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/tachart/tadrawerbgra.pas
View File

@ -30,6 +30,7 @@ type
FBrushColor: TBGRAPixel;
FBrushStyle: TFPBrushStyle;
FCanvas: TBGRABitmap;
FClipRect: TRect;
FFontColor: TBGRAPixel;
FFontOrientation: Integer;
FPenColor: TBGRAPixel;
@ -98,17 +99,18 @@ end;
procedure TBGRABitmapDrawer.ClippingStart(const AClipRect: TRect);
begin
Unused(AClipRect);
FClipRect := AClipRect;
ClippingStart;
end;
procedure TBGRABitmapDrawer.ClippingStart;
begin
// NA
FCanvas.ClipRect := FClipRect;
end;
procedure TBGRABitmapDrawer.ClippingStop;
begin
// NA
FCanvas.NoClip;
end;
constructor TBGRABitmapDrawer.Create(ACanvas: TBGRABitmap);