Fehlerhafte Darstellung bei horizontalen Scrollen in ListBox

[Viktorii]

Hallo zusammen.
Ich habe eine Listbox mit Einträgen welche länger sind als die Listbox breit ist. Nun möchte ich mit einem Scrollbalken scrollen. Wenn ich dies nun mache, werden die Einträge fehlerhaft dargestellt. Siehe Anhang.
Woran liegt das und wie kann ich das beheben?
Vielen Dank.

[Bernhard Geyer]

Farbige Listboxeinträge? Wird wohl über Ownerdraw gehen. Und da wird wohl dein Code (denn du uns nicht zeigst) fehlerhaft sein. :gruebel:

[Viktorii]

Habe da garnicht mehr dran gedacht. Kann gut sein, dass der Code das verursacht. Habe den auch nicht selber geschrieben, sondern hier per SuFu gefunden:

Delphi-Quellcode:

procedure TMainForm.ListBoxKonsoleDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  Farbe:TColor;
begin
  with Control as TListBox do begin
    Canvas.FillRect(Rect);
    Farbe:=TColor(Items.Objects[Index]);
    if Farbe=clBlack then begin  //um einen Kontrast zu erzeugen
      if Selected[Index] then Farbe:=clWhite;
    end
    else if Farbe=clWhite then begin
      if not Selected[Index] then Farbe:=clBlack;
    end;
    Canvas.Font.Color:=Farbe;
    Canvas.TextOut(Rect.Left+2,Rect.Top,Items[Index]);
  end;

end;

Liegt der Fehler hier?