Unit Zoomler

=========================================================================== ZOOMLER v 1.1 Zoomer & Scroller -- two in one. Mouse interface only. This control is handy to use with any zoomable objects -- plots, bitmaps etc. Freeware. In the case of any changes of the source code please send me the copy. "As is". No responsibility in any case. (c) 1997 Alexander Rublinetsky (rublin@iname.com) Dec 22, 1997 ============================================================================

Classes

TZoomler -

Functions

DMax -
DMin -
DownRect -
Register -
UpRect -

Types

TOrientation

Constants

sc_LEFTMOVE
sc_LEFTPAGE
sc_LEFTSIZE
sc_MOVE
sc_NONE
sc_RIGHTMOVE
sc_RIGHTPAGE
sc_RIGHTSIZE
TimerDelay
TimerRate

Variables


Functions


function DMax(a,b:double):double;


function DMin(a,b:double):double;


procedure DownRect(C:TCanvas; x1,y1,x2,y2:integer);


procedure Register;


procedure UpRect(C:TCanvas; x1,y1,x2,y2:integer);


Types


TOrientation = (Horizontal, Vertical);

Constants

sc_LEFTMOVE = 5

sc_LEFTPAGE = 0

sc_LEFTSIZE = 2

sc_MOVE = 4

sc_NONE = 7

sc_RIGHTMOVE = 6

sc_RIGHTPAGE = 1

sc_RIGHTSIZE = 3

TimerDelay = 500

TimerRate = 50


Variables