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;