AZoom!

[Kip]

is it just me, or is it very, VERY slow

[James]

Its just you

I thought you added scroll zoom. Sorry.

[Toady]

Here is one that is really fast and used mouse wheel to zoom.

Click here

[James]

I looked at that It is good,if I have time, I will try take some bits, if thats ok.

[Somerset]

I added $a change that to 1.1 or to what ever the heck ya want.. Zooming should work with that modification...

#include <GUIConstants.au3>

dim $a = 1

HotKeySet("{ESC}", "Quit") ; We set a hotkey so we can exit

; Were making a 20x20 window

Global $GUI_Pixel[400]

Global $GUI = GUICreate("AZoom", 100, 100, @DesktopWidth -80, @DesktopHeight -80, $WS_POPUP + $WS_BORDER, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW)

; We now need to start a count so we can go through the script

$Count = 0

; Now we make lots of label which are 4x4. We do this so that we can later color them from what is under the mouse.

For $dX = 0 To 79 Step 4

For $dY = 0 To 79 Step 4

$GUI_Pixel[$Count] = GUICtrlCreateLabel("", $dX* $a, $dY* $a, 4* $a, 4* $a)

$Count += 1

Next

Next

GUISetState(@SW_SHOW)

Global $LPos[2] = [0, 0]

While 1

$Count = 0

$Pos = MouseGetPos() ; We need to get the mouse position, so we can call different arrays

; As we are magnifying a 20x20 section under the mouse

; We start with a negative number for each loop. This is strange but it still counts to 20x20

For $dX = -10 To 9

For $dY = -10 To 9

GUICtrlSetBkColor($GUI_Pixel[$Count], PixelGetColor($Pos[0] + $dX, $Pos[1] + $dY))

$Count += 1

Next

Next

; Now that we have this, we can see animations under the mouse

; We sleep so that we dont use all our CPU usage

Sleep(10)

WEnd

; We now make a function so that we can exit

Func Quit()

Exit

EndFunc ;==>Quit

[James]

Nice beerman.