home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9202 / tvision / list2.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1992-01-06  |  543 b   |  18 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     Listing 2                          *)
  3. (* ------------------------------------------------------ *)
  4.  
  5. PROCEDURE tHexViewerDemo.FileViewer;
  6. VAR
  7.   View : pView;
  8. BEGIN
  9.   Inc (wnNumber);
  10.   View := ValidView (HexViewDialog (wnNumber));
  11.   IF View <> NIL THEN Desktop^.Insert (View)
  12.                  ELSE Dec (wnNumber);
  13. END;
  14.  
  15. (* ------------------------------------------------------ *)
  16. (*              Ende von Listing 2                        *)
  17.  
  18.