forum.clarionlife.net

Интересный вопрос -- как отследить слово/фразу в которую щелкнули мышкой? И на которое навели мышку?

Поясню -- хочется сделать переход на URL в тексте - что бы по нажатию запускался эксплорер.
И что бы при нведении мышки на ссылку - появлялось подчеркивание ссылки.

Думаю, что в RTFе как-то это можно делать. Кто-нибудь пробовал?

я так понимаю, что никто такую задачу не решал?
странно.

Расскажу тогда, как я попытался ее решить.
Получилось "так себе".

Вот метод, который отрабатывает для отображения строки (при нажатии мышки и при перемещении внутри текста курсора):

Код: Выделить всё

RTFControl1.RefreshLinePos PROCEDURE

A STRING(80)
  CODE

  ! Parent Call
  PARENT.RefreshLinePos

   y#=SELF.Props.CaretY()
   A=SELF.Props.line(y#)
   if    upper(A[1:7])='HTTP://' then
    ! вызов бровзера
   elsif upper(A[1:7])='MAILTO:' then
    ! вызов почтовой программы
   end
   display

К сожалению, срабатывает и при попадании курсора (перемещением с клавиатуры) на нужную строку.
И в любом случае не придумал как ловить "наведение" курсора мыши на ссылку.

Т.е. метод не тот.
Видимо надо копать глубже?

forum.clarionlife.net

RTF TextBox

RTF TextBox