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

SynEdit: Marks-gutter, use all columns before icons get out of visible range. Issue #40914

Browse Source
This commit is contained in:
Martin 2024-04-20 14:26:36 +02:00
parent f8a04256ff
commit 8bcc164019
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synguttermarks.pp
View File

@ -155,9 +155,6 @@ var
iRange: TLineRange;
begin
Result := False;
aFirstCustomColumnIdx := 0;
if FBookMarkOpt.DrawBookmarksFirst then
aFirstCustomColumnIdx := 1;
aScreenLine := aScreenLine + ToIdx(GutterArea.TextArea.TopLine);
j := ViewedTextBuffer.DisplayView.ViewToTextIndexEx(aScreenLine, iRange);
if aScreenLine <> iRange.Top then
@ -173,6 +170,10 @@ begin
else
MLine.Sort(smsoBookMarkLast, smsoPriority);
aFirstCustomColumnIdx := 0;
if (FBookMarkOpt.DrawBookmarksFirst) and (MLine.Count < ColumnCount) then
aFirstCustomColumnIdx := 1;
LineHeight := SynEdit.LineHeight;
//Gutter.Paint always supplies AClip.Left = GutterPart.Left
lm := LeftMarginAtCurrentPPI;
@ -190,7 +191,7 @@ begin
continue;
if (MLine[j].IsBookmark <> LastMarkIsBookmark) and
(j = 0) and (FColumnCount > 1)
(j = 0) and (aFirstCustomColumnIdx >= 1)
then begin
// leave one column empty
MarkRect.Left := MarkRect.Right;