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

ToDoList: Add some shortcuts to window

Browse Source
This commit is contained in:
n7800 2025-06-27 15:49:14 +05:00 committed by Maxim Ganetsky
parent 955b946f8c
commit 46886f921b
2 changed files with 16 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
OnCompare = lvTodoCompare
OnEnter = lvTodoEnter
OnKeyDown = lvTodoKeyDown
OnSelectItem = lvTodoSelectItem
end
object ToolBar: TToolBar
@ -276,6 +277,10 @@ object IDETodoWindow: TIDETodoWindow
Top = 152
object acEdit: TAction
Caption = 'Edit'
SecondaryShortCuts.Strings = (
'Alt+Enter'
)
ShortCut = 113
OnExecute = acEditExecute
end
object acGoto: TAction
@ -284,6 +289,7 @@ object IDETodoWindow: TIDETodoWindow
end
object acRefresh: TAction
Caption = 'Refresh'
ShortCut = 116
OnExecute = acRefreshExecute
end
object acExport: TAction

10
components/todolist/todolist.pas
View File

@ -124,6 +124,7 @@ type
procedure lvTodoCompare(Sender : TObject; Item1, Item2 : TListItem;
{%H-}Data : Integer; var Compare : Integer);
procedure lvTodoEnter(Sender: TObject);
procedure lvTodoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure lvTodoSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
procedure SaveDialogShow(Sender: TObject);
procedure XMLPropStorageRestoreProperties(Sender: TObject);
@ -334,6 +335,15 @@ begin
acGoto.Enabled := acEdit.Enabled;
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;
Selected: Boolean);
begin