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