Skip to content

Commit

Permalink
Do not interrupt spectrum running when showing about box.
Browse files Browse the repository at this point in the history
  • Loading branch information
zoran-vucenovic committed Nov 14, 2023
1 parent 5a8a612 commit efaa42f
Showing 1 changed file with 1 addition and 9 deletions.
10 changes: 1 addition & 9 deletions unit1.pas
Original file line number Diff line number Diff line change
Expand Up @@ -527,19 +527,11 @@ procedure TForm1.ActionEnableJoystickExecute(Sender: TObject);
end;

procedure TForm1.ActionAboutExecute(Sender: TObject);
var
WasPaused: Boolean;
begin
if Sender <> Spectrum then begin
AddEventToQueue(@ActionAboutExecute);
end else begin
WasPaused := Spectrum.Paused;
try
Spectrum.Paused := True;
TFormAbout.ShowAbout();
finally
Spectrum.Paused := WasPaused;
end;
TFormAbout.ShowAbout();
end;
end;

Expand Down

0 comments on commit efaa42f

Please sign in to comment.