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

Merge branch 'ToDoList/ShortCuts' into 'main'

Browse Source 
ToDoList: Add some shortcuts to window

See merge request freepascal.org/lazarus/lazarus!511
This commit is contained in:
Maxim Ganetsky 2025-06-27 16:24:05 +03:00
commit 11b9166ca0
3 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/todolist/todolist.lfm
View File

@ -69,6 +69,7 @@ object IDETodoWindow: TIDETodoWindow
OnClick = lvTodoClick OnClick = lvTodoClick
OnCompare = lvTodoCompare OnCompare = lvTodoCompare
OnEnter = lvTodoEnter OnEnter = lvTodoEnter
OnKeyDown = lvTodoKeyDown
OnSelectItem = lvTodoSelectItem OnSelectItem = lvTodoSelectItem
end end
object ToolBar: TToolBar object ToolBar: TToolBar
@ -276,6 +277,10 @@ object IDETodoWindow: TIDETodoWindow
Top = 152 Top = 152
object acEdit: TAction object acEdit: TAction
Caption = 'Edit' Caption = 'Edit'
SecondaryShortCuts.Strings = (
'Alt+Enter'
)
ShortCut = 113
OnExecute = acEditExecute OnExecute = acEditExecute
end end
object acGoto: TAction object acGoto: TAction
@ -284,6 +289,7 @@ object IDETodoWindow: TIDETodoWindow
end end
object acRefresh: TAction object acRefresh: TAction
Caption = 'Refresh' Caption = 'Refresh'
ShortCut = 116
OnExecute = acRefreshExecute OnExecute = acRefreshExecute
end end
object acExport: TAction object acExport: TAction

11
components/todolist/todolist.pas
View File

@ -124,6 +124,7 @@ type
procedure lvTodoCompare(Sender : TObject; Item1, Item2 : TListItem; procedure lvTodoCompare(Sender : TObject; Item1, Item2 : TListItem;
{%H-}Data : Integer; var Compare : Integer); {%H-}Data : Integer; var Compare : Integer);
procedure lvTodoEnter(Sender: TObject); procedure lvTodoEnter(Sender: TObject);
procedure lvTodoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure lvTodoSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); procedure lvTodoSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
procedure SaveDialogShow(Sender: TObject); procedure SaveDialogShow(Sender: TObject);
procedure XMLPropStorageRestoreProperties(Sender: TObject); procedure XMLPropStorageRestoreProperties(Sender: TObject);
@ -334,6 +335,15 @@ begin
acGoto.Enabled := acEdit.Enabled; acGoto.Enabled := acEdit.Enabled;
end; end;
procedure TIDETodoWindow.lvTodoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_RETURN) and (Shift = []) then
begin
acGotoExecute(Sender);
Key := 0;
end;
end;
procedure TIDETodoWindow.lvTodoSelectItem(Sender: TObject; Item: TListItem; procedure TIDETodoWindow.lvTodoSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean); Selected: Boolean);
begin begin
@ -425,6 +435,7 @@ begin
Caption := lisToDoList; Caption := lisToDoList;
acEdit.Hint := lisTodolistEdit;
acRefresh.Hint := lisTodolistRefresh; acRefresh.Hint := lisTodolistRefresh;
acGoto.Hint := listodoListGotoLine; acGoto.Hint := listodoListGotoLine;
acExport.Hint := rsExportTodoIt; acExport.Hint := rsExportTodoIt;

1
components/todolist/todoliststrconsts.pas
View File

@ -28,6 +28,7 @@ const
csvHeader = 'Type,Description,Priority,Module,Line,Owner,Category'; csvHeader = 'Type,Description,Priority,Module,Line,Owner,Category';
resourcestring resourcestring
lisTodolistEdit='Edit selected item';
lisTodolistRefresh='Refresh todo items'; lisTodolistRefresh='Refresh todo items';
lisTodoListGotoLine='Goto selected source line'; lisTodoListGotoLine='Goto selected source line';
lisCTInsertMacro = 'Insert Macro'; lisCTInsertMacro = 'Insert Macro';