Expand Desktop Pixel Size

[demandnothing]

i want to write a script that does an enhanced zoom to your monitor.. defining a box like PixelSearch would do, and enhance it to be bigger and more visible.. is this possible? and could somebody get me started on it?

[Melba23]

demandnothing,

Search for "zoom" or "StretchBlt". There are plenty of magnifying scripts out there.

M23

[Yashied]

Here, I rewrote the _ScreenCapture_Capture() function, because it does not works correctly with SRCCOPY value.

expandcollapse popup

#Include <Icons.au3>
#Include <WinAPIEx.au3>

Opt('MustDeclareVars', 1)

Global $hForm, $Pic

HotKeySet('{F5}', '_Capture')

$hForm = GUICreate('MyGUI', 400, 400)
$Pic = GUICtrlCreatePic('', 0, 0, 400, 400)
GUISetState()

Do
Until GUIGetMsg() = -3

Func _Capture()

    Local $hScreenshort = _ScreenCapture(MouseGetPos(0), MouseGetPos(1), 100, 100)
    Local $hBitmap = _WinAPI_FitToBitmap($hScreenshort, _WinAPI_GetClientWidth($hForm), _WinAPI_GetClientHeight($hForm))

    _WinAPI_FreeObject($hScreenshort)
    _SetHImage($Pic, $hBitmap)
EndFunc   ;==>_Capture
    
Func _ScreenCapture($iX, $iY, $iWidth, $iHeight)

    Local $hWnd, $hDC, $hMemDC, $hBitmap

    $hWnd = _WinAPI_GetDesktopWindow()
    $hDC = _WinAPI_GetDC($hWnd)
    $hMemDC = _WinAPI_CreateCompatibleDC($hDC)
    $hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $iWidth, $iHeight)
    _WinAPI_SelectObject($hMemDC, $hBitmap)
    _WinAPI_BitBlt($hMemDC, 0, 0, $iWidth, $iHeight, $hDC, $iX, $iY, $MERGECOPY)
    _WinAPI_ReleaseDC($hWnd, $hDC)
    _WinAPI_DeleteDC($hMemDC)
    Return $hBitmap
EndFunc   ;==>_ScreenCapture

Icons.au3

WinAPIEx.au3

Edited October 12, 2009 by Yashied

[AndyG]

Hi, 

if you need only a resizeable Zoomwindow, this could be useful for you.

The script captures the "zoomed" Screens, saves the "pictures" to disk and can find the saved pictures at the screen or in a window.

Try it^^ 

http://www.autoit.de/index.php?page=Thread&postID=110480#post110480

(the prospeed.dll is not necessary, only if you want to find the saved pictures very fast)

ciao

Andy

Edited October 12, 2009 by AndyG

[demandnothing]

Here, I rewrote the _ScreenCapture_Capture() function, because it does not works correctly with SRCCOPY value.

expandcollapse popup

#Include <Icons.au3>
#Include <WinAPIEx.au3>

Opt('MustDeclareVars', 1)

Global $hForm, $Pic

HotKeySet('{F5}', '_Capture')

$hForm = GUICreate('MyGUI', 400, 400)
$Pic = GUICtrlCreatePic('', 0, 0, 400, 400)
GUISetState()

Do
Until GUIGetMsg() = -3

Func _Capture()

    Local $hScreenshort = _ScreenCapture(MouseGetPos(0), MouseGetPos(1), 100, 100)
    Local $hBitmap = _WinAPI_FitToBitmap($hScreenshort, _WinAPI_GetClientWidth($hForm), _WinAPI_GetClientHeight($hForm))

    _WinAPI_FreeObject($hScreenshort)
    _SetHImage($Pic, $hBitmap)
EndFunc   ;==>_Capture
    
Func _ScreenCapture($iX, $iY, $iWidth, $iHeight)

    Local $hWnd, $hDC, $hMemDC, $hBitmap

    $hWnd = _WinAPI_GetDesktopWindow()
    $hDC = _WinAPI_GetDC($hWnd)
    $hMemDC = _WinAPI_CreateCompatibleDC($hDC)
    $hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $iWidth, $iHeight)
    _WinAPI_SelectObject($hMemDC, $hBitmap)
    _WinAPI_BitBlt($hMemDC, 0, 0, $iWidth, $iHeight, $hDC, $iX, $iY, $MERGECOPY)
    _WinAPI_ReleaseDC($hWnd, $hDC)
    _WinAPI_DeleteDC($hMemDC)
    Return $hBitmap
EndFunc   ;==>_ScreenCapture

Icons.au3

WinAPIEx.au3

thank you, that is what i need.. may i pm you to ask about modifying it?

Hi, 

if you need only a resizeable Zoomwindow, this could be useful for you.

The script captures the "zoomed" Screens, saves the "pictures" to disk and can find the saved pictures at the screen or in a window.

Try it^^ 

http://www.autoit.de/index.php?page=Thread&postID=110480#post110480

(the prospeed.dll is not necessary, only if you want to find the saved pictures very fast)

ciao

Andy

i dont speak german