| Class TZoomWindow (unit RWZoomer) |
TForm
Renamed from Zoomer.pas 6/11/1998 Paul Rice to avoid conflist with others' work.
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure ShowImage(Bitmap: TBitmap; X,Y: Integer);| Properties |
| Events |
| Variables |
Image1 : TImage;
Panel1 : TPanel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
FBitmap : TBitmap;
FZoom : Byte;
ZoomX : Integer;
ZoomY : Integer;| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure ShowImage(Bitmap: TBitmap; X,Y: Integer);| Properties |
| Events |
| Variables |
Image1 : TImage;
Panel1 : TPanel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
FBitmap : TBitmap;
FZoom : Byte;Public declarations
ZoomX : Integer;
ZoomY : Integer;