🚀 go-pugleaf

Hello,

I'm new to programming DHTML, so pardon my  ignorance.   I'm using 
TCppWebBrowser control to display HTML which contains a number of <input 
type=text> elements.  My program loads the HTML page, searches for all 
<input type=text> elements and then attaches an EventDispatcher based on 
DIID_HTMLInputTextElementEvents2 to each of the InputText elements.  All 
this is working fine now.

With the EventDispatcher, I'm able to track the cursor/caret location as the 
user types into each of the InputText elements.  What I'm ultimately trying 
to do is to maintain the curser/caret position for each of the InputText 
elements as they go in and out of focus, just as with standard WIN32 edit 
boxes.  Try as I might, I can't get this to happen.  Below is the ONFOCUS 
event handler used for the InputText elements.  The "CaretPos" value that is 
passed in is unique to whatever InputText element fired the event(I've 
verified this).

After this event handler executes and indicates that the cursor/caret has 
infact been moved, the text in the InputText element is fully selected 
(default behavior).

What am I missing? or is this not Possible?

Thanks
James O'Brien





//---------------------------------------------------------------------------
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*)&InputText))){


      //get IID_IHTMLDocument2 interface
      pElement->get_document(&Dispatch);
      if(SUCCEEDED(Dispatch->QueryInterface(IID_IHTMLDocument2, 
(LPVOID*)&Doc))){

         //get IID_IHTMLTxtRange interface
         Doc->get_selection(&Selection);
         Selection->createRange(&Range);
         if(SUCCEEDED(Range->QueryInterface(IID_IHTMLTxtRange, 
(LPVOID*)&TextRange))){

            //get existing select text and display main window's statusbar
            if(SUCCEEDED(TextRange->get_text(&bstr))){
               INPUT_Status->Panels->Items[1]->Text=bstr;
               ::SysFreeString(bstr);
            }

            //attempt to create empty slection and move to location secified 
by CaretPos
            if(SUCCEEDED(TextRange->move(WideString("character"), *CaretPos, 
&pos))){

               //Display where the cursor now be, into main window's 
statusbar
               A.sprintf("Cursor should be at position %d.", pos);
               INPUT_Status->Panels->Items[2]->Text = A;
               INPUT_Status->Refresh();

            }

         }
      }

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