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 ++-----------
 1 file changed, 2 insertions(+), 11 deletions(-)

(limited to 'examples/gui/embedded_form/fra_test.pas')

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;
-- 
cgit v1.2.3-70-g09d2