mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Show duplicate external highlighters

Browse source 
(cherry picked from commit bb3a0d5ee3)
This commit is contained in:
Alexander Koblov 2022-09-15 21:10:48 +03:00
commit 08251735e5
1 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/dmhigh.pas
View file

@ -147,6 +147,7 @@ end;
procedure TdmHighl.dmHighlCreate(Sender: TObject);
var
AName: String;
I, Index: Integer;
AList: TStringList;
AFileName: String = '';
@ -175,13 +176,21 @@ begin
HighLighter:= TSynUniSyn.Create(Self);
try
TSynUniSyn(HighLighter).LoadFromFile(AList[I]);
AFileName:= TSynUniSyn(HighLighter).Info.General.Name;
Index:= SynHighlighterList.IndexOf(AFileName);
AName:= TSynUniSyn(HighLighter).Info.General.Name;
Index:= SynHighlighterList.IndexOf(AName);
if (Index < 0) then
SynHighlighterList.AddObject(AFileName, Highlighter)
SynHighlighterList.AddObject(AName, Highlighter)
else begin
SynHighlighterList.Objects[Index].Free;
SynHighlighterList.Objects[Index]:= Highlighter;
// Add duplicate external highlighter
if SynHighlighterList.Objects[Index] is TSynUniSyn then
begin
SynHighlighterList.AddObject(AName + IntToStr(I), Highlighter);
end
// Replace built-in highlighter
else begin
SynHighlighterList.Objects[Index].Free;
SynHighlighterList.Objects[Index]:= Highlighter;
end;
end;
ACache.Add(AFileName);
except