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

SynEdit: Introduce LineGutter.OnFormatLineNumber - Issue #38370

Browse Source 
git-svn-id: trunk@64425 -
This commit is contained in:
martin 2021-01-27 13:16:26 +00:00
parent ed6e087523
commit 724aa84cf3
1 changed files with 19 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/synedit/syngutterlinenumber.pp
View File

@ -11,6 +11,14 @@ uses
type type
TSynGutterLineNumber = class;
TSynEditGutterLineInfo = record
ShowDot: boolean;
LineRange: TLineRange;
end;
TSynEditGetGutterLineTextEvent = procedure(Sender: TSynGutterLineNumber; ALine: integer; out AText: string; const ALineInfo: TSynEditGutterLineInfo) of object;
TSynEditMouseActionsLineNum = class(TSynEditMouseInternalActions) TSynEditMouseActionsLineNum = class(TSynEditMouseInternalActions)
public // empty by default public // empty by default
end; end;
@ -26,12 +34,12 @@ type
FShowOnlyLineNumbersMultiplesOf: integer; FShowOnlyLineNumbersMultiplesOf: integer;
FLeadingZeros: boolean; FLeadingZeros: boolean;
FZeroStart: boolean; FZeroStart: boolean;
FOnFormatLineNumber: TSynEditGetGutterLineTextEvent;
procedure SetDigitCount(AValue : integer); procedure SetDigitCount(AValue : integer);
procedure SetLeadingZeros(const AValue : boolean); procedure SetLeadingZeros(const AValue : boolean);
procedure SetShowOnlyLineNumbersMultiplesOf(const AValue : integer); procedure SetShowOnlyLineNumbersMultiplesOf(const AValue : integer);
procedure SetZeroStart(const AValue : boolean); procedure SetZeroStart(const AValue : boolean);
function FormatLineNumber(Line: integer; IsDot: boolean): string;
protected protected
procedure Init; override; procedure Init; override;
function PreferedWidthAtCurrentPPI: Integer; override; function PreferedWidthAtCurrentPPI: Integer; override;
@ -45,7 +53,7 @@ type
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure Assign(Source: TPersistent); override; procedure Assign(Source: TPersistent); override;
function FormatLineNumber(Line: integer; IsDot: boolean): string;
procedure Paint(Canvas: TCanvas; AClip: TRect; FirstLine, LastLine: integer); procedure Paint(Canvas: TCanvas; AClip: TRect; FirstLine, LastLine: integer);
override; override;
published published
@ -55,6 +63,7 @@ type
read FShowOnlyLineNumbersMultiplesOf write SetShowOnlyLineNumbersMultiplesOf; read FShowOnlyLineNumbersMultiplesOf write SetShowOnlyLineNumbersMultiplesOf;
property ZeroStart: boolean read FZeroStart write SetZeroStart; property ZeroStart: boolean read FZeroStart write SetZeroStart;
property LeadingZeros: boolean read FLeadingZeros write SetLeadingZeros; property LeadingZeros: boolean read FLeadingZeros write SetLeadingZeros;
property OnFormatLineNumber: TSynEditGetGutterLineTextEvent read FOnFormatLineNumber write FOnFormatLineNumber;
end; end;
implementation implementation
@ -227,9 +236,8 @@ var
rcLine: TRect; rcLine: TRect;
s: string; s: string;
dc: HDC; dc: HDC;
ShowDot: boolean; LineInfo: TSynEditGutterLineInfo;
LineHeight: Integer; LineHeight: Integer;
IRange: TLineRange;
t: TLinePos; t: TLinePos;
begin begin
@ -264,20 +272,23 @@ begin
rcLine.Bottom := AClip.Top; rcLine.Bottom := AClip.Top;
for i := t + FirstLine to t + LastLine do for i := t + FirstLine to t + LastLine do
begin begin
iLine := ToPos(ViewedTextBuffer.DisplayView.ViewToTextIndexEx(i, IRange)); iLine := ToPos(ViewedTextBuffer.DisplayView.ViewToTextIndexEx(i, LineInfo.LineRange));
if (iLine < 1) or (iLine > c) then break; if (iLine < 1) or (iLine > c) then break;
// next line rect // next line rect
rcLine.Top := rcLine.Bottom; rcLine.Top := rcLine.Bottom;
// Must show a dot instead of line number if // Must show a dot instead of line number if
// line number is not the first, the last, the current line // line number is not the first, the last, the current line
// or a multiple of ShowOnlyLineNumbersMultiplesOf // or a multiple of ShowOnlyLineNumbersMultiplesOf
ShowDot := ((iLine mod ShowOnlyLineNumbersMultiplesOf) <> 0) LineInfo.ShowDot := ((iLine mod ShowOnlyLineNumbersMultiplesOf) <> 0)
and (iLine <> TCustomSynEdit(SynEdit).CaretY) and (iLine <> 1) and (iLine <> TCustomSynEdit(SynEdit).CaretY) and (iLine <> 1)
and (iLine <> SynEdit.Lines.Count); and (iLine <> SynEdit.Lines.Count);
// Get the formatted line number or dot // Get the formatted line number or dot
s := FormatLineNumber(iLine, ShowDot); if Assigned(FOnFormatLineNumber) then
FOnFormatLineNumber(Self, iLine, s, LineInfo)
else
s := FormatLineNumber(iLine, LineInfo.ShowDot);
Inc(rcLine.Bottom, LineHeight); Inc(rcLine.Bottom, LineHeight);
if i <> IRange.Top then if i <> LineInfo.LineRange.Top then
s := ''; s := '';
// erase the background and draw the line number string in one go // erase the background and draw the line number string in one go
fTextDrawer.ExtTextOut(rcLine.Left, rcLine.Top, ETO_OPAQUE or ETO_CLIPPED, rcLine, fTextDrawer.ExtTextOut(rcLine.Left, rcLine.Top, ETO_OPAQUE or ETO_CLIPPED, rcLine,