| Class TForm1 (unit demofrm) |
TForm
| Constructors |
| Functions |
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure OpenFileClick(Sender: TObject);
procedure PaintBox1Paint(Sender: TObject);
procedure SetZoomClick(Sender: TObject);| Properties |
| Events |
| Variables |
Edit1 : TEdit;
OpenDialog1 : TOpenDialog;
OpenFile : TButton;
PaintBox1 : TPaintBox;
ScrollBox1 : TScrollBox;
SetZoom : TButton;
b : tnewbitmap;
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;