* 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, 30 insertions, 0 deletions

diff --git a/examples/apps/uidesigner/tests/tabsheet_design.lpr b/examples/apps/uidesigner/tests/tabsheet_design.lpr
new file mode 100644
index 00000000..7acb50aa
--- /dev/null
+++ b/examples/apps/uidesigner/tests/tabsheet_design.lpr
@@ -0,0 +1,30 @@
+program tabsheet_design;
+
+{$mode objfpc}{$H+}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Classes, fpgfx, tabtest;
+
+
+procedure MainProc;
+var
+  frm: TfrmTabTest;
+begin
+  fpgApplication.Initialize;
+  frm := TfrmTabTest.Create(nil);
+  try
+    frm.Show;
+    fpgApplication.Run;
+  finally
+    frm.Free;
+  end;
+end;
+
+begin
+  MainProc;
+end.
+
+