Currently in the ToDo list in the "module" column, the full path is shown, which is useful at times, but sometimes it also makes it (for me anyway) harder to see where is what.
So the friendly request is to be able to toggle between full path and only the filename.
I've already applied this to my own copy of Lazarus with a checkbox and takes only very few minor changes (AFAIK).
(translation may need updating as far as I can see)
As far as I could find I need to update my Lazarus build to the latest version (which is always scary) and make a branch for myself (I'm lost there already) and make a patch.
Could anyone assist in getting this, if others would like to see this option as well of course, submitted for an IDE change?
And where do I submit this proposal (tried Bugtracker but couldn't find an option there).
Please be gentle 😉
For who is interested, these are the changes I made to make it work. Only two files are affected
todolist.pas and
todolist.lfm.
Basically added a panel with a checkbox, with an onChange event for the checkbox (which calls: UpdateTodos), and slightly modified the
AddListItem procedure.
todolist.pas:
95a96
> cbFullPath: TCheckBox;
97a99
> pnlFilePathOption: TPanel;
132a135
> procedure cbFullPathChange(Sender: TObject);
559a563,567
> end;
>
> procedure TIDETodoWindow.cbFullPathChange(Sender: TObject);
> begin
> UpdateTodos;
596c604,609
< aListitem.SubItems.Add(aFilename);
---
>
> if cbFullPath.Checked then
> aListitem.SubItems.Add(aFilename)
> else
> aListitem.SubItems.Add(ExtractFileName(aFilename));
>
todolist.lfm:
2c2
< Left = 379
---
> Left = 623
4c4
< Top = 239
---
> Top = 328
133c133
< Left = 305
---
> Left = 299
140c140
< Left = 399
---
> Left = 386
147c147
< Left = 456
---
> Left = 443
152c152
< Left = 451
---
> Left = 438
159c159
< Left = 404
---
> Left = 391
171c171
< Left = 310
---
> Left = 304
178c178
< Left = 503
---
> Left = 490
193a194,219
> end
> end
> object pnlFilePathOption: TPanel
> AnchorSideLeft.Side = asrBottom
> AnchorSideRight.Control = ToolBar
> AnchorSideRight.Side = asrBottom
> AnchorSideBottom.Side = asrBottom
> Left = 715
> Height = 46
> Top = 2
> Width = 161
> BevelOuter = bvNone
> ClientHeight = 46
> ClientWidth = 161
> TabOrder = 1
> object cbFullPath: TCheckBox
> AnchorSideTop.Control = pnlFilePathOption
> AnchorSideTop.Side = asrCenter
> AnchorSideRight.Side = asrBottom
> Left = 1
> Height = 18
> Top = 14
> Width = 154
> Caption = 'Show Full Path of Files'
> TabOrder = 0
> OnChange = cbFullPathChange