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

* canvas clipping getters and setters virtual, as per mantis 13607

Browse Source 
git-svn-id: trunk@13057 -
This commit is contained in:
marco 2009-04-29 09:06:29 +00:00
parent 841625e3dd
commit 7945af2f85
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-image/src/fpcanvas.inc
View File

@ -120,6 +120,11 @@ begin
end;
end;
function TFPCustomCanvas.GetClipping: boolean;
begin
Result:=FClipping;
end;
function TFPCustomCanvas.GetClipRect: TRect;
begin
Result:=FClipRect;
@ -243,6 +248,11 @@ begin
result := FDefaultPen;
end;
procedure TFPCustomCanvas.SetClipping(const AValue: boolean);
begin
FClipping:=AValue;
end;
procedure TFPCustomCanvas.SetClipRect(const AValue: TRect);
begin
FClipRect:=AValue;

4
packages/fcl-image/src/fpcanvas.pp
View File

@ -233,6 +233,8 @@ type
function GetWidth : integer; virtual; abstract;
function GetClipRect: TRect; virtual;
procedure SetClipRect(const AValue: TRect); virtual;
function GetClipping: boolean; virtual;
procedure SetClipping(const AValue: boolean); virtual;
procedure SetPenPos(const AValue: TPoint); virtual;
procedure DoLockCanvas; virtual;
procedure DoUnlockCanvas; virtual;
@ -304,7 +306,7 @@ type
property Interpolation : TFPCustomInterpolation read FInterpolation write FInterpolation;
property Colors [x,y:integer] : TFPColor read GetColor write SetColor;
property ClipRect : TRect read GetClipRect write SetClipRect;
property Clipping : boolean read FClipping write FClipping;
property Clipping : boolean read GetClipping write SetClipping;
property PenPos : TPoint read FPenPos write SetPenPos;
property Height : integer read GetHeight write SetHeight;
property Width : integer read GetWidth write SetWidth;