paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:19:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: XML-Highlighter, add option to color comment open/close symbol as part of comment. Issue #41752

Browse Source
This commit is contained in:
Martin 2025-07-22 10:42:27 +02:00
parent 1fe9890ad6
commit a73b16d1df
21 changed files with 88 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/languages/syneditstrconst.ca.po
View File

@ -105,6 +105,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr ""

4
components/synedit/languages/syneditstrconst.cs.po
View File

@ -107,6 +107,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Podmínka"

4
components/synedit/languages/syneditstrconst.de.po
View File

@ -109,6 +109,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Bedingung"

4
components/synedit/languages/syneditstrconst.es.po
View File

@ -107,6 +107,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Condición"

4
components/synedit/languages/syneditstrconst.fi.po
View File

@ -100,6 +100,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Ehdot"

4
components/synedit/languages/syneditstrconst.fr.po
View File

@ -107,6 +107,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Condition"

4
components/synedit/languages/syneditstrconst.he.po
View File

@ -105,6 +105,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "תנאי"

4
components/synedit/languages/syneditstrconst.hu.po
View File

@ -107,6 +107,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Feltétel"

4
components/synedit/languages/syneditstrconst.id.po
View File

@ -108,6 +108,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr ""

4
components/synedit/languages/syneditstrconst.it.po
View File

@ -108,6 +108,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Condizione"

4
components/synedit/languages/syneditstrconst.lt.po
View File

@ -108,6 +108,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Sąlyga"

4
components/synedit/languages/syneditstrconst.nl.po
View File

@ -105,6 +105,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr ""

4
components/synedit/languages/syneditstrconst.pl.po
View File

@ -108,6 +108,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Warunek"

4
components/synedit/languages/syneditstrconst.pot
View File

@ -97,6 +97,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr ""

4
components/synedit/languages/syneditstrconst.pt_BR.po
View File

@ -107,6 +107,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Condição"

4
components/synedit/languages/syneditstrconst.ru.po
View File

@ -107,6 +107,10 @@ msgstr "Комментарий с фигурными скобками"
msgid "Slash Comment"
msgstr "Комментарий с косыми чертами"
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Условие"

4
components/synedit/languages/syneditstrconst.tr.po
View File

@ -111,6 +111,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Şart"

4
components/synedit/languages/syneditstrconst.uk.po
View File

@ -110,6 +110,10 @@ msgstr ""
msgid "Slash Comment"
msgstr ""
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "Умова"

4
components/synedit/languages/syneditstrconst.zh_CN.po
View File

@ -108,6 +108,10 @@ msgstr "花括号注释"
msgid "Slash Comment"
msgstr "斜杠注释"
#: syneditstrconst.syns_attrcommentsym
msgid "Comment Symbol"
msgstr ""
#: syneditstrconst.syns_attrcondition
msgid "Condition"
msgstr "状态"

2
components/synedit/syneditstrconst.pp
View File

@ -66,6 +66,7 @@ resourcestring
SYNS_AttrCharacter = 'Character';
SYNS_AttrClass = 'Class';
SYNS_AttrComment = 'Comment';
SYNS_AttrCommentSym = 'Comment Symbol';
SYNS_AttrCommentAnsi = 'ANSI Comment';
SYNS_AttrCommentCurly = 'Curly Comment';
SYNS_AttrCommentSlash = 'Slash Comment';
@ -202,6 +203,7 @@ const
SYNS_XML_AttrCharacter = 'Character';
SYNS_XML_AttrClass = 'Class';
SYNS_XML_AttrComment = 'Comment';
SYNS_XML_AttrCommentSym = 'Comment Symbol';
SYNS_XML_AttrCommentAnsi = 'Ansi Comment';
SYNS_XML_AttrCommentCurly = 'Curly Comment';
SYNS_XML_AttrCommentSlash = 'Slash Comment';

13
components/synedit/synhighlighterxml.pas
View File

@ -61,7 +61,7 @@ uses
type
TtkTokenKind = (tkAposAttrValue, tkAposEntityRef, tkAttribute, tkCDATA,
tkComment, tkElement, tkEntityRef, tkEqual, tkNull, tkProcessingInstruction,
tkComment, tkCommentSym, tkElement, tkEntityRef, tkEqual, tkNull, tkProcessingInstruction,
tkQuoteAttrValue, tkQuoteEntityRef, tkSpace, tkSymbol, tkText,
//
tknsAposAttrValue, tknsAposEntityRef, tknsAttribute, tknsEqual,
@ -104,6 +104,7 @@ type
TSynXMLSyn = class(TSynCustomXmlHighlighter)
private
fCommentSymbolAttri: TSynHighlighterAttributes;
fRange: TRangeState;
fLine: PChar;
Run: Longint;
@ -203,6 +204,8 @@ type
read fProcessingInstructionAttri write fProcessingInstructionAttri;
property CommentAttri: TSynHighlighterAttributes read fCommentAttri
write fCommentAttri;
property CommentSymbolAttri: TSynHighlighterAttributes read fCommentSymbolAttri
write fCommentSymbolAttri;
property DocTypeAttri: TSynHighlighterAttributes read fDocTypeAttri
write fDocTypeAttri;
property SpaceAttri: TSynHighlighterAttributes read fSpaceAttri
@ -229,6 +232,7 @@ begin
fProcessingInstructionAttri:= TSynHighlighterAttributes.Create(@SYNS_AttrProcessingInstr, SYNS_XML_AttrProcessingInstr);
fCDATAAttri:= TSynHighlighterAttributes.Create(@SYNS_AttrCDATASection, SYNS_XML_AttrCDATASection);
fCommentAttri:= TSynHighlighterAttributes.Create(@SYNS_AttrComment, SYNS_XML_AttrComment);
fCommentSymbolAttri:= TSynHighlighterAttributes.Create(@SYNS_AttrCommentSym, SYNS_XML_AttrCommentSym);
fDocTypeAttri:= TSynHighlighterAttributes.Create(@SYNS_AttrDOCTYPESection, SYNS_XML_AttrDOCTYPESection);
fAttributeAttri:= TSynHighlighterAttributes.Create(@SYNS_AttrAttributeName, SYNS_XML_AttrAttributeName);
fnsAttributeAttri:= TSynHighlighterAttributes.Create(@SYNS_AttrNamespaceAttrName, SYNS_XML_AttrNamespaceAttrName);
@ -269,6 +273,7 @@ begin
fCommentAttri.Background:= clSilver;
fCommentAttri.Foreground:= clGray;
fCommentAttri.Style:= [fsbold, fsItalic];
fCommentSymbolAttri.Clear;
fSymbolAttri.Foreground:= clblue;
fSymbolAttri.Style:= [];
@ -277,6 +282,7 @@ begin
AddAttribute(fProcessingInstructionAttri);
AddAttribute(fDocTypeAttri);
AddAttribute(fCommentAttri);
AddAttribute(fCommentSymbolAttri);
AddAttribute(fElementAttri);
AddAttribute(fAttributeAttri);
AddAttribute(fnsAttributeAttri);
@ -381,7 +387,7 @@ begin
if (fLine[Run] = '!') then
begin
if NextTokenIs('--') then begin
fTokenID := tkSymbol;
fTokenID := tkCommentSym;
fRange := rsComment;
StartXmlCodeFoldBlock(cfbtXmlComment);
Inc(Run, 3);
@ -427,7 +433,7 @@ begin
if (fLine[Run] = '-') and (fLine[Run + 1] = '-') and
(fLine[Run + 2] = '>')
then begin
fTokenID := tkSymbol;
fTokenID := tkCommentSym;
fRange:= rsText;
Inc(Run, 3);
if TopXmlCodeFoldBlockType = cfbtXmlComment then
@ -896,6 +902,7 @@ begin
tknsAposEntityRef: Result:= fEntityRefAttri;
tkProcessingInstruction: Result:= fProcessingInstructionAttri;
tkComment: Result:= fCommentAttri;
tkCommentSym: Result:= fCommentSymbolAttri;
tkDocType: Result:= fDocTypeAttri;
tkSymbol: Result:= fSymbolAttri;
tkSpace: Result:= fSpaceAttri;