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

SynEdit: Fix adjusting multi-carets in smColumn mode. Part of issue #39998

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

9
components/synedit/synpluginmulticaret.pp
View File

@ -2705,11 +2705,18 @@ begin
else else
ExecCommandRepeated; ExecCommandRepeated;
end; end;
ecSelColCmdRangeStart..ecSelColCmdRangeEnd: ecSelectionStart..ecSelectionEnd:
//ecSelColCmdRangeStart..ecSelColCmdRangeEnd:
begin begin
if (Command <> ecSelectAll) and
( (Command in [ecSelColCmdRangeStart..ecSelColCmdRangeEnd]) or
(SelectionObj.ActiveSelectionMode = smColumn)
)
then begin
Include(FStateFlags, sfSkipUndoCarets); Include(FStateFlags, sfSkipUndoCarets);
Include(FStateFlags, sfExtendingColumnSel); Include(FStateFlags, sfExtendingColumnSel);
end; end;
end;
ecLeft..ecSmartWordRight: begin ecLeft..ecSmartWordRight: begin
Include(FStateFlags, sfSkipUndoCarets); Include(FStateFlags, sfSkipUndoCarets);
if ActiveMode = mcmMoveAllCarets then begin if ActiveMode = mcmMoveAllCarets then begin