Hallo,
vielen Dank für Eure Ratschläge.
Alphablending hatte ich auch mal ausprobiert. Sieht hübsch aus, hat aber den Nachteil, dass es auch den Text langsam "ausblendet" (abhängig von der Intensität).
Ich habe das jetzt auf eine ganz einfache Weise gelöst, musste dazu aber doch eine Bitmap zu Hilfe nehmen:
Delphi-Quellcode:
bmp:=Tbitmap.Create;
try
bmp.Height:=itemrect.Bottom-itemrect.Top;
bmp.Width:=itemrect.Right-itemrect.Left;
bmp.Canvas.CopyRect(rect(0,0,bmp.width,bmp.Height),targetcanvas,itemrect);
bmp.Transparent:=true;
bmp.TransparentColor:=clWhite;
targetcanvas.Brush.Color:=clGradientActiveCaption;
targetcanvas.fillrect(itemrect); //falls Rahmen gewünscht: Rectangle(itemrect);
targetcanvas.Draw(itemrect.Left,itemrect.Top,bmp);
finally
bmp.Free
end;
Kurzbeschreibung: gewünschtes Rechteck des Canvas auf eine Bitmap kopieren.
Canvas färben.
Bitmap transparent zurück auf den Canvas schreiben.
Geht gut und schnell.
Gruß
Mattze