Weißer Rahmen um Text bei ListBox mit Bild entfernen...

[GuybrushThreepwood]

Liebe Leute,

ich habe das Problem gelöst indem ich jetzt alles mit Canvas selber zeichne.

Das ganze sieht nun so aus:

Code:

procedure TMain.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  ListBox1.Canvas.Brush.Bitmap := X1BMP;
  ListBox1.Canvas.FillRect(Rect);
  ListBox1.Canvas.Brush.Style := bsClear;
  Listbox1.Canvas.TextOut(Rect.Left, Rect.Top, Listbox1.Items[Index]);
end;

Es klappt auch hervorragend, aber nur bei Bildern die sich Kacheln lassen, also Bilder die meist nur ein Pixel hoch sind, denn sonst entstehen beim runterscrollen Bildfehler.

Ich danke euch für eure Hilfe und werde den Player mal anhängen, in Rar...
MfG

Mr. Threepwood