Detecting if a text is selected

[afshindavoudy]

I need to check if any text selected.
I have this function which works fine:

Code: Select all

IsTextSelected()
{
    SavedClip := ClipboardAll()
    A_Clipboard := ""
    Send("^c")
    Errorlevel := !ClipWait(0.5) ; Wait for the clipboard to contain data
    if (!ErrorLevel) ; There is data on clipboard
        return (true)
    else
        return (false)
    ; Sleep(100)
    A_Clipboard := SavedClip
    SavedClip := ""
    return
}

But its too slow!
Is there a way to speed up the process.
Or is there another method to achieve that?

[mikeyww]

This might work but depends on the control.

EditGetSelectedText

[afshindavoudy]

I am new to ahk and cant fully follow the documents yet!
Can you provide some examples pls.

[mikeyww]

A demonstration is below, but it might not work for certain rich-text edit controls.

Code: Select all

#Requires AutoHotkey v2.0
gui1 := Gui()
gui1.AddEdit
gui1.Show

F3:: {
 For ctl in WinGetControls(WinActive('A'))
  If InStr(ctl, 'Edit') {
   Try txt := EditGetSelectedText(ctl)
   Catch
    Continue
   ctlText := 'Control: ' ctl '`n`n'
   If txt = ''
        MsgBox ctlText '[No selection]', 'Selection', 'Icon!'
   Else MsgBox ctlText txt             , 'Selection', 'Iconi'
  }
}

[Noitalommi_2]

Hi.

@afshindavoudy
Based on your provided function, you could use OnClipboardChange instead of ClipWait. This way you could avoid the ClipWait timeout, which should speed up the function a little bit if ClipWait times out.

Code: Select all

#Requires AutoHotkey 2.0
#SingleInstance

F1::ToolTip(IsTextSelected())


IsTextSelected() {

    global Result

    SavedClip := ClipboardAll()
    A_Clipboard := ""
    Result := ""

    Send("^c")

    while !Result
        Sleep 10

    r := Result
    A_Clipboard := SavedClip

    if r = "y"
        return 1
    else
        return 0
}
OnClipboardChange ClipChanged
ClipChanged(DataType) {

    global Result

    if DataType = 1 ; 1 = Clipboard contains something that can be expressed as text (this includes files copied from an Explorer window).
        Result := "y"
    else            ; Clipboard contains something entirely non-text such as a picture or is empty
        Result := "n"
}

[afshindavoudy]

@Noitalommi_2
This script cant detect the selection correctly

[Noitalommi_2]

OnClipboardChange considers everything as text that can be expressed as text.
If you want to exclude something then you could check the content of the clipboard beforehand, for example whether it is a path or not if you want to exclude this.
If this is not enough then OnClipboardChange may not be suitable for this task.