anchor.diff:        if s_lexer='' then Break;
   
         //copy lexer file
  -      fn_lexer:= ExtractFileDir(fn_inf)+DirectorySeparator+s_lexer+'.lcf';
  -      fn_lexmap:= ExtractFileDir(fn_inf)+DirectorySeparator+s_lexer+'.cuda-lexmap';
  -      fn_acp:= ExtractFileDir(fn_inf)+DirectorySeparator+s_lexer+'.acp';
  +      fn_lexer:= ExtractFileDir(AFilenameInf)+DirectorySeparator+s_lexer+'.lcf';
  +      fn_lexmap:= ExtractFileDir(AFilenameInf)+DirectorySeparator+s_lexer+'.cuda-lexmap';
  +      fn_acp:= ExtractFileDir(AFilenameInf)+DirectorySeparator+s_lexer+'.acp';
   
         if not FileExists(fn_lexer) then
         begin
  
positive.code:     msgConfirmInstallIt,
      MB_OKCANCEL or MB_ICONQUESTION)<>ID_OK then exit;
  
    StrReport:= '';
    if s_type=cTypeLexer then
    begin
      NAddonType:= cAddonTypeLexer;
      DoInstallLexer(fn_inf, dir_acp, AppManager, StrReport, DirTarget)
    end
    else
    if s_type=cTypePlugin then
    begin
      NAddonType:= cAddonTypePlugin;
      StrMessage:= msgStatusInstalledNeedRestart;
      DoInstallPlugin(fn_inf, StrReport, DirTarget)
    end
    else
    if s_type=cTypeData then
    begin
      NAddonType:= cAddonTypeData;
      DoInstallData(fn_inf, StrReport, DirTarget)
    end;
  
    IsInstalled:= true;
  end;
  
  
  
negative.code:     exit
    end;
  
    if not ASilent then
    if MsgBox(msgStatusPackageContains+#10#10+
      msgStatusPackageName+' '+s_title+#10+
      IfThen(s_desc<>'', msgStatusPackageDesc+' '+s_desc+#10)+
  