ListView Sortierung: Markierung auf ausgewähltem Icon beibeh

[marabu]

Hallo ihr beiden,

hier noch was zum Kennenlernen:

Delphi-Quellcode:

procedure TDemoForm.lvTermineColumnClick(Sender: TObject;
  Column: TListColumn);
var
  sCaption: string;
  index: integer;
begin
  index := lvTermine.ItemIndex;
  if index > -1 then
    sCaption := lvTermine.ItemFocused.Caption;
  lvTermine.CustomSort(nil, Column.Index);
  if index > -1 then
    with lvTermine do
      ItemFocused := FindCaption(0, sCaption, false, true, false);
end;

Die Sortierung geschieht hier im Ereignis OnCompare() der nicht virtuellen ListView.

Weihnachtsgrüße vom marabu