paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 22:20:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: XML-Highlighter, spelling

Browse Source
This commit is contained in:
Martin 2025-07-23 16:52:59 +02:00
parent 610f9219de
commit 02d2d093cc
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditstrconst.pp
View File

@ -104,8 +104,8 @@ resourcestring
SYNS_AttrMiscellaneous = 'Miscellaneous'; SYNS_AttrMiscellaneous = 'Miscellaneous';
SYNS_AttrNamespaceAttrName = 'Namespace Attribute Name'; SYNS_AttrNamespaceAttrName = 'Namespace Attribute Name';
SYNS_AttrNamespaceAttrValue = 'Namespace Attribute Value'; SYNS_AttrNamespaceAttrValue = 'Namespace Attribute Value';
SYNS_AttrNamespaceIdentDef = 'Namespace Ident Definition'; SYNS_AttrNamespaceIdentDef = 'Namespace Identifier Definition';
SYNS_AttrNamespaceIdentPrefix = 'Namespace Ident Prefix'; SYNS_AttrNamespaceIdentPrefix = 'Namespace Identifier Prefix';
SYNS_AttrNamespaceColon = 'Namespace Colon'; SYNS_AttrNamespaceColon = 'Namespace Colon';
SYNS_AttrNonReservedKeyword = 'Non-reserved keyword'; SYNS_AttrNonReservedKeyword = 'Non-reserved keyword';
SYNS_AttrNull = 'Null'; SYNS_AttrNull = 'Null';

8
components/synedit/synhighlighterxml.pas
View File

@ -74,7 +74,7 @@ type
); );
TtkTokenDecorator = (tdNone, TtkTokenDecorator = (tdNone,
tdNameSpacePrefix, tdNameSpaceColon, tdNameSpaceDefintion, tdNameSpacePrefix, tdNameSpaceColon, tdNameSpaceDefinition,
tdNameSpaceNoneStart, tdNameSpaceNoneEnd // no decoratar / used for merge-bounds tdNameSpaceNoneStart, tdNameSpaceNoneEnd // no decoratar / used for merge-bounds
); );
@ -755,7 +755,7 @@ begin
while (fLine[Run] in NameChars) do Inc(Run); while (fLine[Run] in NameChars) do Inc(Run);
if (rfNameSpace in fRangeFlags) then begin if (rfNameSpace in fRangeFlags) then begin
fTokenID := tknsAttribute; fTokenID := tknsAttribute;
fTokenDecorator := tdNameSpaceDefintion; fTokenDecorator := tdNameSpaceDefinition;
end end
else begin else begin
fTokenID := tkAttribute; fTokenID := tkAttribute;
@ -1032,7 +1032,7 @@ var
tdNameSpacePrefix, tdNameSpacePrefix,
tdNameSpaceNoneStart: begin b := fLineLen + 1; end; tdNameSpaceNoneStart: begin b := fLineLen + 1; end;
tdNameSpaceColon: begin a := 1; b := fLineLen + 1; end; tdNameSpaceColon: begin a := 1; b := fLineLen + 1; end;
tdNameSpaceDefintion, tdNameSpaceDefinition,
tdNameSpaceNoneEnd: begin a := 1; end; tdNameSpaceNoneEnd: begin a := 1; end;
end; end;
Result.SetFrameBoundsLog(a, b); Result.SetFrameBoundsLog(a, b);
@ -1070,7 +1070,7 @@ begin
fNamespaceColonAttri.SetFrameBoundsLog(x1, x2); fNamespaceColonAttri.SetFrameBoundsLog(x1, x2);
fProcessingInstructionAttriResult.Merge(fNamespaceColonAttri, LeftCol, RightCol); fProcessingInstructionAttriResult.Merge(fNamespaceColonAttri, LeftCol, RightCol);
end; end;
tdNameSpaceDefintion: begin tdNameSpaceDefinition: begin
InitMergeRes; InitMergeRes;
fNamespaceDefinitionAttri.SetFrameBoundsLog(x1, x2); fNamespaceDefinitionAttri.SetFrameBoundsLog(x1, x2);
fProcessingInstructionAttriResult.Merge(fNamespaceDefinitionAttri, LeftCol, RightCol); fProcessingInstructionAttriResult.Merge(fNamespaceDefinitionAttri, LeftCol, RightCol);