paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 17:01:35 +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; fMacroName: string;
fSaveMarkerPos: boolean; fSaveMarkerPos: boolean;
FStartPlayBack: boolean; FStartPlayBack: boolean;
FStopRequested: Boolean;
function GetCommandIDs(Index: integer): TSynEditorCommand; function GetCommandIDs(Index: integer): TSynEditorCommand;
function GetEvent(aIndex: integer): TSynMacroEvent; function GetEvent(aIndex: integer): TSynMacroEvent;
function GetEventCount: integer; function GetEventCount: integer;
@ -655,13 +656,17 @@ var
begin begin
if State <> msStopped then if State <> msStopped then
Error( sCannotPlay ); Error( sCannotPlay );
FStopRequested := False;
fState := msPlaying; fState := msPlaying;
try try
StateChanged; StateChanged;
for cEvent := 0 to EventCount -1 do for cEvent := 0 to EventCount -1 do begin
Events[ cEvent ].Playback( aEditor ); Events[ cEvent ].Playback( aEditor );
if FStopRequested then break;
end;
finally finally
fState := msStopped; fState := msStopped;
FStopRequested := False;
StateChanged; StateChanged;
end; end;
end; end;
@ -735,6 +740,10 @@ procedure TCustomSynMacroRecorder.Stop;
begin begin
if fState = msStopped then if fState = msStopped then
Exit; Exit;
if fState = msPlaying then begin
FStopRequested := True;
Exit;
end;
fState := msStopped; fState := msStopped;
fCurrentEditor := nil; fCurrentEditor := nil;
if fEvents.Count = 0 then if fEvents.Count = 0 then