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

IDE: SourceEditor, fix context menu for choosing Highlighter. If there are items present after the skipped "asm hl" (e.g. loaded tml HL)

Browse Source
This commit is contained in:
Martin 2025-03-13 13:02:27 +01:00
parent e721f43e23
commit 0356c69cdd
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/sourceeditor.pp
View File

@ -7752,7 +7752,7 @@ end;
procedure TSourceNotebook.UpdateHighlightMenuItems(SrcEdit: TSourceEditor);
var
i: Integer;
i, j: Integer;
CurName: String;
CurCaption: String;
IDEMenuItem: TIDEMenuItem;
@ -7762,9 +7762,11 @@ begin
SrcEdit.UpdateDefaultDefaultSyntaxHighlighterId(True);
SrcEditSubMenuHighlighter.ChildrenAsSubMenu:=true;
j := -1;
for i := -1 to EditorOpts.HighlighterList.Count - 1 do begin
if (i >= 0) and (EditorOpts.HighlighterList.SharedSynInstances[i] is TNonSrcIDEHighlighter) then
continue;
inc(j);
CurName:='Highlighter'+IntToStr(i);
if i = IdeHighlighterNotSpecifiedId then begin
if SrcEdit.FDefaultSyntaxHighlighterId <> IdeHighlighterNotSpecifiedId then
@ -7775,12 +7777,12 @@ begin
else
CurCaption:= EditorOpts.HighlighterList.Captions[i];
if SrcEditSubMenuHighlighter.Count=i+1 then begin
if SrcEditSubMenuHighlighter.Count<=j then begin
// add new item
IDEMenuItem:=RegisterIDEMenuCommand(SrcEditSubMenuHighlighter,
CurName,CurCaption,@HighlighterClicked);
end else begin
IDEMenuItem:=SrcEditSubMenuHighlighter[i+1];
IDEMenuItem:=SrcEditSubMenuHighlighter[j];
IDEMenuItem.OnClick:=@HighlighterClicked;
end;
IDEMenuItem.Caption:=CurCaption;