Listview selection now uses an avl tree which is much faster than TList with a large amount of items

Commented a stray WriteLn

2 files changed, 5 insertions, 1 deletions

diff --git a/examples/gui/listviewtest/listviewtest.lpi b/examples/gui/listviewtest/listviewtest.lpi
index 0230c25e..e8537f5b 100644
--- a/examples/gui/listviewtest/listviewtest.lpi
+++ b/examples/gui/listviewtest/listviewtest.lpi
@@ -48,6 +48,9 @@
       </SyntaxOptions>
     </Parsing>
     <Other>
+      <CompilerMessages>
+        <UseMsgFile Value="True"/>
+      </CompilerMessages>
       <CompilerPath Value="$(CompPath)"/>
     </Other>
   </CompilerOptions>
diff --git a/examples/gui/listviewtest/listviewtest.lpr b/examples/gui/listviewtest/listviewtest.lpr
index ab25e946..afb1fbdf 100644
--- a/examples/gui/listviewtest/listviewtest.lpr
+++ b/examples/gui/listviewtest/listviewtest.lpr
@@ -38,6 +38,7 @@ end;
 procedure TMainForm.AddBttn(Sender: TObject);
 var
   Item: TfpgLVItem;
+  I: Integer;
 begin
   FListView.BeginUpdate;
   FTmpListView.BeginUpdate;
@@ -72,7 +73,7 @@ end;
 procedure TMainForm.ItemSelectionChanged(ListView: TfpgListView;
   Item: TfpgLVItem; ItemIndex: Integer; Selected: Boolean);
 begin
-  WriteLn('Item changed: ', ItemIndex, ' ', Item.Caption, ' ',Selected);
+  //WriteLn('Item changed: ', ItemIndex, ' ', Item.Caption, ' ',Selected);
 end;
 
 constructor TMainForm.Create(AOwner: TComponent);