home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / ce.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  533 b   |  25 lines
  1. unit CE;
  2.  
  3. interface
  4. uses Def;
  5. procedure CheckEnds(var FirstDisplay, LastDisplay: longint);
  6.  
  7. implementation
  8.  
  9. procedure CheckEnds;
  10. begin
  11. if LastDisplay - FirstDisplay <> DisplayLines then
  12.    LastDisplay := FirstDisplay + DisplayLines;
  13. if FirstDisplay < 1 then
  14.    begin
  15.    FirstDisplay := 1;
  16.    LastDisplay := FirstDisplay + DisplayLines;
  17.    end;
  18. if LastDisplay < 1 then LastDisplay := 1;
  19. if LastDisplay > SortTop then LastDisplay := SortTop;
  20. if FirstDisplay > SortTop then FirstDisplay := SortTop;
  21. end;
  22.  
  23. end.
  24. 
  25.