Subversion Repositories userdetect2

Rev

Rev 92 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 92 Rev 94
Line 76... Line 76...
76 
  public
 76 
  public
77 
    property DynamicDataUsed: boolean read FDynamicDataUsed write FDynamicDataUsed;
 77 
    property DynamicDataUsed: boolean read FDynamicDataUsed write FDynamicDataUsed;
78 
    property DynamicData: WideString read FDynamicData write FDynamicData;
 78 
    property DynamicData: WideString read FDynamicData write FDynamicData;
79 
    property IdentificationString: WideString read FIdentificationString;
 79 
    property IdentificationString: WideString read FIdentificationString;
80 
    property Plugin: TUD2Plugin read FPlugin;
 80 
    property Plugin: TUD2Plugin read FPlugin;
- 
 
 81 
    function GetConditionString(MethodnameAsGUID: boolean=false): TUD2TDFCondition;
81 
    procedure GetIdNames(sl: TStrings);
 82 
    procedure GetIdNames(sl: TStrings);
82 
    constructor Create(AIdentificationString: WideString; APlugin: TUD2Plugin);
 83 
    constructor Create(AIdentificationString: WideString; APlugin: TUD2Plugin);
83 
  end;
 84 
  end;
84 
 
 85 
 
85 
  TUD2 = class(TObject)
 86 
  TUD2 = class(TObject)
Line 330... Line 331...
330 
 
 331 
 
331 
  FIdentificationString := AIdentificationString;
 332 
  FIdentificationString := AIdentificationString;
332 
  FPlugin := APlugin;
 333 
  FPlugin := APlugin;
333 
end;
 334 
end;
334 
 
 335 
 
- 
 
 336 
function TUD2IdentificationEntry.GetConditionString(MethodnameAsGUID: boolean=false): TUD2TDFCondition;
- 
 
 337 
begin
- 
 
 338 
  if MethodnameAsGUID then
- 
 
 339 
    Result.idMethodName := GUIDToString(Self.Plugin.PluginGUID)
- 
 
 340 
  else
- 
 
 341 
    Result.idMethodName := Self.Plugin.IdentificationMethodName;
- 
 
 342 
 
- 
 
 343 
  Result.idStr := Self.IdentificationString;
- 
 
 344 
  Result.dynamicDataUsed := Self.DynamicDataUsed;
- 
 
 345 
  Result.dynamicData := Self.DynamicData;
- 
 
 346 
  Result.caseSensitive := false;
- 
 
 347 
end;
- 
 
 348 
 
335 
{ TUD2 }
 349 
{ TUD2 }
336 
 
 350 
 
337 
procedure TUD2.HandlePluginDir(APluginDir, AFileMask: string);
 351 
procedure TUD2.HandlePluginDir(APluginDir, AFileMask: string);
338 
Var
 352 
Var
339 
  SR: TSearchRec;
 353 
  SR: TSearchRec;