anchor.diff:  uses
     Classes
     ,SysUtils
  +  ,fpg_base
     ;
   
   
  
positive.code:   GetText
    ,fpg_pofiles
    ,fpg_utils
    ;
    
  
  
negative.code:     ALanguageID := Copy(ALanguageID, 0, lpos-1);
  end;
  
  function fpgMatchLocale(const ALanguageID: TfpgString): boolean;
  var
    s: TfpgString;
  begin
    s := ALanguageID;
    FixLanguageIDs(s);
    Result := s = SystemLanguageID1;
    if not Result then
      Result := s = SystemLanguageID2;
  end;
  
  
  { TTranslationList }
  
  function TTranslationList.GetItems(Index: integer): TTranslation;
  