ScrollBox mit dynamisch erzeugten Labeln statt ListView, oder doch was anderes?

[DieDolly]

Ich habe eine ListView-Komponente mit ungefähr 30 Einträgen in jeweils zwei Spalten.
Es gibt eine Animation die dieses ListView am Rand des Programmfensters ein- und ausblendet.
Aber blöderweise sieht man bei der Animation ein Flackern in der Komponente selber. Die wird dann ständig weiß, obwohl das Programm-Theme ein dunkles ist.
Das Problem lässt sich auch nicht beheben und kommt von der Komponente selber.

Ich habe mir jetzt überlegt, eine ScrollBox stattdessen zu nehmen und die Label die ich brauche dynamisch zu erzeugen aber das dauert relativ lange wie ich finde.
Begin- und EndUpdate hat eine ScrollBox nicht. Gibt es eine bessere Lösung? Die Infos sollen nur in zwei Spalten angezeigt werden. Es muss keine spezielle Komponente sein und auch nicht editierbar.

Mein erster Versuch

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
var
 i, LastLabelTop: Integer;

 procedure AddItemToScrollBox(const Caption, SubItem: string);
 var
  LabelTitle, LabelSubTitle: TLabel;
 begin
  LabelTitle := TLabel.Create(ScrollBox1);
  LabelTitle.Parent := ScrollBox1;
  LabelTitle.Visible := True;
  LabelTitle.Caption := Caption;
  LabelTitle.Top := LastLabelTop;
  LabelTitle.Left := 5;

  LabelSubTitle := TLabel.Create(ScrollBox1);
  LabelSubTitle.Parent := ScrollBox1;
  LabelSubTitle.Visible := True;
  LabelSubTitle.Caption := SubItem;
  LabelSubTitle.Top := LabelTitle.Top;
  LabelSubTitle.Left := ScrollBox1.Width div 2; // Label 2 wird bei 50% der ScrollBox-Weite gezeichnet

  LastLabelTop := LabelSubTitle.Top + LabelSubTitle.Height + 3;
 end;

begin
 LastLabelTop := 5;

 for i := 0 to 35 do
  AddItemToScrollBox('Test 1111 2222 4444', 'Subtest 1111 2222 4444 5555 6666 7777 8888 9999 0000');
end;

[himitsu]

DoubleBuffered bei dieser Komponente aktivieren?


TCategoryPanelGroup

TGridPanel
TFlowPanel
TStackPanel
...

[DieDolly]

Es ist alles bei "Standard". Die ListView muss unbedingt weg.

[Klaus01]

.. dauert bei mir ca. 100ms (80 - 125)

Grüße
Klaus

[DieDolly]

Zitat:

.. dauert bei mir ca. 100ms (80 - 125)

Kann ich nicht nachvollziehen. Mach das mal mit Debugger dann sieht das anders aus.

Zitat:

TCategoryPanelGroup

TGridPanel
TFlowPanel
TStackPanel

Ohne Beispiele kann ich damit leider nix anfangen.

[himitsu]

Zeiten im Debugger sind irrelevant ... für den Kunden / Benutzer des Programms.
Und natürlich ist dort alles "etwas" langsamer.

Zitat von DieDolly:

Ohne Beispiele kann ich damit leider nix anfangen.

F1?

Oder siehe eine der Werbungen des Herstellers. https://edn.embarcadero.com/article/33421
Und Google findet sogar Videos und Bildergalerien.

[DieDolly]

Die installiere ich nicht mit. StackPanel sieht vernünftig aus, aber nur eine Spalte und hat keinen Scrollbalken.

Bei mir dauert das mit der ScollBox auch ohne Debugger 600ms.

[himitsu]

Suche einfach im Forum
https://www.delphipraxis.net/dp_reference.php
Dort ist ein Index einer OnlineVersion der Hilfe drin.

Oder direkt beim Hersteller.
http://docwiki.embarcadero.com/RADSt...Hilfe:_DocWiki

Oder ganz einfach Google oder Dergleichen. (notfalls "docwiki" mit die Suchbegriffe, oder "embarcadero" oder "delphi" oder ...)
Und z.B. bei Klassennamen ein Anführungszeichen um den "Begriff" drumrum. (damit die Suche nicht den Begriff zerlegt)

[Renate Schaaf]

Zitat:

Begin- und EndUpdate hat eine ScrollBox nicht.

Versuch mal DisableAlign und EnableAlign, wirkt bei mir Wunder.

[DieDolly]

Ein VirtualTreeView hat das Problem erledigt. Das hat den Vorteil, dass ich eine vorhandene Datenstruktur weiter verwenden kann.