Re: TBitmap - how to copy an "object"

Ekkehard Domning wrote: 
  ReplaceContinousColor(Bitmap,X-1,Y-1,SearchColor, ReplaceColor);
  ReplaceContinousColor(Bitmap,X-1,  Y,SearchColor, ReplaceColor);
  ReplaceContinousColor(Bitmap,X-1,Y+1,SearchColor, ReplaceColor);
  ReplaceContinousColor(Bitmap,X,  Y-1,SearchColor, ReplaceColor);
  ReplaceContinousColor(Bitmap,X,  Y+1,SearchColor, ReplaceColor);
  ReplaceContinousColor(Bitmap,X+1,Y-1,SearchColor, ReplaceColor);
  ReplaceContinousColor(Bitmap,X+1,  Y,SearchColor, ReplaceColor);
  ReplaceContinousColor(Bitmap,X+1,Y+1,SearchColor, ReplaceColor);


I like to optimize these sorts of structures to this:

var x1,y1:integer;

for x1:=-1 to 1 do
 for y1:=-1 to 1 do
 if not ((x1=0) and (y1=0)) then
  ReplaceContinuousColor(bitmap,x+x1,y+y1,searchcolor,replacecolor);

Cheers,
Nicholas Sherlock
.