DrawGrid und Transparente Bitmaps ?

[turboPASCAL]

Meinst Du so etwas ?


Hier wird in Zeile 3 Spalte 3 ein Bitmap gezeichnet.

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  Bitmap: TBitmap;
begin
  Bitmap:=TBitmap.Create;
  Bitmap.LoadFromFile('Test.bmp');

  Bitmap.TransparentColor := clFuchsia;
  // oder die Pixelfarbe oben links des Bitmaps
  // Bitmap.TransparentColor := Bitmap.Canvas.Pixels[1, 1];
  Bitmap.Transparent := True;


  if (aRow = 2) and (aCol = 2) then 
    StringGrid1.Canvas.Draw(Rect.Left,Rect.Top, Bitmap);
  
  Bitmap.Free;
end;