🚀 go-pugleaf

Hello Agian,

Just in case anyone is wondering why any of the interfaces in my event 
handler aren't being released.

I've created typdefs of the various IID_**** interfaces using TComInterface 
base class. The interfaces should
automatically be released when  event-handler exit.

James O'Brien 

"James O'Brien" <obrien@niscnet.com> wrote in message
news:420d1f09@newsgroups.borland.com...

> 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).

You did not show the code that is calling ElementCTRL_OnFocus(), or the code
that is saving the caret positions for each element.

> 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 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.

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

Why are you going back to the document?

>          //get IID_IHTMLTxtRange interface
>          Doc->get_selection(&Selection);

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.


Gambit

>
> 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;
}
//--------------------------------------------------------------------------
-