[HELP] add acceleration to dragable GUI

[elmarcia]

Hi guys i want to make a scrollable GUI like in android with big buttons with text and that, i managed to make it work, when drag mouse up/down the "buttons" move. Now i want them to continue moving, like in android menus.

This is what i got by now.

 Spoiler

#include <GDIPlus.au3>
#include <Misc.au3>

AutoItSetOption("MouseCoordMode",2)
Global const $width = 600
Global const $height = 300
$GUI = GUICreate("", $width, $height)
GUISetState()

_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($GUI)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($width, $height, $hGraphic)
$hBackBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)

#Region BOX - named box but its a rectangle lol :v
Global $BoxData[0][3];x,y,data[]  -data is string to draw info
Global Const $BoxW = $width ;fill gui width
Global Const $BoxH = $height / 3 ;3 box visible at same time
Global $boxBrush = _GDIPlus_BrushCreateSolid(0xFFFFFFFF) ;box color

$hBrush = _GDIPlus_BrushCreateSolid(0xFF00007F) ;string color
$hFormat = _GDIPlus_StringFormatCreate()
_GDIPlus_StringFormatSetAlign($hFormat, 1) ;center string
$hFamily = _GDIPlus_FontFamilyCreate("Showcard Gothic")
$hFont = _GDIPlus_FontCreate($hFamily, 16, 2)


Func newBox($Xo, $Yo) ;add element to box array
	ReDim $BoxData[UBound($BoxData) + 1][3]
	$BoxData[UBound($BoxData) - 1][0] = $Xo
	$BoxData[UBound($BoxData) - 1][1] = $Yo
EndFunc   ;==>newBox

Func setBoxData($data, $index)
	$BoxData[$index][2] = $data
EndFunc   ;==>setBoxData

Func getBoxY($index)
	Return $BoxData[$index][1]
EndFunc   ;==>getBoxY

Func getBoxData($index)
	Return $BoxData[$index][2]
EndFunc   ;==>getBoxData

Func drawText($x, $y, $string) ;draw string in rect
	$tLayout = _GDIPlus_RectFCreate($x, $y, $BoxW, 0)
	$aInfo = _GDIPlus_GraphicsMeasureString($hBackBuffer, $string, $hFont, $tLayout, $hFormat)
	_GDIPlus_GraphicsDrawStringEx($hBackBuffer, $string, $hFont, $aInfo[0], $hFormat, $hBrush)
EndFunc   ;==>drawText

Func boxRender($index)
	Local $data, $x, $y
	$x = 0 ;always 0...
	$y = getBoxY($index)
	If ($y + $BoxH >= 0 And $y <= $height) Then ;render visible ones
		$data = getBoxData($index)
		_GDIPlus_GraphicsFillRect($hBackBuffer, $x, $y, $BoxW, $BoxH, $boxBrush) ;draw white box
		drawText($x, $y + $BoxH / 4, $data[0]) ;title
	EndIf
EndFunc   ;==>boxRender

Func boxUpdate($index, $delta)
	If ($BoxData[UBound($BoxData) - 1][1] + $delta > 203) And ($BoxData[UBound($BoxData) - 1][1] + $delta < ($BoxH + 1) * (UBound($BoxData) - 1)) Then ;region limits
		$BoxData[$index][1] += $delta ;update pos
	EndIf
EndFunc   ;==>boxUpdate

Func applyAcc($delta)
// ???
EndFunc


#EndRegion BOX

Func create($n)
	Local $strings[2]

	For $i = 0 To $n - 1
		$strings[0] = "Box Nº " & $i + 1
		newBox(0, ($BoxH + 1) * $i) ;1 pixel away from each other
		setBoxData($strings, $i)
	Next
EndFunc   ;==>create


Func render()
_GDIPlus_GraphicsClear($hBackBuffer, 0xFF000000)
	For $i = 0 To UBound($BoxData) - 1
		boxRender($i)
	Next
	_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $width, $height)
EndFunc   ;==>render

Func update()
$delta = 0
If _IsPressed("01") Then
		$pos = MouseGetPos()
		$yo = $pos[1]
		$xo = $pos[0]

		While _IsPressed("01")
			Sleep(25)
			$pos = MouseGetPos()
			$y = $pos[1]
			$x = $xo
			$delta = $y - $yo

			;ToolTip($delta,0,0)
			For $i = 0 To UBound($BoxData) - 1
				boxUpdate($i, $delta)
			Next

	render();show boxes while updating y pos


WEnd
EndIf


EndFunc   ;==>update

create(56);56 boxes

While Sleep(20)
	If GUIGetMsg() = -3 Then ExitLoop
	update()
	render()
WEnd

;clean up
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_BrushDispose($boxBrush)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_GraphicsDispose($hBackBuffer)
_GDIPlus_Shutdown()