WindowEx setting background color to transparent.

[samm]

Hi,

I'm using the following code:

expandcollapse popup

#include <WinAPI.au3>
#include <WindowsConstants.au3>



Global Const $WC_LINK = "SysLink"
Global Const $WC_LINKA = $WC_LINK
Global Const $WC_LINKW = $WC_LINK

$g_hLink = _WinAPI_CreateWindowEx(0, $WC_LINK, _
'Test, [url="http://www.microsoft.com"]click here[/url], [url="http://www.microsoft.com"]here[/url] or [url=""]here[/url]', _
BitOR($WS_VISIBLE , $WS_CHILD , $WS_TABSTOP), _
10,10, 300, 60, $Form2)
GUIRegisterMsg($WM_NOTIFY,"MY_LINK_NOTIFY")


Func MY_LINK_NOTIFY($hWnd, $Msg, $wParam, $lParam)
Local Const $tagNMLINK = $tagNMHDR & ";" & "UINT mask; int iLink; UINT state; UINT stateMask; WCHAR szID[48]; WCHAR szUrl[2083];"
Local $NMHDR = DllStructCreate($tagNMHDR,$lParam)
Local $hwndFrom = DllStructGetData($NMHDR,"hwndFrom");
Switch $hwndFrom
Case $g_hLink
switch DllStructGetData($NMHDR,"code")
case $NM_CLICK
ContinueCase
case $NM_RETURN
$NMHDR = DllStructCreate($tagNMLINK,$lParam)
Local $iLink = DllStructGetData($NMHDR,"iLink")
Local $szURL = DllStructGetData($NMHDR,"szURL")
Local $szID = DllStructGetData($NMHDR,"szID")

if $szURL <> "" Then
ShellExecute($szURL, "", "", "open",@SW_SHOW);
EndIf
EndSwitch
EndSwitch
EndFunc

To make my syslinks clickable:

The problem is that I want it to display only the text... and set this white/gray background to transparent.

How can I do this?

[BrewManNH]

You can create the GUI with the $WS_EX_LAYERED extended style set, use the $WS_POPUP in the style parameter, that will create a GUI that you can make transparent.

Here's some code I stripped out of an old script of mine that I modified to show what I mean.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
Global $URL[4]
_Credits()
While 1
    Sleep(10)
WEnd
Func _Credits()
    Local $Func[4]
    $URL[0] = "http://www.autoitscript.com/forum/index.php?showtopic=83481"
    $URL[1] = "http://www.autoitscript.com/forum/index.php?showtopic=43950"
    $URL[2] = "http://www.autoitscript.com/forum/index.php?showtopic=120154&view=findpost&p=835800"
    $URL[3] = "http://www.autoitscript.com/forum/index.php?showtopic=109096"
    Local $Text = "This program could not have been successfully completed without the amazing people" & _
            " on the AutoItScript forums, even those that didn't know that they helped me. The program is mostly original " & _
            "code with a sprinkling of code that was found in various threads on the forums." & @LF & @LF & _
            "I have also used the following UDFs in the creation of this script and I would like to give credit where credit is due: "
    $Func[0] = "Bass.au3" & @TAB & @TAB & "by BrettF"
    $Func[1] = "ID3.au3" & @TAB & @TAB & "by joeyb1275"
    $Func[2] = "RecFileListToArray" & @TAB & "by Melba23"
    $Func[3] = "ExtMsgBox" & @TAB & @TAB & "by Melba23"
    $Temp = GUICreate("", 500, 500, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
    GUISetBkColor(0xFFFFFF)
    GUICtrlCreatePic(@ScriptDir & "White.bmp", 0, 0, 0, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_TempClose")
    GUISetBkColor(0x0FFFFFF, $Temp)
    GUICtrlCreateLabel($Text, 40, 10, 750, 100)
    GUICtrlSetFont(-1, 10, 800, -1, "Consolas")
    GUICtrlSetColor(-1, 0x0000000)
    GUICtrlCreateButton(" Close ", 360, 230, -1)
    GUICtrlSetOnEvent(-1, "_TempClose")
    For $I = 0 To 3
        GUICtrlCreateLabel($Func[$I], 40, 130 + ($I * 20), 200, 20)
        GUICtrlSetColor(-1, 0x000000)
        GUICtrlSetFont(-1, 9, 400, 0)
    Next
    GUICtrlCreateLabel($URL[0], 260, 130, 400, 20)
    GUICtrlSetOnEvent(-1, "_BassURL")
    GUICtrlSetCursor(-1, 0)
    GUICtrlSetColor(-1, 0x00000FF)
    GUICtrlSetFont(-1, 9, 400, 4)
    GUICtrlCreateLabel($URL[1], 260, 150, 400, 20)
    GUICtrlSetOnEvent(-1, "_ID3URL")
    GUICtrlSetCursor(-1, 0)
    GUICtrlSetColor(-1, 0x00000FF)
    GUICtrlSetFont(-1, 9, 400, 4)
    GUICtrlCreateLabel($URL[2], 260, 170, 348, 20)
    GUICtrlSetOnEvent(-1, "_RFLTAURL")
    GUICtrlSetCursor(-1, 0)
    GUICtrlSetColor(-1, 0x00000FF)
    GUICtrlSetFont(-1, 9, 400, 4)
    GUICtrlCreateLabel($URL[3], 260, 190, 400, 20)
    GUICtrlSetOnEvent(-1, "_EMBURL")
    GUICtrlSetCursor(-1, 0)
    GUICtrlSetColor(-1, 0x00000FF)
    GUICtrlSetFont(-1, 9, 400, 4)
    GUISetState()
EndFunc   ;==>_Credits
Func _TempClose()
    Exit
EndFunc
Func _BassURL()
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $URL[0] = ' & $URL[0] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    ShellExecute($URL[0])
EndFunc   ;==>_BassURL
Func _ID3URL()
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $URL[1] = ' & $URL[1] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    ShellExecute($URL[1])
EndFunc   ;==>_ID3URL
Func _RFLTAURL()
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $URL[2] = ' & $URL[2] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    ShellExecute($URL[2])
EndFunc   ;==>_RFLTAURL
Func _EMBURL()
    ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $URL[3] = ' & $URL[3] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
    ShellExecute($URL[3])
EndFunc   ;==>_EMBURL

You will need a pure white bmp file and call it white.bmp, and place it in the same folder as the script to make this transparent. You can easily create a white bmp in paint, make it any size as it won't affect the size of the GUI.

[guinness]

There is also Yashied's SysLinks UDF too >>

[samm]

But I do create the GUI using the

_WinAPI_CreateWindowEx

function, instead of the

GUICreate

.

Anyway, I have tried adding those additional styles: $WS_EX_LAYERED and $WS_POPUP , but the GUI disappeared.

$g_hLink = _WinAPI_CreateWindowEx(0, $WC_LINK, _ 
        'Test, <A HREF="http://www.microsoft.com" ID="LInkIDURL+ID">click here</A>, <a href="http://www.microsoft.com">here</a> or <A ID="idInfo">here</A>', _
        BitOR($WS_VISIBLE , $WS_CHILD , $WS_TABSTOP, $WS_POPUP, $WS_EX_LAYERED), _
        10,10, 300, 60, $Form2)

Edited November 20, 2012 by samm

[samm]

There is also Yashied's SysLinks UDF too >>

I can not get it working with my code... when I click the syslink, nothing happends plus I can not make it transparent too, so its working just like the problem I had before.

$Text = 'The SysLink controls provides a convenient way to embed hypertext links in a window. For more information, click [url="http://msdn.microsoft.com/en-us/library/bb760706(VS.85).aspx"]here[/url].' & @CRLF & @CRLF & _
'To learn how to use the SysLink controls in AutoIt, click [url="http://www.autoitscript.com/forum/"]here[/url].'
$hSysLink = _GUICtrlSysLink_Create($Form2, $Text, 10, 10, 408, 54)
$Dummy = GUICtrlCreateDummy()
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState()

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Dummy
ShellExecute(_GUICtrlSysLink_GetItemUrl($hSysLink, GUICtrlRead($Dummy)))
EndSwitch
WEnd

Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)

Local $tNMLINK = DllStructCreate($tagNMLINK, $lParam)
Local $hFrom = DllStructGetData($tNMLINK, "hWndFrom")
Local $ID = DllStructGetData($tNMLINK, "Code")

Switch $hFrom
Case $hSysLink
Switch $ID
Case $NM_CLICK, $NM_RETURN
GUICtrlSendToDummy($Dummy, DllStructGetData($tNMLINK, "Link"))
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY

[BrewManNH]

But I do create the GUI using the

_WinAPI_CreateWindowEx

function, instead of the

GUICreate

.

Why do you use that to create the GUI? Is there some special reason to use it that GUICreate won't allow? Did you read the post I made, you need a white.bmp to make it transparent, and this is using OnEvent mode to activate the links, if you're using message loop mode you'll need to change the script to make use of that. Edited November 21, 2012 by BrewManNH