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

SynEdit: added Column mode word wise selection

Browse Source 
git-svn-id: trunk@20555 -
This commit is contained in:
martin 2009-06-09 17:18:58 +00:00
parent 1bfc14e70e
commit 2ad1ec03ba
4 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedit.pp
View File

@ -5845,7 +5845,7 @@ begin
Update;
end;
// word selection
ecWordLeft, ecSelWordLeft:
ecWordLeft, ecSelWordLeft, ecColSelWordLeft:
begin
Caret := CaretXY;
CaretNew := PrevWordPos;
@ -5858,13 +5858,13 @@ begin
{$ELSE}
MoveCaretAndSelection
{$ENDIF}
(Caret, CaretNew, Command = ecSelWordLeft);
(Caret, CaretNew, Command in [ecSelWordLeft, ecColSelWordLeft]);
fLastCaretX := CaretX; //mh 2000-10-19
{$IFDEF SYN_LAZARUS}
Update;
{$ENDIF}
end;
ecWordRight, ecSelWordRight:
ecWordRight, ecSelWordRight, ecColSelWordRight:
begin
Caret := CaretXY;
CaretNew := NextWordPos;
@ -5875,7 +5875,7 @@ begin
{$ELSE}
MoveCaretAndSelection
{$ENDIF}
(Caret, CaretNew, Command = ecSelWordRight);
(Caret, CaretNew, Command in [ecSelWordRight, ecColSelWordRight]);
fLastCaretX := CaretX; //mh 2000-10-19
{$IFDEF SYN_LAZARUS}
Update;

2
components/synedit/syneditkeycmds.pp
View File

@ -126,6 +126,8 @@ const
ecColSelRight = ecRight + ecColumnSelection;
ecColSelUp = ecUp + ecColumnSelection;
ecColSelDown = ecDown + ecColumnSelection;
ecColSelWordLeft = ecWordLeft + ecColumnSelection;
ecColSelWordRight = ecWordRight + ecColumnSelection;
ecColSelLineStart = ecLineStart + ecColumnSelection;
ecColSelLineEnd = ecLineEnd + ecColumnSelection;
ecColSelPageUp = ecPageUp + ecColumnSelection;

4
ide/keymapping.pp
View File

@ -1566,6 +1566,8 @@ begin
ecColSelDown : Result:= srkmecColSelDown;
ecColSelLeft : Result:= srkmecColSelLeft;
ecColSelRight : Result:= srkmecColSelRight;
ecColSelWordLeft : Result:= srkmecColSelWordLeft;
ecColSelWordRight : Result:= srkmecColSelWordRight;
ecColSelPageDown : Result:= srkmecColSelPageDown;
ecColSelPageBottom : Result:= srkmecColSelPageBottom;
ecColSelPageUp : Result:= srkmecColSelPageUp;
@ -2049,6 +2051,8 @@ begin
AddDefault(C, 'Column Select Down', srkmecColSelDown, ecColSelDown);
AddDefault(C, 'Column Select Left', srkmecColSelLeft, ecColSelLeft);
AddDefault(C, 'Column Select Right', srkmecColSelRight, ecColSelRight);
AddDefault(C, 'Column Select word left', srkmecColSelWordLeft, ecColSelWordLeft);
AddDefault(C, 'Column Select word right', srkmecColSelWordRight, ecColSelWordRight);
AddDefault(C, 'Column Select Page Down', srkmecColSelPageDown, ecColSelPageDown);
AddDefault(C, 'Column Select Page Bottom', srkmecColSelPageBottom, ecColSelPageBottom);
AddDefault(C, 'Column Select Page Up', srkmecColSelPageUp, ecColSelPageUp);

2
ide/lazarusidestrconsts.pas
View File

@ -1994,6 +1994,8 @@ resourcestring
srkmecColSelDown = 'Column Select Down';
srkmecColSelLeft = 'Column Select Left';
srkmecColSelRight = 'Column Select Right';
srkmecColSelWordLeft = 'Column Select Word Left';
srkmecColSelWordRight = 'Column Select Word Right';
srkmecColSelPageDown = 'Column Select Page Down';
srkmecColSelPageBottom = 'Column Select Page Bottom';
srkmecColSelPageUp = 'Column Select Page Up';