Bildgröße laufend an GUI anpassen

#region ;************ Includes ************
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ScreenCapture.au3>
#include <Constants.au3>
#include <SendMessage.au3>
#endregion ;************ Includes ************

Global $iGUI_WidthInitial = 800, $iMinWidth = 200, $iMinHeight, $iMaxWidth = 1300, $iMaxHeight, $fRatio_Image, $fRatio_GUI
Global $hBmp, $hDC_Mem
Global $sPath_ImageInitial = FileOpenDialog("Bild auswählen", "", "Bitmap (*.bmp)")

Opt("GUIOnEventMode", 1) ; 0=ausgeschaltet, 1=OnEvent Modus aktiviert

Global Const $BITMAP = "LONG bmType;LONG bmWidth;LONG bmHeight;LONG bmWidthBytes;WORD bmPlanes;WORD bmBitsPixel;PTR bmBits;"
Global Const $HWND_DESKTOP = _WinAPI_GetDesktopWindow()

$hDC = _WinAPI_GetDC($HWND_DESKTOP)
$hDC_Mem = _WinAPI_CreateCompatibleDC($hDC)
_WinAPI_ReleaseDC($HWND_DESKTOP, $hDC)

GUIRegisterMsg($WM_ERASEBKGND, "OnEraseBkGnd")
GUIRegisterMsg($WM_SIZING, "WM_SIZING")
GUIRegisterMsg($WM_GETMINMAXINFO, "WM_GETMINMAXINFO")

Global $hWnd = GUICreate("Test", 0, 0, -1, -1, $WS_OVERLAPPEDWINDOW)
GUISetState()

_LoadImage($sPath_ImageInitial)

GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")

;Schleife
While Sleep(1000)
WEnd

Func _LoadImage($sPath_Image)
Local $tRect = DllStructCreate($tagRECT)
Local $tBM = DllStructCreate($BITMAP)

If $hBmp Then _WinAPI_DeleteObject($hBmp)

$hBmp = _WinAPI_LoadImage(0, $sPath_Image, $IMAGE_BITMAP, 0, 0, $LR_LOADFROMFILE)
_WinAPI_GetObject($hBmp, DllStructGetSize($tBM), DllStructGetPtr($tBM))
$fRatio_Image = DllStructGetData($tBM, "bmWidth") / DllStructGetData($tBM, "bmHeight")

DllStructSetData($tRect, "Left", 0)
DllStructSetData($tRect, "Top", 0)
DllStructSetData($tRect, "Right", $iGUI_WidthInitial)
DllStructSetData($tRect, "Bottom", $iGUI_WidthInitial / $fRatio_Image)

_WinAPI_AdjustWindowRectEx($tRect, BitXOR(_WinAPI_GetWindowLong($hWnd, $GWL_STYLE), $WS_OVERLAPPEDWINDOW), _WinAPI_GetWindowLong($hWnd, $GWL_EXSTYLE))
$iWidth = DllStructGetData($tRect, "Right") - DllStructGetData($tRect, "Left")
$iHeight = DllStructGetData($tRect, "Bottom") - DllStructGetData($tRect, "Top")
$iX = @DesktopWidth / 2 - $iWidth / 2
$iY = @DesktopHeight / 2 - $iHeight / 2
$fRatio_GUI = $iWidth / $iHeight

$iMinHeight = $iMinWidth / $fRatio_GUI ;min. Höhe anhand der min. Breite und des Seitenverhältnisse berechnen
$iMaxHeight = $iMaxWidth / $fRatio_GUI ;max. Höhe anhand der max. Breite und des Seitenverhältnisse berechnen
If $iMaxHeight > @DesktopHeight Then ;max. Höhe größer als der Bildschirm >>> neue max. Breite ermitteln
$iMaxHeight = @DesktopHeight
$iMaxWidth = $iMaxHeight * $fRatio_GUI
EndIf
_WinAPI_SetWindowPos($hWnd, 0, $iX, $iY, $iWidth, $iHeight, $SWP_NOZORDER)
EndFunc ;==>_LoadImage

Func OnEraseBkGnd($hWnd, $message, $wParam, $lParam)
Local $rcClient
Local $hObjOld
Local $rcRight, $rcBottom
Local $bmWidth, $bmHeight
Local $bm = DllStructCreate($BITMAP)

If (Not $hBmp) Then Return 1

; get the window's client area
$rcClient = _WinAPI_GetClientRect($hWnd)

$rcRight = DllStructGetData($rcClient, "Right")
$rcBottom = DllStructGetData($rcClient, "Bottom")

; get the bitmap dimensions
_WinAPI_GetObject($hBmp, DllStructGetSize($bm), DllStructGetPtr($bm))

; select the bitmap into the memory DC
$hObjOld = _WinAPI_SelectObject($hDC_Mem, $hBmp)

$bmWidth = DllStructGetData($bm, "bmWidth")
$bmHeight = DllStructGetData($bm, "bmHeight")

DllCall("gdi32.dll", "INT", "SetStretchBltMode", "HANDLE", $wParam, "INT", 4)

StretchBlt($wParam, 0, 0, $rcRight, $rcBottom, $hDC_Mem, 0, 0, $bmWidth, $bmHeight, $SRCCOPY)

_WinAPI_SelectObject($hDC_Mem, $hObjOld)

Return 1
EndFunc ;==>OnEraseBkGnd

Func StretchBlt($hDCDest, $nXOriginDest, $nYOriginDest, $nWidthDest, $nHeightDest, $hDCSrc, $nXOriginSrc, $nYOriginSrc, $nWidthSrc, $nHeightSrc, $dwRop)
Local $aRes = DllCall("gdi32.dll", "BOOL", "StretchBlt", "HANDLE", $hDCDest, "INT", $nXOriginDest, "INT", $nYOriginDest, "INT", $nWidthDest, "INT", $nHeightDest, "HANDLE", $hDCSrc, "INT", $nXOriginSrc, "INT", $nYOriginSrc, "INT", $nWidthSrc, "INT", $nHeightSrc, "DWORD", $dwRop)
Return $aRes[0]
EndFunc ;==>StretchBlt

Func WM_GETMINMAXINFO($hWnd, $Msg, $wParam, $lParam)
Local $minmaxinfo = DllStructCreate("int;int;int;int;int;int;int;int;int;int", $lParam)
DllStructSetData($minmaxinfo, 7, $iMinWidth) ; min X
DllStructSetData($minmaxinfo, 8, $iMinHeight) ; min Y
DllStructSetData($minmaxinfo, 9, $iMaxWidth) ; max X
DllStructSetData($minmaxinfo, 10, $iMaxHeight) ; max Y
Return "GUI_RUNDEFMSG"
EndFunc ;==>WM_GETMINMAXINFO

Func WM_SIZING($hWnd, $iMsg, $wParam, $lParam)
Local $tRect_Cur = DllStructCreate("int[4]", $lParam)
Local $left = DllStructGetData($tRect_Cur, 1, 1)
Local $top = DllStructGetData($tRect_Cur, 1, 2)
Local $right = DllStructGetData($tRect_Cur, 1, 3)
Local $bottom = DllStructGetData($tRect_Cur, 1, 4)

Switch $wParam ;drag side or corner
Case 1, 2, 4, 7
Local $iNewY = Int(($right - $left) / $fRatio_GUI)
DllStructSetData($tRect_Cur, 1, $top + $iNewY, 4)
Case Else
Local $iNewX = Int(($bottom - $top) * $fRatio_GUI)
DllStructSetData($tRect_Cur, 1, $left + $iNewX, 3)
EndSwitch

Return "GUI_RUNDEFMSG"
EndFunc ;==>WM_SIZING

Func _beenden()
; free resources
_WinAPI_DeleteObject($hBmp)
_WinAPI_DeleteDC($hDC_Mem)

Exit
EndFunc ;==>_beenden

; #FUNCTION# ====================================================================================================================
; Name...........: _WinAPI_AdjustWindowRectEx
; Description....: Calculates the required size of the window rectangle, based on the desired size of the client rectangle.
; Syntax.........: _WinAPI_AdjustWindowRectEx ( ByRef $tRECT, $iStyle [, $iExStyle [, $fMenu] )
; Parameters.....: $tRECT - $tagRECT structure that contains the coordinates of the desired client area.
; $iStyle - The window style of the window whose required size is to be calculated. Note that you cannot
; specify the $WS_OVERLAPPED style.
; $iExStyle - The extended window style of the window whose required size is to be calculated.
; $fMenu - Specifies whether the window has a menu, valid values:
; |TRUE - The window has a menu, valid values:
; |FALSE - The window does not has a menu. (Default)
; Return values..: Success - 1.
; Failure - 0 and sets the @error flag to non-zero.
; Author.........: Yashied
; Modified.......:
; Remarks........: None
; Related........:
; Link...........: @@MsdnLink@@ AdjustWindowRectEx
; Example........: Yes
; ===============================================================================================================================

Func _WinAPI_AdjustWindowRectEx(ByRef $tRect, $iStyle, $iExStyle = 0, $fMenu = 0)

Local $Ret = DllCall('user32.dll', 'int', 'AdjustWindowRectEx', 'ptr', DllStructGetPtr($tRect), 'dword', $iStyle, 'int', $fMenu, 'dword', $iExStyle)

If (@error) Or (Not $Ret[0]) Then
Return SetError(1, 0, 0)
EndIf
Return 1
EndFunc ;==>_WinAPI_AdjustWindowRectEx

#region ;************ Includes ************
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ScreenCapture.au3>
#include <Constants.au3>
#include <SendMessage.au3>
#endregion ;************ Includes ************

Global $iGUI_WidthInitial = 800, $iMinWidth = 200, $iMinHeight, $iMaxWidth = 1300, $iMaxHeight, $fRatio_Image, $fRatio_GUI
Global $hBmp, $hDC_Mem
Global $sPath_ImageInitial = FileOpenDialog("Bild auswählen", "", "Images (*.jpeg;*.jpg;*.png;*.bmp)")

Opt("GUIOnEventMode", 1) ; 0=ausgeschaltet, 1=OnEvent Modus aktiviert

Global Const $BITMAP = "LONG bmType;LONG bmWidth;LONG bmHeight;LONG bmWidthBytes;WORD bmPlanes;WORD bmBitsPixel;PTR bmBits;"
Global Const $HWND_DESKTOP = _WinAPI_GetDesktopWindow()

$hDC = _WinAPI_GetDC($HWND_DESKTOP)
$hDC_Mem = _WinAPI_CreateCompatibleDC($hDC)
_WinAPI_ReleaseDC($HWND_DESKTOP, $hDC)

GUIRegisterMsg($WM_ERASEBKGND, "OnEraseBkGnd")
GUIRegisterMsg($WM_SIZING, "WM_SIZING")
GUIRegisterMsg($WM_GETMINMAXINFO, "WM_GETMINMAXINFO")

Global $hWnd = GUICreate("Test", 0, 0, -1, -1, $WS_OVERLAPPEDWINDOW)
GUISetState()

GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")

_GDIPlus_Startup()
_LoadImage($sPath_ImageInitial)

;Schleife
While Sleep(1000)
WEnd

Func _LoadImage($sPath_Image)
Local $tRect = DllStructCreate($tagRECT)
Local $tBM = DllStructCreate($BITMAP)
Local $hImage = _GDIPlus_ImageLoadFromFile($sPath_Image)

If $hBmp Then _WinAPI_DeleteObject($hBmp)

$hBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage, 0)
_GDIPlus_ImageDispose($hImage)
_WinAPI_GetObject($hBmp, DllStructGetSize($tBM), DllStructGetPtr($tBM))
$fRatio_Image = DllStructGetData($tBM, "bmWidth") / DllStructGetData($tBM, "bmHeight")

DllStructSetData($tRect, "Left", 0)
DllStructSetData($tRect, "Top", 0)
DllStructSetData($tRect, "Right", $iGUI_WidthInitial)
DllStructSetData($tRect, "Bottom", $iGUI_WidthInitial / $fRatio_Image)

_WinAPI_AdjustWindowRectEx($tRect, BitXOR(_WinAPI_GetWindowLong($hWnd, $GWL_STYLE), $WS_OVERLAPPEDWINDOW), _WinAPI_GetWindowLong($hWnd, $GWL_EXSTYLE))
$iWidth = DllStructGetData($tRect, "Right") - DllStructGetData($tRect, "Left")
$iHeight = DllStructGetData($tRect, "Bottom") - DllStructGetData($tRect, "Top")
$iX = @DesktopWidth / 2 - $iWidth / 2
$iY = @DesktopHeight / 2 - $iHeight / 2
$fRatio_GUI = $iWidth / $iHeight

$iMinHeight = $iMinWidth / $fRatio_GUI ;min. Höhe anhand der min. Breite und des Seitenverhältnisse berechnen
$iMaxHeight = $iMaxWidth / $fRatio_GUI ;max. Höhe anhand der max. Breite und des Seitenverhältnisse berechnen
If $iMaxHeight > @DesktopHeight Then ;max. Höhe größer als der Bildschirm >>> neue max. Breite ermitteln
$iMaxHeight = @DesktopHeight
$iMaxWidth = $iMaxHeight * $fRatio_GUI
EndIf
_WinAPI_SetWindowPos($hWnd, 0, $iX, $iY, $iWidth, $iHeight, $SWP_NOZORDER)
EndFunc ;==>_LoadImage

Func OnEraseBkGnd($hWnd, $message, $wParam, $lParam)
Local $rcClient
Local $hObjOld
Local $rcRight, $rcBottom
Local $bmWidth, $bmHeight
Local $bm = DllStructCreate($BITMAP)

If (Not $hBmp) Then Return 1

; get the window's client area
$rcClient = _WinAPI_GetClientRect($hWnd)

$rcRight = DllStructGetData($rcClient, "Right")
$rcBottom = DllStructGetData($rcClient, "Bottom")

; get the bitmap dimensions
_WinAPI_GetObject($hBmp, DllStructGetSize($bm), DllStructGetPtr($bm))

; select the bitmap into the memory DC
$hObjOld = _WinAPI_SelectObject($hDC_Mem, $hBmp)

$bmWidth = DllStructGetData($bm, "bmWidth")
$bmHeight = DllStructGetData($bm, "bmHeight")

DllCall("gdi32.dll", "INT", "SetStretchBltMode", "HANDLE", $wParam, "INT", 4)

StretchBlt($wParam, 0, 0, $rcRight, $rcBottom, $hDC_Mem, 0, 0, $bmWidth, $bmHeight, $SRCCOPY)

_WinAPI_SelectObject($hDC_Mem, $hObjOld)

Return 1
EndFunc ;==>OnEraseBkGnd

Func StretchBlt($hDCDest, $nXOriginDest, $nYOriginDest, $nWidthDest, $nHeightDest, $hDCSrc, $nXOriginSrc, $nYOriginSrc, $nWidthSrc, $nHeightSrc, $dwRop)
Local $aRes = DllCall("gdi32.dll", "BOOL", "StretchBlt", "HANDLE", $hDCDest, "INT", $nXOriginDest, "INT", $nYOriginDest, "INT", $nWidthDest, "INT", $nHeightDest, "HANDLE", $hDCSrc, "INT", $nXOriginSrc, "INT", $nYOriginSrc, "INT", $nWidthSrc, "INT", $nHeightSrc, "DWORD", $dwRop)
Return $aRes[0]
EndFunc ;==>StretchBlt

Func WM_GETMINMAXINFO($hWnd, $Msg, $wParam, $lParam)
Local $minmaxinfo = DllStructCreate("int;int;int;int;int;int;int;int;int;int", $lParam)
DllStructSetData($minmaxinfo, 7, $iMinWidth) ; min X
DllStructSetData($minmaxinfo, 8, $iMinHeight) ; min Y
DllStructSetData($minmaxinfo, 9, $iMaxWidth) ; max X
DllStructSetData($minmaxinfo, 10, $iMaxHeight) ; max Y
Return "GUI_RUNDEFMSG"
EndFunc ;==>WM_GETMINMAXINFO

Func WM_SIZING($hWnd, $iMsg, $wParam, $lParam)
Local $tRect_Cur = DllStructCreate("int[4]", $lParam)
Local $left = DllStructGetData($tRect_Cur, 1, 1)
Local $top = DllStructGetData($tRect_Cur, 1, 2)
Local $right = DllStructGetData($tRect_Cur, 1, 3)
Local $bottom = DllStructGetData($tRect_Cur, 1, 4)

Switch $wParam ;drag side or corner
Case 1, 2, 4, 7
Local $iNewY = Int(($right - $left) / $fRatio_GUI)
DllStructSetData($tRect_Cur, 1, $top + $iNewY, 4)
Case Else
Local $iNewX = Int(($bottom - $top) * $fRatio_GUI)
DllStructSetData($tRect_Cur, 1, $left + $iNewX, 3)
EndSwitch

Return "GUI_RUNDEFMSG"
EndFunc ;==>WM_SIZING

Func _beenden()
; free resources
_WinAPI_DeleteObject($hBmp)
_WinAPI_DeleteDC($hDC_Mem)

_GDIPlus_Shutdown()

Exit
EndFunc ;==>_beenden

; #FUNCTION# ====================================================================================================================
; Name...........: _WinAPI_AdjustWindowRectEx
; Description....: Calculates the required size of the window rectangle, based on the desired size of the client rectangle.
; Syntax.........: _WinAPI_AdjustWindowRectEx ( ByRef $tRECT, $iStyle [, $iExStyle [, $fMenu] )
; Parameters.....: $tRECT - $tagRECT structure that contains the coordinates of the desired client area.
; $iStyle - The window style of the window whose required size is to be calculated. Note that you cannot
; specify the $WS_OVERLAPPED style.
; $iExStyle - The extended window style of the window whose required size is to be calculated.
; $fMenu - Specifies whether the window has a menu, valid values:
; |TRUE - The window has a menu, valid values:
; |FALSE - The window does not has a menu. (Default)
; Return values..: Success - 1.
; Failure - 0 and sets the @error flag to non-zero.
; Author.........: Yashied
; Modified.......:
; Remarks........: None
; Related........:
; Link...........: @@MsdnLink@@ AdjustWindowRectEx
; Example........: Yes
; ===============================================================================================================================

Func _WinAPI_AdjustWindowRectEx(ByRef $tRect, $iStyle, $iExStyle = 0, $fMenu = 0)

Local $Ret = DllCall('user32.dll', 'int', 'AdjustWindowRectEx', 'ptr', DllStructGetPtr($tRect), 'dword', $iStyle, 'int', $fMenu, 'dword', $iExStyle)

If (@error) Or (Not $Ret[0]) Then
Return SetError(1, 0, 0)
EndIf
Return 1
EndFunc ;==>_WinAPI_AdjustWindowRectEx

#region ;************ Includes ************
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ScreenCapture.au3>
#include <Constants.au3>
#include <SendMessage.au3>
#endregion ;************ Includes ************

Global $iGUI_WidthInitial = 800, $iMinWidth = 200, $iMinHeight, $iMaxWidth = 1300, $iMaxHeight, $fRatio_Image, $fRatio_GUI
Global $hBmp, $hDC_Mem
Global $sPath_ImageInitial = FileOpenDialog("Bild auswählen", "", "Images (*.jpeg;*.jpg;*.png;*.bmp)")

Opt("GUIOnEventMode", 1) ; 0=ausgeschaltet, 1=OnEvent Modus aktiviert

Global Const $BITMAP = "LONG bmType;LONG bmWidth;LONG bmHeight;LONG bmWidthBytes;WORD bmPlanes;WORD bmBitsPixel;PTR bmBits;"
Global Const $HWND_DESKTOP = _WinAPI_GetDesktopWindow()

$hDC = _WinAPI_GetDC($HWND_DESKTOP)
$hDC_Mem = _WinAPI_CreateCompatibleDC($hDC)
_WinAPI_ReleaseDC($HWND_DESKTOP, $hDC)

GUIRegisterMsg($WM_ERASEBKGND, "OnEraseBkGnd")
GUIRegisterMsg($WM_SIZING, "WM_SIZING")
GUIRegisterMsg($WM_GETMINMAXINFO, "WM_GETMINMAXINFO")

Global $hWnd = GUICreate("Test", 0, 0, -1, -1, $WS_OVERLAPPEDWINDOW)
GUISetState()

GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")

_GDIPlus_Startup()
_LoadImage($sPath_ImageInitial)

;Schleife
While Sleep(1000)
WEnd

Func _LoadImage($sPath_Image)
Local $tRect = DllStructCreate($tagRECT)
Local $tBM = DllStructCreate($BITMAP)
Local $hImage = _GDIPlus_ImageLoadFromFile($sPath_Image)

If $hBmp Then _WinAPI_DeleteObject($hBmp)

$hBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage, 0)
_GDIPlus_ImageDispose($hImage)
_WinAPI_GetObject($hBmp, DllStructGetSize($tBM), DllStructGetPtr($tBM))
$fRatio_Image = DllStructGetData($tBM, "bmWidth") / DllStructGetData($tBM, "bmHeight")

DllStructSetData($tRect, "Left", 0)
DllStructSetData($tRect, "Top", 0)
DllStructSetData($tRect, "Right", $iGUI_WidthInitial)
DllStructSetData($tRect, "Bottom", $iGUI_WidthInitial / $fRatio_Image)

_WinAPI_AdjustWindowRectEx($tRect, _WinAPI_GetWindowLong($hWnd, $GWL_STYLE), _WinAPI_GetWindowLong($hWnd, $GWL_EXSTYLE))
$iWidth = DllStructGetData($tRect, "Right") - DllStructGetData($tRect, "Left")
$iHeight = DllStructGetData($tRect, "Bottom") - DllStructGetData($tRect, "Top")
$iX = @DesktopWidth / 2 - $iWidth / 2
$iY = @DesktopHeight / 2 - $iHeight / 2
$fRatio_GUI = $iWidth / $iHeight

$iMinHeight = $iMinWidth / $fRatio_GUI ;min. Höhe anhand der min. Breite und des Seitenverhältnisse berechnen
$iMaxHeight = $iMaxWidth / $fRatio_GUI ;max. Höhe anhand der max. Breite und des Seitenverhältnisse berechnen
If $iMaxHeight > @DesktopHeight Then ;max. Höhe größer als der Bildschirm >>> neue max. Breite ermitteln
$iMaxHeight = @DesktopHeight
$iMaxWidth = $iMaxHeight * $fRatio_GUI
EndIf
_WinAPI_SetWindowPos($hWnd, 0, $iX, $iY, $iWidth, $iHeight, $SWP_NOZORDER)
EndFunc ;==>_LoadImage

Func OnEraseBkGnd($hWnd, $message, $wParam, $lParam)
Local $rcClient
Local $hObjOld
Local $rcRight, $rcBottom
Local $bmWidth, $bmHeight
Local $bm = DllStructCreate($BITMAP)

If (Not $hBmp) Then Return 1

; get the window's client area
$rcClient = _WinAPI_GetClientRect($hWnd)

$rcRight = DllStructGetData($rcClient, "Right")
$rcBottom = DllStructGetData($rcClient, "Bottom")

; get the bitmap dimensions
_WinAPI_GetObject($hBmp, DllStructGetSize($bm), DllStructGetPtr($bm))

; select the bitmap into the memory DC
$hObjOld = _WinAPI_SelectObject($hDC_Mem, $hBmp)

$bmWidth = DllStructGetData($bm, "bmWidth")
$bmHeight = DllStructGetData($bm, "bmHeight")

DllCall("gdi32.dll", "INT", "SetStretchBltMode", "HANDLE", $wParam, "INT", 4)

StretchBlt($wParam, 0, 0, $rcRight, $rcBottom, $hDC_Mem, 0, 0, $bmWidth, $bmHeight, $SRCCOPY)

_WinAPI_SelectObject($hDC_Mem, $hObjOld)

Return 1
EndFunc ;==>OnEraseBkGnd

Func StretchBlt($hDCDest, $nXOriginDest, $nYOriginDest, $nWidthDest, $nHeightDest, $hDCSrc, $nXOriginSrc, $nYOriginSrc, $nWidthSrc, $nHeightSrc, $dwRop)
Local $aRes = DllCall("gdi32.dll", "BOOL", "StretchBlt", "HANDLE", $hDCDest, "INT", $nXOriginDest, "INT", $nYOriginDest, "INT", $nWidthDest, "INT", $nHeightDest, "HANDLE", $hDCSrc, "INT", $nXOriginSrc, "INT", $nYOriginSrc, "INT", $nWidthSrc, "INT", $nHeightSrc, "DWORD", $dwRop)
Return $aRes[0]
EndFunc ;==>StretchBlt

Func WM_GETMINMAXINFO($hWnd, $Msg, $wParam, $lParam)
Local $minmaxinfo = DllStructCreate("int;int;int;int;int;int;int;int;int;int", $lParam)
DllStructSetData($minmaxinfo, 7, $iMinWidth) ; min X
DllStructSetData($minmaxinfo, 8, $iMinHeight) ; min Y
DllStructSetData($minmaxinfo, 9, $iMaxWidth) ; max X
DllStructSetData($minmaxinfo, 10, $iMaxHeight) ; max Y
Return "GUI_RUNDEFMSG"
EndFunc ;==>WM_GETMINMAXINFO

Func WM_SIZING($hWnd, $iMsg, $wParam, $lParam)
Local $tRect_Cur = DllStructCreate("int[4]", $lParam)
Local $left = DllStructGetData($tRect_Cur, 1, 1)
Local $top = DllStructGetData($tRect_Cur, 1, 2)
Local $right = DllStructGetData($tRect_Cur, 1, 3)
Local $bottom = DllStructGetData($tRect_Cur, 1, 4)

Switch $wParam ;drag side or corner
Case 1, 2, 4, 7
Local $iNewY = Int(($right - $left) / $fRatio_GUI)
DllStructSetData($tRect_Cur, 1, $top + $iNewY, 4)
Case Else
Local $iNewX = Int(($bottom - $top) * $fRatio_GUI)
DllStructSetData($tRect_Cur, 1, $left + $iNewX, 3)
EndSwitch

Return "GUI_RUNDEFMSG"
EndFunc ;==>WM_SIZING

Func _beenden()
; free resources
_WinAPI_DeleteObject($hBmp)
_WinAPI_DeleteDC($hDC_Mem)

_GDIPlus_Shutdown()

Exit
EndFunc ;==>_beenden

; #FUNCTION# ====================================================================================================================
; Name...........: _WinAPI_AdjustWindowRectEx
; Description....: Calculates the required size of the window rectangle, based on the desired size of the client rectangle.
; Syntax.........: _WinAPI_AdjustWindowRectEx ( ByRef $tRECT, $iStyle [, $iExStyle [, $fMenu] )
; Parameters.....: $tRECT - $tagRECT structure that contains the coordinates of the desired client area.
; $iStyle - The window style of the window whose required size is to be calculated. Note that you cannot
; specify the $WS_OVERLAPPED style.
; $iExStyle - The extended window style of the window whose required size is to be calculated.
; $fMenu - Specifies whether the window has a menu, valid values:
; |TRUE - The window has a menu, valid values:
; |FALSE - The window does not has a menu. (Default)
; Return values..: Success - 1.
; Failure - 0 and sets the @error flag to non-zero.
; Author.........: Yashied
; Modified.......:
; Remarks........: None
; Related........:
; Link...........: @@MsdnLink@@ AdjustWindowRectEx
; Example........: Yes
; ===============================================================================================================================

Func _WinAPI_AdjustWindowRectEx(ByRef $tRect, $iStyle, $iExStyle = 0, $fMenu = 0)

Local $Ret = DllCall('user32.dll', 'int', 'AdjustWindowRectEx', 'ptr', DllStructGetPtr($tRect), 'dword', $iStyle, 'int', $fMenu, 'dword', $iExStyle)

If (@error) Or (Not $Ret[0]) Then
Return SetError(1, 0, 0)
EndIf
Return 1
EndFunc ;==>_WinAPI_AdjustWindowRectEx

#include <WinAPI.au3>
#include <Constants.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>

; -Author: name22 (http://www.autoit.de)

Opt("GUIOnEventMode")

Global Const $iFlag = BitOR($SWP_NOSIZE, $SWP_NOZORDER), $tagMSLLHOOKSTRUCT = $tagPOINT & ";dword mouseData;dword flags;dword time;ulong_ptr dwExtraInfo"
Global $hWnd_Magnifier, $hWnd_Desktop, $hDC_Window, $hDC_Desktop
Global $hDll_GDI32 = DllOpen("gdi32.dll"), $hDll_User32 = DllOpen("user32.dll")

Global $iGUIWidth = 100
Global $iGUIHeight = 100
Global $iCaptureWidth = 50
Global $iCaptureHeight = 50

$hWnd_Magnifier = GUICreate("", $iGUIWidth, $iGUIHeight, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
GUISetState()

$hWnd_Desktop = _WinAPI_GetDesktopWindow()
$hDC_Window = _WinAPI_GetDC($hWnd_Magnifier)
$hDC_Desktop = _WinAPI_GetDC($hWnd_Desktop)
DllCall($hDll_GDI32, "INT", "SetStretchBltMode", "HANDLE", $hDC_Window, "INT", 3)

$hMouseProc = DllCallbackRegister("_MouseProc", "int", "int;ptr;ptr")
$hMouseHook = _WinAPI_SetWindowsHookEx($WH_MOUSE_LL, DllCallbackGetPtr($hMouseProc), _WinAPI_GetModuleHandle(0), 0)

OnAutoItExitRegister("_Shutdown")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
HotKeySet("{ESC}", "_Exit")

_ReDraw(_WinAPI_GetMousePosX(), _WinAPI_GetMousePosY())

While Sleep(1000)
WEnd

Func _MouseProc($nCode, $wParam, $lParam)
If $nCode < 0 Then Return _WinAPI_CallNextHookEx($hMouseHook, $nCode, $wParam, $lParam)

Local $iEvent = BitAND($wParam, 0xFFFF)
If $iEvent = $WM_MOUSEMOVE Then
Local $tMHook = DllStructCreate($tagMSLLHOOKSTRUCT, $lParam)
_ReDraw(DllStructGetData($tMHook, "X"), DllStructGetData($tMHook, "Y"))
EndIf

Return _WinAPI_CallNextHookEx($hMouseHook, $nCode, $wParam, $lParam)
EndFunc

Func _ReDraw($iX_Mouse, $iY_Mouse)
Local $iX_MouseTmp = $iX_Mouse
Local $iY_MouseTmp = $iY_Mouse
If $iX_MouseTmp < 0 Then $iX_MouseTmp = 0
If $iX_MouseTmp > 1920 - $iGUIWidth - $iCaptureWidth / 2 - 2 Then $iX_MouseTmp = 1920 - $iGUIWidth - $iCaptureWidth / 2 - 2
If $iY_MouseTmp < 0 Then $iY_MouseTmp = 0
If $iY_MouseTmp > 1080 - $iGUIHeight - $iCaptureHeight / 2 - 2 Then $iY_MouseTmp = 1080 - $iGUIHeight - $iCaptureHeight / 2 - 2
DllCall($hDll_User32, "BOOL", "SetWindowPos", "HWND", $hWnd_Magnifier, "HWND", 0, "INT", $iX_MouseTmp + $iCaptureWidth / 2 + 2, "INT", $iY_MouseTmp + $iCaptureHeight / 2 + 2, "INT", 0, "INT", 0, "UINT", $iFlag)
DllCall($hDll_GDI32, "INT", "StretchBlt", "HWND", $hDC_Window, "INT", 0, "INT", 0, "INT", $iGUIWidth, "INT", $iGUIHeight, "HWND", $hDC_Desktop, "INT", $iX_Mouse - $iCaptureWidth / 2, "INT", $iY_Mouse - $iCaptureHeight / 2, "INT", $iCaptureWidth, "INT", $iCaptureHeight, "DWORD", $SRCCOPY)
EndFunc ;==>_ReDraw

Func _Exit()
Exit
EndFunc ;==>_Exit

Func _Shutdown()
_WinAPI_UnhookWindowsHookEx($hMouseHook)
DllCallbackFree($hMouseProc)
_WinAPI_ReleaseDC($hWnd_Magnifier, $hDC_Window)
_WinAPI_ReleaseDC($hWnd_Desktop, $hDC_Desktop)
DllClose($hDll_GDI32)
DllClose($hDll_User32)
EndFunc

; #FUNCTION# ====================================================================================================================
; Name...........: _WinAPI_StretchBlt
; Description....: Copies a bitmap from a source rectangle into a destination rectangle, stretching or compressing the bitmap
; to fit the dimensions of the destination rectangle, if necessary.
; Syntax.........: _WinAPI_StretchBlt ( $hDestDC, $iXDest, $iYDest, $iWidthDest, $iHeightDest, $hSrcDC, $iXSrc, $iYSrc, $iWidthSrc, $iHeightSrc, $iRop )
; Parameters.....: $hDestDC - Handle to the destination device context.
; $iXDest - The x-coordinate, in logical units, of the upper-left corner of the destination rectangle.
; $iYDest - The y-coordinate, in logical units, of the upper-left corner of the destination rectangle.
; $iWidthDest - The width, in logical units, of the destination rectangle.
; $iHeightDest - The height, in logical units, of the destination rectangle.
; $hSrcDC - Handle to the source device context.
; $iXSrc - The x-coordinate, in logical units, of the upper-left corner of the source rectangle.
; $iYSrc - The y-coordinate, in logical units, of the upper-left corner of the source rectangle.
; $iWidthSrc - The width, in logical units, of the source rectangle.
; $iHeightSrc - The height, in logical units, of the source rectangle.
; $iRop - The raster-operation code. These codes define how the color data for the source rectangle is
; to be combined with the color data for the destination rectangle to achieve the final color.
; This parameter must be 0 or one of the following values.
;
; $BLACKNESS
; $CAPTUREBLT
; $DSTINVERT
; $MERGECOPY
; $MERGEPAINT
; $NOMIRRORBITMAP
; $NOTSRCCOPY
; $NOTSRCERASE
; $PATCOPY
; $PATINVERT
; $PATPAINT
; $SRCAND
; $SRCCOPY
; $SRCERASE
; $SRCINVERT
; $SRCPAINT
; $WHITENESS
;
; Return values..: Success - 1.
; Failure - 0 and sets the @error flag to non-zero.
; Author.........: Yashied
; Modified.......:
; Remarks........: The system stretches or compresses the bitmap according to the stretching mode currently set in the
; destination device context.
; Related........:
; Link...........: @@MsdnLink@@ StretchBlt
; Example........: Yes
; ===============================================================================================================================

Func _WinAPI_StretchBlt($hDestDC, $iXDest, $iYDest, $iWidthDest, $iHeightDest, $hSrcDC, $iXSrc, $iYSrc, $iWidthSrc, $iHeightSrc, $iRop)

Local $Ret = DllCall('gdi32.dll', 'int', 'StretchBlt', 'hwnd', $hDestDC, 'int', $iXDest, 'int', $iYDest, 'int', $iWidthDest, 'int', $iHeightDest, 'hwnd', $hSrcDC, 'int', $iXSrc, 'int', $iYSrc, 'int', $iWidthSrc, 'int', $iHeightSrc, 'dword', $iRop)

If (@error) Or (Not $Ret[0]) Then
Return SetError(1, 0, 0)
EndIf
Return 1
EndFunc ;==>_WinAPI_StretchBlt