Вверх ↑
Ответов: 92
Рейтинг: 0
#1: 2019-07-04 14:45:15 ЛС | профиль | цитата
Сделал вариант кликабельной ссылки. Не идеально, но пашет. Единственное не хватает изменения курсора при наводе и изменение цвета.


Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
}
Add(ArrayRW,10489651,602,378)
{
link(onRead,13851651:doExec,[(646,384)(646,377)])
link(Array,15180640:Array,[(608,313)(531,313)])
}
Add(Math,9186495,546,378)
{
OpType=1
Op2=1
link(onResult,10489651:doRead,[])
}
Add(RE_Search,13851651,658,371)
{
Expression="(ftp:\/\/|www\.|https?:\/\/){1}[a-zA-Z0-9u00a1-\uffff0-]{2,}\.[a-zA-Z0-9u00a1-\uffff0-]{2,}(\S*)"
link(onMatch,14442986:doShellExec,[(702,377)(702,384)])
link(SourceStr,10489651:Item,[(664,359)(636,359)(636,422)(608,422)])
}
Add(WinExec,14442986,714,371)
{
link(FileName,13851651:Match,[(720,359)(692,359)(692,415)(664,415)])
}
Add(DoData,1265488,492,381)
{
link(onEventData,9186495:doOperation,[(535,387)(535,384)])
link(Data,15180640:LinePosition,[(498,315)(545,315)])
}
Add(Scintilla,15180640,511,175)
{
Top=28
Width=831
Height=460
Align=5
Font=[Calibri,11,0,0,204]
Ctl3D=1
WinStyle=1
Layout=""
Strings=#81:http://qaru.site/questions/138832/regular-expression-to-find-urls-within-a-string|0:|11:Рас два три|0:|2:01|0:|
Codepage=1
Styles=#17:// Язык подсветки|14:@1 Language=18|0:|12:// Цвет фона|21:@2 BackColor=16777215|0:|32:// Цвет подсветки текущей строки|25:@3 CaretLineBack=15527148|0:|39:// Цвет шрифта и фон выделенного текста|42:@4 SelBack=14461039, SelFontColor=16777215|0:|64:// Цвет и стиль шрифта для парных и непарных операторских скобок|76:@5 (парн.)Bold=True, (парн.)Color=255, (непарн.)Bold=False, (непарн.)Color=0|0:|32:// Цвет визуальной линии отступа|16:@6 Color=4227327|0:|41:// Цвет линии ограничителя длинной строки|17:@7 Color=15780518|0:|73:// Настройка стиля синтаксиса подсветки в соответствии с выбранным языком|98:// 1-синтаксическая инструкция, стили шрифта 2-полужирный, 3-курсив, 4-подчёркнутый, 5-цвет шрифта|84:# DEFAULT=0, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|84:# IDENTIFIER=1, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|88:# COMMENT=2, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENT2=3, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# COMMENTLINE=4, FontBold=False, FontItalic=True, FontUnderline=False, FontColor=39680|88:# PREPROCESSOR=5, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|88:# PREPROCESSOR2=6,FontBold=False, FontItalic=False, FontUnderline=False, FontColor=33023|86:# NUMBER=7, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|86:# HEXNUMBER=8, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=255|84:# WORD=9, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|91:# STRING=10, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=11633048|84:# STRINGEOL=11, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=0|90:# CHARACTER=12, FontBold=False, FontItalic=False, FontUnderline=False, FontColor=8421504|91:# OPERATOR=13, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=11534336|84:# ASM=14, FontBold=True, FontItalic=False, FontUnderline=False, FontColor=0|
CaretLineBack=15131875
BraceHighlight=0
BraceBadFore=65535
IndentationGuides=0
VLines=0
ColorOfFlags=15780518
NumSizeCorrect=-1
MarginNumFore=8421504
MarginNumBack=16777215
MarkMarginWidth=14
FoldMarginWidth=14
FoldMarginColor1=14012872
FoldIcon=1
FoldIconFore=65535
FoldIconBack=16711680
MinWordLen=2
IgnoreCase=0
WrapVisualFlags=0
ScrollBars=2
Point(GetModify)
Point(doUndoRedo)
Point(onMouseDown)
Point(doSetEmptyUndoBuffer)
Point(TextTarget)
Point(doSearch)
Point(onSetFocus)
Point(onKillFocus)
Point(doEditingSelected)
Point(onDblClick)
Point(LinePosition)
link(onDblClick,1265488:doData,[(555,209)(555,298)(480,298)(480,387)])
}

карма: 0

0