Transparenz bei einem Bitmap in Canvas

[Lestat]

Hey Leute,

ich habe hier ein kleines Problem, meines Wissen nach sollte es funzen, tut es aber nicht

Also ich lade ein Bitmap und möchtes es danach in ein Canvas malen, wobei die Farbe "clRed" nicht mitgemalt, also transparent sein soll.

So sieht es bei mir aus:

Delphi-Quellcode:

procedure Tfrm_Editor.DrawGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
Var
  temp : TBitmap;
begin
  Temp := TBitmap.Create;
  ImageList1.GetBitmap(ARow,temp);
  temp.TransparentColor := clRed;
  temp.Transparent := true;
  BitBlt(DrawGrid1.Canvas.Handle,Rect.Left,Rect.Top,70,70,temp.Canvas.Handle,0,0,SRCCOPY);
  Temp.Free;
end;

Aber wie gesagt es funktioniert nicht.

Also wer kann mir helfen

[3_of_8]

Probiers mal mit TCanvas.CopyRect.

[Hawkeye219]

Hallo Lestat,

Willkommen in der DP!

Der Befehl BitBlit beachtet die von dir gesetzte Transparenzfarbe nicht.
Versuche es einmal so:

DrawGrid1.Canvas.Draw (Rect.Left, Rect.Top, temp); Gruß Hawkeye

[Lestat]

Danke Hawkeye, das hat geholfen, wie sollte ich denn auch drauf kommen, das BitBlt das Transparent nicht beachtet

Dir auch Danke 3_of_8 für die schnelle antwort, habe mich aber für Alternative 2 entschieden...