* GUI Designer: Worked around the bug that crashed the Designer

  when you load a form that contains a TfpgPageControl.
* GUI Designer: Added a example project showing how you would design a for that contains a
  Page Control and a few TabSheets. The GUI Designer will be improved later to make it
  more WYSIWYG.

1 files changed, 8 insertions, 4 deletions

diff --git a/examples/apps/uidesigner/tests/frm_menutest.pas b/examples/apps/uidesigner/tests/frm_menutest.pas
index 2f145bd3..4f707e11 100644
--- a/examples/apps/uidesigner/tests/frm_menutest.pas
+++ b/examples/apps/uidesigner/tests/frm_menutest.pas
@@ -40,21 +40,24 @@ end;
 procedure TfrmMain.AfterCreate;
 begin
   {@VFD_BODY_BEGIN: frmMain}
-  SetPosition(278, 186, 591, 274);
+  Name := 'frmMain';
+  SetPosition(278, 186, 399, 142);
   WindowTitle := 'frmMain';
   WindowPosition := wpScreenCenter;
 
   MainMenu := TfpgMenuBar.Create(self);
   with MainMenu do
   begin
-    SetPosition(0, 0, 592, 23);
+    Name := 'MainMenu';
+    SetPosition(0, 0, 400, 23);
     Anchors := [anLeft,anRight,anTop];
   end;
 
   miFile := TfpgPopupMenu.Create(self);
   with miFile do
   begin
-    SetPosition(424, 44, 152, 24);
+    Name := 'miFile';
+    SetPosition(200, 48, 152, 24);
     AddMenuItem('&New...', 'Ctrl-N', nil);
     AddMenuItem('&Open...', 'Ctrl-O', nil);
     AddMenuItem('-', '', nil);
@@ -64,7 +67,8 @@ begin
   btnName1 := TfpgButton.Create(self);
   with btnName1 do
   begin
-    SetPosition(76, 156, 75, 24);
+    Name := 'btnName1';
+    SetPosition(8, 112, 75, 24);
     Text := 'Button';
     FontDesc := '#Label1';
     ImageName := 'stdimg.quit';