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

IDE: added <ctrl>+<shift>+T for insert TODO item from Graeme (#10393)

Browse Source 
git-svn-id: trunk@13257 -
This commit is contained in:
vincents 2007-12-10 11:02:33 +00:00
parent 23ecc4209e
commit c86c39f5d4
4 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/keymapping.pp
View File

@ -347,6 +347,7 @@ begin
ecInsertCVSRevision: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecInsertCVSSource: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
ecInsertGUID: SetResult(VK_G, [ssCtrl,ssShift],VK_UNKNOWN,[]);
ecInsertToDo: SetResult(VK_T, [ssCtrl,ssShift],VK_UNKNOWN,[]);
// command commands
ecUndo: SetResult(VK_Z,[ssCtrl],VK_UNKNOWN,[]);
@ -1380,6 +1381,7 @@ begin
ecInsertCVSRevision : Result:= srkmecInsertCVSRevision;
ecInsertCVSSource : Result:= srkmecInsertCVSSource;
ecInsertGUID : Result:= srkmecInsertGUID;
ecInsertToDo : Result:= uemInsertTodo;
// search menu
ecFind : Result:= srkmecFind;
@ -2269,6 +2271,7 @@ begin
AddDefault(C, 'Insert CVS keyword Source', srkmecInsertCVSSource,
ecInsertCVSSource);
AddDefault(C, 'Insert a GUID',srkmecInsertGUID, ecInsertGUID);
AddDefault(C, 'Insert Todo',uemInsertTodo, ecInsertTodo);
// command commands
C:=Categories[AddCategory('CommandCommands',srkmCatCmdCmd,nil)];

5
ide/main.pp
View File

@ -2663,7 +2663,10 @@ begin
ecInsertGUID:
mnuEditInsertGUID(self);
ecInsertTodo:
mnuInsertTodo(self);
else
Handled:=false;
// let the bosses handle it

1
ide/mainbar.pas
View File

@ -138,6 +138,7 @@ type
itmEditInsertDateTime: TIDEMenuCommand;
itmEditInsertChangeLogEntry: TIDEMenuCommand;
itmEditInsertGUID: TIDEMenuCommand;
itmEditInsertTodo: TIDEMenuCommand;
//itmEditMenuCodeTools: TIDEMenuSection;
itmEditCompleteCode: TIDEMenuCommand;
itmEditExtractProc: TIDEMenuCommand;

2
ide/mainbase.pas
View File

@ -438,6 +438,7 @@ begin
CreateMenuItem(SubSubParentMI,itmEditInsertDateTime,'itmEditInsertDateTime',lisMenuInsertDateTime);
CreateMenuItem(SubSubParentMI,itmEditInsertChangeLogEntry,'itmEditInsertChangeLogEntry',lisMenuInsertChangeLogEntry);
CreateMenuItem(SubSubParentMI,itmEditInsertGUID,'itmEditInsertGUID',srkmecInsertGUID);
CreateMenuItem(SubSubParentMI,itmEditInsertTodo,'itmEditInsertTodo',uemInsertTodo);
end;
end;
@ -843,6 +844,7 @@ begin
itmEditInsertDateTime.Command:=GetCommand(ecInsertDateTime);
itmEditInsertChangeLogEntry.Command:=GetCommand(ecInsertChangeLogEntry);
itmEditInsertGUID.Command:=GetCommand(ecInsertGUID);
itmEditInsertTodo.Command:=GetCommand(ecInsertTodo);
// search menu
itmSearchFind.Command:=GetCommand(ecFind);