Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Координаты lines в RichEdit 
V
    Опции темы
pankerstein
  Дата 24.12.2006, 00:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 36
Регистрация: 16.11.2006
Где: г. Белгород

Репутация: нет
Всего: нет



Всем привет.
::Снова с вопросом:: smile 

Можно ли как то узнать на каких .Top" & .Left находится строка(Lines[i])  в richEdit??             
.Top, как мне кажется, можно вычеслить из высоты richedit, размера шрифта и номера строки.... 
Может у кого есть ещё соображения? И как быть с .left ??

Зараннее спасибо!
PM WWW   Вверх
MetalFan
Дата 24.12.2006, 00:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128



смотри сообщения на EM_....
в частности
EM_POSFROMCHAR
EM_LINEFROMCHAR
etc



--------------------
There are always someone smarter than you...
PM MAIL   Вверх
pankerstein
Дата 24.12.2006, 12:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 36
Регистрация: 16.11.2006
Где: г. Белгород

Репутация: нет
Всего: нет



Цитата(MetalFan @  24.12.2006,  00:56 Найти цитируемый пост)
смотри сообщения на EM_....
в частности
EM_POSFROMCHAR
EM_LINEFROMCHAR


 smile Можно поподробнее если не сложно, как это сообщение передать "Едиту", и как оттуда возвратить значение координат строки в переменную
PM WWW   Вверх
MetalFan
Дата 24.12.2006, 13:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128



Код

var
  lPt: TPoint;
  lPos: Integer;
begin
  lPos := SendMessage( redt1.Handle, EM_LINEINDEX, -1, 0 ); //получаем номер символа в начале текущей (-1) строки.
  if lPos = -1 then Exit;
  SendMessage(redt1.Handle, EM_POSFROMCHAR, Integer(@lPt), lPos ); //получаем координаты Left/Top символа с номером lPos
  Caption := Format( 'x:%d;y:%d', [lPt.x, lpt.y]); //ну и в кэпшн его для проверки




--------------------
There are always someone smarter than you...
PM MAIL   Вверх
pankerstein
Дата 8.1.2007, 11:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 36
Регистрация: 16.11.2006
Где: г. Белгород

Репутация: нет
Всего: нет



Работает... наконецто получилось проверить всё как то руки не доходили.. спасибо!
PM WWW   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

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

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0428 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.