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

IDE: msg frame: do not write keyrword important

Browse Source 
git-svn-id: trunk@45124 -
This commit is contained in:
mattias 2014-05-21 09:07:55 +00:00
parent 58ba371308
commit 80ef3fbe7d
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/etmessageframe.pas
View File

@ -2529,12 +2529,14 @@ begin
Result+=' ';
// 'error: '
if (mcoShowTranslated in Options)
and (fUrgencyStyles[Line.Urgency].Translated<>'') then
Result+=fUrgencyStyles[Line.Urgency].Translated
else
Result+=MessageLineUrgencyNames[Line.Urgency];
Result+=': ';
if Line.Urgency<>mluImportant then begin
if (mcoShowTranslated in Options)
and (fUrgencyStyles[Line.Urgency].Translated<>'') then
Result+=fUrgencyStyles[Line.Urgency].Translated
else
Result+=MessageLineUrgencyNames[Line.Urgency];
Result+=': ';
end;
// message id
if (mcoShowMessageID in Options) and (Line.MsgID<>0) then