home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TJTOT10B.ZIP / DEMO.EXE / arc / DEMDR6.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-11  |  734 b   |  31 lines
  1. program DemoDirSix;
  2. {demdr6 - customizing the directory dialog box}
  3.  
  4. Uses DOS, CRT,
  5.      totFAST, totDir, totIO1;
  6.  
  7. Var
  8.    DirWin: DirWinObj;
  9.    Result: tAction;
  10. begin
  11.    Screen.Clear(white,'░'); {paint the screen}
  12.    with DirWin do
  13.    begin
  14.       Init;
  15.       SetFileDetails('','*.EXE *.COM *.BAT',AnyFile);
  16.       SetSortDetails(2,true);
  17.       Win^.SetColors(15,15,15,15);
  18.       IOTOT^.SetColLabel(15,15,15,15);
  19.       IOTOT^.SetColList(7,7,112,112);
  20.       IOTOT^.SetColField(7,112,8,8);
  21.       IOTOT^.SetColButton(112,127,127,127);
  22.       Result := Go;
  23.       if Result = Finished then
  24.          writeln('You chose file: ',GetChosenFile)
  25.       else
  26.          writeln('You escaped!');
  27.       Done;
  28.    end;
  29. end.
  30.  
  31.