Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Текст на канвасе: получить позицию курсора

AlexC © (2014-10-19 23:23:00)
Погуглил по данной теме, но как ни странно, ответов на мой вопрос не нашел:
есть текст, выведенный на канвас какого либо контрола. Пользователь кликает мышкой по этому тексту и нужно получить символ, по которому он кликнул. В голову приходит только одно решение "в лоб"

var S: string; // Здесь содержится текcт, который вывели на канвас Tmp := ''; for i := 1 to Length(S) do begin Tmp := Tmp + S[i]; if Canvas.TextWidth(Tmp) > Y then begin Result := i; Break; end; end;

т.е. идея понятна.
Но возможно есть какое то более элегантное решение?

MBo (2014-10-20 11:24:00) [1]
Если текст выводится в одну строчку, и про него всё известно, то
GetTextExtentExPoint

Alex_C (2014-10-20 11:05:00) [2]
Поясню: да, текст я знаю, фонт знаю, позицию начала текста - тоже знаю.

Kilkennycat (2014-10-20 10:13:00) [3]
и даже если вашим способом, то лучше использовать винапишную функцию DrawText с флагом DT_CALCRECT и искать бинарным поиском, а не перебором

Kilkennycat (2014-10-20 10:11:00) [4]

> S: string; // Здесь содержится текcт, который вывели на
> канвас

xyabc : array - а здесь содержаться координаты, которые заполнили, когда выводили текст на канвас.

brother (2014-10-20 04:29:00) [5]
так исходный текст Вы знаете или его также надо узнать?

Германн (2014-10-20 01:29:00) [6]

> есть текст, выведенный на канвас какого либо контрола. Пользователь
> кликает мышкой по этому тексту

Есть картинка нарисованная на канве какого-либо контрола. Пользователь кликает мышкой по этой картинке. И что там нужно получить?

Наверх

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