пирчем если сделать
Image.Properties.GraphicTransparency := gtTransparent;
Image.Picture.Bitmap.Transparent:=false;
for k:=1 to Image.Picture.Width do
for i:=1 to Image.Picture.height do
Image.Picture.Bitmap.Canvas.Pixels[k,i]:=clWhite;
то клеть остается цвета clGray
|