* Fixed a bug in TfpgListView where it didn't paint the last column's content.

* Applied formating to tiListMediators
* Removed the ListBox implementation in tiListMediators. It was totally wrong.

2 files changed, 6 insertions, 9 deletions

diff --git a/examples/gui/listviewtest/listviewtest.lpi b/examples/gui/listviewtest/listviewtest.lpi
index c1facb3c..7c3cb7ce 100644
--- a/examples/gui/listviewtest/listviewtest.lpi
+++ b/examples/gui/listviewtest/listviewtest.lpi
@@ -40,10 +40,7 @@
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="5"/>
-    <CodeGeneration>
-      <Generate Value="Faster"/>
-    </CodeGeneration>
+    <Version Value="8"/>
     <Other>
       <CompilerPath Value="$(CompPath)"/>
     </Other>
diff --git a/examples/gui/listviewtest/listviewtest.lpr b/examples/gui/listviewtest/listviewtest.lpr
index 8e15a631..b328aa2b 100644
--- a/examples/gui/listviewtest/listviewtest.lpr
+++ b/examples/gui/listviewtest/listviewtest.lpr
@@ -47,11 +47,11 @@ begin
   //for I := 0 to 1999999 do begin
     Item := FListView.ItemAdd;
     Item.Caption := FEdit.Text + IntToStr(FListView.Items.Count);
-    Item.SubItems.Add('0');
-    Item.SubItems.Add('1');
-    Item.SubItems.Add('2');
-    Item.SubItems.Add('3');
-    Item.SubItems.Add('4');
+    Item.SubItems.Add('c0');
+    Item.SubItems.Add('c1');
+    Item.SubItems.Add('c2');
+    Item.SubItems.Add('c3');
+    Item.SubItems.Add('c4');
   //end;
   FListView.EndUpdate;
   FTmpListView.EndUpdate;