| Class TForm1 (unit Zoom1) |
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;| 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