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

SynEdit: MacroRecorder: allow Stop method to interrupt playback

Browse Source 
git-svn-id: trunk@37737 -
This commit is contained in:
martin 2012-06-22 23:58:19 +00:00
parent c5ebe15fc6
commit 7754174512
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/synedit/synmacrorecorder.pas
View File

@ -207,6 +207,7 @@ type
fMacroName: string;
fSaveMarkerPos: boolean;
FStartPlayBack: boolean;
FStopRequested: Boolean;
function GetCommandIDs(Index: integer): TSynEditorCommand;
function GetEvent(aIndex: integer): TSynMacroEvent;
function GetEventCount: integer;
@ -655,13 +656,17 @@ var
begin
if State <> msStopped then
Error( sCannotPlay );
FStopRequested := False;
fState := msPlaying;
try
StateChanged;
for cEvent := 0 to EventCount -1 do
for cEvent := 0 to EventCount -1 do begin
Events[ cEvent ].Playback( aEditor );
if FStopRequested then break;
end;
finally
fState := msStopped;
FStopRequested := False;
StateChanged;
end;
end;
@ -735,6 +740,10 @@ procedure TCustomSynMacroRecorder.Stop;
begin
if fState = msStopped then
Exit;
if fState = msPlaying then begin
FStopRequested := True;
Exit;
end;
fState := msStopped;
fCurrentEditor := nil;
if fEvents.Count = 0 then