Manipulate GUICtrlCreate

[myspacee]

Hello to all,

play with GUICtrlCreateInput GUICtrlCreateEdit these days and want to know if is possible obtain

a space where user can edit inserted text as attach :

try also transparent gui joined with freetext.au3 user has minor freedom with this solution.

final goal is give user high visibility from long distance.

thank you for any hints,

m.

[FireFox]

Hello to all,

play with GUICtrlCreateInput GUICtrlCreateEdit these days and want to know if is possible obtain

a space where user can edit inserted text as attach :

try also transparent gui joined with freetext.au3 user has minor freedom with this solution.

final goal is give user high visibility from long distance.

thank you for any hints,

m.

Perhaps this is what you want myspacee :

expandcollapse popup

#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>

$GUI=GUICreate("Global GUI",@DesktopWidth,@DesktopHeight,0,0);Parent gui this totaly transparent and non visible
WinSetTrans($GUI,"",0)
GUISetState(@SW_HIDE,$GUI)


$win=GUICreate("FireFox for Myspacee",@DesktopWidth,200,0,@DesktopHeight-260,$WS_POPUP,$WS_EX_LAYERED+$WS_EX_MDICHILD,$GUI);child gui transparent
$Edit=GUICtrlCreateEdit("FireFox for Myspace",0,0,@DesktopWidth-5,200,$ES_MULTILINE+$ES_WANTRETURN+$ES_AUTOVSCROLL);Edit with multilne and can't write more than desktop height
GUICtrlSetColor($Edit,0xFF0000)
GUICtrlSetFont($Edit,20)


GUISetBkColor(0xFFFFFF,$win);Put white color for bkcolor of gui
_Transparent($win,0xFFFFFF);Make white color as transparent color, for edit bkcolor transparent
GUISetState()


Func _Transparent($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False);Transparent function
    If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03

    If Not $isColorRef Then
        $i_transcolor = Hex(String($i_transcolor), 6)
        $i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
    EndIf

    Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)

    Select
        Case @error
            Return SetError(@error, 0, 0)

        Case Else
            Return 1
    EndSelect
EndFunc  ;==>_Transparent


While 1
Sleep(250)
WEnd