From 450741d7ec0c09bf1863dde73b0069ce5d3975cc Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Mon, 16 Jul 2007 08:00:20 +0000
Subject: * listbox: implemented a Strings ListBox. * listbox: improved the
 listbox protected and published properties, but more work is required to
 clean up the design.

---
 prototypes/fpgui2/tests/edittest.dpr | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'prototypes/fpgui2/tests')

diff --git a/prototypes/fpgui2/tests/edittest.dpr b/prototypes/fpgui2/tests/edittest.dpr
index 1dcd1e2c..cb328eec 100644
--- a/prototypes/fpgui2/tests/edittest.dpr
+++ b/prototypes/fpgui2/tests/edittest.dpr
@@ -37,7 +37,7 @@ type
     btn2: TfpgButton;
     btn3: TfpgButton;
     memo: TfpgMemo;
-    listbox: TfpgBaseListBox;
+    listbox: TfpgListBox;
     combo1: TfpgComboBox;
     sbar: TfpgScrollBar;
     procedure AfterCreate; override;
@@ -89,6 +89,8 @@ type
 
 
   procedure TMainForm.AfterCreate;
+  var
+    i: integer;
   begin
     SetPosition(200, 200, 500, 350);
     WindowTitle := 'fpGUI Widget Test';
@@ -123,11 +125,15 @@ type
     memo.Width  := 200;
     memo.Height := 80;
     
-    listbox         := TfpgBaseListBox.Create(self);
+    listbox         := TfpgListBox.Create(self);
     listbox.Top     := 100;
     listbox.Left    := 250;
     listbox.Width   := 200;
     listbox.Height  := 80;
+    for i := 1 to 20 do
+      listbox.Items.Add(Format('Items %.2d', [i]));
+    listbox.FocusItem := 3;
+
 
     sbar        := TfpgScrollBar.Create(self);
     sbar.Top    := 160;
-- 
cgit v1.2.3-70-g09d2