!秒表

/*
Name:秒表
Version:1.0
Author:lyuchen
E-mail:lyuchen@sohu.com
*/

#SingleInstance,force

SplitPath, A_AhkPath, ,Dir,
Menu Tray, Icon, %Dir%ScriptsResource秒表.ico,,1

DateTimeStamp=20061103000000
Gui  +AlwaysOnTop -MaximizeBox
Gui, Margin, 5, 5
Gui, Font, s25 w600
Gui, Add, Text, w154 h45 0x6 ; This adds a white back ground for the next control
Gui, Add, Text, xp yp wp hp 0x201 vTime +BackGroundTrans +Border, 00:00:00
Gui, Font, s8 Normal
Gui, Add, Button, y+5 w50 h23 vStartStop gStartStop  Default, Start
Gui, Add, Button, x+2 wp hp vPauseResume gPauseResume, Pause
Gui, Add, Button, x+2 wp hp vReset gReset, Reset
Gui, Show, AutoSize Center, 秒表
Goto, Menu_Show
Return

StartStop:
GuiControlGet, StartStop
If ( StartStop = "Start" )
{
GuiControl,, StartStop, Stop
SetTimer, Count,990
}
Else
{
GuiControl,, StartStop, Start
SetTimer, Count, Off
GuiControl,, PauseResume, Pause
DateTimeStamp = 20061103000000
}
Return

PauseResume:
GuiControlGet, StartStop
If ( StartStop = "Start" )
Return
GuiControlGet, PauseResume
If ( PauseResume = "Pause" )
{
GuiControl,, PauseResume, Resume
SetTimer, Count, OFF
}
Else
{
GuiControl,, PauseResume, Pause
SetTimer, Count, 990
}
Return

Reset:
GuiControl,, Time, 00:00:00
DateTimeStamp = 20061103000000
Return

Count:
DateTimeStamp += 1, Seconds
FormatTime, nTime, %DateTimeStamp%, HH:mm:ss
GuiControlGet, Time
If ( Time  nTime )only when needed
GuiControl,, Time, %nTime%
Return

GuiClose:
GuiEscape:
ExitApp
Return

Menu_Show:
{
Menu, Tray, Click, 1
Menu, Tray, Tip, 秒表
Menu, Tray, Add, 秒表, Tray_Show
Menu, Tray, ToggleEnable, 秒表
Menu, Tray, Default, 秒表
Menu, Tray, Add
Menu, Tray, Add, 帮助(&H), Tray_Help
Menu, Tray, Add, 重启(&R), Tray_Reload
Menu, Tray, Add, 退出(&X), GuiEscape
Menu, Tray, NoStandard
}
Return
Tray_Show:
Menu, Tray, Show
Return
Tray_Reload:
Reload
Return
Tray_Help:
Msgbox, 0, Help, S 开始、停止 `nP 暂停 `nR 重置
Return

#IfWinActive, 秒表
s::ControlClick,x45 y87
p::ControlClick,Pause
r::ControlClick,Reset