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

SynEdit: fix adjusting selection on empty edit (lines.count = 0) for SetTextBetweenPoints

Browse Source 
git-svn-id: trunk@61678 -
This commit is contained in:
martin 2019-08-10 18:54:52 +00:00
parent 8e33ddad91
commit 053a87352a
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

@ -2191,7 +2191,7 @@ end;
procedure TSynEditSelection.ConstrainStartLineBytePos(var Value: TPoint); procedure TSynEditSelection.ConstrainStartLineBytePos(var Value: TPoint);
begin begin
Value.y := MinMax(Value.y, 1, fLines.Count); Value.y := MinMax(Value.y, 1, Max(fLines.Count, 1));
if (FCaret = nil) or FCaret.AllowPastEOL then if (FCaret = nil) or FCaret.AllowPastEOL then
Value.x := Max(Value.x, 1) Value.x := Max(Value.x, 1)