* listbox: implemented a Strings ListBox.

* listbox: improved the listbox protected and published properties, but more work is required to clean up the design.

1 files changed, 8 insertions, 2 deletions

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;