home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp 2.0.1 (Many Libraries) / Examples / Calc / UGrabberTracker.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  1.1 KB  |  44 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n-]}
  2. { UGrabberTracker.p }
  3. { Copyright © 1988-1990 by Apple Computer, Inc. All rights reserved.}
  4.  
  5. { This unit tracks a scrolling view with a MacPaint™-like Grabber Hand }
  6.  
  7. UNIT UGrabberTracker;
  8.  
  9.     INTERFACE
  10.  
  11.         USES
  12.             { • MacApp }
  13.             UMacApp;
  14.  
  15.             { • Building Blocks }
  16.  
  17.             { • Required for this unit's interface }
  18.  
  19.             { • Implementation Use }
  20.  
  21.         CONST
  22.             kGrabberHand        = 9;                    { ID of the grabberhand cursor }
  23.  
  24.         TYPE
  25.             TGrabberTracker     = OBJECT (TCommand)
  26.                 PROCEDURE TGrabberTracker.IGrabberTracker(itsCmdNumber: CmdNumber;
  27.                                                           itsDocument: TDocument;
  28.                                                           itsView: TView;
  29.                                                           itsScroller: TScroller);
  30.                 FUNCTION TGrabberTracker.TrackMouse(aTrackPhase: TrackPhase;
  31.                                                     VAR anchorPoint, previousPoint,
  32.                                                     nextPoint: VPoint;
  33.                                                     mouseDidMove: Boolean): TCommand; OVERRIDE;
  34.                 PROCEDURE TGrabberTracker.TrackFeedback(anchorPoint, nextPoint: VPoint;
  35.                                                         turnItOn, mouseDidMove: Boolean); OVERRIDE;
  36.                 PROCEDURE TGrabberTracker.AutoScroll(deltaH, deltaV: VCoordinate); OVERRIDE;
  37.                 END;
  38.  
  39.     IMPLEMENTATION
  40.  
  41.         {$I UGrabberTracker.inc1.p}
  42.  
  43. END.
  44.