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

IDE: SourceEditor, fix SetSyntaxHighlighterId. If the ID is still the same, check that the default has not changed. Issue #39633

Browse Source
This commit is contained in:
Martin 2025-04-07 20:42:51 +02:00
parent 162cbbfc1b
commit cc809e40b9
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/sourceeditor.pp
View File

@ -5118,9 +5118,19 @@ procedure TSourceEditor.SetSyntaxHighlighterId(AHighlighterId: TIdeSyntaxHighlig
var
HlIsPas, OldHlIsPas: Boolean;
tl: TSrcSynTopLineInfo;
d: TIdeSyntaxHighlighterID;
begin
if (AHighlighterId=fSyntaxHighlighterId)
and ((FEditor.Highlighter<>nil) = EditorOpts.UseSyntaxHighlight) then exit;
d := AHighlighterId;
if AHighlighterId < 0 then
d := FDefaultSyntaxHighlighterId;
if (AHighlighterId=fSyntaxHighlighterId) and
((FEditor.Highlighter<>nil) = EditorOpts.UseSyntaxHighlight) and
(d >= 0) and (d < EditorOpts.HighlighterList.Count) and
(FEditor.Highlighter = EditorOpts.HighlighterList.SharedSynInstances[d])
then
exit;
if not ASkipEditorOpts then
tl := FEditor.GetTopLineBeforeFold;