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

added IDE command ecSelectWord

Browse Source 
git-svn-id: trunk@7401 -
This commit is contained in:
mattias 2005-07-22 15:50:50 +00:00
parent 4e17e99aa8
commit 6056087379
3 changed files with 20 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/keymapping.pp
View File

@ -90,9 +90,10 @@ const
ecSelectionBreakLines = ecUserFirst + 57;
ecSelectToBrace = ecUserFirst + 58;
ecSelectCodeBlock = ecUserFirst + 59;
ecSelectLine = ecUserFirst + 60;
ecSelectParagraph = ecUserFirst + 61;
ecSelectionConditional = ecUserFirst + 65;
ecSelectWord = ecUserFirst + 60;
ecSelectLine = ecUserFirst + 61;
ecSelectParagraph = ecUserFirst + 62;
ecSelectionConditional = ecUserFirst + 63;
// insert text
ecInsertCharacter = ecUserFirst + 80;
@ -484,6 +485,7 @@ begin
ecSelectAll: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecSelectToBrace: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecSelectCodeBlock: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecSelectWord: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecSelectLine: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecSelectParagraph: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecSelectionUpperCase: SetResult(VK_UNKNOWN, [],VK_UNKNOWN,[]);
@ -785,6 +787,7 @@ begin
ecSelectAll: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[], VK_UNKNOWN, [], VK_UNKNOWN, []);
ecSelectToBrace: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[], VK_UNKNOWN, [], VK_UNKNOWN, []);
ecSelectCodeBlock: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[], VK_UNKNOWN, [], VK_UNKNOWN, []);
ecSelectWord: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[], VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecSelectLine: SetResult(VK_O,[ssCtrl],VK_L,[], VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecSelectParagraph: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[], VK_UNKNOWN, [], VK_UNKNOWN, []);
ecSelectionUpperCase: SetResult(VK_K,[ssCtrl],VK_N,[], VK_UNKNOWN, [],VK_UNKNOWN,[]);
@ -1427,8 +1430,9 @@ begin
ecSelectionBreakLines : Result:= lisMenuBeakLinesInSelection;
ecSelectToBrace : Result:= lismenuselecttobrace;
ecSelectCodeBlock : Result:= lismenuselectcodeblock;
ecSelectLine : Result:= lismenuselectline;
ecSelectParagraph : Result:= lismenuselectparagraph;
ecSelectWord : Result:= lisMenuSelectWord;
ecSelectLine : Result:= lisMenuSelectLine;
ecSelectParagraph : Result:= lisMenuSelectParagraph;
ecInsertCharacter : Result:= srkmecInsertCharacter;
ecInsertGPLNotice : Result:= srkmecInsertGPLNotice;
ecInsertLGPLNotice : Result:= srkmecInsertLGPLNotice;
@ -2245,6 +2249,7 @@ begin
AddDefault(C,'Select all',ecSelectAll);
AddDefault(C,'Select to brace',ecSelectToBrace);
AddDefault(C,'Select code block',ecSelectCodeBlock);
AddDefault(C,'Select word',ecSelectWord);
AddDefault(C,'Select line',ecSelectLine);
AddDefault(C,'Select paragraph',ecSelectParagraph);

1
ide/lazarusidestrconsts.pas
View File

@ -146,6 +146,7 @@ resourcestring
lisMenuSelectAll = 'Select all';
lisMenuSelectToBrace = 'Select to brace';
lisMenuSelectCodeBlock = 'Select code block';
lisMenuSelectWord = 'Select word';
lisMenuSelectLine = 'Select line';
lisMenuSelectParagraph = 'Select paragraph';
lisMenuInsertCharacter = 'Insert from Character Map';

9
ide/uniteditor.pp
View File

@ -232,6 +232,7 @@ type
procedure InvertAssignment;
procedure SelectToBrace;
procedure SelectCodeBlock;
procedure SelectWord;
procedure SelectLine;
procedure SelectParagraph;
function CommentText(const Txt: string; CommentType: TCommentType): string;
@ -1129,6 +1130,9 @@ Begin
ecSelectLine:
SelectLine;
ecSelectWord:
SelectWord;
ecSelectParagraph:
SelectParagraph;
@ -1413,6 +1417,11 @@ begin
DebugLn('TSourceEditor.SelectCodeBlock: not implemented yet');
end;
procedure TSourceEditor.SelectWord;
begin
EditorComponent.SetSelWord;
end;
procedure TSourceEditor.SelectLine;
begin
EditorComponent.SelectLine;