home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l040 / 1.ddi / GREPDLG.PAS next >
Encoding:
Pascal/Delphi Source File  |  1992-10-27  |  2.9 KB  |  130 lines
  1. {************************************************}
  2. {                                                }
  3. {   Turbo Vision Grep Dialog Unit                }
  4. {   Copyright (c) 1992 by Borland International  }
  5. {                                                }
  6. {************************************************}
  7.  
  8. unit GrepDlg;
  9.  
  10. interface
  11.  
  12. uses Objects, Drivers, Views, Dialogs, Regexp;
  13.  
  14. const
  15.   roCase   = $01;
  16.   roSubDir = $02;
  17.  
  18. type
  19.   TRequest = record
  20.     Expression: String[80];
  21.     FileMask: String[12];
  22.     StartDir: String[79];
  23.     Options: Word;
  24.   end;
  25.  
  26. type
  27.   PGrepDialog = ^TGrepDialog;
  28.   TGrepDialog = object(TDialog)
  29.     constructor Init;
  30.   end;
  31.  
  32. implementation
  33.  
  34. uses Strings, MsgBox;
  35.  
  36. type
  37.   PRegexInput = ^TRegexInput;
  38.   TRegexInput = object(TInputLine)
  39.     function Valid(Command: Word): Boolean; virtual;
  40.   end;
  41.  
  42. function TRegexInput.Valid(Command: Word): Boolean;
  43. var
  44.   Exp: array[0..255] of Char;
  45.   Regex: HRegexp;
  46.   Error: Integer;
  47. begin
  48.   if (Command <> cmCancel) and (Command <> cmValid) then
  49.   begin
  50.     Valid := False;
  51.     Regex := 0;
  52.     Error := 0;
  53.     if Data^ <> '' then
  54.     begin
  55.       Regex := RegComp(StrPCopy(Exp, Data^), Error);
  56.       if Regex = 0 then
  57.       begin
  58.         RegError(Regex, Error, Exp);
  59.         MessageBox('Invalid regular expression: ' +
  60.           StrPas(Exp), nil, mfError + mfOkButton);
  61.         Select;
  62.       end
  63.       else
  64.         Valid := True;
  65.       RegFree(Regex);
  66.     end
  67.     else
  68.     begin
  69.       MessageBox('Expression cannot be empty.', nil, mfError + mfOkButton);
  70.       Select;
  71.     end;
  72.   end
  73.   else
  74.     Valid := inherited Valid(Command)
  75. end;
  76.  
  77. constructor TGrepDialog.Init;
  78. var
  79.   R: TRect;
  80.   Control: PView;
  81. begin
  82.   R.Assign(3, 4, 75, 15);
  83.   inherited Init(R, 'Search Parameters');
  84.  
  85.   { Edit }
  86.   R.Assign(15, 2, 68, 3);
  87.   Control := New(PRegexInput, Init(R, 80));
  88.   Insert(Control);
  89.   {Static  Drive}
  90.   R.Assign(3, 2, 14, 3);
  91.   Insert(New(PLabel, Init(R, '~E~xpression', Control)));
  92.  
  93.   { Edit }
  94.   R.Assign(15, 3, 68, 4);
  95.   Control := New(PInputLine, Init(R, 12));
  96.   Insert(Control);
  97.   {Static  Drive}
  98.   R.Assign(3, 3, 14, 4);
  99.   Insert(New(PLabel, Init(R, '~F~ile mask', Control)));
  100.  
  101.   { Edit }
  102.   R.Assign(15, 4, 68, 5);
  103.   Control := New(PInputLine, Init(R, 79));
  104.   Insert(Control);
  105.   R.Assign(3, 4, 14, 5);
  106.   Insert(New(PLabel, Init(R, '~D~irectory', Control)));
  107.  
  108.   {Check Button }
  109.   R.Assign(15, 6, 68, 7);
  110.   Control := New(PCheckBoxes, Init(R,
  111.     NewSItem('~C~ase sensitive     ',
  112.     NewSItem('~R~ecurse subdirectories',
  113.     nil))));
  114.   Insert(Control);
  115.   R.Assign(3, 6, 11, 7);
  116.   Insert(New(PLabel, Init(R, 'Options', Control)));
  117.  
  118.   { Button  Ok }
  119.   R.Assign(47, 8, 57, 10);
  120.   Insert(New(PButton, Init(R, 'O~K~', cmOk, bfDefault)));
  121.  
  122.   { Button Cancel }
  123.   R.Move(12, 0);
  124.   Insert(New(PButton, Init(R, 'Cancel', cmCancel, bfNormal)));
  125.  
  126.   SelectNext(False);
  127. end;
  128.  
  129. end.
  130.