Вверх ↑
Ответов: 37
Рейтинг: 0
#1: 2017-11-23 10:44:31 ЛС | профиль | цитата
Думаю, что ответ на мой вопрос -- "нет", но всё же: возможно ли в компоненте HilightMemo сделать подсвечиваемым многострочный паскалевский комментарий {...}, как это реализовано в редакторе InlineCode, в среде HiAsm?

Add(MainForm,5503280,70,56)
{
Width=623
Height=702
}
Add(HilightMemo,6048016,140,56)
{
Width=615
Height=668
Align=5
Font=[Courier New,8,0,0,1]
Strings=#15:unit HiAsmUnit;|0:|9:interface|0:|23:uses kol, Share, Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|0:|5: end;|0:|14:implementation|0:|4:end.|19:{Это многострочный |12:комментарий}|
HilightStrings=#7:,=Red=B|7::=Red=B|7:;=Red=B|7:@=Red=B|10:[=Maroon=B|10:]=Maroon=B|7:^=Red=B|7:-=Red=B|7:+=Red=B|7:<=Red=B|7:>=Red=B|11://*=Green=C|10:0=Maroon=B|10:1=Maroon=B|10:2=Maroon=B|10:3=Maroon=B|10:4=Maroon=B|10:5=Maroon=B|10:6=Maroon=B|10:7=Maroon=B|10:8=Maroon=B|10:9=Maroon=B|15:absolute=Blue=B|15:abstract=Blue=B|12:alias=Blue=B|14:{and }=Black=B|15:{array }=Blue=B|13:{as }=Black=B|13:{asm }=Blue=B|16:assembler=Blue=B|13:{at }=Black=B|16:automated=Blue=B|13:begin=Black=B|14:boolean=Blue=B|15:{case }=Black=B|12:cdecl=Blue=B|16:character=Blue=B|12:class=Blue=B|13:const=Black=B|18:constructor=Blue=B|14:cppdecl=Blue=B|14:default=Blue=B|17:destructor=Blue=B|13:dispid=Blue=B|20:dispinterface=Blue=B|14:dispose=Blue=B|14:{div }=Black=B|13:{do }=Black=B|13:double=Blue=B|14:downto=Black=B|14:dynamic=Blue=B|12:else=Black=B|9:end=Red=B|13:except=Blue=B|13:{exit }=Red=B|13:export=Blue=B|14:exports=Blue=B|15:external=Blue=B|14:false=Maroon=B|13:{far }=Blue=B|12:far16=Blue=B|14:{file }=Blue=B|19:finalization=Blue=B|14:finally=Blue=B|14:{for }=Black=B|14:forward=Blue=B|16:function=Black=B|10:goto=Red=B|13:{if }=Black=B|21:implementation=Blue=B|13:{in }=Black=B|15:{index }=Blue=B|16:inherited=Blue=B|21:initialization=Blue=B|13:inline=Blue=B|14:integer=Blue=B|16:interface=Blue=B|13:{is }=Black=B|12:label=Blue=B|14:library=Blue=B|15:{local }=Blue=B|14:{mod }=Black=B|14:{name }=Blue=B|11:near=Blue=B|13:{new }=Blue=B|12:{nil }=Red=B|16:nodefault=Blue=B|19:nostackframe=Blue=B|14:{not }=Black=B|13:{null }=Red=B|16:{object }=Blue=B|13:{of }=Black=B|17:oldfpccall=Blue=B|12:{on }=Blue=B|15:operator=Blue=B|13:{or }=Black=B|13:{out }=Blue=B|15:override=Blue=B|15:owerload=Blue=B|13:packed=Blue=B|13:pascal=Blue=B|14:private=Blue=B|17:procedure=Black=B|14:program=Blue=B|15:property=Blue=B|16:protected=Blue=B|13:public=Blue=B|16:published=Blue=B|12:raise=Blue=B|14:{read }=Blue=B|13:readln=Blue=B|14:{real }=Blue=B|13:record=Blue=B|15:register=Blue=B|18:reintroduce=Blue=B|13:repeat=Blue=B|15:requires=Blue=B|21:resourcestring=Blue=B|15:safecall=Blue=B|14:{self }=Blue=B|13:{set }=Blue=B|10:shl=Blue=B|10:shr=Blue=B|16:softfloat=Blue=B|14:stdcall=Blue=B|13:stored=Blue=B|13:string=Blue=B|15:{then }=Black=B|16:threadvar=Blue=B|13:{to }=Black=B|13:true=Maroon=B|13:{try }=Blue=B|14:{type }=Blue=B|17:unassigned=Blue=B|14:{unit }=Blue=B|12:until=Blue=B|11:uses=Blue=B|14:{var }=Black=B|14:varargs=Blue=B|14:variant=Blue=B|14:virtual=Blue=B|13:while=Black=B|14:{with }=Blue=B|12:write=Blue=B|14:writeln=Blue=B|14:{xor }=Black=B|
HilightFont=[Courier New,8,0,0,1]
}
Add(InlineCode,10095970,140,119)
{
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|0:|5: end;|0:|14:implementation|0:|4:end.|20:{"Это многострочный |12:комментарий}|0:|
}

карма: 0

0