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

SynEdit: Fix caret sometimes stopped at x=1024

Browse Source 
git-svn-id: trunk@27100 -
This commit is contained in:
martin 2010-08-14 21:27:31 +00:00
parent bebbb2b3e3
commit 97148efb0f
1 changed files with 7 additions and 6 deletions

13
components/synedit/syneditpointclasses.pas
View File

@ -550,7 +550,7 @@ end;
procedure TSynEditCaret.InternalSetLineCharPos(NewLine, NewCharPos: Integer;
KeepLastCharPos: Boolean = False; ForceSet: Boolean = False);
var
nMaxX: Integer;
nMaxX, i: Integer;
Line: string;
begin
Lock;
@ -568,11 +568,12 @@ begin
NewLine := 1;
if (not FAllowPastEOL) and (FForcePastEOL = 0) then
nMaxX := 1;
end else
if (not FAllowPastEOL) and (FForcePastEOL = 0) then begin
Line := Lines[NewLine - 1];
nMaxX := Lines.LogicalToPhysicalCol(Line, NewLine - 1, length(Line)+1);
end;
end else begin
Line := Lines[NewLine - 1];
i := Lines.LogicalToPhysicalCol(Line, NewLine - 1, length(Line)+1);
if ((not FAllowPastEOL) and (FForcePastEOL = 0)) or (nMaxX < i) then
nMaxX := i;
end;
if NewCharPos > nMaxX then
NewCharPos := nMaxX;
if NewCharPos < 1 then