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

SynEdit: fix forwarding result in LogicPosAddChars (introduced in r 39483) Issue #0023454

Browse Source 
git-svn-id: trunk@39488 -
This commit is contained in:
martin 2012-12-09 14:47:15 +00:00
parent c09fb28755
commit 8594de7421
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/lazsynedittext.pas
View File

@ -891,8 +891,8 @@ function TSynEditStrings.LogicPosAddChars(const ALine: String; ALogicalPos, ACou
AllowPastEOL: Boolean): Integer;
begin
if AllowPastEOL
then LogicPosAddChars(ALine, ALogicalPos, ACount, [lpAllowPastEol])
else LogicPosAddChars(ALine, ALogicalPos, ACount, []);
then Result := LogicPosAddChars(ALine, ALogicalPos, ACount, [lpAllowPastEol])
else Result := LogicPosAddChars(ALine, ALogicalPos, ACount, []);
end;
function TSynEditStrings.LogicPosAdjustToChar(const ALine: String; ALogicalPos: integer;
@ -905,7 +905,7 @@ begin
else f := [];
if ANext
then f := f + [lpAdjustToNext];
LogicPosAdjustToChar(ALine, ALogicalPos, f);
Result := LogicPosAdjustToChar(ALine, ALogicalPos, f);
end;
function TSynEditStrings.GetPhysicalCharWidths(Index: Integer): TPhysicalCharWidths;