paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 11:59:20 +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; ecPeriod = ecUserFirst + 9;
ecWordCompletion = ecUserFirst + 100; ecWordCompletion = ecUserFirst + 100;
ecCodeCompletion = ecUserFirst + 101; ecCompleteCode = ecUserFirst + 101;
ecIdentCompletion = ecUserFirst + 102; ecIdentCompletion = ecUserFirst + 102;
ecSave = ecUserFirst + 200; ecSave = ecUserFirst + 200;
@ -296,7 +296,7 @@ begin
ecPrevEditor: Result:= 'previous editor'; ecPrevEditor: Result:= 'previous editor';
ecPeriod: Result:= 'period'; ecPeriod: Result:= 'period';
ecWordCompletion: Result:= 'word completion'; ecWordCompletion: Result:= 'word completion';
ecCodeCompletion: Result:= 'code completion'; ecCompleteCode: Result:= 'complete code';
ecIdentCompletion: Result:= 'identifier completion'; ecIdentCompletion: Result:= 'identifier completion';
ecSave: Result:= 'save'; ecSave: Result:= 'save';
ecOpen: Result:= 'open'; ecOpen: Result:= 'open';
@ -873,7 +873,7 @@ begin
// user defined commands // user defined commands
Add('Word completion',ecWordCompletion,VK_W,[ssCtrl],VK_UNKNOWN,[]); 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('Identifier completion',ecIdentCompletion,VK_SPACE,[ssCtrl],VK_UNKNOWN,[]);
Add('Find text',ecFind,VK_F,[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; Handled:=true;
DoJumpToProcedureSection; DoJumpToProcedureSection;
end; end;
ecCodeCompletion: ecCompleteCode:
begin begin
Handled:=true; Handled:=true;
DoCompleteCodeAtCursor; DoCompleteCodeAtCursor;
@ -3996,8 +3996,8 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.118 2001/10/12 17:34:23 lazarus Revision 1.119 2001/10/12 23:23:17 lazarus
MG: added code completion MG: added new key: complete code
Revision 1.115 2001/10/09 09:46:49 lazarus Revision 1.115 2001/10/09 09:46:49 lazarus
MG: added codetools, fixed synedit unindent, fixed MCatureHandle MG: added codetools, fixed synedit unindent, fixed MCatureHandle