Вверх ↑
Ответов: 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