How can you extract the current line from a TMemo?

[vfclists]

How can you extract the current line from a TMemo?

I want the current line I to be copied whenever I press a particular key, or on some particular event.

[rvk]

Your current line would be
Memo1.Lines[Memo1.CaretPos.y]

[vfclists]

Your current line would be
Memo1.Lines[Memo1.CaretPos.y]

I have tried it and it always returns 0. On checking the source it appears to a virtual method which hasn't been defined

[Cyrax]

It works here alright.

Lazarus SVN trunk r48926 with FPC trunk 30794. Microsoft Windows Server 2008 R2 with SP1.

[rvk]

I have tried it and it always returns 0. On checking the source it appears to a virtual method which hasn't been defined

You can't track to that procedure via Lazarus (and find the definition). If you really track the source you get to this point (for Windows):

in lcl/interfaces/win32/win32wsstdctrls.pp

Code: [Select]

class function TWin32WSCustomMemo.GetCaretPos(const ACustomEdit: TCustomEdit): TPoint;
var
  BufferX: Longword;
begin
  { X position calculation }

  { EM_GETSEL returns the char index of the caret, but this index
    doesn't go back to zero in new lines, so we need to subtract
    the char index from the line

    EM_GETSEL expects a pointer to 32-bits buffer in lParam
  }
  Windows.SendMessageW(ACustomEdit.Handle, EM_GETSEL, 0, PtrInt(@BufferX));
  { EM_LINEINDEX returns the char index of a given line
    wParam = -1 indicates the line of the caret
  }
  Result.X := BufferX - Windows.SendMessageW(ACustomEdit.Handle, EM_LINEINDEX, -1, 0);

  { Y position calculation }

  { EM_LINEFROMCHAR returns the number of the line of a given
    char index.
  }
  Result.Y := Windows.SendMessageW(ACustomEdit.Handle, EM_LINEFROMCHAR, BufferX, 0);
end;

Are you using Windows or Linux?

[vfclists]

I have tried it and it always returns 0. On checking the source it appears to a virtual method which hasn't been defined

You can't track to that procedure via Lazarus (and find the definition). If you really track the source you get to this point (for Windows):

in lcl/interfaces/win32/win32wsstdctrls.pp
...

I am using Qt on Linux. I have switched to TSynMemo, but I am missing wordwrap and simple cat and paste using the right-click menu.

[felipemdc]

I am using Qt on Linux.

Then report a bug that it doesn't work with Qt on Linux.

[zeljko]

I've implemented Caret.Y for Qt. Test with r48988

[vfclists]

I've implemented Caret.Y for Qt. Test with r48988

Thanks. I will check it out and try it as soon as I can.

[vfclists]

I've implemented Caret.Y for Qt. Test with r48988

Hi,

I have tested the fix on r49040 and is working fine.

Thanks a lot.