Class TZoomWindow (unit RWZoomer)

Inherits from

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;

Public declarations

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;