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

SynEdit: Wrapped-view, fix Wrap-Width (SynEdit needs 1 extra char)

Browse Source 
(cherry picked from commit bf012c22cd)
This commit is contained in:
Martin 2025-01-24 20:50:22 +01:00
parent c9fdab8f85
commit 2b4decdf35
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditwrappedview.pp
View File

@ -1559,7 +1559,7 @@ end;
function TLazSynEditLineWrapPlugin.GetWrapColumn: Integer; function TLazSynEditLineWrapPlugin.GetWrapColumn: Integer;
begin begin
Result := TSynEdit(Editor).CharsInWindow; Result := TSynEdit(Editor).CharsInWindow - 1;
end; end;
function TLazSynEditLineWrapPlugin.CreatePageMapNode(AMapTree: TSynLineMapAVLTree): TSynEditLineMapPage; function TLazSynEditLineWrapPlugin.CreatePageMapNode(AMapTree: TSynLineMapAVLTree): TSynEditLineMapPage;

1
components/synedit/test/testbase.pas
View File

@ -658,6 +658,7 @@ end;
procedure TTestBase.SetSynEditWidth(Chars: Integer; PartCharPixel: Integer); procedure TTestBase.SetSynEditWidth(Chars: Integer; PartCharPixel: Integer);
begin begin
inc(Chars); // wordwrap takes one off again
FSynEdit.Width := FSynEdit.CharWidth * Chars + PartCharPixel + FSynEdit.Width := FSynEdit.CharWidth * Chars + PartCharPixel +
(FSynEdit.Width - (FSynEdit.TextArea.Right - FSynEdit.TextArea.Left)); (FSynEdit.Width - (FSynEdit.TextArea.Right - FSynEdit.TextArea.Left));
AssertEquals('SetSynEditWidth', Chars, SynEdit.CharsInWindow); AssertEquals('SetSynEditWidth', Chars, SynEdit.CharsInWindow);