Why methods of TCustomShellListView are not virtual?

[mm7]

Why methods of TCustomShellListView are not virtual?

I would override procedure PopulateWithRoot(); but it is not virtual.
I need to fill ShellListView with all directories and only files that defined by Mask.
Currently Mask is applied to both, directories and files.

I know workarounds:
A. write TMyCustomShellListView;
B. Populate all, and then delete file items that are not comply to Mask;
C. Populate with Mask, and then additionally populate with directories;

But B and C require an event like "AfterPopulateWithRoot(); that also does not exist.

Q1: any other ideas?
Q2: Why methods of TCustomShellListView are not virtual?

[Bart]

Maybe you can use the OnFileAdded event?
Use '*' as mask, then uses functions like MatchesMaskList to check if the file/foldername matches your desired mask?

Bart

[mm7]

Thanks Bart.
It would be nice. But. Unfortunately there is no OnFileAdded event.
Lazarus 1.4RC2

[Bart]

There is in trunk.
Since introducing this event isn't a bug fix, chances are it will not be merged into the 1.4 branch.

If you need it, and don't want to use trunk, you can modify the shellctrls unit yourself.
(Find the revision it was introduced, get the diff file and use patch to update your local copy)

Bart