Browse Source

+ colors array will be clipped when Clipping=true

luk 22 years ago
parent
commit
3553353ae8
1 changed files with 4 additions and 1 deletions
  1. 4 1
      fcl/image/fpimgcanv.pp

+ 4 - 1
fcl/image/fpimgcanv.pp

@@ -39,6 +39,8 @@ type
 
 implementation
 
+uses clipping;
+
 constructor TFPImageCanvas.create (AnImage : TFPCustomImage);
 begin
   inherited Create;
@@ -53,7 +55,8 @@ end;
 procedure TFPImageCanvas.SetColor (x,y:integer; AValue:TFPColor);
 begin
   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;
 
 function  TFPImageCanvas.GetColor (x,y:integer) : TFPColor;