anchor.diff:      function UDUI_ShouldStartRebuildOnError(const Msg: WideString): Boolean;
     end;
   
  -  TEthnologueLanguage = record   // I4257
  -    Code: string;
  -    Name: string;
  -    Country: string;
  -    Status: Char;
  -  end;
  -
  -  TEthnologueLanguages = array of TEthnologueLanguage;   // I4257
  -
     TUnicodeData = class
     private
       FBlocks: TUnicodeBlockList;
  
positive.code:     rec := nil;
    end;
  end;
  
  {function TUnicodeData.FillLanguageData(rec: ADODB_TLB.Recordset): TEthnologueLanguage; //rec: DaoRecordset): TUnicodeCharacter;   // I4257
  begin
    Result.Code := rec.Collect['LanguageCode'];
    Result.Name := rec.Collect['Name'];
    Result.Country := rec.Collect['Country'];
    Result.Status := Copy(rec.Collect['Status'], 1, 1)[1];
  end;}
  
  {function TUnicodeData.FindLanguageByCode(code: string): TEthnologueLanguage;
  var
    rec: ADODB_TLB.Recordset;
    vRecords: OleVariant;
  begin
    Result.Code := '';
    Result.Name := '';
    Result.Country := '';
    Result.Status := #0;
  
    if FDisabled then Exit;
    if not Assigned(FDatabase) then Exit;
  
    rec := FDatabase.Execute('EXECUTE qLanguageByCode '+QuotedStr(code), vRecords, adCmdText);
  
    try
      if not rec.EOF then
        Result := FillLanguageData(rec)
    finally
      rec := nil;
    end;
  end;}
  
  {function TUnicodeData.FindLanguagesByName(name: string): TEthnologueLanguages;
  var
    rec: ADODB_TLB.Recordset;
    vRecords: OleVariant;
  begin
    SetLength(Result, 0);
  
    if FDisabled then Exit;
    if not Assigned(FDatabase) then Exit;
  
    rec := FDatabase.Execute('EXECUTE qLanguagesByName '+QuotedStr(name+'%'), vRecords, adCmdText);
  
    try
      while not rec.EOF do
      begin
        SetLength(Result, Length(Result)+1);
        Result[Length(Result)-1] := FillLanguageData(rec);
        rec.MoveNext;
      end;
    finally
      rec := nil;
    end;
  end;}
  
  procedure TUnicodeData.CleanupFilter(var filter: WideString; FBlock: Boolean);
  var
  
negative.code:     property Rebuilt: Boolean read FRebuilt;
      property Blocks: TUnicodeBlockList read FBlocks;
      property FontName: WideString read FFontName write SetFontName;
  
      property UnicodeDataUIManager: IUnicodeDataUIManager read FUnicodeDataUIManager;
    end;
  