From 30cb1d0f87d79a11169ec741a993b4d69213cdcb Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Tue, 9 Sep 2008 15:31:23 +0000
Subject: * 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.

---
 examples/gui/listviewtest/listviewtest.lpi |  5 +----
 examples/gui/listviewtest/listviewtest.lpr | 10 +++++-----
 2 files changed, 6 insertions(+), 9 deletions(-)

(limited to 'examples/gui')

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;
-- 
cgit v1.2.3-70-g09d2