#NoEnv
#Persistent
#SingleInstance force
#MaxThreadsPerHotkey 2
SendMode Input

;Menu, TRAY, Icon, stitch.ico
Menu, TRAY, NoStandard
Menu, TRAY, Tip, Stitcher
Menu, TRAY, Add, About
Menu, TRAY, Add, Exit

creategui()

#IfWinActive, ahk_class AutoHotkeyGUI
1::add(0)
2::add(1)
3::add(2)
4::add(3)
5::add(4)
6::add(5)
7::add(6)
8::add(7)
9::add(8)
0::add(9)
q::sub(0)
w::sub(1)
e::sub(2)
r::sub(3)
t::sub(4)
y::sub(5)
u::sub(6)
i::sub(7)
o::sub(8)
p::sub(9)
a::reset(0)
s::reset(1)
d::reset(2)
f::reset(3)
g::reset(4)
h::reset(5)
j::reset(6)
k::reset(7)
l::reset(8)
ö::reset(9)
NumPadAdd::GoSub, more
NumPadSub::GoSub, less
F1::GoSub, sall
F2::GoSub, aall
F3::GoSub, rall
end::reload


creategui() {
Global
height := 135
tip := 35
y := 40
y2 := y-9
fields := 40
Gui, Color, ffffff

Gui, Add, Button, vless gless w75 h15 x10 y3, Less
Gui, Add, Button, vmore gmore w75 h15 x90 yp0, More

Gui, Add, Button, vrall grall w15 h15 x150 y20,
Gui, Add, Button, vsall gsall w15 h15 xp-40 yp0, -
Gui, Add, Button, vaall gaall w15 h15 xp20 yp0, +

Gui, Add, Button, vr0 greset w15 h15 x150 y%y%, 
loop %fields% {
number++
	Gui, Add, Button, vr%number% greset w15 h15 xp0 yp%tip%, 
}

Gui, Add, Button, gadd vp0 w15 h15 x130 y%y%, +
loop %fields% {
number1++
	Gui, Add, Button, vp%number1% gadd w15 h15 xp0 yp%tip%, +
}

Gui, Add, Button, gsub vs0 w15 h15 x110 y%y%, -
loop %fields% {
number2++
	Gui, Add, Button, vs%number2% gsub w15 h15 xp0 yp%tip%, -
}

Gui, Add, Edit, ve0 w50 h15 x5 y%y%, 
loop %fields% {
number4++
	Gui, Add, Edit, ve%number4% w50 h15 xp0 yp%tip%, 
}

Gui, Font, s20

Gui, Add, Text, vf0 w45 x60 y%y2% , 0
loop %fields% {
number3++
Gui, Add, Text, vf%number3% w45 xp0 yp%tip% , 0
}

Gui, Show, w170 h%height% x10 y10, Stitch
}

more:
height := height + tip
Gui, Show, h%height%
Return

less:
height := height - tip
if(height > 35) {
Gui, Show, h%height%
}
else {
height := height + tip
}
Return

rall:
loop %fields% {
field := A_Index - 1
reset(field)
}
Return

sall:
loop %fields% {
field := A_Index - 1
sub(field)
}
Return

aall:
loop %fields% {
field := A_Index - 1
add(field)
}
Return

sub:
StringTrimLeft, number, A_GuiControl, 1
sub(number)
Return

add:
StringTrimLeft, number, A_GuiControl, 1
add(number)
Return

reset:
StringTrimLeft, number, A_GuiControl, 1
reset(number)
Return

sub(number) {
GuiControlGet, current,, f%number%
current--
GuiControl, Text, f%number%, %current%
}

add(number) {
GuiControlGet, current,, f%number%
current++
GuiControl, Text, f%number%, %current%
}

reset(number) {
GuiControl, Text, f%number%, 0
}

GuiClose:
ExitApp

Exit:
ExitApp
Return

About:
MsgBox, 0, Stitcher, Created by Wizeon`nwizeon@gmail.com`nFeel free to distribute, no restrictions
Return