9 replies to this topic

[Jim Yuill]

.
.
I can't figure out how to get this ControlClick command to work. Can anyone help?!

I need my hot-key to click on the line "Unformatted Text" in the window shown below. The Window Spy output is also shown, for when I manually click on "Unformatted Text".

I can open that window via AHK. But my attempts at ControlClick do NOT work, such as:

    SetTitleMatchMode,Slow
    SetControlDelay -1
    ControlClick,REListBox20W1,ahk_class #32770,Unformatted Text

Any help is much appreciated!




[/code]

[Me!]

Try ControlSend u

SetTitleMatchMode,Slow
    SetControlDelay -1
    ControlSend, REListBox20W1,u,ahk_class #32770,Unformatted Text

if that doesnt work
ControlFocus on that control

if that doesn't work try clicking by X,Y coordinates

ControlClick,X283 Y149,ahk_class #32770

[Jim Yuill]

.
I'm replying to "me!" here...

THANKS for the help.

I tried all three of your suggestions, but unfortunately, they don't work quite right here. FYI, the GUI I'm working with is from PowerPoint.

ControlSend is not accurate in its selection here. In the screen shot I posted, the list has two items that start with "P". The ControlSend will just select the first one, even when the text of the second is specified, e.g.,

ControlSend, REListBox20W1,p,ahk_class #32770, Picture (Enhanced Metafile)

ControlFocus didn't work in selecting the "Unformatted Text" list item:

mystring = Unformatted Text
ControlFocus, REListBox20W1, ahk_class #32770, %mystring%

Clicking by x,y coordinates won't work consistently as the list items will change, depending on what is being pasted.

I'm wondering if I'm writing these commands incorrectly? Or, is PowerPoint doing something weird, internally?

Again, any advice is much appreciated,

Jim

[Jim Yuill]

.
I'm replying to "n-l-i-d" here. THANKS much for the help.

I tried your suggestions, but unfortunately, they don't work quite right here. (FYI, the GUI I'm working with is from PowerPoint.)

The Control, ChooseString, String didn't work:

mystring = Unformatted Text
Control, ChooseString, %mystring%, REListBox20W1

Sending "down keys" or "u" won't work consistently, as the list items are not always the same.

Any other ideas? Any help is really appreciated

Jim


BTW: I've tried many different AHK functions, but none have worked so far:

ControlClick,Unformatted Text
ControlClick,,,Unformatted
ControlClick,REListBox20W1,,Unformatted
ControlClick,Unformatted Text,A
ControlClick,Unformatted Text, ahk_class #32770
ControlClick,REListBox20W1,ahk_class #32770,Unformatted
ControlClick,REListBox20W1,ahk_class #32770,Unformatted Text

WinMenuSelectItem,ahk_class PP10FrameClass,, Edit, Paste Special

Control, ChooseString, Unformatted Text, REListBox20W1

mystring = Unformatted Text
Control, ChooseString, %mystring%, REListBox20W1

mystring = Unformatted Text
ControlFocus, REListBox20W1, ahk_class #32770, %mystring%

[Jim Yuill]

.
I'm replying to "n-l-i-d"...

WOW! THANKS very much!!!

I'll try both of those code segments you posted here, and reply--hopefully tomorrow afternoon (Tuesday).

Jim

[Jim Yuill]

.
I'm replying to n-l-i-d...

DUDE!!! Your code ROCKS!!!

Using your code, I got this to work. THANK YOU! I didn't know about the SendMessage functions.

FYI, I had to make just a few changes to your code:

* I couldn't get the EM_SETSEL to work. So instead, I sent down-arrow keys to move the list-box selection to the right place

* The string returned by EM_GETLINE is terminated by an ASCII carriage-control (ASCII 13), but it was easy to remove it.

The code is below. I'll post it to the script forum, should others need this function.

;;;;;;;;;;;;;
;
; PowerPoint hotkeys
;
;;;;;;;;;;;;;
;
; Test if PowerPoint is active:
IfWinActive Microsoft PowerPoint
{
;
;;;;;;;;;;;;;
; set F10 to be AHK for Paste Special -> Unformatted Text
;;;;;;;;;;;;;
;
F10::

; send keys to open "Paste Special" window:
Send !es!a

wantedOption := "Unformatted Text"
lineNumber := 0

; get number of lines in the "listbox"
SendMessage, (EM_GETLINECOUNT := 0xBA), 0, 0, REListBox20W1, ahk_class #32770
nrOfLinesInList := ErrorLevel 

;
; loop to find wantedOption, and select it
;
Loop %nrOfLinesInList%
{
   ; get contents of this line
   VarSetCapacity(thisLine, 100)
   SendMessage, (EM_GETLINE := 0xC4), A_Index-1, &thisLine, REListBox20W1, ahk_class #32770
   ; remove carriage-return from end of line
   StringLen length, thisline
   lineReturned := SubStr(thisLine,1,length-1)

   ; record current line number
   lineNumber++

   ; if it is the wantedOption...
   If (lineReturned = wantedOption)
   {
      ; if wantedOption is not the first option in the list-box: 
      ;   use down-arrow keys to move the selected option to wantedOption
      If (lineNumber > 1)
      {
          lineNumber--
          ControlFocus, REListBox20W1, ahk_class #32770
          SendInput !a{Down %lineNumber%}
      }

      ; click on OK
      ControlClick,Button1,,OK    

      ; quit the loop
      break
   ; end IF
   }    
; end loop
}

; if wantedOption not found, just return.  The "Paste Special" GUI will be left open.
; return for F10::
return
}
; return for PowerPoint section
return

[Jim Yuill]

I found a bug in the code I just posted. Below is a corrected version.

The bug was: IfWinActive should have been #IfWinActive

;;;;;;;;;;;;;
;
; PowerPoint hotkeys
;
;;;;;;;;;;;;;
;
; Test if PowerPoint is active:
#IfWinActive, Microsoft PowerPoint
{
;
;;;;;;;;;;;;;
; set F10 to be AHK for Paste Special -> Unformatted Text
;;;;;;;;;;;;;
;
F10::

; send keys to open "Paste Special" window:
Send !es!a

wantedOption := "Unformatted Text"
lineNumber := 0

; get number of lines in the "listbox"
SendMessage, (EM_GETLINECOUNT := 0xBA), 0, 0, REListBox20W1, ahk_class #32770
nrOfLinesInList := ErrorLevel 

;
; loop to find wantedOption, and select it
;
Loop %nrOfLinesInList%
{
   ; get contents of this line
   VarSetCapacity(thisLine, 100)
   SendMessage, (EM_GETLINE := 0xC4), A_Index-1, &thisLine, REListBox20W1, ahk_class #32770
   ; remove carriage-return from end of line
   StringLen length, thisline
   lineReturned := SubStr(thisLine,1,length-1)

   ; record current line number
   lineNumber++

   ; if it is the wantedOption...
   If (lineReturned = wantedOption)
   {
      ; if wantedOption is not the first option in the list-box: 
      ;   use down-arrow keys to move the selected option to wantedOption
      If (lineNumber > 1)
      {
          lineNumber--
          ControlFocus, REListBox20W1, ahk_class #32770
          SendInput !a{Down %lineNumber%}
      }

      ; click on OK
      ControlClick,Button1,,OK    

      ; quit the loop
      break
   ; end IF
   }    
; end loop
}

; if wantedOption not found, just return.  The "Paste Special" GUI will be left open.
; return for F10::
return
}
; return for PowerPoint section
return