Sign in to follow this  
Followers 0
myspacee

Manipulate GUICtrlCreate

2 posts in this topic

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 :

Posted Image

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.

Share this post


Link to post
Share on other sites



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 :

Posted Image

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 :

#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

 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0