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

SynEdit: Cursor would disappear while application was running (Running via F9, needs SynEdit.KeyPressed/CommandProcessor to be re-entrant; so they must be executed before SynEdit locks everything down)

Browse Source 
git-svn-id: trunk@17548 -
This commit is contained in:
martin 2008-11-23 15:19:38 +00:00
parent 89df2435c2
commit a3e24a5bec
1 changed files with 16 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedit.pp
View File

@ -7285,12 +7285,10 @@ begin
,' AChar=',AChar,' Data=',DbgS(Data)]); ,' AChar=',AChar,' Data=',DbgS(Data)]);
DumpStack; DumpStack;
{$ENDIF} {$ENDIF}
{$IFDEF SYN_LAZARUS}
try
BeginUndoBlock;
{$ENDIF}
// first the program event handler gets a chance to process the command // first the program event handler gets a chance to process the command
DoOnProcessCommand(Command, AChar, Data); DoOnProcessCommand(Command, AChar, Data);
try
BeginUndoBlock;
if Command <> ecNone then begin if Command <> ecNone then begin
// notify hooked command handlers before the command is executed inside of // notify hooked command handlers before the command is executed inside of
// the class // the class
@ -7309,11 +7307,9 @@ begin
if Command <> ecNone then if Command <> ecNone then
{$ENDIF} {$ENDIF}
DoOnCommandProcessed(Command, AChar, Data); DoOnCommandProcessed(Command, AChar, Data);
{$IFDEF SYN_LAZARUS}
finally finally
EndUndoBlock; EndUndoBlock;
end; end;
{$ENDIF}
end; end;
procedure TCustomSynEdit.ExecuteCommand(Command: TSynEditorCommand; procedure TCustomSynEdit.ExecuteCommand(Command: TSynEditorCommand;