home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / tvision / list1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-01-06  |  941 b   |  27 lines
  1. (* ------------------------------------------------------ *)
  2. (*                   Listing 1                            *)
  3. (* ------------------------------------------------------ *)
  4.   tHexViewer = OBJECT (tScroller)
  5.     FirstPos,
  6.     LastPos,
  7.     BufFirst,
  8.     BufLast,
  9.     MaxLength : LongInt;
  10.     Scroll    : BYTE;
  11.     Range     : INTEGER;
  12.     BufSize   : WORD;
  13.     Buffer    : ^tViewBuffer;
  14.     CONSTRUCTOR Init
  15.       (VAR Bounds: tRect;
  16.        ahScrollBar, avScrollBar: pScrollBar);
  17.     PROCEDURE InitBuffer;                         VIRTUAL;
  18.     PROCEDURE ScrollDraw;                         VIRTUAL;
  19.     PROCEDURE Draw;                               VIRTUAL;
  20.     PROCEDURE ScrollCalc (dy : LongInt);          VIRTUAL;
  21.     PROCEDURE ReadBuffer (rPos : LongInt);        VIRTUAL;
  22.   END;
  23.  
  24. (* ------------------------------------------------------ *)
  25. (*                 Ende von Listing 1                     *)
  26.  
  27.