#SingleInstance Force
#NoEnv
SetBatchLines -1
ListLines Off
DetectHiddenWindows, On
s := 40
st := 10
rank := [[s + st + st, (s + st) * 2 + st], [-0.5,-1], [-0.5,-1]
, [1,0], [1,0], [1,0], [1,0]
, [-0.5,1], [-0.5,1], [-0.5,1], [-0.5,1]
, [-0.5,1], [-0.5,1], [-0.5,1], [-0.5,1]
, [1,0], [1,0], [1,0], [1,0]
, [-0.5,-1], [-0.5,-1]]
pos := CreatePos(rank, s, st)
Count := 0
Pics := []
Items := []
loop % pos.Count() - 1
Pics.Push(LoadPicture("Shell32.dll", "Icon" 200 + A_Index))
Gui, -DPIScale +AlwaysOnTop +HWNDhGui
Gui, Color, 536FBE
Gui, Margin, %st%, %st%
For k, v in pos
Gui, Add, Progress, % "Hidden0 Border x" v[1] " y" v[2] " w" s " h" s " cFFE891", 100
Gui, Font, s16
Gui Show, Hide
WinGetPos, , , , H, ahk_id %hGui%
Gui Add, Button, y%H% x40 gAdd vAdd Default, Add
Gui Add, Button, yp x+40 wp gSub vSub Default, Sub
Gui Show, AutoSize
loop
loop % pos.Count()
{
i := A_Index
loop % Count
{
ic := i - A_Index + 1
ic := ic < 1 ? pos.Count() + ic : ic
GuiControl, Move, % Items[A_Index], % "x" pos[ic][1] " y" pos[ic][2]
}
Sleep 100
}
Return
Sub:
If (Count < 1)
Return
DllCall("DestroyWindow", "Ptr", Items.Pop()), --Count
Return
Add:
If (Count = Pics.Count())
Return
Gui, Add, Pic, HWNDhItem x-32000 y-32000 w%s% h%s% +BackgroundTrans, % "HBITMAP:*" Pics[++Count]
Items[Count] := hItem
Return
CreatePos(rank, s, st) {
arr := []
For k, v in rank
{
If (k = 1)
arr[k] := [v[1], v[2]]
Else
arr[k] := [arr[k - 1][1] + (v[1] * (s + st))
, arr[k - 1][2] + (v[2] * (s + st))]
}
Return arr
}
GuiEscape:
GuiClose:
ExitApp
]]>
