Gut, guckst Du. Das ist eine recht einfach aufgebaute Variante. Man könnte das noch 'verfeinern'. Es kommt allerdings auch darauf an, was außer dem 'Progress' gezeigt werden soll:
Code: Select all
#NoEnv
SetBatchLines, -1
StartTime := "23:15"
EndTime := "23:17"
Today := A_YYYY . A_MM . A_DD
S := Today . StrReplace(StartTime, ":")
E := Today . StrReplace(EndTime, ":")
If (EndTime < StartTime)
E += 1, D
RunTime := E
RunTime -= S, S
Triangle := []
Triangle.Push([0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0
, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x000000])
Triangle.Push([0x000000, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0
, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x000000, 0x000000])
Triangle.Push([0x000000, 0x000000, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0
, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x000000, 0x000000, 0x000000])
Triangle.Push([0x000000, 0x000000, 0x000000, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0
, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0, 0x000000, 0x000000, 0x000000, 0x000000])
Triangle.Push([0x000000, 0x000000, 0x000000, 0x000000, 0x6090D0, 0x6090D0, 0x6090D0, 0x6090D0
, 0x6090D0, 0x6090D0, 0x6090D0, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000])
Triangle.Push([0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x6090D0, 0x6090D0, 0x6090D0
, 0x6090D0, 0x6090D0, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000])
Triangle.Push([0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x6090D0, 0x6090D0
, 0x6090D0, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000])
Triangle.Push([0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x6090D0
, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000, 0x000000])
HBMT := DIB_CreateFromArray(Triangle, 1, 1) ; triangal bitmap
HBML := DIB_CreateUC(0x6090D0) ; line bitmap
Gui, Color, Black
Gui, Margin, 20, 20
Gui, Font, s16
Gui, Add, Text, xm ym cWhite vT1, %StartTime%
GuiControlGet, T1, Pos
LineHeight := 2 ; height of the base line
Y := T1Y + (T1H // 2) - (LineHeight // 2)
Gui, Add, Pic, x+10 y%Y% w28 h%LineHeight% vP1, HBITMAP:*%HBML%
GuiControlGet, P1, Pos
Gui, Add, Pic, x+3 yp wp hp, HBITMAP:*%HBML%
Gui, Add, Pic, x+3 yp wp hp, HBITMAP:*%HBML%
Gui, Add, Pic, x+3 yp wp hp vP4, HBITMAP:%HBML%
GuiControlGet, P4, Pos
Gui, Add, Text, x+10 y%T1Y% cWhite vT2, %EndTime%
X := P1X - 7 ; 7 = Versatz der Spitze zur linken Ecke
Y := P1Y - 14
Gui, Add, Pic, x%X% y%Y% w16 h12 vPB, % "HBITMAP:" . HBMT
GuiControlGet, PB, Pos
Gui, Show, , Progress - %RunTime% Sekunden
LineLength := P4X + P4W - P1X
ProgressDelta := LineLength / RunTime
StartTC := A_TickCount
ProgressTime := 0
SetTimer, UpdProgress, 10
Return
GuiClose:
ExitApp
UpdProgress:
CurrentSecs := (A_TickCount - StartTC) // 1000
If (CurrentSecs >= RunTime) {
SetTimer, UpdProgress, Off
MsgBox, 0, Finished!, %CurrentSecs% Sekunden
Return
}
If (CurrentSecs <> ProgressTime) {
X := Round(PBX + (CurrentSecs * ProgressDelta))
GuiControl, Move, PB, x%X%
ProgressTime := CurrentSecs
}
Return
; ================================================================================================================================
; Modified versions of CreateDIB() by SKAN, 01-Apr-2014, autohotkey.com/boards/viewtopic.php?t=3203
; Colors - RGB integer values (0xRRGGBB)
; Direction - H (default) - horizontal
; Any other value - vertical
; ================================================================================================================================
; Creates an uni-colored DIB (1x1 pixels).
; ================================================================================================================================
DIB_CreateUC(Color) {
Static W := 1, H := 1, Size := W * H * 4
HBM := DllCall("CreateBitmap", "Int", W, "Int", H, "UInt", 1, "UInt", 32, "Ptr", 0, "UPtr")
, HBM := DllCall("CopyImage", "Ptr", HBM, "UInt", 0, "Int", 0, "Int", 0, "UInt", 0x2008, "UPtr")
, VarSetCapacity(BMBITS, Size, 0)
, Numput(Color, BMBITS, "UInt")
, DllCall("SetBitmapBits", "Ptr", HBM, "UInt", Size, "Ptr", &BMBITS)
Return HBM
}
; ================================================================================================================================
; Creates DIB from a color array.
; ColorArray - 2-dimensional array of colors.
; ================================================================================================================================
DIB_CreateFromArray(ColorArray, ScaleX := 1, ScaleY := 1) {
If !(H := ColorArray.Length()) || !(W := ColorArray.1.Length())
Return 0
Size := W * ScaleX * H * ScaleY * 4
HBM := DllCall("CreateBitmap", "Int", W * ScaleX, "Int", H * ScaleY, "UInt", 1, "UInt", 32, "Ptr", 0, "UPtr")
HBM := DllCall("CopyImage", "Ptr", HBM, "UInt", 0, "Int", 0, "Int", 0, "UInt", 0x2008, "UPtr")
VarSetCapacity(BMBITS, Size, 0)
Addr := &BMBITS
Loop, %ScaleY%
For Each, Row In ColorArray
Loop, %ScaleX%
For Each, Color In Row
Addr := NumPut(Color, Addr + 0, "UInt")
DllCall("SetBitmapBits", "Ptr", HBM, "UInt", Size, "Ptr", &BMBITS)
Return HBM
}
... 
