Jump to content
Sign in to follow this  
Madza91

Keep label ontop!?

Recommended Posts

Madza91

Hello, is possible to keep label over edit control and with transparent background of label?!

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

$Form1 = GUICreate("Form1", 633, 447, 193, 125)
$Label2 = GUICtrlCreateLabel("", 0, 0, 100, 17)
$Edit1 = GUICtrlCreateEdit("Some text...", 112, 80, 300, 200, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("text", 100, 70, 100, 100)
GUICtrlSetColor(-1, 0xFF00FF)
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 40, 400, 0, "Verdana")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
Sleep(1000)
GUICtrlSetData($Edit1,  @CRLF)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Label1
            $r1 = GUICtrlRead($Label1)
            MsgBox(0,"",$r1)
    EndSwitch
WEnd

[quote name='dbzfanatic' post='609696' date='Nov 26 2008, 08:46 AM']This is a help forum not a "write this for me" forum.[/quote](Sorry for bad English) :)

Share this post


Link to post
Share on other sites
Madza91

Something like that but i need transparent background...


[quote name='dbzfanatic' post='609696' date='Nov 26 2008, 08:46 AM']This is a help forum not a "write this for me" forum.[/quote](Sorry for bad English) :)

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  

×