paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-28 06:43:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Drag-Selection copy/move - Allow line/column selections Issue #0037431 -- Prevent applying fold info, in case of smColumn

Browse Source 
git-svn-id: trunk@63759 -
This commit is contained in:
martin 2020-08-16 15:57:17 +00:00
parent 3efdc51977
commit 46f288366e
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/synedit.pp
View File

@ -6493,7 +6493,7 @@ begin
SetTextBetweenPoints(NewCaret, NewCaret, DragDropText, [setMoveBlock], scamEnd, smaMoveUp, sm)
else
SetTextBetweenPoints(NewCaret, NewCaret, DragDropText, [setSelect], scamEnd, smaMoveUp, sm);
if FoldInfo <> '' then begin
if (FoldInfo <> '') and (sm <> smColumn) then begin
ScanRanges;
FFoldedLinesView.ApplyFoldDescription(NewCaret.Y -1, NewCaret.X,
FBlockSelection.EndLinePos-1, FBlockSelection.EndBytePos,