Class TForm1 (unit demofrm)

Inherits from

TForm

Constructors



Functions

procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure OpenFileClick(Sender: TObject);

bug in previous version: set OldXY to CurrentXY too soon.

procedure PaintBox1Paint(Sender: TObject);

What you really want is Right:= Ceil((x + w) / Stretch), if you have a Ceil function available; similarly for Bottom

procedure SetZoomClick(Sender: TObject);

bug fix - without preceding went funny if you opened a second image with scrollbars not set to 0.

Properties

Events

Variables

Edit1 : TEdit;


OpenDialog1 : TOpenDialog;


OpenFile : TButton;


PaintBox1 : TPaintBox;


ScrollBox1 : TScrollBox;


SetZoom : TButton;


b : tnewbitmap;

Public declarations

OldX : integer;


OldY : integer;


Zoom : integer;



Constructors


Functions


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure OpenFileClick(Sender: TObject);

bug in previous version: set OldXY to CurrentXY too soon.


procedure PaintBox1Paint(Sender: TObject);

What you really want is Right:= Ceil((x + w) / Stretch), if you have a Ceil function available; similarly for Bottom


procedure SetZoomClick(Sender: TObject);

bug fix - without preceding went funny if you opened a second image with scrollbars not set to 0.


Properties


Events


Variables


Edit1 : TEdit;


OpenDialog1 : TOpenDialog;


OpenFile : TButton;


PaintBox1 : TPaintBox;


ScrollBox1 : TScrollBox;


SetZoom : TButton;


b : tnewbitmap;

Public declarations


OldX : integer;


OldY : integer;


Zoom : integer;