| 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 |