GUI Edit Control

[JohnMC]

hi all!, i cant seem find any thing about this and it would really save the day if its possible.

ive see edit controls in MANY programs that have a gray italic text in the box when the box isnt in focus, usualy is some sort of title/description like "User Name"

[martin]

hi all!, i cant seem find any thing about this and it would really save the day if its possible.

ive see edit controls in MANY programs that have a gray italic text in the box when the box isnt in focus, usualy is some sort of title/description like "User Name"

You can set the font in an edit with GuiCtrlSetFont. You can set the font colour with GuiCtrlSetColor.

You can apply the relevant changes when the edit looses or gains focus.

When an edit looses focus it sends a $EN_KILLFOCUS notification message using $WM_COMMAND, and when it gains focus the notification is $EN_SETFOCUS, so you would need to register the $WM_COMMAND message.

You can read about the notifications here.

See if you can make something of it and if you get stuck ask again.

[Melba23]

JohnMC,

Another way to do it:

#include <GUIConstantsEx.au3>
#include <WinAPI.au3>

Global $aFocus[2][2] = [["", False], ["", False]]

$hGUI = GUICreate("Test", 500, 500)
$hInput_1 = GUICtrlCreateInput("Username", 10,  10, 480, 100)
GUICtrlSetColor(-1, 0xC4C4C4)
$hInput_2 = GUICtrlCreateInput("Password", 10, 120, 480, 100)
GUICtrlSetColor(-1, 0xC4C4C4)
$hButton = GUICtrlCreateButton("Exit", 10, 250, 80, 30)
GUISetState()

ControlFocus("Test", "", $hButton)

For $i = 0 To 1
    $aFocus[$i][0] =  _WinAPI_GetClassName(ControlGetHandle("Test", "", $hInput_1 + $i)) & ($i + 1)
Next

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE, $hButton
            Exit
    EndSwitch

    $sFocussed = ControlGetFocus("Test", "")
    For $i = 0 To 1
        If $sFocussed = $aFocus[$i][0] And $aFocus[$i][1] = False Then
            $sControlID = $hInput_1 + $i
            GUICtrlSetData($sControlID, "")
            GUICtrlSetColor($sControlID, 0x000000)
            $aFocus[$i][1] = True
        EndIf
    Next
WEnd

Though martin's method would be more elegant. ;-)

M23

[JohnMC]

Boths great answers, im about to use the second way right now just because it works for what i need, but knowing about the other get focus way is good to know and ill probably use it in the future, im surprised its not built in to get the focus state..

thank you both!

[martin]

Boths great answers, im about to use the second way right now just because it works for what i need, but knowing about the other get focus way is good to know and ill probably use it in the future, im surprised its not built in to get the focus state..

thank you both!

For the record here's what I was thinking of.

expandcollapse popup

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


Global $oMyError

Local $myedit, $myedit2, $msg

$gui = GUICreate("My GUI edit"); will create a dialog box that when displayed is centered
GUISetFont(9)

$myedit1 = GUICtrlCreateEdit("First line" & @CRLF, 176, 32, 121, 97, $ES_AUTOVSCROLL + $WS_VSCROLL)
$myedit2 = GUICtrlCreateEdit("First line" & @CRLF, 176, 150, 121, 97, $ES_AUTOVSCROLL + $WS_VSCROLL)
GUICtrlSetFont($myedit2, 9, 400, 2)
GUICtrlSetColor($myedit2, 0x222222)
GUISetState()

Send("{END}")
GUIRegisterMsg($WM_COMMAND, "_MY_WM_COMMANDs")

GUICtrlSetData($myedit1, "Second line", 1)

While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUIDelete()


Func _MY_WM_COMMANDs($hWnd, $iMsg, $wParam, $lParam)
    Local $notif = BitAND($wParam, 0xFFFF0000) / 0x10000
    Local $ID = BitAnd($wParam,0xFFFF)
    Switch $ID;lParam
        Case $myedit1;ControlGetHandle($gui, "", $myedit1)
            If $notif = $EN_SETFOCUS Then
                GUICtrlSetFont($myedit1, 9, 400, 0)
                GUICtrlSetColor($myedit1, 0)
            EndIf
            If $notif = $EN_KILLFOCUS Then
                GUICtrlSetFont($myedit1, 9, 400, 2)
                GUICtrlSetColor($myedit1, 0x222222)
            EndIf
        Case $myedit2;ControlGetHandle($gui, "", $myedit2)
            If $notif = $EN_SETFOCUS Then
                GUICtrlSetFont($myedit2, 9, 400, 0)
                GUICtrlSetColor($myedit2, 0)
            EndIf

            If $notif = $EN_KILLFOCUS Then
                GUICtrlSetFont($myedit2, 9, 400, 2)
                GUICtrlSetColor($myedit2, 0x222222)
            EndIf

    EndSwitch
    Return $GUI_RUNDEFMSG

EndFunc  ;==>_MY_WM_COMMANDs