paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:46:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ colors array will be clipped when Clipping=true

Browse Source
This commit is contained in:
luk 2003-09-21 22:04:29 +00:00
parent 5bf7db653e
commit 3553353ae8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/image/fpimgcanv.pp
View File

@ -39,6 +39,8 @@ type
implementation implementation
uses clipping;
constructor TFPImageCanvas.create (AnImage : TFPCustomImage); constructor TFPImageCanvas.create (AnImage : TFPCustomImage);
begin begin
inherited Create; inherited Create;
@ -53,7 +55,8 @@ end;
procedure TFPImageCanvas.SetColor (x,y:integer; AValue:TFPColor); procedure TFPImageCanvas.SetColor (x,y:integer; AValue:TFPColor);
begin begin
if (x >= 0) and (x < width) and (y >= 0) and (y < height) then if (x >= 0) and (x < width) and (y >= 0) and (y < height) then
FImage.Colors[x,y] := AValue; if not clipping or PointInside (x,y, ClipRect) then
FImage.Colors[x,y] := AValue;
end; end;
function TFPImageCanvas.GetColor (x,y:integer) : TFPColor; function TFPImageCanvas.GetColor (x,y:integer) : TFPColor;