paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 00:40:18 +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_AttrNamespaceAttrName = 'Namespace Attribute Name';
SYNS_AttrNamespaceAttrValue = 'Namespace Attribute Value';
SYNS_AttrNamespaceIdentDef = 'Namespace Ident Definition';
SYNS_AttrNamespaceIdentPrefix = 'Namespace Ident Prefix';
SYNS_AttrNamespaceIdentDef = 'Namespace Identifier Definition';
SYNS_AttrNamespaceIdentPrefix = 'Namespace Identifier Prefix';
SYNS_AttrNamespaceColon = 'Namespace Colon';
SYNS_AttrNonReservedKeyword = 'Non-reserved keyword';
SYNS_AttrNull = 'Null';

8
components/synedit/synhighlighterxml.pas
View File

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