Hilfe bei der GDIPlus Progressbar von Progandy

Hi.
Ich habe das absolute Problem, das ich ein voller GDiPlus Legasteniker bin und eigentlich nicht weis, was sich über die AutoIt Versionen hinweg alles geändert hat.
Progandys UDF läuft unter AutoIt 3.3.6.1 ohne Probleme, aber bei 3.3.8.1 und 3.3.12.0 wird nur Mist angezeigt.
Kann mal ein GDIPlus-Könner über die UDF schauen und mir dabei helfen?
autoit.de/wcf/attachment/25109/

So sieht das Ganze bei 3.3.6.1 aus:
autoit.de/wcf/attachment/25110/

Und so bei 3.3.8.1 und 3.3.12.0 :
autoit.de/wcf/attachment/25111/

Edit: Das kleinste Problem an der UDF ist das DLLCall($ghGDIPdll, "int",.... zu DLLCall($__g_hGDIPDll,........ wird, da scheint sich schon mal was am Konstantennamen geändert zu haben.

@chip siehe die Bilder in meinem 1. Post.

Aber das Ganze hat sich erledigt, habe die Lösung nach langem suchen im EN-Forum gefunden.
http://www.autoitscript.com/forum/topic/13…ol/#entry955661

Die Func _Gradient in der GDIpProgress war falsch.

;-------------------------------------------------------------------
#Region Gradient
;===============================================================================
;
; Function Name: _Gradient($RGB_Color1 ,$RGB_Color2, $Count)
; Description:: Returns an Array of Gradient Colors
; Parameter(s): $RGB_Color1 : The Start-Color in RGB Hexadecimal
; $RGB_Color2 : The End-Color in RGB Hexadecimal
; $Count : The number of Colors in the Gradient
; Requirement(s):
; Return Value(s): An Array with the Colors
; Author(s): Prog@ndy
;
;===============================================================================
;
Func _Gradient($RGB_Color1, $RGB_Color2, $Count, $ARGB = False)
Local $Color1_R, $Color1_G, $Color1_B, $Color2_R, $Color2_G, $Color2_B, $NeuCol_R, $NeuCol_G, $NeuCol_B
$ARGB = StringLeft("FF", 2 * $ARGB)
$Color1_R = BitAND(BitShift($RGB_Color1, 16), 0xff)
$Color1_G = BitAND(BitShift($RGB_Color1, 8), 0xff)
$Color1_B = BitAND($RGB_Color1, 0xff)
$Color2_R = BitAND(BitShift($RGB_Color2, 16), 0xff)
$Color2_G = BitAND(BitShift($RGB_Color2, 8), 0xff)
$Color2_B = BitAND($RGB_Color2, 0xff)
$Count -= 1 ; 0-basiert !
Local $arColors[$Count + 1], $pos1
For $i = 0 To $Count
$pos1 = $Count - $i
;-------------------------
$NeuCol_R = Int(($Color1_R * $pos1 + $Color2_R * $i) / ($Count))
$NeuCol_G = Int(($Color1_G * $pos1 + $Color2_G * $i) / ($Count))
$NeuCol_B = Int(($Color1_B * $pos1 + $Color2_B * $i) / ($Count))
;-------------------------
$arColors[$i] = Execute('0x' & $ARGB & Hex($NeuCol_R, 2) & Hex($NeuCol_G, 2) & Hex($NeuCol_B, 2))
Next
Return $arColors
EndFunc ;==>_Gradient

Hier mal die geänderte Version der UDF, lauffähig ab 3.3.8.1

Sehr schön Tweaky, aber ich habe den Thread nicht gefunden Oder nicht mehr gesucht, nachdem ich den EN-Thread gefunden habe