//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "ArrangeIcons.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
// BeginExample: ArrangeIcons
// Method: Forms.TForm.ArrangeIcons
// Event: Menus.TMenuItem.OnClick
// Property: Forms.TCustomForm.FormStyle

// BeginCode
/*
This example uses several forms. The first form has its
FormStyle property set to MDIForm. The others have their
FormStyle properties set to MDIChild and their Visible
properties set to true. Add a main menu component and name
one of the menu items MyArrangeIcons. This is code for the
MyArrangeIconsClick handler.  When the user chooses the
ArrangeIcons command, minimized child forms are arranged
so that they are evenly spaced and don't overlap.  DO NOT
name the menu items "ArrangeIcons" as that will override
the TForm method.
*/
void __fastcall TForm1::MyArrangeIconsClick(TObject *Sender)
{
  Form1->ArrangeIcons();
}
// EndCode
// EndExample: ArrangeIcons
//---------------------------------------------------------------------------
// BeginExample: Cascade
// Method: Forms.TForm.Cascade

// BeginCode
/*
This example uses several forms. The first form has its
FormStyle property set to fsMDIForm. The others have their
FormStyle properties set to fsMDIChild and their Visible
properties set to true. Add a main menu component and name
one of the menu items MyCascade. This is code for the
MyCascadeClick handler.  When the user chooses the
Cascade command, restored forms are arranged
so that they overlap.  DO NOT name the menu items "Cascade"
as that will override the TForm method.
*/
void __fastcall TForm1::MyCascadeClick(TObject *Sender)
{
  Form1->Cascade();
}
// EndCode
// EndExample: Cascade
//---------------------------------------------------------------------------
