Class TMainForm (unit Main)

Inherits from

TForm

Constructors



Functions

procedure FileCloseItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure FileExitItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure FileNewItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure FormCreate(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure FormDestroy(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure IndentButtonClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure MarginComboChange(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure TabComboChange(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure UpdateMenuItems(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure WindowArrangeItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure WindowCascadeItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure WindowMinimizeItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure WindowTileItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

procedure CreateMDIChild(const Name: string);

Private declarations

********************************************************} {* Name : *} {* Description : *} {


procedure ShowHint(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {

Properties

Events

Variables

ExitBtn : TSpeedButton;


File1 : TMenuItem;


FileCloseItem : TMenuItem;


FileExitItem : TMenuItem;


FileNewItem : TMenuItem;


IndentButton : TButton;


IndentPanel : TPanel;


Label1 : TLabel;


Label2 : TLabel;


MainMenu1 : TMainMenu;


MarginCombo : TComboBox;


ModePanel : TPanel;


N1 : TMenuItem;


NewBtn : TSpeedButton;


Panel1 : TPanel;


PosPanel : TPanel;


SpeedPanel : TPanel;


StatusLine : TPanel;


TabCombo : TComboBox;


Window1 : TMenuItem;


WindowArrangeItem : TMenuItem;


WindowCascadeItem : TMenuItem;


WindowMinimizeItem : TMenuItem;


WindowTileItem : TMenuItem;



Constructors


Functions


procedure FileCloseItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure FileExitItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure FileNewItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure FormCreate(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure FormDestroy(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure IndentButtonClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure MarginComboChange(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure TabComboChange(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure UpdateMenuItems(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure WindowArrangeItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure WindowCascadeItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure WindowMinimizeItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure WindowTileItemClick(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


procedure CreateMDIChild(const Name: string);

Private declarations

********************************************************} {* Name : *} {* Description : *} {


procedure ShowHint(Sender: TObject);

********************************************************} {* Name : *} {* Description : *} {


Properties


Events


Variables


ExitBtn : TSpeedButton;


File1 : TMenuItem;


FileCloseItem : TMenuItem;


FileExitItem : TMenuItem;


FileNewItem : TMenuItem;


IndentButton : TButton;


IndentPanel : TPanel;


Label1 : TLabel;


Label2 : TLabel;


MainMenu1 : TMainMenu;


MarginCombo : TComboBox;


ModePanel : TPanel;


N1 : TMenuItem;


NewBtn : TSpeedButton;


Panel1 : TPanel;


PosPanel : TPanel;


SpeedPanel : TPanel;


StatusLine : TPanel;


TabCombo : TComboBox;


Window1 : TMenuItem;


WindowArrangeItem : TMenuItem;


WindowCascadeItem : TMenuItem;


WindowMinimizeItem : TMenuItem;


WindowTileItem : TMenuItem;