Текущий архив: 2007.09.02;
Скачать: CL | DM;

Вниз

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

← →
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]

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

---

← →
Lacmus ©   (2007-08-08 20:26) [5]

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

---

Страницы: 1 вся ветка

Текущий архив: 2007.09.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.021 c