From 84c249dabfd4f54be7a3404a4e82a810da0d2db3 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Wed, 18 Jan 2012 17:02:07 +0200
Subject: Embedded Form demo now uses TfpgFrame, instead of TfpgBevel.

---
 examples/gui/embedded_form/fra_test.pas | 13 ++-----------
 examples/gui/embedded_form/frm_main.pas |  2 --
 2 files changed, 2 insertions(+), 13 deletions(-)

diff --git a/examples/gui/embedded_form/fra_test.pas b/examples/gui/embedded_form/fra_test.pas
index 184ee2da..f88c08e5 100644
--- a/examples/gui/embedded_form/fra_test.pas
+++ b/examples/gui/embedded_form/fra_test.pas
@@ -12,7 +12,7 @@ type
 
   { Note the tags for the UI Designer. This allows use to visually design
     our frame. }
-  TMyFrame = class(TfpgBevel)
+  TMyFrame = class(TfpgFrame)
   private
     {@VFD_HEAD_BEGIN: MyFrame}
     fraCheckBox1: TfpgCheckBox;
@@ -22,12 +22,10 @@ type
     {@VFD_HEAD_END: MyFrame}
     framnuFile: TfpgPopupMenu;
     framnuHelp: TfpgPopupMenu;
-    WindowTitle: TfpgString;
     procedure miHelpAboutClicked(Sender: TObject);
   public
-    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-    procedure AfterCreate;
+    procedure AfterCreate; override;
   end;
 
 {@VFD_NEWFORM_DECL}
@@ -44,13 +42,6 @@ begin
   TfpgMessageDialog.AboutFPGui('');
 end;
 
-constructor TMyFrame.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  Shape := bsSpacer;
-  AfterCreate;
-end;
-
 destructor TMyFrame.Destroy;
 begin
   framnuFile.Free;
diff --git a/examples/gui/embedded_form/frm_main.pas b/examples/gui/embedded_form/frm_main.pas
index 831385cc..785247c9 100644
--- a/examples/gui/embedded_form/frm_main.pas
+++ b/examples/gui/embedded_form/frm_main.pas
@@ -130,7 +130,6 @@ begin
   begin
     Name := 'frame';
     SetPosition(0, 0, 280, 196);
-    Shape := bsSpacer;
     Align := alClient;
   end;
   PrintVisibleState(self);
@@ -150,7 +149,6 @@ begin
   begin
     Name := 'frame';
     SetPosition(0, 0, 280, 196);
-    Shape := bsSpacer;
     Align := alClient;
     Visible := False;
   end;
-- 
cgit v1.2.3-70-g09d2