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

SynEdit: Small Refactor. Workaround for a crash when SynEdit is destroyed to early

Browse Source 
git-svn-id: trunk@18572 -
This commit is contained in:
martin 2009-02-04 22:43:16 +00:00
parent d156b92d1b
commit d0ff603108
1 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/synedit/synedit.pp
View File

@ -6426,9 +6426,9 @@ begin
{$ENDIF}
// first the program event handler gets a chance to process the command
DoOnProcessCommand(Command, AChar, Data);
try
BeginUndoBlock;
if Command <> ecNone then begin
if Command <> ecNone then begin
try
BeginUndoBlock;
// notify hooked command handlers before the command is executed inside of
// the class
NotifyHookedCommandHandlers(FALSE, Command, AChar, Data);
@ -6437,17 +6437,13 @@ begin
ExecuteCommand(Command, AChar, Data);
// notify hooked command handlers after the command was executed inside of
// the class
{$IFDEF SYN_LAZARUS}
if Command <> ecNone then
{$ENDIF}
NotifyHookedCommandHandlers(TRUE, Command, AChar, Data);
if Command <> ecNone then
DoOnCommandProcessed(Command, AChar, Data);
finally
EndUndoBlock;
end;
{$IFDEF SYN_LAZARUS}
if Command <> ecNone then
{$ENDIF}
DoOnCommandProcessed(Command, AChar, Data);
finally
EndUndoBlock;
end;
end;