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

FIX: Compilation Temporary with Lazarus 4.99

Browse source
This commit is contained in:
rich2014 2026-05-05 12:15:28 +08:00
commit 86cb17aa1b
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/dmhigh.pas
View file

@ -8,7 +8,7 @@ uses
Classes, SysUtils, Forms, Controls, SynEdit, DCStringHashListUtf8, LCLVersion,
SynEditHighlighter, SynHighlighterJava, SynHighlighterXML, SynHighlighterLFM,
SynHighlighterPHP, SynHighlighterSQL, SynHighlighterCss, SynHighlighterPython,
SynHighlighterYAML, SynHighlighterLua, SynUniHighlighter,
SynHighlighterYAML, SynHighlighterLua, SynUniHighlighter, LazEditHighlighter,
uHighlighters, uColors, fpJson;
const
@ -30,7 +30,7 @@ type
procedure LoadUniHighlighters;
function GetSyn(Index: Integer): TSynCustomHighlighter;
function GetSyn(AClass: TSynCustomHighlighterClass): TSynCustomHighlighter;
procedure CopyHighlighter(SourceHighlighter, TargetHighlighter: TSynCustomHighlighter);
procedure CopyHighlighter(SourceHighlighter, TargetHighlighter: TLazEditCustomRangesHighlighter);
public
SynHighlighterList: TStringList;
SynHighlighterHashList: TStringHashListUtf8;
@ -479,7 +479,7 @@ end;
procedure TdmHighl.CreateHighlighters;
var
I: Integer;
Highlighter: TSynCustomHighlighter;
Highlighter: TLazEditCustomRangesHighlighter;
begin
for I:= 0 to High(DEFAULT_HIGHLIGHTERS) do
begin
@ -524,7 +524,7 @@ begin
SynHighlighterHashList.Free;
end;
procedure TdmHighl.CopyHighlighter(SourceHighlighter, TargetHighlighter: TSynCustomHighlighter);
procedure TdmHighl.CopyHighlighter(SourceHighlighter, TargetHighlighter: TLazEditCustomRangesHighlighter);
var
J: Integer;
begin
@ -557,7 +557,7 @@ function TdmHighl.Clone: TdmHighl;
var
I: Integer;
AClass: TSynCustomHighlighterClass;
Highlighter: TSynCustomHighlighter;
Highlighter: TLazEditCustomRangesHighlighter;
SourceHighlighter: TSynCustomHighlighter;
begin
Result:= TdmHighl.Create(Application, True);