anchor.diff:  
   function TFindCommand.ShortOptions: String;
   begin
  -  Result := 'n:q';
  +  Result := 'n:q:t:';
   end;
   
   function TFindCommand.LongOptions: String;
   begin
  -  Result := 'name: query solutions projects files all';
  +  Result := 'name: query: type:';
   end;
   
   end.
  
positive.code:   databasePath: String;
    pathToSolution: String;
    storage: TDbfIndexedStorage;
  begin
    projectName := _app.GetOptionValue('n','name');
  
  
negative.code:         storage := TDbfIndexedStorage.Create(self);
          storage.IsDebug := _app.HasOption('v','verbose');
          storage.DatabasePath := databasePath;
          query := Trim(_app.GetOptionValue('q','query'));
          queryType := Trim(_app.GetOptionValue('t','type'));
  
          if (queryType = '') or (queryType = 'solution')
          then storage.SolutionsDo(@OnFindSolution);
  
          if (queryType = '') or (queryType = 'project')
          then storage.ProjectsDo(@OnFindProject);
  
          if (queryType = '') or (queryType = 'file')
          then storage.FilesDo(@OnFindFile);
        except
          on e : Exception do begin
            Error(Format('%s - %s', [e.ClassName, e.Message]));
  