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

Fixed recursive key handling between main and src-edit (since rev 28403 #f3fe759e6c))

Browse Source 
git-svn-id: trunk@28408 -
This commit is contained in:
martin 2010-11-22 15:12:17 +00:00
parent 383b0064f2
commit 5c5bcd2b78
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/sourceeditor.pp
View File

@ -6874,13 +6874,23 @@ end;
Procedure TSourceNotebook.ProcessParentCommand(Sender: TObject;
var Command: TSynEditorCommand; var AChar: TUTF8Char; Data: pointer;
var Handled: boolean);
var
IDECmd: TIDECommand;
r: Boolean;
begin
//DebugLn(['TSourceNotebook.ProcessParentCommand START ',dbgsName(Sender),' Command=',Command,' AChar=',AChar]);
FProcessingCommand:=true;
if Assigned(Manager.OnProcessUserCommand) then begin
Handled:=false;
IDECmd:=IDECommandList.FindIDECommand(Command);
r := (IDECmd <> nil) and (IDECmd.OnExecuteProc = @ExecuteIdeMenuClick);
if r then IDECmd.OnExecuteProc := nil;
Manager.OnProcessUserCommand(Self,Command,Handled);
if r then IDECmd.OnExecuteProc := @ExecuteIdeMenuClick;
if Handled or (Command=ecNone) then begin
FProcessingCommand:=false;
Command:=ecNone;