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 :P

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 :coder2:

[3_of_8]

Probiers mal mit TCanvas.CopyRect.

[Hawkeye219]

Hallo Lestat,

Willkommen in der DP! :hi:

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

Delphi-Quellcode:

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... :)