paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 14:57:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynUniHighlighter: Fix CaseSensitive property (undo negating the bool value 3fc6bd15d3 svn:trunk@13025). Prevent crash on unsorted list. Issue #39720

Browse Source
This commit is contained in:
Martin 2022-05-03 19:25:26 +02:00
parent 4ffce1ec8f
commit b46504f61e
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synunihighlighter/synunihighlighter.pas
View File

@ -621,8 +621,8 @@ begin
FillChar(SymbolList,sizeof(SymbolList),0);
////TL Added @ prefix
CaseFunct:=@CaseNone;
StringCaseFunct:=@StringCaseNone;
CaseFunct:=@UpCase;
StringCaseFunct:=@UpperCase;
fPrepared:=false;
fCloseOnTerm:=false;
@ -835,16 +835,16 @@ end;
procedure TSynRange.SetCaseSensitive(const Value: boolean);
begin
FCaseSensitive:=Value;
if Value then // DiBo33 Removed not so correct function is set
if Value then
begin
CaseFunct:=@CaseNone;
StringCaseFunct:=@StringCaseNone;
end
else
begin
////TL Added @ prefix
CaseFunct:=@UpCase;
StringCaseFunct:=@UpperCase;
end
else
begin
CaseFunct:=@CaseNone;
StringCaseFunct:=@StringCaseNone;
end;
end;
@ -2632,6 +2632,7 @@ begin
xmlInfoTags := nil;
try
xmlInfoTags := TStringList.Create;
xmlInfoTags.Sorted := true;
BuildXMLIndexes( xmlInfoTags );
////TL Added 3rd parameter
if (not GetNextTag(CurTagIndex,Param,false)) or (CurTagIndex<>xitUniHighlighter) then