Listbox Ownerdraw und Größenänderung

[Amateurprofi]

Nach dem Ändern der Größe: ListBox1.Repaint;

[ConstantGardener]

Danke Amateurprofi für die Antwort, aber das sollte ja automatisch gehen. Klar kann ich im onResize des Forms ne'n Timer neu starten und dann im onTimer ein Repaint machen.
Fühlt sich aber frickelig an! Ist wohl eher ein Bug, wundert mich nur, dass sich bisher keiner dran gestört hat.

[himitsu]

Oder .Invalidate anstatt .Repaint bzw. .Refresh.

Repaint malt "eventuell" sofort (kommt bissl auf die Komponenten drauf an)
Invalidate sagt die Anzeige ist "ungültig" ... sie wird dann bei nächster Gelegenheit aktualisiert (Paint)

Delphi-Quellcode:

ListBox1.Repaint;
ListBox1.Repaint;
ListBox1.Repaint;
ListBox1.Repaint;
ListBox1.Repaint;
// malt 1 oder 5 Mal

ListBox1.Invalidate;
ListBox1.Invalidate;
ListBox1.Invalidate;
ListBox1.Invalidate;
ListBox1.Invalidate;
// malt anschließend nur 1 Mal

PS:
Invalidate macht ein InvalidateRect auf das ganze Control.
Beim Resize oder Scroll wird nur ein InvalidateRect auf den "neuen" Bereich ausgelöst und dann auch nur dieser Teil neu gezeichnet.

[ConstantGardener]

Ja ist schon alles klar mit dem Repaint usw. Aber es kann doch nicht sein, dass ich das selbst anstoßen muss!?

Wenn sich die Größe der Komponente ändert muss die doch von selbst neu gezeichnet werden und zwar alle sichtbaren Einträge!?
Macht sie mit Standardeinstellungen ja auch. Nur bei OwnerdrawFixed und OwnerdrawVariable tut sie das offenbar nicht.

[Uwe Raabe]

Vielleicht würde es helfen ein Beispielprojekt hier bereit zu stellen.

[ConstantGardener]

@uwe: OK, ist ja eigentlich nur die Listbox im Form. Aber vielleicht hilft es...Projekt anbei

[himitsu]

DFM vergessen

Es ist halt ein Standardverhalten, dass nur der neue Bereich und die aktuelle Selektion neu gezeichnet werden, bei Resize/Scroll,
und dass standardmäßig alles links ausgerichtet ist.

Du willst was Anderes machen, also mußt du auch das Standardverhalten ändern.
z.B. indem man den BiDiMode der Listbox auf bdRightToLeft stellt. (PS, die Hebräer schreiben von rechts nach links)
Als Bonus ist dabei die Scrollbar dann links.



Ach ja, beim Paint, durch das Resize, liegt eine Region auf dem Canvas, wodurch nur der neue Bereich gezeichnet wird.
Du kannst natürlich versuchen, vor jedem Zeichnen, diese Region zu löschen.
https://docwiki.embarcadero.com/Code...pRect_(Delphi)


Oder

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  ListBox1.Invalidate;
end;

[ConstantGardener]

Danke Himitsu, das funktioniert! Hätte aber trotzdem geschworen, dass das früher automatisch ging.

[Uwe Raabe]

Zitat von ConstantGardener:

@uwe: OK, ist ja eigentlich nur die Listbox im Form. Aber vielleicht hilft es...Projekt anbei

Mal prinzipiell: Dieses eigentlich nur kann man ja nicht wissen. Oft sind es auch ganz andere Besonderheiten, die in der Beschreibung gar nicht vorkommen, die man aber in einem Minimalprojekt leicht prüfen kann ohne alles nachzufragen. Ich kann schon nicht mehr zählen, wie oft ich schon ein Verhalten nicht nachstellen konnte, weil die Beschreibung nicht vollständig war. Ich verlinke dann gerne auf die Exact Instructions Challenge.

[jaenicke]

@Uwe:
Das ist wie beschrieben sofort reproduzierbar. Auf den ersten Blick sehe ich auch nicht woran das liegt. Die Zeichen-Ereignisse kommen an, das Rechteck stimmt, wird mit FillRect gefüllt...
Ich habe mal einfach bei jedem Zeichenbefehl eine zufällige Farbe für das FillRect verwendet. Das Ergebnis überrascht... Beispielprojekt im Anhang.

2023-10-11 (1).png