Ссылка в тексте!

Форумы Помощь по пакетуСсылка в тексте! ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 204

Рейтинг: 2

#1: 2018-03-17 11:46:54 ЛС | профиль | цитата

В компоненте HilightMemo можно подсветить строку дав ей признак ссылки (по крайней мере так написано в описании). Но по факту строка только подкрашивается в синий цвет и все! Можно ли выделить ссылку в тексте и сделать её кликабельной или хотябы получать её для дальнейшего открытия через WinExec?

Возможно есть иной путь запихнуть полноценную ссылку в текст???

Add(MainForm,6152035,280,245)
{
 Width=613
 Height=316
 BorderStyle=1
 Position=1
 Point(Handle)
}
Add(HilightMemo,11072923,763,315)
{
 Left=50
 Top=25
 Width=500
 Height=200
 Color=16777215
 Font=[Courier New,8,0,0,1]
 Strings=#70:Маша отправила письма Вите на https://mail.ru/ Витя письма не получил!|
 HilightStrings=#14:http://=Blue=U|15:https://=Blue=U|
 HilightFont=[Courier New,8,0,0,1]
 Point(onClickUnderLineStr)
}
Add(Edit,65521,903,315)
{
 Left=45
 Top=260
 Width=395
 Text=""
}
Add(WinExec,8102616,903,378)
{
 link(FileName,65521:Text,[])
}
Add(Button,2977803,840,385)
{
 Left=450
 Top=260
 Width=100
 Caption="---->"
 link(onClick,8102616:doShellExec,[])
}

Редактировалось 2 раз(а), последний 2018-03-17 11:50:26

карма: 1

Google vip	#1.1контекстная реклама от партнеров

Разработчик

Ответов: 26066

Рейтинг: 2120

#2: 2018-03-17 14:36:43 ЛС | профиль | цитата

Этот режим работает только при ReadOnly=true

Схема


Add(MainForm,6152035,329,161)
{
 Width=613
 Height=316
 BorderStyle=1
 Position=1
 Point(Handle)
}
Add(HilightMemo,11072923,399,161)
{
 Left=50
 Top=25
 Width=500
 Height=200
 Color=16777215
 Font=[Courier New,8,0,0,1]
 Strings=#70:Маша отправила письма Вите на https://mail.ru/ Витя письма не получил!|
 HilightStrings=#14:http://=Blue=U|15:https://=Blue=U|
 HilightFont=[Courier New,8,0,0,1]
 ReadOnly=0
 Point(onClickUnderLineStr)
 link(onClickUnderLineStr,65521:doText,[])
}
Add(Edit,65521,462,168)
{
 Left=45
 Top=260
 Width=395
 Text=""
}
Add(WinExec,8102616,462,231)
{
 link(FileName,65521:Text,[])
}
Add(Button,2977803,399,238)
{
 Left=450
 Top=260
 Width=100
 Caption="---->"
 link(onClick,8102616:doShellExec,[])
}

карма: 22

Ответов: 204

Рейтинг: 2

#3: 2018-03-17 15:18:16 ЛС | профиль | цитата

nesco писал(а):

Этот режим работает только при ReadOnly=true

Спасибо, понял! ))

карма: 1

Форумы Помощь по пакетуСсылка в тексте! ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)