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

SynEdit: WrappedView, Caret, fixed position for fullwidth chars

Browse Source 
(cherry picked from commit 3bf2791292)
This commit is contained in:
Martin 2025-02-16 22:48:14 +01:00
parent 2ebb827649
commit c3aad38ff3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditpointclasses.pas
View File

@ -1484,7 +1484,7 @@ begin
if Info.CorrectedViewedXY.x < Info.FirstViewedX then begin
Info.LogicalXY.X := Info.LogicalXY.X + 1;
Info.LogicalXY.Offs := 0;
NewPhysX := Lines.LogPhysConvertor.LogicalToPhysical( ToIdx(Info.LogicalXY.y), Info.LogicalXY.x, Info.LogicalXY.Offs, cslDefault, []);
NewPhysX := Lines.LogPhysConvertor.LogicalToPhysical( ToIdx(Info.LogicalXY.y), Info.LogicalXY.x, Info.LogicalXY.Offs, cslDefault, [lpfAdjustToNextChar]);
Info.CorrectedViewedXY.x := Info.CorrectedViewedXY.x + NewPhysX - Info.PhysXY.x;
Info.PhysXY.x := NewPhysX;
end;