Как перевести текстовые координаты в графические

← →
GIL © (2002-10-14 03:22) [0]

Известна позиция курсора в текстовом поле, как перевести эти координаты в графически (все параметры шрифта в текстовом поле могут меняться).

← →
Юрий Зотов © (2002-10-14 03:53) [1]

EM_POSFROMCHAR

← →
GIL © (2002-10-14 04:09) [2]

Знаю я это, но не знаю какие параметры нужно задавать, пробовал разные, но не получается, если можно примером!

← →
Юрий Зотов © (2002-10-14 04:19) [3]

Если верить хелпу, то:

var
P: TPoint;
...
with Memo1 do
SendMessage(Handle, EM_POSFROMCHAR, Integer(@P), SelStart);

Получаем P.X и P.Y.

Big Sanks