* 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.

3 files changed, 10 insertions, 4 deletions

diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas
index 644362f8..39a155c3 100644
--- a/src/corelib/gfx_widget.pas
+++ b/src/corelib/gfx_widget.pas
@@ -77,7 +77,6 @@ type
     procedure   HandleShow; virtual;
     procedure   HandleHide; virtual;
     procedure   MoveAndResize(aleft, atop, awidth, aheight: TfpgCoord);
-    procedure   MoveAndResizeBy(dx, dy, dw, dh: TfpgCoord);
     procedure   RePaint;
     { property events }
     property    OnPaint: TPaintEvent read FOnPaint write FOnPaint;
@@ -93,7 +92,9 @@ type
     destructor  Destroy; override;
     procedure   SetFocus;
     procedure   KillFocus;
+    procedure   MoveAndResizeBy(dx, dy, dw, dh: TfpgCoord);
     procedure   SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
+    procedure   Invalidate; // double check this works as developers expect????
     property    Parent: TfpgWidget read GetParent write SetParent;
     property    ActiveWidget: TfpgWidget read FActiveWidget write SetActiveWidget;
     property    Visible: boolean read FVisible write SetVisible;
@@ -887,6 +888,11 @@ begin
   MoveAndResize(aleft, atop, awidth, aheight);
 end;
 
+procedure TfpgWidget.Invalidate;
+begin
+  RePaint;
+end;
+
 
 initialization
   FocusRootWidget := nil;
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;