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

IDE: messages window: on linking error make all low urgency messages in front important

Browse Source 
git-svn-id: trunk@53072 -
This commit is contained in:
mattias 2016-10-06 08:52:17 +00:00
parent 5b8ab452ee
commit 02b83950b4
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/etfpcmsgparser.pas
View File

@ -1634,6 +1634,17 @@ var
i: Integer; i: Integer;
MsgLine: TMessageLine; MsgLine: TMessageLine;
begin begin
// change all low urgency messages in front of the last message to Important
i:=Tool.WorkerMessages.Count-1;
while i>=0 do begin
MsgLine:=Tool.WorkerMessages[i];
if MsgLine.Urgency<mluHint then
MsgLine.Urgency:=mluImportant
else
break;
dec(i);
end;
// add all skipped lines in front of the linking error // add all skipped lines in front of the linking error
i:=Tool.WorkerMessages.Count-1; i:=Tool.WorkerMessages.Count-1;
if i<0 then exit; if i<0 then exit;