home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / SELFILE.ZIP / TEST.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1993-01-04  |  2.4 KB  |  113 lines
  1. {$V-}
  2. {$T+}
  3. {$D+}
  4. Uses  Selfile,Dos,Crt;
  5.  
  6. Const
  7.  
  8.    Title = 'Test Selfile';
  9. Var
  10.  
  11.    filname  : string[12];
  12.    Path     : String[3];
  13.    Attr     : Integer;
  14.    IRetVal  : integer;
  15.    RowB,
  16.    ColB,
  17.    RowQ,
  18.    ColQ,
  19.    Active,
  20.    Inactive,
  21.    Boarder  :  Integer;
  22.    ch       :  Char;
  23.  
  24. Begin
  25.  
  26.    Path := '*.*';  { look at all files current directory }
  27.    Attr := 0;
  28.  
  29.    { First call selfile using default window size...}
  30.  
  31.    IRetVal := sel_file(filname,Title,Path,Attr);
  32.    clrscr;
  33.    writeln('IRetVal = ',iretval);
  34.    writeln('filname = ',filname);
  35.    Write('Hit a key to continue...');
  36.    ch := readkey;
  37.  
  38.    { now a single colum in upper left corner of screen...}
  39.  
  40.    RowB := 1;
  41.    ColB := 1;
  42.    RowQ := 10;
  43.    ColQ := 1;
  44.    Active := 112;
  45.    Inactive := 31;
  46.    Boarder := 1;
  47.    SetLim(rowb,colb,rowq,colq,active,inactive,boarder);
  48.  
  49.    IRetVal := Sel_File(Filname, Title, Path, Attr);
  50.    clrscr;
  51.    writeln('IRetVal = ',iretval);
  52.    writeln('filname = ',filname);
  53.    Write('Hit a key to continue...');
  54.    ch := readkey;
  55.  
  56.    { now a double colum in upper left corner of screen...}
  57.  
  58.    RowB := 1;
  59.    ColB := 1;
  60.    RowQ := 10;
  61.    ColQ := 2;
  62.    Active := 112;
  63.    Inactive := 31;
  64.    Boarder := 1;
  65.    SetLim(rowb,colb,rowq,colq,active,inactive,boarder);
  66.  
  67.    IRetVal := Sel_File(Filname, Title, Path, Attr);
  68.    clrscr;
  69.    writeln('IRetVal = ',iretval);
  70.    writeln('filname = ',filname);
  71.    Write('Hit a key to continue...');
  72.    ch := readkey;
  73.  
  74.    { now a triple colum in upper middle of screen...}
  75.  
  76.    RowB := 5;
  77.    ColB := 15;
  78.    RowQ := 10;
  79.    ColQ := 3;
  80.    Active := 112;
  81.    Inactive := 31;
  82.    Boarder := 1;
  83.    SetLim(rowb,colb,rowq,colq,active,inactive,boarder);
  84.  
  85.    IRetVal := Sel_File(Filname, Title, Path, Attr);
  86.    clrscr;
  87.    writeln('IRetVal = ',iretval);
  88.    writeln('filname = ',filname);
  89.    Write('Hit a key to continue...');
  90.    ch := readkey;
  91.  
  92.    { now a triple colum in upper middle of screen, but lets reverse attrs...}
  93.  
  94.    RowB := 5;
  95.    ColB := 15;
  96.    RowQ := 10;
  97.    ColQ := 3;
  98.    Active := 31;
  99.    Inactive := 112;
  100.    Boarder := 1;
  101.    SetLim(rowb,colb,rowq,colq,active,inactive,boarder);
  102.  
  103.    IRetVal := Sel_File(Filname, Title, Path, Attr);
  104.    clrscr;
  105.    writeln('IRetVal = ',iretval);
  106.    writeln('filname = ',filname);
  107.    Write('Hit a key to continue...');
  108.    ch := readkey;
  109.  
  110.    
  111.    
  112. end.
  113.