Class TForm1 (unit demofrm) |
Inherits from
TForm
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.
Edit1 : TEdit;
OpenDialog1 : TOpenDialog;
OpenFile : TButton;
PaintBox1 : TPaintBox;
ScrollBox1 : TScrollBox;
SetZoom : TButton;
b : tnewbitmap;
Public declarations
OldX : integer;
OldY : integer;
Zoom : integer;
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.
Edit1 : TEdit;
OpenDialog1 : TOpenDialog;
OpenFile : TButton;
PaintBox1 : TPaintBox;
ScrollBox1 : TScrollBox;
SetZoom : TButton;
b : tnewbitmap;
Public declarations
OldX : integer;
OldY : integer;
Zoom : integer;