1 files changed, 67 insertions, 58 deletions

diff --git a/prototypes/mdi/project1.lpr b/prototypes/mdi/project1.lpr
index fdde8f0d..63c0882c 100644
--- a/prototypes/mdi/project1.lpr
+++ b/prototypes/mdi/project1.lpr
@@ -12,19 +12,20 @@ uses
 
 type
 
-	TMainForm = class(TfpgForm)
-	private
-		{@VFD_HEAD_BEGIN: MainForm}
-		MainBar: TfpgMenuBar;
-		MDIWorkArea: TfpgMDIWorkArea;
-		Bevel1: TfpgBevel;
-		pmChildren: TfpgPopupMenu;
-		{@VFD_HEAD_END: MainForm}
-		procedure NewFormClicked(Sender: TObject);
-		procedure miQuitClicked(Sender: TObject);
-	public
-		procedure AfterCreate; override;
-	end;
+  TMainForm = class(TfpgForm)
+  private
+    {@VFD_HEAD_BEGIN: MainForm}
+    MainBar: TfpgMenuBar;
+    MDIWorkArea: TfpgMDIWorkArea;
+    Bevel1: TfpgBevel;
+    pmChildren: TfpgPopupMenu;
+    {@VFD_HEAD_END: MainForm}
+    procedure NewFormClicked(Sender: TObject);
+    procedure miQuitClicked(Sender: TObject);
+    procedure miCascadeChildWindows(Sender: TObject);
+  public
+    procedure AfterCreate; override;
+  end;
 
 {@VFD_NEWFORM_DECL}
 
@@ -34,61 +35,69 @@ type
 
 procedure TMainForm.NewFormClicked(Sender: TObject);
 begin
-	ChildForm := MDIWorkArea.AddWindow(TChildForm) as TChildForm;
-	ChildForm.WindowTitle := Format('Child %d', [MDIWorkArea.ChildWindowCount]);
+  ChildForm := MDIWorkArea.AddWindow(TChildForm) as TChildForm;
+  ChildForm.WindowTitle := Format('Child %d', [MDIWorkArea.ChildWindowCount]);
 end;
 
 procedure TMainForm.miQuitClicked(Sender: TObject);
 begin
-	Close;
+  Close;
+end;
+
+procedure TMainForm.miCascadeChildWindows(Sender: TObject);
+begin
+  MDIWorkArea.CascadeWindows;
 end;
 
 procedure TMainForm.AfterCreate;
 begin
   {%region 'Auto-generated GUI code' -fold}
   {@VFD_BODY_BEGIN: MainForm}
-	Name := 'MainForm';
-	SetPosition(351, 159, 555, 321);
-	WindowTitle := 'fpGUI''s MDI Demo';
-	Hint := '';
-
-	MainBar := TfpgMenuBar.Create(self);
-	with MainBar do
-	begin
-		Name := 'MainBar';
-		SetPosition(0, 0, 555, 24);
-		Anchors := [anLeft,anRight,anTop];
-	end;
-
-	MDIWorkArea := TfpgMDIWorkArea.Create(self);
-	with MDIWorkArea do
-	begin
-		Name := 'MDIWorkArea';
-		SetPosition(3, 32, 548, 264);
-		Anchors := [anLeft,anRight,anTop,anBottom];
-	end;
-
-	Bevel1 := TfpgBevel.Create(self);
-	with Bevel1 do
-	begin
-		Name := 'Bevel1';
-		SetPosition(0, 300, 555, 20);
-		Anchors := [anLeft,anRight,anBottom];
-		Hint := '';
-		Style := bsLowered;
-	end;
-
-	pmChildren := TfpgPopupMenu.Create(self);
-	with pmChildren do
-	begin
-		Name := 'pmChildren';
-		SetPosition(336, 88, 120, 20);
-		AddMenuItem('Add child', '', @NewFormClicked);
-		AddMenuItem('-', '', nil);
-		AddMenuItem('Quit', '', @miQuitClicked);
-	end;
-
-	{@VFD_BODY_END: MainForm}
+  Name := 'MainForm';
+  SetPosition(351, 159, 555, 360);
+  WindowTitle := 'fpGUI''s MDI Demo';
+  Hint := '';
+
+  MainBar := TfpgMenuBar.Create(self);
+  with MainBar do
+  begin
+    Name := 'MainBar';
+    SetPosition(0, 0, 555, 24);
+    Anchors := [anLeft,anRight,anTop];
+  end;
+
+  MDIWorkArea := TfpgMDIWorkArea.Create(self);
+  with MDIWorkArea do
+  begin
+    Name := 'MDIWorkArea';
+    SetPosition(3, 32, 548, 303);
+    Anchors := [anLeft,anRight,anTop,anBottom];
+  end;
+
+  Bevel1 := TfpgBevel.Create(self);
+  with Bevel1 do
+  begin
+    Name := 'Bevel1';
+    SetPosition(0, 339, 555, 20);
+    Anchors := [anLeft,anRight,anBottom];
+    Hint := '';
+    Style := bsLowered;
+  end;
+
+  pmChildren := TfpgPopupMenu.Create(self);
+  with pmChildren do
+  begin
+    Name := 'pmChildren';
+    SetPosition(336, 88, 120, 20);
+    AddMenuItem('Add child', '', @NewFormClicked);
+    AddSeparator;
+    AddMenuItem('Cascade', '', @miCascadeChildWindows);
+    AddMenuItem('Tile', '', nil).Enabled := False;
+    AddSeparator;
+    AddMenuItem('Quit', '', @miQuitClicked);
+  end;
+
+  {@VFD_BODY_END: MainForm}
   {%endregion}
   MainBar.AddMenuItem('Children', nil).SubMenu := pmChildren;
 end;