anchor.diff:    end;
   end; { TDelphiLensUIWorker.FileModified }
   
  -function TDelphiLensUIWorker.GetScanID: integer;
  -begin
  -  Result := FScanID.Value;
  -end; { TDelphiLensUIWorker.GetScanID }
  -
   function TDelphiLensUIWorker.Initialize: boolean;
   begin
     Result := inherited Initialize;
  
positive.code:     procedure FileModified(const fileModified: TOmniValue);
      procedure Rescan(var msg: TOmniMessage); message MSG_RESCAN;
      procedure SetConfig(const configInfo: TOmniValue);
      property ScanID: integer read GetScanID;
    end; { TDelphiLensUIWorker }
  
  { TDLUIProjectConfig }
  
negative.code: begin
    try
      FScanID.Increment;
      if not msg.MsgData.IsEmpty then
        (msg.MsgData.AsInterface as IOmniWaitableValue).Signal(FScanID.Value);
      if not assigned(FDelphiLens) then
        Exit;
  
  