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

IDE: messages: select message of source editor context menu

Browse Source 
git-svn-id: trunk@45353 -
This commit is contained in:
mattias 2014-06-05 09:11:13 +00:00
parent 265437409b
commit 10d7c17291
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/etmessageframe.pas
View File

@ -118,12 +118,15 @@ type
mcoShowTranslated, // show translation (e.g. messages from German message file)
mcoShowMessageID, // show message ID
mcoShowMsgIcons,
mcoAutoOpenFirstError // when all views stopped, open first error
mcoAutoOpenFirstError, // when all views stopped, open first error
mcoSrcEditPopupSelect // when user right clicks on gutter mark,
// scroll and select message of the quickfixes
);
TMsgCtrlOptions = set of TMsgCtrlOption;
const
MCDefaultOptions = [mcoShowStats,mcoShowTranslated,
mcoAutoOpenFirstError,mcoShowMsgIcons];
mcoAutoOpenFirstError,mcoShowMsgIcons,
mcoSrcEditPopupSelect];
type
@ -3315,6 +3318,8 @@ begin
// create items
if IDEQuickFixes.Count>0 then begin
IDEQuickFixes.OnPopupMenu(SrcEditMenuSectionFirstDynamic);
if mcoSrcEditPopupSelect in MessagesCtrl.Options then
MessagesCtrl.Select(BestMark.MsgLine,true);
end;
end;