Transparenz in TImage mit WinXP SP2 versagt ?

[EWeiss]

Zitat von xZise:

Zitat von vsti:

Tag,

hier auch nochmal meine Lösung, nicht schön, aber funzt

Delphi-Quellcode:

  Bild:=tbitmap.Create;
  Imagelist1.GetBitmap(0,Bild);
  Bild.Transparent := true;
  Bild.TransparentMode :=  tmFixed;
  Bild.TransparentColor := clWhite;
  dbgrid1.Canvas.Draw(rect.left+3,rect.Top+1,Bild);
  Bild.Free;

Hmmm Komisch. Ich habe das gleiche Problem (Mein Thread), aber der Code tut es nicht...

Keine effektive lösung.. aber vielleicht ein.

Die beliebige Farbe welche transparent sein soll über die API GetPixel ermitteln
Dann das Pic durch eine schleife laufen lassen ahängig von weite,höhe
mit SetPixel die Farbe löschen.
Bild darf dann aber nicht die eigenschaft Transparent besitzen.

gruß