CaretPos w pikselach

jozkan

Poniższa funkcja oblicza pozycję kursora tekstowego w pikselach
Do listy uses dodaj RichEdit

function GetCaretPixPos(RE:TRichEdit):TPoint;
var
   char_index:Integer;
begin
   with RE do
   begin
      char_index:=Perform(EM_LINEINDEX,CaretPos.y,0)+CaretPos.x;
      SendMessage(Handle,EM_POSFROMCHAR,Integer(@Result),char_index);
   end;
end;

0 komentarzy