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

SynEdit: Fixed Column mode (revision 18908 #72776045a9): deleting a column selection, would actually delete the normal selection with the same end-points

Browse Source 
git-svn-id: trunk@18910 -
This commit is contained in:
martin 2009-03-07 14:06:00 +00:00
parent d84d274464
commit ed7b49c4d1
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synedit.pp
View File

@ -5806,9 +5806,9 @@ begin
IncPaintLock;
bCaretAdjust := FCaret.AdjustToNextChar;
try
if Command in [ecColSelLeft..ecColSelEditorBottom] then
FBlockSelection.ActiveSelectionMode := smColumn
else
if Command in [ecSelColCmdRangeStart..ecSelColCmdRangeEnd] then
FBlockSelection.ActiveSelectionMode := smColumn;
if Command in [ecSelCmdRangeStart..ecSelCmdRangeEnd] then
FBlockSelection.ActiveSelectionMode := FBlockSelection.SelectionMode;
case Command of

5
components/synedit/syneditkeycmds.pp
View File

@ -116,6 +116,9 @@ const
ecSelEditorBottom = ecEditorBottom + ecSelection;
ecSelGotoXY = ecGotoXY + ecSelection; // Data = PPoint
ecSelCmdRangeStart = ecLeft + ecSelection;
ecSelCmdRangeEnd = ecLeft + ecSelection + 49;
// Allow access to column mode selection
ecColumnSelection = ecSelection+50;
@ -134,6 +137,8 @@ const
ecColSelEditorTop = ecEditorTop + ecColumnSelection;
ecColSelEditorBottom = ecEditorBottom + ecColumnSelection;
ecSelColCmdRangeStart = ecLeft + ecColumnSelection;
ecSelColCmdRangeEnd = ecLeft + ecColumnSelection + 48; // 1 less for ecSelectAll
ecSelectAll = 199; // Select entire contents of editor, cursor to end