home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Pascal / Snippets / ZoomRecter 1.0 / README next >
Encoding:
Text File  |  1992-07-15  |  601 b   |  17 lines  |  [TEXT/ttxt]
  1. Zoom-Rect-er
  2. DTS Code Snippet
  3.  
  4. 1/6/92    Steve Falkenburg
  5.  
  6. This snippet shows how to do "Finder" style zooming between two rectangles.
  7. The boolean flag "kZoomLarger" controls the proportional direction of the zooming.
  8.  
  9. To get the two rectangles, you drag them out rubberbanded, and the zoom occurs between
  10. them.  To quit, click the close box.
  11.  
  12. If you want to do zooms between windows, open up a port with the dimensions of the desktop
  13. (from GetGrayRgn()).
  14.  
  15. DON'T use this as a sample of how to do rubberband drawing!!!  It's sort of hacked
  16. together bypassing the event mechanism and just using Button().
  17.