selecting all text in a control on click

[iamtheky]

guictrlcreateinput, take the example for example.  Write some text in the first parameter.  How would you go about selecting all the text (instead of just setting the cursor) when a user left clicks amongst the controls, the behavior that exists when they are tabbed between.  This has to have been asked before and my search just sucking tonight.

[jdelaney]

probably other ways, as well:

#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
Example()

Func Example()
    Local $file, $btn, $msg

    $g = GUICreate(" My GUI input acceptfile", 320, 120, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
    $file = GUICtrlCreateInput("", 10, 5, 300, 20)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    $i = GUICtrlCreateInput("", 10, 35, 300, 20) ; will not accept drag&drop files
    $btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)

    GUISetState()

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
        $msg = GUIGetMsg()
        Select
            Case $msg = $btn
                ConsoleWrite( GUICtrlRead($i) & @CRLF)
                ControlFocus($g, "", $i)
                _GUICtrlEdit_SetSel($i, 0, StringLen(GUICtrlRead($i)))

        EndSelect
    WEnd

    MsgBox(4096, "drag drop file", GUICtrlRead($file))
EndFunc   ;==>Example

click the button to perform _guictrledit_setsel...use the second input.

Edited February 19, 2014 by jdelaney

[iamtheky]

set

$file = GUICtrlCreateInput("test", 10, 5, 300, 20)

$i = GUICtrlCreateInput("test", 10, 35, 300, 20)

and tab between them and the text is selected.

and left click in them, and i get a cursor at the end.  I want left click to mimic the tab behavior, I dont understand how to do that from your example....yet, im still trying.

[jdelaney]

how about this:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
Example()

Func Example()
    Local $file, $btn, $msg, $focus="", $last = ""

    $g = GUICreate(" My GUI input acceptfile", 320, 120, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
    $i1 = GUICtrlCreateInput("", 10, 5, 300, 20)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    $i2 = GUICtrlCreateInput("", 10, 35, 300, 20) ; will not accept drag&drop files
    $btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)

    GUISetState()

    $s1 = "Edit1"
    $s2 = "Edit2"
    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
        $msg = GUIGetMsg()
        $focus = String(ControlGetFocus($g))
        Switch $focus
            Case $s1
                If $focus <> $last Then
                    $last = $focus
                    ControlFocus($g, "", $i1)
                    ConsoleWrite( GUICtrlRead($i1) & @CRLF)
                    _GUICtrlEdit_SetSel($i1, 0, StringLen(GUICtrlRead($i1)))
                EndIf
            Case $s2
                If $focus <> $last Then
                    $last = $focus
                    ControlFocus($g, "", $i2)
                    ConsoleWrite( GUICtrlRead($i2) & @CRLF)
                    _GUICtrlEdit_SetSel($i2, 0, StringLen(GUICtrlRead($i2)))
                EndIf
        EndSwitch

        Select
            Case $msg = $btn
                ConsoleWrite( GUICtrlRead($i2) & @CRLF)
                ControlFocus($g, "", $i2)
                _GUICtrlEdit_SetSel($i2, 0, StringLen(GUICtrlRead($i2)))

        EndSelect
    WEnd

EndFunc   ;==>Example

Simplified:

#include <GUIConstantsEx.au3>
#include <GuiEdit.au3>
Example()

Func Example()
    Local $file, $btn, $msg, $focus="", $last = ""

    $g = GUICreate(" My GUI input acceptfile", 320, 120, @DesktopWidth / 2 - 160, @DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
    $i1 = GUICtrlCreateInput("", 10, 5, 300, 20)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    $i2 = GUICtrlCreateInput("", 10, 35, 300, 20) ; will not accept drag&drop files
    $btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)

    GUISetState()

    $msg = 0
    While $msg <> $GUI_EVENT_CLOSE
        $msg = GUIGetMsg()
        $focus = String(ControlGetFocus($g))
        If StringInStr($focus,"Edit") And $focus <> $last Then
            $last = $focus
            $h = ControlGetHandle($g, "",$focus)
            
            _GUICtrlEdit_SetSel($h, 0, StringLen(ControlGetText($g,"",$h)))
        EndIf
    WEnd
EndFunc   ;==>Example

Edited February 19, 2014 by jdelaney

[iamtheky]

Both seem to work fine.  Thank you sir.