From f0f8475a71e47de69bc50d38d39ace6e4b68b721 Mon Sep 17 00:00:00 2001 From: Sangmoon Yi Date: Tue, 25 Jun 2019 11:43:34 +0900 Subject: [PATCH] Fixed a bug that it can't toggle timer when clicking tray icon --- mainform1.pas | 2 ++ 1 file changed, 2 insertions(+) diff --git a/mainform1.pas b/mainform1.pas index 22f793d..0ac1282 100644 --- a/mainform1.pas +++ b/mainform1.pas @@ -526,6 +526,7 @@ procedure TMainForm.ToggleCountdown(Sender: TObject); DisableTimer(); end else + begin if CountdownDone then begin // TODO When restarting after countdown has elapsed, quickly jumps from @@ -535,6 +536,7 @@ procedure TMainForm.ToggleCountdown(Sender: TObject); EndTime := Now + (Timer1.Tag * OneSecond); end; EnableTimer(); + end; end; procedure TMainForm.Countdown(Sender: TObject);