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

ToDoList: Add PopupMenu for the list, with an Edit entry.

Browse Source
This commit is contained in:
Juha 2025-07-04 08:20:24 +03:00
parent f70d066373
commit 9478be7d0e
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/todolist/todolist.lfm
View File

@ -59,6 +59,7 @@ object IDETodoWindow: TIDETodoWindow
Caption = 'Category'
Width = 100
end>
PopupMenu = mnuPopup
ReadOnly = True
RowSelect = True
ScrollBars = ssAutoBoth
@ -332,4 +333,11 @@ object IDETodoWindow: TIDETodoWindow
Left = 416
Top = 152
end
object mnuPopup: TPopupMenu
Left = 324
Top = 133
object EditMenuItem: TMenuItem
Action = acEdit
end
end
end

4
components/todolist/todolist.pas
View File

@ -65,7 +65,7 @@ uses
Classes, SysUtils, Math, AVL_Tree,
// LCL
LCLType, LclIntf, Forms, Controls, StdCtrls, Dialogs, ComCtrls,
ActnList, XMLPropStorage, ExtCtrls,
ActnList, XMLPropStorage, ExtCtrls, Menus,
// LazUtils
LazFileUtils, LazStringUtils, LazFileCache, LazLoggerBase, LazTracer, AvgLvlTree,
// Codetools
@ -101,10 +101,12 @@ type
lblOptions: TLabel;
lblShowWhat: TLabel;
lvTodo: TListView;
EditMenuItem: TMenuItem;
N1: TToolButton;
N5: TToolButton;
pnlOptions: TPanel;
pnlShowWhat: TPanel;
mnuPopup: TPopupMenu;
SaveDialog: TSaveDialog;
tbEdit: TToolButton;
tbColors: TToolButton;