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

SynEdit: Fix tab-indent of line-mode-selection (last line was ignored, if caret.y=1). Part of issue #39998

Browse Source
This commit is contained in:
Martin 2023-03-05 14:10:43 +01:00
parent afb620fe49
commit bb62b8f64d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syneditpointclasses.pas
View File

@ -2751,7 +2751,13 @@ end;
function TSynEditSelection.GetLastLineHasSelection: Boolean;
begin
Result := (LastLineBytePos.x > 1) or ((FActiveSelectionMode = smLine) and FForceSingleLineSelected);
Result := (LastLineBytePos.x > 1) or
( (FActiveSelectionMode = smLine) and
( FForceSingleLineSelected or // Selection may be zero lenght, but will be entire line
(FEndLinePos <> FStartLinePos) or // Any selection in line-mode covers the last line
(FEndBytePos <> FStartBytePos)
)
);
end;
function TSynEditSelection.GetColumnLeftCharPos: Integer;