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

1 files changed, 7 insertions, 1 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;