Class TMainForm (unit Main) |
Inherits from
TForm
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 : *} {
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;
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 : *} {
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;