paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 18:50: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 
(cherry picked from commit 0356c69cdd)
This commit is contained in:
Martin 2025-03-13 13:02:27 +01:00
parent fb6edd5b06
commit dc81b2e397
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/sourceeditor.pp
View File

@ -7683,27 +7683,29 @@ end;
procedure TSourceNotebook.UpdateHighlightMenuItems(SrcEdit: TSourceEditor);
var
i: Integer;
i, j: Integer;
CurName: String;
CurCaption: String;
IDEMenuItem: TIDEMenuItem;
begin
SrcEditSubMenuHighlighter.ChildrenAsSubMenu:=true;
j := -1;
for i := 0 to EditorOpts.HighlighterList.Count - 1 do begin
if EditorOpts.HighlighterList.SharedSynInstances[i] is TNonSrcIDEHighlighter then
continue;
inc(j);
CurName:='Highlighter'+IntToStr(i);
CurCaption:= EditorOpts.HighlighterList.Captions[i];
if SrcEditSubMenuHighlighter.Count=i then begin
if SrcEditSubMenuHighlighter.Count<=j then begin
// add new item
IDEMenuItem:=RegisterIDEMenuCommand(SrcEditSubMenuHighlighter,
CurName,CurCaption,@HighlighterClicked);
end else begin
IDEMenuItem:=SrcEditSubMenuHighlighter[i];
IDEMenuItem:=SrcEditSubMenuHighlighter[j];
IDEMenuItem.Caption:=CurCaption;
IDEMenuItem.Tag:=i;
IDEMenuItem.OnClick:=@HighlighterClicked;
end;
IDEMenuItem.Tag:=i;
if IDEMenuItem is TIDEMenuCommand then
TIDEMenuCommand(IDEMenuItem).Checked:=(SrcEdit<>nil)
and (SrcEdit.FSyntaxHighlighterId=i);