VPF::Физические координаты курсора

Delphist

Дата 13.3.2006, 11:11 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

На форме расположен компонент TMemo, у memo есть свойство Memo.Caret.X и Memo.Caret.Y где возвращаются координаты каретки - позиция в строке и номер строки. Как узнать физические координаты(в пикселях) каретки.

Это сообщение отредактировал(а) Delphist - 13.3.2006, 15:03

--------------------

ProcessInfo 1-ая моя программа (аналог spyxx.exe с гораздо большим функц-ом - внедрение dll в адр. простр. процесса, перехват API-функций, разбор приложения на окна мн.др).
Когда-то давным-давно использовал это...

Yanis

Дата 13.3.2006, 11:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Умничка. Только вопрос забыл задать.

--------------------

*щёлк*

Romikgy

Дата 13.3.2006, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Рискну предположить что GetCursorPos

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Yanis

Дата 13.3.2006, 11:30 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Меня терзают смутные сомнения, но похоже разговор идёт не о курсоре, а о каретке. Киньте в меня камень, если я не прав. Но всё равно непонятно, что хотел сказать своим первым постом автор.

--------------------

*щёлк*

Alexeis

Дата 13.3.2006, 11:43 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Цитата

Но всё равно непонятно, что хотел сказать своим первым постом автор

Цитата

Физические координаты курсора

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Yanis

Дата 13.3.2006, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Цитата(alexeis1 @ 13.3.2006, 11:43

)

Физические координаты курсора

Всё равно непонятно. Подразумеваю, что речь про каретку, а "вопрос" о курсоре. smile

--------------------

*щёлк*

Alexeis

Дата 13.3.2006, 12:17 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Справка говорит так надо отправить memo либо richEditu сообщение EM_POSFROMCHAR

--------------------

Delphist

Дата 13.3.2006, 14:49 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

Цитата(Yanis @ 13.3.2006, 11:14)

Умничка. Только вопрос забыл задать.

Как получить физические координаты(в пикселах) курсора каретки.

Это сообщение отредактировал(а) Delphist - 13.3.2006, 14:51

--------------------

Yanis

Дата 13.3.2006, 15:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Цитата(Delphist @ 13.3.2006, 14:49

)

Как получить физические координаты(в пикселах) курсора каретки.

Цитата(Delphi Help)

CaretPos defines a pixel location onscreen, with the origin in the top left corner of the memo

Либо я плохо знаю английский, либо (к сожалению) ребята из Borland ошиблись smile

--------------------

*щёлк*

Alexeis

Дата 13.3.2006, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Подключайтесь уже кто-нибудь
Я тестил сообщение EM_POSFROMCHAR
Но у меня плохой результат (большие числа)
Может что-то не так написал??

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  X, Y: LongInt;
  p : ^TPoint;
begin
  p := nil;
  integer(p) := SendMessage(Memo1.Handle, EM_POSFROMCHAR, 60, 0);
  showmessage(inttostr(p^.x) + ' ' + inttostr(p^.y));
end;

Добавлено @ 15:21
Yanis, ребята из Borland ошиблись smile

--------------------

Yanis

Дата 13.3.2006, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Цитата(Delphist @ 13.3.2006, 14:49

)

Как получить физические координаты(в пикселах) курсора каретки.

Например тебе нужно узнать положение X твоей каретки в Memo с таким текстом: "Font a|nd Text Functions". Значит тебе нужно подсчитать ширину текста "Font a" и прибавить к TMemo.Left. Примерно таким же образом получается и значение координаты Y. Всё, что тебе нужно можно узнать при помощи функции GetTextExtentPoint32. Если при использовании этой функции возникают проблемы, то попробуй такой варинт:

Код


var
  C: TCanvas;
begin
  C := TCanvas.Create;
  C.Handle := GetWindowDC(Memo1.Handle);
  { при помощи стандартного метода TextExtent() получаешь значения  интересующих тебя свойств и высчитываешь координаты }
  C.Free;

Это сообщение отредактировал(а) Yanis - 13.3.2006, 16:05

--------------------

*щёлк*

maxim1000

Дата 13.3.2006, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник
Сообщений: 3334
Регистрация: 11.1.2003
Где: Киев

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

Цитата(alexeis1 @ 13.3.2006, 14:20

)

integer(p) := SendMessage(Memo1.Handle, EM_POSFROMCHAR, 60, 0);
showmessage(inttostr(p^.x) + ' ' + inttostr(p^.y));

SendMessage при EM_POSFROMCHAR возвращает целое 32-битное число, в младшем и старшем словах которого закодированы координаты
в это коде эта комбинация присваивается указателю, а потом производится попытка взять по получившемуся адресу информацию...

как по мне, лучшетак:

Код


var
  buf:integer;
  x,y:integer;
begin
  buf:=SendMessage(Memo1.Handle,EM_POSFROMCHAR,60,0);
  x:=buf mod 65536;
  y:=buf div 65536;//не помню, как в Delphi выделение слов :)
  ...
end;

--------------------

qqq

Delphist

Дата 14.3.2006, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Delphist Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2145
Регистрация: 3.2.2004
Где: всегда в сети

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

Гораздо проще GetCaretPos.

--------------------

Yanis

Дата 14.3.2006, 13:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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

Цитата(Delphist @ 14.3.2006, 13:35

)

Гораздо проще GetCaretPos.

Проще для чего? Она не удовлетворяет твоим условиям.

--------------------

*щёлк*

Святогор

Дата 2.10.2007, 07:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 9.8.2006

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

Пардон, но я так и не понял. Неужелине сущесвтует конкретного метода, который бы определил экранные координаты курсора(не мыши) в окне TMemo ?

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