paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 03:21:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fixed compiling with old ext tools

Browse Source 
git-svn-id: trunk@45495 -
This commit is contained in:
mattias 2014-06-13 12:34:42 +00:00
parent e4751d8f8c
commit c90ba0acf2
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packager/packageeditor.pas
View File

@ -3211,8 +3211,12 @@ var
end; end;
if not Tool.CleanPosToCaret(ErrorPos,CodePos) then continue; if not Tool.CleanPosToCaret(ErrorPos,CodePos) then continue;
Msg:='unit '+AnUnitName+' requires package '+PkgName; Msg:='unit '+AnUnitName+' requires package '+PkgName;
IDEMessagesWindow.AddCustomMessage(mluError,Msg, {$IFNDEF EnableOldExtTools}
IDEMessagesWindow.AddCustomMessage(mluWarning,Msg,
CodePos.Code.Filename,CodePos.Y,CodePos.X,'Move Units'); CodePos.Code.Filename,CodePos.Y,CodePos.X,'Move Units');
{$ELSE}
IDEMessagesWindow.AddMsg('Warning: '+Msg,'',-1);
{$ENDIF}
end; end;
end; end;