🚀 go-pugleaf

>
> You are querying the document's selection information.  Why?  You said
> that you wanted to set the INPUT ELEMENT's caret position, but your code
is not
> actually doing that at all.  You are modifying the DOCUMENT'S selection
> instead.
>

In any examples I've seen regarding getting cursor/caret position, the code
referenced the  document interface to get its TextRange interface.
Since a document can only have one textrange and the input text object has
focus, isn't the documents textrange going to correspond to the cursor
position in the input text object?  Anyway, where else am I going to get it
from?  The ITMLInputTextElement interface has a createTextRange() method,
but this doesn't give me existing cursor selection information.

> What is the actual problem you are having?  My guess would be that the
> browser to assigning its own caret positioning after the OnFocus event has
> exited.

The event-handler code below is now working as I need it.  Since I already
have the previous caret position
stored,  I can go ahead and use input text element's createTextRange()
method, collapse() that textrange, then
move() the insertion point to the value of stored CaretPos, and finally
select the text range.   Once the OnFocus
event handler returns the caret is where I want it to be.

Basically, I needed to select the TextRange object after I modified it.

//--------------------------------------------------------------------------
-
void TDHTMLForm::ElementCTRL_OnFocus(T_IHTMLElement &pElement,
T_IHTMLEventObj &pElementEvent, long *CaretPos)
{
           BSTR  bstr;

            long  pos;

             T_IDispatch  Dispatch;
             T_IDispatch  Range;

        T_IHTMLDocument2  Doc;

 T_IHTMLInputTextElement  InputText;

  T_IHTMLSelectionObject  Selection;
         T_IHTMLTxtRange  TextRange;


  //get IHTMLInputTextElement interface

if(SUCCEEDED(pElement->QueryInterface(IID_IHTMLInputTextElement,(LPVOID*)&In
putText))){

      InputText->createTextRange(&TextRange);
      if(SUCCEEDED(TextRange->get_text(&bstr))){
         INPUT_Status->Panels->Items[1]->Text=bstr;
         ::SysFreeString(bstr);
      }
      TextRange->collapse(true);
      TextRange->move(WideString("character"), *CaretPos, &pos);
      TextRange->select();


      A.sprintf("Cursor should be at position %d.", pos);
      INPUT_Status->Panels->Items[2]->Text = A;

  }
  return;
}
//--------------------------------------------------------------------------
-