Class TMDIChild (unit Childwin)

Inherits from

TForm

Constructors



Functions

procedure Button1Click(Sender: TObject);


procedure Close1Click(Sender: TObject);

==============================================================================

procedure Exit2Click(Sender: TObject);

==============================================================================

procedure FormActivate(Sender: TObject);

==============================================================================

procedure FormClose(Sender: TObject; var Action: TCloseAction);

==============================================================================

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

==============================================================================

procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);

==============================================================================

procedure FormShow(Sender: TObject);


procedure ImageWindow1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

==============================================================================

Properties

Events

Variables

Button1 : TSpeedButton;


HRuler1 : THRuler;


Image1 : TImage;


Panel1 : TPanel;


Panel2 : TPanel;


VRuler1 : TVRuler;



Constructors


Functions


procedure Button1Click(Sender: TObject);


procedure Close1Click(Sender: TObject);

==============================================================================


procedure Exit2Click(Sender: TObject);

==============================================================================


procedure FormActivate(Sender: TObject);

==============================================================================


procedure FormClose(Sender: TObject; var Action: TCloseAction);

==============================================================================


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

==============================================================================


procedure FormCreate(Sender: TObject);


procedure FormResize(Sender: TObject);

==============================================================================


procedure FormShow(Sender: TObject);


procedure ImageWindow1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

==============================================================================


Properties


Events


Variables


Button1 : TSpeedButton;


HRuler1 : THRuler;


Image1 : TImage;


Panel1 : TPanel;


Panel2 : TPanel;


VRuler1 : TVRuler;