Kriegt man diesen Effekt bei ListBox irgendwie abgeschaltet?

[Popov]

Hier ein kleines Beispiel. Dazu einfach nur eine ListBox auf dem Formular platzieren:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
   ListBox1.Align := alClient;

  //ListBox1 mit irgendwelchen Beispielwerten füllen
  for i := 1 to 200 do
    ListBox1.Items.Add(IntToStr(Random(MaxInt)));

  ListBox1.ItemIndex := 15;

  ListBox1.Style := lbOwnerDrawVariable;

  //und nun starten und am Scrollrad der Maus drehen
end;

Wenn man nun an dem Scrollrad der Mausdreht bewegt sich der Inhalt rauf und runter. Aber, und das passiert nur bei lbOwnerDrawVariable, für mich sehr nervig. Denn, obwohl sich nur paar Items rauf oder runter bewegen, wird immer zuerst die ganze Seite mehrmals durchscrollt. Es sieht so aus als ob der Inhalt paar Seiten weiter verschoben wird.

Es sieht aber nur optisch so aus, in Wirklichkeit sind es nur paar Items rauf und runter. Es ist nichts schlimmes, es nervt nur etwas.

[mkinzler]

Wie sieht dein OwnerDraw aus?

[Furtbichler]

Vermutlich tritt das nicht mehr auf, wenn Du as OnDrawItem-Event mit Leben füllst.

[Popov]

OnDrawItem-Event enthält in meinem Programm Code. Es spielt aber keine Rolle, denn der Effekt ist in beiden fällen gleich.

Der Code in OnDrawItem selbst ist nichts besonderes, es werden nur bestimmte Items farbig markiert, später will ich noch Icons platzieren.

[jaenicke]

Da fehlt BeginUpdate...EndUpdate, denn so aktualisiert die ListBox bei jedem Hinzufügen...

[Popov]

Das hört sich durchaus logisch an, aber ich weiß jetzt nicht so recht wo ich es anbringen sollte.

In OnListBoxDrawItem nicht, da gibt es Probleme. Die Listbox kann man aktualisieren, aber das ist nicht das Problem.

Das Problem taucht nur beim Scrollrad auf. Cursor und PgDown oder PgUp machen dagegen keine Probleme.

Der Inhalt wird wohl aktualisiert, nur wo soll man ansetzen wenn das Scrollrad gedreht wird? Ein BeginWheel und EndWheel gibt es ja nicht.

[RWarnecke]

Ich habe das ganze eben mal ausprobiert mit Delphi 2010. Bei mir sieht es optisch immer gleich aus, egal ob ich die Zeile ListBox1.Style := lbOwnerDrawVariable; drinstehe habe oder nicht.

Beispielprogramm im Anhang. Welche Delphi-Version nutzt Du denn ?