Координаты символа

← →
dhteghjg (2007-08-08 18:27) [0]

Как определить TRect или TPoint символа в TRichEdit зная его строку и номер??

← →
Lacmus © (2007-08-08 19:03) [1]

function GetCharPos(aEdit: HWnd; aLineIndex, aCharIndex: Integer): TPoint; begin Inc(aCharIndex, SendMessage(aEdit, EM_LINEINDEX, aLineIndex, 0)); SendMessage(aEdit, EM_POSFROMCHAR, LongInt(@Result), aCharIndex) end; procedure TForm24.Button1Click(Sender: TObject); var P: TPoint; begin P := GetCharPos(RichEdit1.Handle, 1, 2); ShowMessage(Format("%d:%d", [P.X, P.Y])) end;

Параметры EM_POSFROMCHAR зависят от версии RichEdit
http://msdn2.microsoft.com/en-us/library/ms672089.aspx

← →
dhteghjg (2007-08-08 19:38) [2]

а зная коордиаты можно определить номер и строку символа подоным способом или надо перебором

← →
Lacmus © (2007-08-08 19:54) [3]

EM_CHARFROMPOS
EM_LINEFROMCHAR

← →
dhteghjg (2007-08-08 20:13) [4]

а мож пример показать

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=2227

Координаты символа Найти похожие ветки