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

IDE: Special line highlight, if colors for a "special reason" (E.g. breakpoint) are not enabled, then continue search for other special reasons. (Or keep "current line" colors visible). Issue #41691

Browse Source
This commit is contained in:
Martin 2025-06-22 13:39:14 +02:00
parent bced136d21
commit fd1d22521f
1 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
ide/sourceeditor.pp
View File

@ -5050,32 +5050,30 @@ begin
aha := ahaNone;
Special := False;
if ErrorLine = Line
then begin
aha := ahaErrorLine
end
else begin
if ErrorLine = Line then begin
EditorOpts.SetMarkupColor(TCustomSynEdit(Sender).Highlighter, ahaErrorLine, Markup);
Special := Markup.IsEnabled;
end;
if not Special then begin
SourceEditorMarks.GetMarksForLine(Self, Line, CurMarks, CurMarkCount);
if CurMarkCount > 0 then
begin
for i := 0 to CurMarkCount - 1 do
begin
if CurMarkCount > 0 then begin
for i := 0 to CurMarkCount - 1 do begin
if not CurMarks[i].Visible then
Continue;
// check highlight attribute
aha := CurMarks[i].LineColorAttrib;
if aha <> ahaNone then Break;
if aha = ahaNone then
Continue;
EditorOpts.SetMarkupColor(TCustomSynEdit(Sender).Highlighter, aha, Markup);
Special := Markup.IsEnabled;
if Special then
break;
end;
// clean up
FreeMem(CurMarks);
end;
end;
if aha <> ahaNone
then begin
Special := True;
EditorOpts.SetMarkupColor(TCustomSynEdit(Sender).Highlighter, aha, Markup);
end;
end;
procedure TSourceEditor.UpdateDefaultDefaultSyntaxHighlighterId(AForce: boolean);