summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2012-01-18 17:02:07 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2012-01-18 17:02:07 +0200
commit84c249dabfd4f54be7a3404a4e82a810da0d2db3 (patch)
treeb8173885eaf9adaadcb4dacf6f576d9dc72bc6b5
parent4a2746140f9accb271640f56f90a9c2e712bc9cf (diff)
downloadfpGUI-84c249dabfd4f54be7a3404a4e82a810da0d2db3.tar.xz
Embedded Form demo now uses TfpgFrame, instead of TfpgBevel.
-rw-r--r--examples/gui/embedded_form/fra_test.pas13
-rw-r--r--examples/gui/embedded_form/frm_main.pas2
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;