🚀 go-pugleaf

Jos� <jose@127.0.0.1> wrote:
>
> There are several lines in a Memo.

This question would have best been asked in the vcl.using
group.

> User clicks on a line. How can I know which line it was?

TMemo has a Text property which returns an AnsiString with
line breaks according to where the hard returns are. TMemo
also has a Lines property but it's based on where the line
wrap is on the screen. Increase or decrease the Width enough
and you'll also change Lines::Count.

Exactly which 'line' do you want?

What are you trying to accomplish?

~ JD

"HF" <(min_charATyahooPUTADOTgr)(HellenicFire)> wrote:
>
> I think this works ok

I think that you may have misunderstood the question. I
believe that the OP wants a line index of some king into
the memo's text.

>//------------------------------------------------------------
>void __fastcall TForm1::Memo1Click(TObject *Sender)
>{
>   TPoint pp = Memo1->CaretPos;
>   ShowMessage("Current Line : "+ IntToStr(pp.y+1));
>}
>//------------------------------------------------------------

If all you want is the click point relative to the TMemo's
ClientArea, then the OnMouseDown event is better suited
because it's parameter list includes ClientArea-relative
X and Y. You also won't have to code around an OnClickEvent
if it's ever implemented.

~ JD

I think this works ok
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Click(TObject *Sender)
{
   TPoint pp = Memo1->CaretPos;
   ShowMessage("Current Line : "+ IntToStr(pp.y+1));
}
//---------------------------------------------------------------------------
-minas

? "Jose" <jose@127.0.0.1> ?????? ??? ?????? 
news:997c029a5t0qjqsm19sajsj7mn1ob6jh1s@4ax.com...
> There are several lines in a Memo. User clicks on a line. How can I
> know which line it was?
> -- 
> Jos� 

"Jos�" <jose@127.0.0.1> wrote in message
news:997c029a5t0qjqsm19sajsj7mn1ob6jh1s@4ax.com...

> There are several lines in a Memo. User clicks on a line.
> How can I know which line it was?

Use the EM_CHARFROMPOS message:

    void __fastcall TForm1::Memo1Click(TObject *Sender)
    {
        TPoint p = Memo1->ScreenToClient(Mouse->CursorPos);
        int LineIndex = Memo1->Perform(EM_CHARFROMPOS, 0, MAKELPARAM(p.x,
p.y));
        if( LineIndex > -1 )
        {
            LineIndex = HIWORD(LineIndex);
            //...
        }
    }


Alternatively, use the EM_LINEFROMCHAR or  EM_EXLINEFROMCHAR message:

    void __fastcall TForm1::Memo1Click(TObject *Sender)
    {
        int LineIndex = Memo1->Perform(EM_LINEFROMCHAR, Memo1->SelStart, 0);
        if( LineIndex > -1 )
            // ...
    }

    void __fastcall TForm1::Memo1Click(TObject *Sender)
    {
        int LineIndex = Memo1->Perform(EM_EXLINEFROMCHAR, 0,
Memo1->SelStart);
        if( LineIndex > -1 )
            // ...
    }


Gambit

On Thu, 2 Mar 2006 01:26:20 +0200, "HF"
<(min_charATyahooPUTADOTgr)(HellenicFire)> wrote in
borland.public.cppbuilder.nativeapi:

>void __fastcall TForm1::Memo1Click(TObject *Sender)
>{
>   TPoint pp = Memo1->CaretPos;
>   ShowMessage("Current Line : "+ IntToStr(pp.y+1));
>}

This is exactly what I needed. I also find that CaretPos is not in the
help file as a property of TMemo, so I do not blame myself for being
unable to find it.
Thanks.
-- 
Jos�

"Jos�" <jose@127.0.0.1> wrote in message
news:uebd02h8q30nh0j7f24mumu7ngv8i50i3u@4ax.com...
> ...
> I also find that CaretPos is not in the
> help file as a property of TMemo, so I do not blame myself for being
> unable to find it.
> ...
First of all, never blame yourself: let others do it for you. Secondly,
my version of Builder also has a lot of bugs in almost every file shipped
with it, that's why I think the best help manual is the collection of
header files, code source and libraries supplied with the product.