Что нового

Увеличилка x4

Yashied

Модератор
Команда форума
Глобальный модератор
Сообщения
5 379
Репутация
2 702
AutoIt: 3.3.0.0
Версия: N/A

Категория: Графика / GDI+

Описание: Простой (?) пример на тему "Как увеличить Desktop?". Это не является полноценной программой (здесь есть над чем подумать), хотя вполне рабочая версия и без всяких мерцаний. Если кто задумает написать нечто подобное и возмет за основу этот материал, ничего не имею против. Кстати, GDI+ здесь не используется.

Код/Пример:
Код:
#Include <WinAPIEx.au3>
#Include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

Global $hParent, $hForm, $Pos, $hBitmap = 0, $Go = 1, $XPrev = MouseGetPos(0), $YPrev = MouseGetPos(1)

HotKeySet('{ESC}', '_Quit')

$hParent = GUICreate('', -1, -1, -1, -1, -1, $WS_EX_TOOLWINDOW)
$hForm = GUICreate('', 200, 200, $XPrev + 25, $YPrev + 25, BitOR($WS_DISABLED, $WS_POPUPWINDOW), BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST), $hParent)
GUISetState(@SW_SHOWNOACTIVATE, $hForm)

While 1
	GUIGetMsg()
	$Pos = MouseGetPos()
	If ($Go) Or ($Pos[0] <> $XPrev) Or ($Pos[1] <> $YPrev) Then
		WinMove($hForm, '', $Pos[0] + 25, $Pos[1] + 25)
		_Capture($Pos[0] - 25, $Pos[1] - 25, 50, 50)
		$XPrev = $Pos[0]
		$YPrev = $Pos[1]
		$Go = 0
	EndIf
WEnd

Func _Capture($iX, $iY, $iWidth, $iHeight)

	Local $tRect, $hDC, $hMemDC, $hScreenshort = _ScreenCapture($iX, $iY, $iWidth, $iHeight)

	_WinAPI_FreeObject($hBitmap)
	$hBitmap = _WinAPI_FitToBitmap($hScreenshort, 200, 200)
	_WinAPI_FreeObject($hScreenshort)
	$hDC = _WinAPI_GetDC($hForm)
	$hMemDC = _WinAPI_CreateCompatibleDC($hDC)
	_WinAPI_SelectObject($hMemDC, $hBitmap)
	_WinAPI_SelectObject($hMemDC, _WinAPI_GetStockObject($NULL_BRUSH))
	_WinAPI_SelectObject($hMemDC, _WinAPI_GetStockObject($DC_PEN))
	_WinAPI_SetDCPenColor($hMemDC, 0xA00000)
	$tRect = _WinAPI_CreateRect(0, 0, 200, 200)
	_WinAPI_Rectangle($hMemDC, $tRect)
	_WinAPI_ReleaseDC($hForm, $hDC)
	_WinAPI_DeleteDC($hMemDC)
	_SetBitmap($hForm, $hBitmap, 255)
EndFunc   ;==>_Capture

Func _Quit()
	Exit
EndFunc   ;==>_Quit

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

Func _SetBitmap($hWnd, $hBitmap, $iOpacity)

	Local $hDC, $hMemDC, $hSv, $pBlend, $tBlend, $pSize, $tSize, $pSource, $tSource

	$hDC = _WinAPI_GetDC($hWnd)
	$hMemDC = _WinAPI_CreateCompatibleDC($hDC)
	$hSv = _WinAPI_SelectObject($hMemDC, $hBitmap)
	$tSize = _WinAPI_GetBitmapDimension($hBitmap)
	$pSize = DllStructGetPtr($tSize)
	$tSource = DllStructCreate($tagPOINT)
	$pSource = DllStructGetPtr($tSource)
	$tBlend = DllStructCreate($tagBLENDFUNCTION)
	$pBlend = DllStructGetPtr($tBlend)
	DllStructSetData($tBlend, 'Alpha', $iOpacity)
	DllStructSetData($tBlend, 'Format', 0)
	_WinAPI_UpdateLayeredWindow($hWnd, $hDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
	_WinAPI_ReleaseDC($hWnd, $hDC)
	_WinAPI_SelectObject($hMemDC, $hSv)
	_WinAPI_DeleteDC($hMemDC)
EndFunc   ;==>_SetBitmap

Скриншот:

Источник: Yashied

Примечание:

  • Для работы этой программы понадобится библиотека WinAPIEx.au3.
 

Viktor217

Осваивающий
Сообщения
233
Репутация
31
Обе библиотеки на месте, выдаёт ошибку:
Код:
C:\Documents and Settings\Admin\Мои документы\AutoIt v3 Script (3).au3(30,32) : ERROR: _WinAPI_FreeObject(): undefined function.
    _WinAPI_FreeObject($hBitmap)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Admin\Мои документы\AutoIt v3 Script (3).au3(31,59) : ERROR: _WinAPI_FitToBitmap(): undefined function.
    $hBitmap = _WinAPI_FitToBitmap($hScreenshort, 200, 200)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Admin\Мои документы\AutoIt v3 Script (3).au3 - 2 error(s), 0 warning(s)
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
Viktor217
Поменяйте эти функции.
Смотрите WinAPIEx.au3. >> История версий (v2.4 - v3.1): >> Подробнее >>
к версии 2.7:
Удалены следующие функции.
_WinAPI_FreeObject (используйте _WinAPI_DeleteObject())

Переименованы следующие функции.
_WinAPI_FitToBitmap => _WinAPI_ResizeBitmap
PS
Yashied,
Поменяйте, пожалуйста, эти функции в примере, а то не все знают об изменениях в WinAPIEx. :beer:
 

Viktor217

Осваивающий
Сообщения
233
Репутация
31
Спасибо, теперь всё работает(=
Полезная вещи жалко только что если не двигать мышкой увеличиваемое изображение не обновляется...
 
Верх