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

MG: added new key: complete code

Browse Source 
git-svn-id: trunk@348 -
This commit is contained in:
lazarus 2001-10-12 23:23:17 +00:00
parent e4f88ae491
commit 55ebf6b711
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/keymapping.pp
View File

@ -34,7 +34,7 @@ const
ecPeriod = ecUserFirst + 9;
ecWordCompletion = ecUserFirst + 100;
ecCodeCompletion = ecUserFirst + 101;
ecCompleteCode = ecUserFirst + 101;
ecIdentCompletion = ecUserFirst + 102;
ecSave = ecUserFirst + 200;
@ -296,7 +296,7 @@ begin
ecPrevEditor: Result:= 'previous editor';
ecPeriod: Result:= 'period';
ecWordCompletion: Result:= 'word completion';
ecCodeCompletion: Result:= 'code completion';
ecCompleteCode: Result:= 'complete code';
ecIdentCompletion: Result:= 'identifier completion';
ecSave: Result:= 'save';
ecOpen: Result:= 'open';
@ -873,7 +873,7 @@ begin
// user defined commands
Add('Word completion',ecWordCompletion,VK_W,[ssCtrl],VK_UNKNOWN,[]);
Add('Code completion',ecCodeCompletion,VK_C,[ssCtrl,ssShift],VK_UNKNOWN,[]);
Add('Complete code',ecCompleteCode,VK_C,[ssCtrl,ssShift],VK_UNKNOWN,[]);
Add('Identifier completion',ecIdentCompletion,VK_SPACE,[ssCtrl],VK_UNKNOWN,[]);
Add('Find text',ecFind,VK_F,[SSCtrl],VK_UNKNOWN,[]);

6
ide/main.pp
View File

@ -1357,7 +1357,7 @@ begin
Handled:=true;
DoJumpToProcedureSection;
end;
ecCodeCompletion:
ecCompleteCode:
begin
Handled:=true;
DoCompleteCodeAtCursor;
@ -3996,8 +3996,8 @@ end.
{ =============================================================================
$Log$
Revision 1.118 2001/10/12 17:34:23 lazarus
MG: added code completion
Revision 1.119 2001/10/12 23:23:17 lazarus
MG: added new key: complete code
Revision 1.115 2001/10/09 09:46:49 lazarus
MG: added codetools, fixed synedit unindent, fixed MCatureHandle