Class TForm1 (unit Zoom1)

Inherits from

TForm

Constructors



Functions

procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);


procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


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


procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


Properties

Events

Variables

BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


Image1 : TImage;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Zoomer1 : TZoomer;


Down : Boolean;

Private declarations


Constructors


Functions


procedure BitBtn1Click(Sender: TObject);


procedure BitBtn2Click(Sender: TObject);


procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


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


procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


Properties


Events


Variables


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


Image1 : TImage;


OpenDialog1 : TOpenDialog;


Panel1 : TPanel;


Zoomer1 : TZoomer;


Down : Boolean;

Private declarations