GDI+ image blinking.

[gottygolly]

I've started to mess around with GDI+ stuff and I just wrote this messing around but I ran into a problem where I don't know how to move the image (screen capture). I looked for stuff and I found some things but none of them seem to work.

#include<gdiplus.au3>
#include <ScreenCapture.au3>
#include<winapi.au3>
Global Const $iW = 750,$iH = 600
$gui = GUICreate("",$iW,$iH,-1,-1)
Opt("GUIOnEventMode",1)
GUISetOnEvent(-3,"_Exit")
$mp_x = ""
$mp_y = ""
GUISetState()
_GDIPlus_Startup()
$capture = _ScreenCapture_Capture()
$tt = _GDIPlus_ImageAttributesCreate()
$hwnd = _GDIPlus_GraphicsCreateFromHWND($gui)
$bit = _GDIPlus_BitmapCreateFromHBITMAP($capture)
$context = _GDIPlus_ImageGetGraphicsContext($bit)
;_GDIPlus_GraphicsDrawImage($context,$bit,0,0)
_GDIPlus_GraphicsDrawImageRectRect($hwnd,$bit,100,100,$iW,$iH,0,0,$iW,$iH,$tt)
_GDIPlus_GraphicsSetSmoothingMode($context,2)
While 1
   $mp = GUIGetCursorInfo($gui)
   If $mp[0] <> $mp_x Or $mp[1] <> $mp_y Then
      _GDIPlus_GraphicsClear($hwnd,0xFFFFFFFF)
   $gg = _GDIPlus_GraphicsDrawImageRectRect($hwnd,$bit,$mp[0],$mp[1],$iW,$iH,0,0,$iW,$iH,$tt)
   $mp_x = $mp[0]
   $mp_y = $mp[1]
   EndIf
   Sleep(10)
WEnd

Func _Exit()
   _GDIPlus_GraphicsDispose($context)
   _GDIPlus_GraphicsDispose($hwnd)
   _GDIPlus_Shutdown
   Exit
EndFunc

Thanks in advance.

[UEZ]

Try somethin' like that here.

 

expandcollapse popup

#include <gdiplus.au3>
#include <ScreenCapture.au3>

Global Const $iW = 750, $iH = 600
$gui = GUICreate("", $iW, $iH, -1, -1)
Opt("GUIOnEventMode", 1)
GUISetOnEvent(-3, "_Exit")
$mp_x = ""
$mp_y = ""
GUISetState()
_GDIPlus_Startup()
$capture = _ScreenCapture_Capture()
$hwnd = _GDIPlus_GraphicsCreateFromHWND($gui)
$bit = _GDIPlus_BitmapCreateFromHBITMAP($capture)
$hBitmap = _GDIPlus_BitmapCreateFromScan0($iW, $iH)
$context = _GDIPlus_ImageGetGraphicsContext($hBitmap)

While 1
    $mp = GUIGetCursorInfo($gui)
    If $mp[0] <> $mp_x Or $mp[1] <> $mp_y Then
        _GDIPlus_GraphicsClear($context)
        _GDIPlus_GraphicsDrawImageRectRect($context, $bit, $mp[0], $mp[1], $iW, $iH, 0, 0, $iW, $iH)
        _GDIPlus_GraphicsDrawImage($hwnd, $hBitmap, 0, 0)
        $mp_x = $mp[0]
        $mp_y = $mp[1]
    EndIf
    Sleep(10)
WEnd

Func _Exit()
    _WinAPI_DeleteObject($capture)
    _GDIPlus_GraphicsDispose($context)
    _GDIPlus_GraphicsDispose($hwnd)
    _GDIPlus_BitmapDispose($bit)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_Shutdown
    Exit
EndFunc   ;==>_Exit

 

 

Br,

UEZ

Edited December 4, 2014 by UEZ

[gottygolly]

Thank you UEZ hopefully i wont forget about this