paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 16:34:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Caret, reduce calculation overhead

Browse Source 
git-svn-id: trunk@39694 -
This commit is contained in:
martin 2012-12-30 05:35:20 +00:00
parent b3f15ac258
commit cdadce87e0
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
components/synedit/syneditpointclasses.pas
View File

@ -654,31 +654,40 @@ end;
procedure TSynEditCaret.InternalSetLineCharPos(NewLine, NewCharPos: Integer;
KeepLastCharPos: Boolean = False; ForceSet: Boolean = False);
function GetMaxLeftPastEOL: Integer;
begin
if FMaxLeftChar <> nil then
Result := FMaxLeftChar()
else
Result := MaxInt;
end;
var
nMaxX, i: Integer;
Line: string;
begin
Lock;
FTouched := True;
try
if (fCharPos <> NewCharPos) or (fLinePos <> NewLine) or ForceSet then begin
if FMaxLeftChar <> nil then
nMaxX := FMaxLeftChar()
else
nMaxX := MaxInt;
if NewLine > FLines.Count then
NewLine := FLines.Count;
if NewLine < 1 then begin
nMaxX := 1;
if (NewCharPos > 1) and (FAllowPastEOL or (FForcePastEOL > 0)) then
nMaxX := GetMaxLeftPastEOL;
// this is just to make sure if Lines stringlist should be empty
NewLine := 1;
if (not FAllowPastEOL) and (FForcePastEOL = 0) then
nMaxX := 1;
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
i := Lines.LogPhysConvertor.LogicalToPhysical(NewLine-1, length(Lines[NewLine - 1])+1);
nMaxX := i;
if (NewCharPos > i) and (FAllowPastEOL or (FForcePastEOL > 0)) then
nMaxX := GetMaxLeftPastEOL;
if (nMaxX < i) then
nMaxX := i;
end;
if NewCharPos > nMaxX then
NewCharPos := nMaxX;
if NewCharPos < 1 then