AutoHotkey Community

#NoTrayIcon
esc = 1
GOTO START
ESCAPE & F1::GoSub SHOWTIMER


SHOWTIMER:
if esc = 1
{
   Gui, Show, x5 y599 NoActivate
   esc = 0
   RETURN
}
if esc = 0
{
   GUI, Hide
   esc = 1
   RETURN
}

RETURN

START:

SetBatchLines, -1
CustomColor = 000000
Gui +LastFound +AlwaysOnBottom -Caption +ToolWindow
Gui, Color, %CustomColor%
Gui, Font, s20
Gui, Add, Text, vMyText cWhite, XXXXX, YYYYY
WinSet, TransColor, %CustomColor% 250
SetFormat, Float, 02.00
h := m := s := "00"
SetTimer, Update, 1000
Gosub, Update
;Gui, Show, x5 y599 NoActivate
RETURN

Update:
if S = 59
{
   S = 00
   M += 1.0
   GuiControl,, MyText, %H%:%M%:%S%
   RETURN
}
if M = 59
{
   M = 00
   H += 1.0
   GuiControl,, MyText, %H%:%M%:%S%
   RETURN
}
S += 1.0
GuiControl,, MyText, %H%:%M%:%S%
RETURN

#NoTrayIcon

SetTimer, Update, 1000

SetBatchLines, -1
CustomColor = 000000
Gui +LastFound +AlwaysOnBottom -Caption +ToolWindow
Gui, Color, %CustomColor%
Gui, Font, s20
Gui, Add, Text, vMyText cblue, XXXXX, YYYYY
Gui, Show, x5 y599 NoActivate
WinSet, TransColor, %CustomColor% 250
SetFormat, Float, 02.00
h := m := s := "00"
RETURN

Update:
if S = 59
{
   S = 00
   M += 1.0
   GuiControl,, MyText, %H%:%M%:%S%
   RETURN
}
if M = 59
{
   M = 00
   H += 1.0
   GuiControl,, MyText, %H%:%M%:%S%
   RETURN
}
S += 1.0
GuiControl,, MyText, %H%:%M%:%S%
RETURN


ESCAPE & F1::
if hidden = true
{
gui 1:show
hidden = false
}

else
{
gui 1:hide
hidden = true
}

#NoTrayIcon
esc = 1
; GOTO START  ; needs to be GoSub
GoSub, START  ;  like this
GoSub, SHOWTIMER ; add this to show on start up

ESCAPE & F1::GoSub SHOWTIMER
#b::tStart := A_Now  ; added hotkey (win+b) to reset elapsed timer to 0
#x::ExitApp   ; added hotkey (win+x) to exit script

SHOWTIMER:
if esc = 1
{
   Gui, Show, x5 y599 NoActivate
   esc = 0
   RETURN
}
if esc = 0
{
   GUI, Hide
   esc = 1
   RETURN
}

RETURN

START:

; SetBatchLines, -1   ; this is not useful for anything in this script
CustomColor = 000000
Gui +LastFound +AlwaysOnBottom -Caption +ToolWindow
Gui, Color, %CustomColor%
Gui, Font, s20
Gui, Add, Text, vMyText cWhite, XXXXX, YYYYY
WinSet, TransColor, %CustomColor% 250
tStart := A_Now      ; save script start time for future elapsed time calculation
SetTimer, Update, 200  ; makes for smoother display update
Gosub, Update
;Gui, Show, x5 y599 NoActivate
RETURN

Update:
if !(tNow = A_Now) {   ; if time has not changes, return
  tTemp := tNow := A_Now
  EnvSub, tTemp, tStart, seconds  ; calculate # of seconds since script start
  tdummy = 20000101
  EnvAdd, tdummy, tTemp, seconds  ; add # of seconds to dummy date/time
  FormatTime, elapsed, %tdummy%, HH:mm:ss  ; only show hour, minutes, seconds
  GuiControl,, MyText, %elapsed%
}
RETURN