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

SynEdit: WrappedView, Caret, fixed position for fullwidth chars

Browse Source
This commit is contained in:
Martin 2025-02-16 22:48:14 +01:00
parent 5b080436ce
commit 3bf2791292
1 changed files with 1 additions and 1 deletions

2
components/synedit/syneditpointclasses.pas
View File

@ -1500,7 +1500,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;