The following will restrict cursor movement to be within the
ImageArea TImage.  Typically, RestrictCursorToDrawingArea is
called during ImageAreaMouseDown:

  RestrictCursorToDrawingArea(IageArea)

RemoveCursorRestrictions is called during ImageAreaMouseUp.


Adapted from the LineStretch progam in the Graphics section
of efg's Computer Lab, www.infomaster.net/external/efg.


// Discovered I was using a "dumb" way to do this.  Corrected 8/13/98
PROCEDURE RestrictCursorToDrawingArea (CONST Image:  TImage);
  VAR
    CursorClipArea:  TRect;
BEGIN
  CursorClipArea := Bounds(Image.ClientOrigin.X,
                           Image.ClientOrigin.Y,
                           Image.Width, Image.Height);

  Windows.ClipCursor(@CursorClipArea)
END {RestrictCursorToDrawingArea};


PROCEDURE RemoveCursorRestrictions;
BEGIN
  Windows.ClipCursor(NIL)
END {RemoveCursorRestrictions};