home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPPAN.ZIP / PANSCROL.DEM < prev    next >
Encoding:
Text File  |  1990-05-10  |  2.4 KB  |  56 lines
  1. program PanScrollerDemo;
  2. uses crt, pickf;
  3. var dir : PickFile;
  4. begin
  5.      TextBackground(BLUE);
  6.      clrscr;
  7.      writeln('The following is a demonstration of the PanScroller object which provides');
  8.      writeln('reusable cursor movement control with window scrolling.  Now you can write');
  9.      writeln('text editors, data browsers, spreadsheet grids, game maps, scrolling pick');
  10.      writeln('lists, etc., without having to code cursor dragging the window routines.');
  11.      writeln('See panscrol.int for details and the interface section of panscrol.pas.');
  12.  
  13.      writeln;
  14.      writeln('A generic PickList object is derived from FlexList in pick.pas, which uses');
  15.      writeln('the PanScroller object to control cursor movement and window scrolling.');
  16.      writeln('The popup windows, keyboard processing, etc, are provided by CrtPlus.');
  17.      writeln('Then a PickFile object is derived from PickList for directory listings.');
  18.      writeln;
  19.      writeln('The PickFile window responds to the following key strokes:');
  20.      writeln;
  21.      writeln('    PgUp, PgDn, and cursor arrows work as expected.');
  22.      writeln('    Press "Enter" on a subdirectory to view that directory.');
  23.      writeln('    Press "Enter" on ".." to return to parent directory.');
  24.      writeln('    Press "Esc" to exit.');
  25.      writeln;
  26.      writeln('Press ''Enter'' to view the current directory.');
  27.      readln;
  28.      dir.init('*.*');
  29.      dir.query;
  30.      dir.done;
  31.      writeln;
  32.      writeln('Press ''Enter'' to continue...');
  33.      readln;
  34.      clrscr;
  35.      writeln('FlexList is a hybrid stack-queue-list-array generic object.  That');
  36.      writeln('means you can initialize an instance of a FlexList to hold any');
  37.      writeln('type of data.  A FlexList can be accessed as a stack, queue, list,');
  38.      writeln('or array interchangeably!');
  39.      writeln;
  40.      writeln('CrtPlus provides keyboard, screen, cursor, and window enhancements');
  41.      writeln('to Turbo''s crt unit.');
  42.      writeln;
  43.      writeln('Both FlexList and CrtPlus are available as shareware on BBS''s.');
  44.      writeln('Registered versions are $20 each and include manual and source code.');
  45.      writeln;
  46.      writeln('Register PanScroller for $7 and you will receive its source code');
  47.      writeln('on a 5 1/4" diskette.');
  48.      writeln;
  49.      writeln('PSW / Power SoftWare');
  50.      writeln('P.O. Box 10072');
  51.      writeln('McLean, VA 22102 8072');
  52.      writeln('(703) 759-3838');
  53.      writeln;
  54.      writeln('Press ''Enter'' to quit.');
  55.      readln;
  56. end.