Listbox Ownerdraw und Größenänderung

[Uwe Raabe]

Zitat:

Zitat von ConstantGardener (Beitrag 1527972)

@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.

Anhang 56322

[Uwe Raabe]

Ich glaube ich habe die Ursache gefunden. In TCustomListBox.CreateParams wird das CS_HREDRAW nur bei Rechts-nach-Links Schreibweise gesetzt. Damit erfolgt bei einer Breitenänderung kein Neuzeichnen des gesamten Fensters, sondern nur des neu hinzugekommenen Bereichs. Zeichenbefehle außerhalb werden von Windows dann einfach ausgeblendet.

Abhilfe schafft eine Interposer-Klasse, deren Deklaration im Scope zwischen Vcl.StdCtrls und der TListBox im Form liegen muss:

Delphi-Quellcode:

type
  TListBox = class(Vcl.StdCtrls.TListBox)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;
...
procedure TListBox.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.WindowClass.style := Params.WindowClass.style or CS_HREDRAW;
end;

Übrigens konnte ich dieses Verhalten mindestens ab Delphi 5 finden (darunter kann ich hier nicht prüfen). Es handelt sich also wahrlich nicht um irgendeine neue Optimierung.

[himitsu]

Zitat:

Zitat von Uwe Raabe (Beitrag 1528008)

sondern nur des neu hinzugekommenen Bereichs. Zeichenbefehle außerhalb werden von Windows dann einfach ausgeblendet.

Zitat: Region

[ConstantGardener]

Zitat:

Zitat von jaenicke (Beitrag 1527992)

@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.

Anhang 56322

:cheers: