mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Saving universal-highlighter colors settings (fixes #2514)

Browse source
This commit is contained in:
Alexander Koblov 2025-10-01 20:36:52 +03:00
commit 80fcc0e63f
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
components/synunihighlighter/source/SynUniHighlighter.pas
View file

@ -138,7 +138,7 @@ type
implementation
uses
Laz2_XMLRead;
CRC, Laz2_XMLRead;
//==== TSynUniSyn ============================================================
constructor TSynUniSyn.Create(AOwner: TComponent);
@ -175,8 +175,10 @@ function TSynUniSyn.GetHashCode: PtrInt;
function Update(ACrc: PtrInt; ARule: TSynRule): PtrInt;
var
Index: Integer;
AValue: Cardinal;
begin
Result:= ACrc xor ARule.Attribs.GetHashCode;
AValue:= Cardinal(ARule.Attribs.GetHashCode);
Result:= PtrInt(CRC32(Cardinal(ACrc), @AValue, SizeOf(AValue)));
if ARule is TSynRange then
begin