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

IDE: Project/SourceEdit, optimize finding default highlighter. Only call codetools, if source has a pas-HL.

Browse Source
This commit is contained in:
Martin 2024-12-10 13:19:58 +01:00
parent 2a690eac26
commit 9e143167ff
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/sourceeditor.pp
View File

@ -1967,8 +1967,15 @@ begin
if LazStartsStr(EditorMacroVirtualDrive, FileName) then
exit(IdeSyntaxHighlighters.GetIdForLazSyntaxHighlighter(lshFreePascal));
CompilerMode:=CodeToolBoss.GetCompilerModeForDirectory(ExtractFilePath(Filename));
Result := IdeSyntaxHighlighters.GetIdForFileExtension(ExtractFileExt(Filename), CompilerMode in [cmDELPHI,cmTP]);
Result := IdeSyntaxHighlighters.GetIdForFileExtension(ExtractFileExt(Filename));
if (Result > 0) and (IdeSyntaxHighlighters.SharedInstances[Result] is TIDESynPasSyn) then begin
CompilerMode:=CodeToolBoss.GetCompilerModeForDirectory(ExtractFilePath(Filename));
if CompilerMode in [cmDELPHI,cmTP] then
Result := IdeSyntaxHighlighters.GetIdForLazSyntaxHighlighter(lshDelphi)
else
Result := IdeSyntaxHighlighters.GetIdForLazSyntaxHighlighter(lshFreePascal);
end;
end;
{ TToolButton_GotoBookmarks }