Zeichenet eine Bitmap in den angegebenen Gerätekontext
#include <WinAPIGdi.au3>
_WinAPI_DrawBitmap ( $hDC, $iX, $iY, $hBitmap [, $iRop = 0x00CC0020] )
$hDC | Das Handle zum Gerätekontext in welcher die Bitmap gezeichnet werden soll. |
$iX | Gibt die logische X-Koordinate der oberen linken Ecke der Bitmap an. |
$iY | Gibt die logische Y-Koordinate der oberen linken Ecke der Bitmap an. |
$hBitmap | Das Handle zur Bitmap welche gezeichnet werden soll. |
$iRop | [optional] Der Raster-Operationscode (der selbe wie für _WinAPI_BitBlt()). Standard ist $SRCCOPY. |
Erfolg: | 1. |
Fehler: | 0 und setzt das @error Flag auf ungleich null. |
Diese Funktion unterstützt keine Bitmaps mit einem Alphakanal. Man sollte _WinAPI_AlphaBlend() verwenden um mit solchen Bitmaps zu arbeiten.
_WinAPI_AlphaBlend, _WinAPI_BitBlt
#include <GUIConstantsEx.au3>
#include <SendMessage.au3>
#include <StaticConstants.au3>
#include <WinAPIGdi.au3>
#include <WinAPIGdiDC.au3>
#include <WinAPIHObj.au3>
#include <WinAPIRes.au3>
#include <WindowsConstants.au3>
; Load image
Local $hSource = _WinAPI_LoadImage(0, @ScriptDir & '\Extras\Hatch.bmp', $IMAGE_BITMAP, 0, 0, $LR_LOADFROMFILE)
Local $tSIZE = _WinAPI_GetBitmapDimension($hSource)
Local $W = DllStructGetData($tSIZE, 'X')
Local $H = DllStructGetData($tSIZE, 'Y')
; Create GUI
Local $hForm = GUICreate('Test ' & StringReplace(@ScriptName, '.au3', '()'), @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOPMOST)
Local $idPic = GUICtrlCreatePic('', 0, 0, @DesktopWidth, @DesktopHeight)
Local $hPic = GUICtrlGetHandle($idPic)
; Create bitmap
Local $hDC = _WinAPI_GetDC($hPic)
Local $hDestDC = _WinAPI_CreateCompatibleDC($hDC)
Local $hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, @DesktopWidth, @DesktopHeight)
Local $hDestSv = _WinAPI_SelectObject($hDestDC, $hBitmap)
For $i = 0 To Ceiling(@DesktopWidth / $W) - 1
For $j = 0 To Ceiling(@DesktopHeight / $W) - 1
_WinAPI_DrawBitmap($hDestDC, $i * $W, $j * $H, $hSource)
Next
Next
_WinAPI_ReleaseDC($hPic, $hDC)
_WinAPI_SelectObject($hDestDC, $hDestSv)
_WinAPI_DeleteObject($hSource)
_WinAPI_DeleteDC($hDestDC)
; Set bitmap to control
_SendMessage($hPic, $STM_SETIMAGE, 0, $hBitmap)
Local $hObj = _SendMessage($hPic, $STM_GETIMAGE)
If $hObj <> $hBitmap Then
_WinAPI_DeleteObject($hBitmap)
EndIf
GUISetState(@SW_SHOW)
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE