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

DBG: Dialogs, don't give help related commands to IDE. They will be ignored

Browse Source 
git-svn-id: trunk@37697 -
This commit is contained in:
martin 2012-06-19 23:41:45 +00:00
parent 068e7f8d17
commit 5416ac2ed8
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/debuggerdlg.pp
View File

@ -455,7 +455,8 @@ var
begin begin
Command := EditorOpts.KeyMap.TranslateKey(Key,Shift,TDebuggerDlg); Command := EditorOpts.KeyMap.TranslateKey(Key,Shift,TDebuggerDlg);
if Assigned(OnProcessCommand) and (Command <> ecNone) if Assigned(OnProcessCommand) and (Command <> ecNone) and
(Command <> ecContextHelp) and(Command <> ecEditContextHelp)
then begin then begin
OnProcessCommand(Self,Command,Handled); OnProcessCommand(Self,Command,Handled);
Key := 0; Key := 0;