Actionable picture or fully transparent gui-window?

[4ggr35510n]

Hi, I was wondering is it possible to create on desktop movable and "actionable" image/picture, from which I could start main gui-windows or functions of my program?

My curiosity starts with this code:

#include <misc.au3>
#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Local $x = 1, $y = 1

GuiCreate("")
$a = GUICreate("")
$pic = GUICtrlCreatePic("gif.gif",$x,$y, 101, 129)
GuiSetState()

GUICtrlSetOnEvent($pic, "MoveIt")

Func MoveIt()
    $start = GUIGetCursorInfo($a)
    While _IsPressed("01")
        $array = GUIGetCursorInfo($a)
        GUICtrlSetPos ($pic, $x + $array[0] - $start[0], $y + $array[1] - $start[1])
        Sleep(10)
    WEnd
    $x += $array[0] - $start[0]
    $y += $array[1] - $start[1]
EndFunc

While True
    Sleep(1000)
WEnd

(u should have any image in script folder, rename "gif.gif" as u want)

In this code, u can move "gif.gif" over whole main gui window.

So I'm asking:

Is it possible to create something like this (i.e. movable picture) indepentdent from gui OR create fully invisible picture-size gui window?

Edited July 30, 2010 by 4ggr35510n

[DarkAngel]

Hi, I was wondering is it possible to create on desktop movable and "actionable" image/picture, from which I could start main gui-windows or functions of my program?

My curiosity starts with this code:

#include <misc.au3>
#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

Local $x = 1, $y = 1

GuiCreate("")
$a = GUICreate("")
$pic = GUICtrlCreatePic("gif.gif",$x,$y, 101, 129)
GuiSetState()

GUICtrlSetOnEvent($pic, "MoveIt")

Func MoveIt()
    $start = GUIGetCursorInfo($a)
    While _IsPressed("01")
        $array = GUIGetCursorInfo($a)
        GUICtrlSetPos ($pic, $x + $array[0] - $start[0], $y + $array[1] - $start[1])
        Sleep(10)
    WEnd
    $x += $array[0] - $start[0]
    $y += $array[1] - $start[1]
EndFunc

While True
    Sleep(1000)
WEnd

(u should have any image in script folder, rename "gif.gif" as u want)

In this code, u can move "gif.gif" over whole main gui window.

So I'm asking:

Is it possible to create something like this indepentdent from gui OR create fully invisible picture-size gui window?

You cant really add a gif in the script and expect it to act like an animated gif. There are some UDFs though that somewhat makes that possible. Run a search in the forum. And u can always set transparency to ur GUi.

Use WinSetTrans() >> Look in the Help file for details.

$GUI = GUICreate("GUI_Title", 394, 242, -1, -1)

;$i = anything from 0 to 255
;0=fully transparent
;255=fully opaque

WinSetTrans($GUI, "", $i)

Hope this helps.

[4ggr35510n]

No, sorry, it makes whole window invisible, including the pic.

I'm looking for final effect similar to this:

It's a screenshot of Microsoft Agent.

Its a definable picture, u can move all around the screen and access to context menu threw it.

How should I do something like this?

Edited July 30, 2010 by 4ggr35510n

[kaotkbliss]

Here is a zoom tool that I was making for a game (modified from others found on the forums), it should have features in it you can use to make what you want.

It creates a boarderless gui that uses a screenshot of the current mouse position (enlarged) and you can click through it.

Press "z" to start and "esc" to exit.

The code should be pretty easy to modify to not enlarge the screenshot and instead of crosshairs you can use your image...

expandcollapse popup

#include <Misc.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <WinAPIEx.au3>

$dll = DllOpen("user32.dll")
Global $hParent, $hForm, $Pos, $hBitmap = 0, $Go = 1, $XPrev = MouseGetPos(0), $YPrev = MouseGetPos(1)
Global $hDC, $hMemDC, $hSv, $pBlend, $tBlend, $pSize, $tSize, $pSource, $tSource, $hWnd,$iX,$iY,$iHeight
Global $scope = 0
;$Cursor="E:\Shawns_Stuff\Terisi_PF\data\cross_l.cur"
;$CursorBack = 'E:\Shawns_Stuff\Terisi_PF\data\arrow_m.cur'
$hParent = GUICreate('', -1, -1, -1, -1, -1, BitOR($WS_EX_LAYERED,$WS_EX_TOOLWINDOW,$WS_EX_TRANSPARENT ))
$hForm = GUICreate('', 150, 150, $XPrev + 25, $YPrev + 25, BitOR($WS_DISABLED, $WS_POPUPWINDOW), BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST,$WS_EX_TRANSPARENT ), $hParent)

GUISetState(@SW_HIDE, $hForm)

While 1

    If _IsPressed("1B", $dll) Then
        ;$cDll = DllCall($dll, "hwnd", "LoadCursorFromFile", "str", $CursorBack)
        ;DllCall($dll, "int", "SetSystemCursor", "int", $cDll[0], "int", 32512)
        DllClose($dll)
        Exit (1)
    EndIf

    If _IsPressed("5A", $dll) And $scope = 0 Then
        ;$cDll = DllCall($dll, "hwnd", "LoadCursorFromFile", "str", $Cursor)
        ;DllCall($dll, "int", "SetSystemCursor", "int", $cDll[0], "int", 32512)
        $scope = 1
        Sleep(500)
    EndIf

    If _IsPressed("5A", $dll) And $scope = 1 Then
        ;$cDll = DllCall($dll, "hwnd", "LoadCursorFromFile", "str", $CursorBack)
        ;DllCall($dll, "int", "SetSystemCursor", "int", $cDll[0], "int", 32512)
        $scope = 0
        GUISetState(@SW_HIDE, $hForm)
        Sleep(500)
    EndIf

    If $scope = 1 Then

        GUISetState(@SW_SHOWNOACTIVATE, $hForm)

        $Pos = MouseGetPos()
        If ($Go) Or ($Pos[0] <> $XPrev) Or ($Pos[1] <> $YPrev) Then
            WinMove($hForm, '', $Pos[0] - 75, $Pos[1] - 75)
            _Capture($Pos[0] - 25, $Pos[1] - 25, 50, 50)
            $XPrev = $Pos[0]
            $YPrev = $Pos[1]
            $Go = 0
        EndIf
        _Capture($Pos[0] - 25, $Pos[1] - 25, 50, 50)
    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, 150, 150)
    _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)
    $aMiniSize = WinGetClientSize($hForm)
    $aMyMiniDC = DLLCall($dll,"int","GetDC","hwnd",$hForm)

            DLLCall("gdi32.dll","int","Arc", "hwnd", $aMyMiniDC[0], _
                            "int", 0, "int", 0, "int", $aMiniSize[0], "int", $aMiniSize[1], _
                            "int", 0, "int", $aMiniSize[1]/2, "int", 0, "int", $aMiniSize[1]/2)
        DLLCall("gdi32.dll","int","MoveToEx", "hwnd", $aMyMiniDC[0], "int", 0, "int", $aMiniSize[1]/2, "ptr", 0)
        DLLCall("gdi32.dll","int","LineTo", "hwnd", $aMyMiniDC[0], "int", $aMiniSize[0], "int", $aMiniSize[1]/2)
        DLLCall("gdi32.dll","int","MoveToEx", "hwnd", $aMyMiniDC[0], "int", $aMiniSize[0]/2, "int", 0, "ptr", 0)
        DLLCall("gdi32.dll","int","LineTo", "hwnd", $aMyMiniDC[0], "int", $aMiniSize[0]/2, "int", $aMiniSize[1])

    _WinAPI_DrawLine($hMemDC, 150, 75, -150, 75)
    _WinAPI_DrawLine($hMemDC, 75, 150, 75, -150)

    _WinAPI_DrawLine($hMemDC, 70, 65, 80, 65)
    _WinAPI_DrawLine($hMemDC, 85, 70, 85, 80)
    _WinAPI_DrawLine($hMemDC, 70, 85, 80, 85)
    _WinAPI_DrawLine($hMemDC, 65, 70, 65, 80)

    _WinAPI_DrawLine($hMemDC, 65, 50, 85, 50)
    _WinAPI_DrawLine($hMemDC, 100, 65, 100, 85)
    _WinAPI_DrawLine($hMemDC, 65, 100, 85, 100)
    _WinAPI_DrawLine($hMemDC, 50, 65, 50, 85)

    _WinAPI_DrawLine($hMemDC, 60, 35, 90, 35)
    _WinAPI_DrawLine($hMemDC, 115, 60, 115, 90)
    _WinAPI_DrawLine($hMemDC, 60, 115, 90, 115)
    _WinAPI_DrawLine($hMemDC, 35, 60, 35, 90)

    _WinAPI_ReleaseDC($hForm, $hDC)
    _WinAPI_DeleteDC($hMemDC)
    _SetBitmap($hForm, $hBitmap, 254)
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

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

    $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

Edited July 30, 2010 by kaotkbliss