* Moved some methods or properties to the public or published area.

* Added a new example project. A fpGUI visual form designer. Still not working 100% but it is getting there.

2 files changed, 3 insertions, 3 deletions

diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index d4fb9ace..4e075068 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -53,10 +53,10 @@ type
     procedure   Close;
     property    Sizeable: boolean read FSizeable write FSizeable;
     property    WindowPosition: TWindowPosition read FWindowPosition write FWindowPosition;
-    property    WindowTitle: string read FWindowTitle write SetWindowTitle;
     property    ModalResult: integer read FModalResult write FModalResult;
   published
     {$Note Refactor this to a TfpgCustomForm and only surface it here }
+    property    WindowTitle: string read FWindowTitle write SetWindowTitle;
     property    OnActivate: TNotifyEvent read FOnActivate write FOnActivate;
     property    OnClose: TNotifyEvent read FOnClose write FOnClose;
     property    OnCreate: TNotifyEvent read FOnCreate write FOnCreate;
diff --git a/src/gui/gui_listbox.pas b/src/gui/gui_listbox.pas
index d565c7c8..799f8aaf 100644
--- a/src/gui/gui_listbox.pas
+++ b/src/gui/gui_listbox.pas
@@ -81,10 +81,10 @@ type
   // component developers.
   TfpgTextListBox = class(TfpgBaseListBox)
   protected
-    FItems: TStrings;
+    FItems: TStringList;
     FInternalItems: TStrings;
     procedure   DrawItem(num: integer; rect: TfpgRect; flags: integer); override;
-    property    Items: TStrings read FItems;
+    property    Items: TStringList read FItems;
   public
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;