OwnerData ListView - Invalidate,Update,Repaint

[hansmaad]

Hi,
ich fang grad an mich etwas mit Delphi zu beschäftigen (hab ihr ein uralt Delphi 5).
Folgendes Problem zu dem ich keine Lösung finde.

Ich habe ein OwnerData Report Listview und möchte sortieren:

Delphi-Quellcode:

procedure MyForm.ListViewColumnClick(
  Sender: TObject; Column: TListColumn);
begin
  if ascending Then
    data.CustomSort(AscendingOrder)
  else
    data.CustomSort(DescendingOrder);

  ascending := Not ascending;
  List.Invalidate;
end;

Leider ist die neue Sortierung erst sichtbar, wenn ich das Fenster einmal "manuell"
neuzeichnen lasse, zB. mit einem anderen Fenster drübergehe oder minimiere/maximiere.
Ich habe auch repaint, refresh, update ausprobiert... geht alles nicht.
Wie bring ich ein Fenster dazu sich neuzuzeiochnen?

[DeddyH]

Hallo und Willkommen in der DP :dp:,

versuch einmal

Delphi-Quellcode:

procedure MyForm.ListViewColumnClick(
  Sender: TObject; Column: TListColumn);
begin
  ListView.Items.BeginUpdate;
  try
    if ascending Then
      data.CustomSort(AscendingOrder)
    else
      data.CustomSort(DescendingOrder);

    ascending := Not ascending;
  finally
    ListView.Items.EndUpdate;
  end;
end;

Wobei ich natürlich nicht weiß, was "data" in Deinem Fall ist.

[hansmaad]

Hi DeddyH,

Begin-, EndUpate hatte ich auch schon ausprobiert.

Komischerweise funktioniert es jetzt nach der Mittagspause mit allen Methoden.
Keine Ahnung was ich da vorhin fürn Blödsinn eingebaut habe.
Man sollte einfach nicht mit leerem Magen programmieren...
Trotzdem Danke für Deine Hilfe;)