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

SynEdit: Wrapped-View, introduced MinWrapWidth

Browse Source
This commit is contained in:
Martin 2025-01-21 23:15:10 +01:00
parent 8acb7a8215
commit dfadb86949
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/synedit/syneditwrappedview.pp
View File

@ -195,10 +195,14 @@ type
TLazSynEditLineWrapPlugin = class(TLazSynEditPlugin)
private
FCurrentWrapColumn: Integer;
FCaretWrapPos: TLazSynEditWrapCaretPos;
FMinWrapWidth: Integer;
procedure DoLinesChanged(Sender: TObject);
procedure DoWidthChanged(Sender: TObject; Changes: TSynStatusChanges);
function GetWrapColumn: Integer;
procedure SetMinWrapWidth(AValue: Integer);
public
FLineMapView: TSynEditLineMappingView;
function CreatePageMapNode(AMapTree: TSynLineMapAVLTree
@ -230,6 +234,7 @@ public
published
property CaretWrapPos: TLazSynEditWrapCaretPos read FCaretWrapPos write FCaretWrapPos;
property MinWrapWidth: Integer read FMinWrapWidth write SetMinWrapWidth;
end;
implementation
@ -1559,14 +1564,31 @@ end;
procedure TLazSynEditLineWrapPlugin.DoWidthChanged(Sender: TObject;
Changes: TSynStatusChanges);
var
w: Integer;
begin
FLineMapView.KnownLengthOfLongestLine := WrapColumn;
w := WrapColumn;
if FCurrentWrapColumn = w then
exit;
FCurrentWrapColumn := w;
FLineMapView.KnownLengthOfLongestLine := w;
FLineMapView.InvalidateLines(0, FLineMapView.NextLines.Count);
end;
function TLazSynEditLineWrapPlugin.GetWrapColumn: Integer;
begin
Result := TSynEdit(Editor).CharsInWindow - 1;
if Result < FMinWrapWidth then
Result := FMinWrapWidth;
end;
procedure TLazSynEditLineWrapPlugin.SetMinWrapWidth(AValue: Integer);
begin
if AValue < 1 then
AValue := 1;
if FMinWrapWidth = AValue then Exit;
FMinWrapWidth := AValue;
DoWidthChanged(nil, [scCharsInWindow]);
end;
function TLazSynEditLineWrapPlugin.CreatePageMapNode(AMapTree: TSynLineMapAVLTree): TSynEditLineMapPage;
@ -1829,6 +1851,7 @@ begin
FLineMapView.WrapInfoForViewedXYProc := @GetWrapInfoForViewedXY;
FLineMapView.AddLinesChangedHandler(@DoLinesChanged);
TSynEdit(Editor).RegisterStatusChangedHandler(@DoWidthChanged, [scCharsInWindow]);
FMinWrapWidth := 1;
FLineMapView.KnownLengthOfLongestLine := WrapColumn;
WrapAll;
end;