home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOTDEMO.ZIP / DEMDR7.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  799 b   |  43 lines
  1. program DemoDirSeven;
  2. {demdr7 - customizing directory help}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totDir, totIO1, totMSG;
  6.  
  7. Var
  8.    DirWin: DirWinObj;
  9.    Result: tAction;
  10.  
  11. {$F+}
  12. procedure NewHelp(ID:word);
  13. {}
  14. var  HelpWin: MessageOBJ;
  15. begin
  16.    with HelpWin do
  17.    begin
  18.       Init(1,' Not Much Help ');
  19.       AddLine('');
  20.       Addline(' Honey, if you need help here, we got big problems! ');
  21.       AddLine('');
  22.       Show;
  23.       Done;
  24.    end;
  25. end; {NewHelp}
  26. {$F-}
  27.  
  28. begin
  29.    Screen.Clear(white,'░'); {paint the screen}
  30.    with DirWin do
  31.    begin
  32.       Init;
  33.       Action^.SetHelpHook(NewHelp);
  34.       Result := Go;
  35.       if Result = Finished then
  36.          writeln('You chose file: ',GetChosenFile)
  37.       else
  38.          writeln('You escaped!');
  39.       Done;
  40.    end;
  41. end.
  42.  
  43.