...make deleting items in a TListView faster?
Author: Mark Lubkowitz
procedure AddNewListViewItems;
var
  oldViewStyle: TViewStyle;
begin
  odlViewStyle := ListView1.ViewStyle;
  ListView1.ViewStyle := vsList;
  ListView1.Items.Clear;
  { Add new Listitems here }
  { An dieser werden die neuen ListItems eingefügt }
  ListView1.ViewStyle := oldViewStyle;
end;
printed from
  www.swissdelphicenter.ch
  developers knowledge base