Vergrößer/Verkleinerbares GDI Raster Ähnlich AutoCAD

#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Global $Gui_Width = 1024
Global $Gui_Height = 768
Global $hGraphic,$hBrush_Grid_BG,$hPen_Grid_Lines,$hBitmap,$hBackbuffer
Global $WheelMoving
Global $relation = 1 ; Verhältnis von der Darstellung
Global $hMouseHook, $WheelMoving
$struct = "DWORD vkCode;" _
&"DWORD scanCode;" _
&"long flags;" _
&"ULONG_PTR dwExtraInfo"
$CallbackMouseProc = TogglePlugMouse()

#Region ### START Koda GUI section ### Form=
$hGui = GUICreate ( "AutoIttest",$Gui_Width,$Gui_Height)
GUISetBkColor ( 0x666666 )
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ##

_AutoItTest_Startup($hGui)
_AutoItTest_Create_Grid(1)
OnAutoItExitRegister ('_exit')

; Main WHILE ...
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
;==========================================
; Mausrad bewegung prüfen...
$WheelMsg = _GetWheelMove()
ToolTip ( 'Faktor = '&$relation )
Select
Case $WheelMsg = "U" ;UP
$relation = Round($relation*1.1,2)
_AutoItTest_Create_Grid($relation)
If $relation > 6.2 Then
$relation = 6.2
EndIf
Case $WheelMsg = "D" ;UP
$relation = Round($relation*0.9,2)
If $relation < 0.6 Then
$relation = 0.6
EndIf
_AutoItTest_Create_Grid($relation)
EndSelect
;==========================================
WEnd

Func _exit()
_GDIPlus_BrushDispose($hBrush_Grid_BG)
_GDIPlus_PenDispose ( $hPen_Grid_Lines )
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hBackbuffer)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_Shutdown ()
EndFunc

Func _AutoItTest_Startup($hWnd)
If Not IsHWnd($hWnd) Then
SetError(1)
Return 0
EndIf
_GDIPlus_Startup()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGui)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics($Gui_Width , $Gui_Height, $hGraphic)
$hBackbuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
;~ _GDIPlus_GraphicsSetSmoothingMode($hBackbuffer, 0) ;Antialiasing

;~ _GDIPlus_GraphicsClear($hBackbuffer) ;clear buffer
$hBrush_Grid_BG = _GDIPlus_BrushCreateSolid(0xFF666666)
$hPen_Grid_Lines = _GDIPlus_PenCreate(0xFF444444)
Return 1
EndFunc

Func _AutoItTest_Create_Grid($rowSize)
$rowSize *= 20
_GDIPlus_GraphicsClear($hBackbuffer, 0xFF666666) ;clear buffer
For $x = $rowSize/2 To $Gui_Width Step Round($rowSize*$relation,0)
For $y = $rowSize/2 To $Gui_Height Step Round($rowSize*$relation,0)
_GDIPlus_GraphicsDrawLine($hBackbuffer, 0 , $y , $Gui_Width ,$y ,$hPen_Grid_Lines)
_GDIPlus_GraphicsDrawLine($hBackbuffer, $x , 0 , $x ,$Gui_Height ,$hPen_Grid_Lines)
Next
Next
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hBitmap, 0, 0, $Gui_Width, $Gui_Height)
EndFunc

; ===============================================================================================================================
; Name...........: _isPressend Funktion fürs Mausrad
; Description ...: prüft ob das Mausrad gedreht/gedrückt wurde
; ===============================================================================================================================
Func _GetWheelMove()
Local $x = StringLeft($WheelMoving,1)
$WheelMoving = StringTrimLeft($WheelMoving,1)
Return $x
EndFunc
Func TogglePlugMouse($hCallProc=0)
If IsArray($hMouseHook) Then
DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hMouseHook[0])
DllCallbackFree($hCallProc)
Return 0
EndIf

Local Const $WH_MOUSE_LL = 14
;~ Local Const $WH_MOUSE = 7
Local $hMouseProc = DllCallbackRegister("_MouseProc", "int", "int;ptr;ptr")
Local $hMod = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)
$hMouseHook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", _
"int", $WH_MOUSE_LL, _
"ptr", DllCallbackGetPtr($hMouseProc), _
"hwnd", $hMod[0], _
"dword", 0)
Return $hMouseProc
EndFunc

Func _MouseProc($nCode, $wParam, $lParam)
If $nCode < 0 Then
Local $iRet = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hMouseHook[0], _
"int", $nCode, _
"ptr", $wParam, _
"ptr", $lParam)
Return $iRet[0]
EndIf
$dllstruct = DllStructCreate($struct,$lParam)
If $wParam = 0x20A Then
If DllStructGetData($dllstruct,3) > 0 Then
$WheelMoving &= "U"
ElseIf DllStructGetData($dllstruct,3) < 0 Then
$WheelMoving &= "D"
EndIf
EndIf
Return 0
EndFunc