paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-18 05:50:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Play macro in one step (one undo block / BeginUpdate)

Browse Source 
git-svn-id: trunk@37916 -
This commit is contained in:
martin 2012-07-12 12:36:10 +00:00
parent 729e3aff3d
commit e54706e814
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/synedit/synmacrorecorder.pas
View File

@ -709,9 +709,14 @@ begin
fState := msPlaying;
try
StateChanged;
for cEvent := 0 to EventCount -1 do begin
Events[ cEvent ].Playback( aEditor );
if FStopRequested then break;
aEditor.BeginUpdate;
try
for cEvent := 0 to EventCount -1 do begin
Events[ cEvent ].Playback( aEditor );
if FStopRequested then break;
end;
finally
aEditor.EndUpdate;
end;
finally
fState := msStopped;