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 |
Functions |
Register -
Types |
Constants |
MAX_SCROLL
MIN_RECT
SCROLL_OVERLAPPING
Variables |
Functions |
Types |
params = record
xscale : double;
yscale : double;
xmin : double;
xmax : double;
ymin : double;
ymax : double;
xmid : double;
ymid : double;
end;
Constants |
Variables |