DrawGrid und Transparente Bitmaps ?

[turboPASCAL]

Hm, ich denke mal das CopyRect keine Transparentz nit macht.

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Tile  : TImage;
  r: trect;
begin
  Tile := Timage.Create(self);
  Tile := image1;

  Tile.Picture.Bitmap.TransparentColor := Tile.Picture.Bitmap.Canvas.Pixels[1,1];
  Tile.Picture.Bitmap.Transparent := True;

  StringGrid1.Canvas.Draw(
    StringGrid1.CellRect(acol, arow).Left,
    StringGrid1.CellRect(acol, arow).Top,
    Tile.Picture.Bitmap);

  {StringGrid1.Canvas.CopyRect(
    StringGrid1.CellRect(acol, arow),
    Tile.Picture.Bitmap.Canvas,
    image1.ClientRect);}
end;