| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

dhteghjg ©   (2007-08-08 18:27:00) 

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

---

Lacmus   (2007-08-08 20:26:00) [1]

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

---

dhteghjg   (2007-08-08 20:13:00) [2]

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

---

Lacmus   (2007-08-08 19:54:00) [3]

EM_CHARFROMPOS
EM_LINEFROMCHAR

---

dhteghjg   (2007-08-08 19:38:00) [4]

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

---

Lacmus   (2007-08-08 19:03:00) [5]


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

---

Наверх