Transparent GuiCtrlCreateEdit

[UnKnOwned]

Hello,

I would like to have a background image for my gui & have the background for the edit control box to be transparent so the image shows through. This is what I have so far.

Thanks in advance.

$MAIN = GUICreate("Terminal", 620, 330, 192, 114)
GUICtrlCreatePic('image.jpg', 0, 0, 620, 330)
GUICtrlSetState(-1, $GUI_DISABLE)

$CMD_WINDOW = GUICtrlCreateEdit('', 10, 10, 600, 289, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_READONLY, $WS_VSCROLL))
GUICtrlSetFont($CMD_WINDOW, 9, 800, 0, "Arial")
GUICtrlSetColor($CMD_WINDOW, 0x00FF00)
GUICtrlSetBkColor($CMD_WINDOW, 0x000000)

$INPUT_LINE = GUICtrlCreateInput('', 10, 304, 600, 20)
GUICtrlSetFont($INPUT_LINE, 9, 800, 0, "Arial")
GUICtrlSetColor($INPUT_LINE, 0x00FF00)
GUICtrlSetBkColor($INPUT_LINE, 0x000000)

GUISetState(@SW_SHOW)

[PhoenixXL]

You cannot have an edit control with a WinProc to be clear transparent, the windows carries on its processing under the hood and text would be overlapped upon user drawing.

I'm already fed up trying on the edit control. A richedit control would do look

[PhoenixXL]

Here is an example for you - it will work till the link is valid

#include-once
#include <GuiRichEdit.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Main()

Func Main()
Local $hGui, $hRichEdit, $iMsg
$hGui = GUICreate("Example (" & StringTrimRight(@ScriptName, 4) & ")", 320, 350, -1, -1, 0, $WS_EX_COMPOSITED)
$hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a a transparent Rich Edit Control." & @CRLF & _
"Press Esc To Exit", 10, 200, 300, 100, BitOR($ES_MULTILINE, $ES_AUTOVSCROLL), $WS_EX_TRANSPARENT)

$File = @ScriptDir & "\cute.jpg"

If Not FileExists($File) Then
ToolTip("Please Wait while the Image is downloaded")
InetGet("http://www.picgifs.com/graphics/c/cute/graphics-cute-920618.jpg", $File)
ToolTip("")
EndIf

GUICtrlCreatePic($File, 0, 0, 320, 350)

GUISetState()

While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
_GUICtrlRichEdit_Destroy($hRichEdit)
GUIDelete()

EndFunc   ;==>Main

[PlayHD]

or take a look here