paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 21:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

aggpas: Fix clipping on AggLCLCanvas, issue #40210

Browse Source
This commit is contained in:
wp_xyz 2023-04-15 22:37:55 +02:00
parent 2ae1edf24e
commit d2eae5b3d0
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/aggpas/src/agg_fpimage.pas
View File

@ -542,6 +542,8 @@ type
procedure SetHeight(AValue: integer); override; procedure SetHeight(AValue: integer); override;
procedure SetWidth(AValue: integer); override; procedure SetWidth(AValue: integer); override;
procedure OnImageOperation(Img: TAggFPImage; Operation: TAggFPImgOperation); virtual; procedure OnImageOperation(Img: TAggFPImage; Operation: TAggFPImgOperation); virtual;
procedure SetClipping(const AValue: Boolean); override;
procedure SetClipRect(const AValue: TRect); override;
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
@ -3322,6 +3324,19 @@ begin
end; end;
procedure TAggFPCanvas.SetClipping(const AValue: Boolean);
begin
inherited;
m_rasterizer.m_clipping := AValue;
end;
procedure TAggFPCanvas.SetClipRect(const AValue: TRect);
begin
m_rasterizer.clip_box(AValue.Left, AValue.Top, AValue.Right, AValue.Bottom);
m_rasterizer.m_clipping := Clipping;
end;
{ TAggFPPen } { TAggFPPen }
procedure TAggFPPen.SetFPColor(const AValue: TFPColor); procedure TAggFPPen.SetFPColor(const AValue: TFPColor);