Icon auf Button - schlechte Qualität

#Region    ;************ Includes ************
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiButton.au3>
#include <GDIPlus.au3>
#include <WinAPIShellEx.au3>


#EndRegion    ;************ Includes ************


Opt("GUIOnEventMode", 1) ;0=disabled, 1=OnEvent mode enabled


$sIcon = @ScriptDir & "\icon.ico"
_GDIPlus_Startup()
$hGui = GUICreate("Test", 200, 400)
GUICtrlCreateIcon($sIcon, 0, 10, 10, 128, 128)
$hIcon = _WinAPI_ShellExtractIcon($sIcon, 0, 128, 128)
$hBmp_Icon = _GDIPlus_BitmapCreateFromHICON32($hIcon)
$hHBmp_Icon = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBmp_Icon)
$idButton = GUICtrlCreateButton("", 10, 200, 150, 150, $BS_BITMAP)
_WinAPI_DeleteObject(_SendMessage(GUICtrlGetHandle($idButton), $BM_SETIMAGE, $IMAGE_BITMAP, $hHBmp_Icon))
GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")
GUISetState()


While 1
	Sleep(10)
WEnd


Func _beenden()
	_WinAPI_DestroyIcon($hIcon)
	_GDIPlus_BitmapDispose($hBmp_Icon)
	_WinAPI_DeleteObject($hHBmp_Icon)
	_GDIPlus_Shutdown()
	GUIDelete()
	Exit
EndFunc   ;==>_beenden

#include <GUIConstantsEx.au3>


Opt("GUIOnEventMode", 1)


$sIcon = @ScriptDir & "\" & "icon.ico"


$hGui = GUICreate("Test", 200, 400)
GUICtrlCreateIcon($sIcon, 0, 10, 10, 128, 128)
$idButton = GUICtrlCreateButton("Some Text", 10, 200, 150, 150, 0x0400)
GUICtrlSetImage(-1, $sIcon)
GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")


GUISetState()


While 1
	Sleep(10)
WEnd


Func _beenden()
	Exit
EndFunc   ;==>_beenden

;needs GDIPlus.au3 at least from AutoIt version 3.3.9.23
#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>


_GDIPlus_Startup()
Global Const $STM_SETIMAGE = 0x0172
Global Const $hGUI = GUICreate("GDI+ Test", 200, 100)
GUISetBkColor(0x505050)
Global Const $iPicBtn = GUICtrlCreatePic("", 60, 38, 80, 24)
Global $aButtons = _GDIPlus_BitmapCreateButtonAndText("install", 80, 24)
_WinAPI_DeleteObject(GUICtrlSendMsg($iPicBtn, $STM_SETIMAGE, $IMAGE_BITMAP, $aButtons[0]))
GUISetState()


Global $aMouseInfo, $bShow = False, $bHide = False


Do
	If WinActive($hGUI) Then
		$aMouseInfo = GUIGetCursorInfo($hGUI) ;hover simulation
		Switch $aMouseInfo[4]
			Case $iPicBtn
				_WinAPI_DeleteObject(GUICtrlSendMsg($iPicBtn, $STM_SETIMAGE, $IMAGE_BITMAP, $aButtons[1]))
				$bShow = True
				$bHide = False
			Case Else
				_WinAPI_DeleteObject(GUICtrlSendMsg($iPicBtn, $STM_SETIMAGE, $IMAGE_BITMAP, $aButtons[0]))
				$bHide = True
				$bShow = False
		EndSwitch
	EndIf
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			_WinAPI_DeleteObject($aButtons[0])
			_WinAPI_DeleteObject($aButtons[1])
			_GDIPlus_Shutdown()


			Exit
		Case $iPicBtn
			MsgBox(0, "Information", "Button pressed")
	EndSwitch
Until False




; #FUNCTION# ====================================================================================================================
; Name ..........: _GDIPlus_BitmapCreateButtonAndText
; Description ...: Draws via GDI+ a Windows 8 style button with text
; Syntax ........: _GDIPlus_BitmapCreateButtonAndText($sString, $iWidth, $iHeight[, $iBgColor = 0xFF1BA0E1[, $iFontSize = 16[, $sFont = "Times New Roman"[,
;                  $iHoverColor = 0xFFC9388C[, $iFrameSize = 2[, $iFontFrameColor = 0x408AD5EA[, $iFontColor = 0xFFFFFFFF]]]]]])
; Parameters ....: $sString             - A string value.
;                  $iWidth              - An integer value.
;                  $iHeight             - An integer value.
;                  $iBgColor            - [optional] An integer value. Default is 0xFF1BA0E1.
;                  $iFontSize           - [optional] An integer value. Default is 16.
;                  $sFont               - [optional] A string value. Default is "Times New Roman".
;                  $iHoverColor         - [optional] An integer value. Default is 0xFFC9388C.
;                  $iFrameSize          - [optional] An integer value. Default is 2.
;                  $iFontFrameColor     - [optional] An integer value. Default is 0x408AD5EA.
;                  $iFontColor          - [optional] An integer value. Default is 0xFFFFFFFF.
; Return values .: an array with 2 GDI bitmap handles -> [0]: default button, [1]: hover button
; Author ........: UEZ
; Version .......: 0.85 build 2014-05-08
; Modified ......:
; Remarks .......: Dispose returned GDI bitmap handles when done
; Example .......: Yes
; ===============================================================================================================================
Func _GDIPlus_BitmapCreateButtonAndText($sString, $iWidth, $iHeight, $iBgColor = 0xFF1BA0E1, $iFontSize = 16, $sFont = "Times New Roman", $iHoverColor = 0xFFFFFFFF, $iFrameSize = 2, $iFontFrameColor = 0x408AD5EA, $iFontColor = 0xFFFFFFFF)
	;some checks
	If $sString = "" Then Return SetError(1, 0, 0)
	If Int($iWidth) < $iFrameSize * 2 Then Return SetError(2, 0, 0)
	If Int($iHeight) < $iFrameSize * 2 Then Return SetError(3, 0, 0)


    ;create font objects
	Local Const $hFormat = _GDIPlus_StringFormatCreate()
    Local Const $hFamily = _GDIPlus_FontFamilyCreate($sFont)
    Local $tLayout = _GDIPlus_RectFCreate(0, 0, $iWidth, $iHeight)
	_GDIPlus_StringFormatSetAlign($hFormat, 1) ;center string on X axis
	_GDIPlus_StringFormatSetLineAlign($hFormat, 1) ;center string on Y axis


	;create bitmap and graphics context handles
	Local Const $aBitmaps[2] = [_GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight), _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight)]
	Local Const $aGfxCtxt[2] = [_GDIPlus_ImageGetGraphicsContext($aBitmaps[0]), _GDIPlus_ImageGetGraphicsContext($aBitmaps[1])]


	;set drawing quality
	_GDIPlus_GraphicsSetSmoothingMode($aGfxCtxt[0], $GDIP_SMOOTHINGMODE_HIGHQUALITY)
	_GDIPlus_GraphicsSetTextRenderingHint($aGfxCtxt[0], $GDIP_TEXTRENDERINGHINT_ANTIALIASGRIDFIT)


	;define brush and pen objects
	Local Const $hBrushFontColor = _GDIPlus_BrushCreateSolid($iFontColor)
	Local Const $hPenFontFrameColor = _GDIPlus_PenCreate($iFontFrameColor, 1), $hPenHoverColor = _GDIPlus_PenCreate($iHoverColor, $iFrameSize)


	;create path object
	Local Const $hPath = _GDIPlus_PathCreate()


	;create cloned path object for string measurement
	Local Const $hPath_Dummy = _GDIPlus_PathClone($hPath)
	_GDIPlus_PathAddString($hPath_Dummy, $sString, $tLayout, $hFamily, 0, $iFontSize, $hFormat)
;~ 	Local Const $aInfo = _GDIPlus_PathGetWorldBounds($hPath_Dummy)
;~ 	$tLayout.Y = ($iHeight - $aInfo[3]) / 2 - Ceiling($aInfo[1]) ;center string on Y axis


	;add string to path
	_GDIPlus_PathAddString($hPath, $sString, $tLayout, $hFamily, 1, $iFontSize, $hFormat)


	;clear bitmap and draw string
	_GDIPlus_GraphicsClear($aGfxCtxt[0], $iBgColor)
    _GDIPlus_GraphicsFillPath($aGfxCtxt[0], $hPath, $hBrushFontColor)
    _GDIPlus_GraphicsDrawPath($aGfxCtxt[0], $hPath, $hPenFontFrameColor)


	;draw rectangle on cloned bitmap for hover effect
	_GDIPlus_GraphicsDrawImageRect($aGfxCtxt[1], $aBitmaps[0], 0, 0, $iWidth, $iHeight)
	_GDIPlus_GraphicsDrawRect($aGfxCtxt[1], $iFrameSize / 2, $iFrameSize / 2, $iWidth - $iFrameSize, $iHeight - $iFrameSize, $hPenHoverColor)


	;dispose object resources
	_GDIPlus_FontFamilyDispose($hFamily)
	_GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_PathDispose($hPath)
    _GDIPlus_PathDispose($hPath_Dummy)
	_GDIPlus_GraphicsDispose($aGfxCtxt[0])
	_GDIPlus_GraphicsDispose($aGfxCtxt[1])
	_GDIPlus_BrushDispose($hBrushFontColor)
	_GDIPlus_PenDispose($hPenFontFrameColor)
	_GDIPlus_PenDispose($hPenHoverColor)


	;create GDI bitmap for later usage
	Local $aHBitmaps[2] = [_GDIPlus_BitmapCreateHBITMAPFromBitmap($aBitmaps[0]), _GDIPlus_BitmapCreateHBITMAPFromBitmap($aBitmaps[1])]


	;dispose GDI+ bitmaps
	_GDIPlus_BitmapDispose($aBitmaps[0])
	_GDIPlus_BitmapDispose($aBitmaps[1])
	Return $aHBitmaps
EndFunc