Unit Zoomer

///////////////////////////////////////////////////////////////////////////// // CAD window Zoombox VCL Object // ©John Biddiscombe, ©Dani Andres Izquierdo // // ©John Biddiscombe // Rutherford Appleton Laboratory, UK // j.biddiscombe@rl.ac.uk // DXF code release 3.0 - July 1997 // // Dani Andres Izquierdo // email : grandres@ctv.es // Improvements + drag rectangle + Better Scroll bar Control // // ///////////////////////////////////////////////////////////////////////////// // Usage : // Drag rectangle to zoom in on area // Double click to recentre on spot // Scroll bars to pan around // Buttons to zoom in/out // Suggestion : Add Pop up menu with Zoom_Prev call to return to last view // // /////////////////////////////////////////////////////////////////////////////

Classes

Zoom_panel -

Functions

Register -

Types

params

Constants

MAX_SCROLL
MIN_RECT
SCROLL_OVERLAPPING

Variables


Functions


procedure Register;


Types


params = record
xscale : double;
yscale : double;
xmin : double;
xmax : double;
ymin : double;
ymax : double;
xmid : double;
ymid : double;
end;

Constants

MAX_SCROLL = 1000

MIN_RECT = 2

SCROLL_OVERLAPPING = 12


Variables