paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 23:39:40 +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; Update;
end; end;
// word selection // word selection
ecWordLeft, ecSelWordLeft: ecWordLeft, ecSelWordLeft, ecColSelWordLeft:
begin begin
Caret := CaretXY; Caret := CaretXY;
CaretNew := PrevWordPos; CaretNew := PrevWordPos;
@ -5858,13 +5858,13 @@ begin
{$ELSE} {$ELSE}
MoveCaretAndSelection MoveCaretAndSelection
{$ENDIF} {$ENDIF}
(Caret, CaretNew, Command = ecSelWordLeft); (Caret, CaretNew, Command in [ecSelWordLeft, ecColSelWordLeft]);
fLastCaretX := CaretX; //mh 2000-10-19 fLastCaretX := CaretX; //mh 2000-10-19
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
Update; Update;
{$ENDIF} {$ENDIF}
end; end;
ecWordRight, ecSelWordRight: ecWordRight, ecSelWordRight, ecColSelWordRight:
begin begin
Caret := CaretXY; Caret := CaretXY;
CaretNew := NextWordPos; CaretNew := NextWordPos;
@ -5875,7 +5875,7 @@ begin
{$ELSE} {$ELSE}
MoveCaretAndSelection MoveCaretAndSelection
{$ENDIF} {$ENDIF}
(Caret, CaretNew, Command = ecSelWordRight); (Caret, CaretNew, Command in [ecSelWordRight, ecColSelWordRight]);
fLastCaretX := CaretX; //mh 2000-10-19 fLastCaretX := CaretX; //mh 2000-10-19
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
Update; Update;

2
components/synedit/syneditkeycmds.pp
View File

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

4
ide/keymapping.pp
View File

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

2
ide/lazarusidestrconsts.pas
View File

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