ShellBrowser Delphi Components
Hello and welcome to our Knowledge Base. Our experts provide answers to the most frequently asked questions of our customers. Start your information search here to find your answer quickly and easily.
Please enter your query or select one of the above categories.
All entries (Page 1 / 5)
The thumbnails are generated through the same Windows API function that the Windows Explorer uses, and so the ShellBrowser components will show similar thumbnails like the Windows Explorer. To provide thumbnails for a certain file format that Windows does not support out of the box, it is best to register a thumbnail provider in the system.
Another option is to use the OnThumbnailUpdated event of the TJamShellList control, which allows you to change the generated thumbnail.
TShellBrowser.SetThumbnailProvider() allows you to set one application-wide thumbnail provider that is called if the system does not supply one.
Each Windows Shell extension may define which columns will be displayed for its view.To add or remove specific columns, use the OnCreateColumns event in combination with SetColumnVisibility.
uses ShellBrowser; procedure TForm1.JamShellListCreateColumns(Sender: TObject);
with JamShellList do
You can use the TJamShellTree.OnChanging event like this:
uses ShellBrowser;To achieve the same result in the JamShellList, use the TJamShellList.PathChanged event:
forbiddenPath: String = 'C:\Windows';
procedure TMainForm.ShellTreeChanging(Sender: TObject; Node: TTreeNode; var AllowChange: Boolean);
shellNode := node as TJamShellTreeNode;
if (ShellBrowser.SamePath(shellNode.FullPath, forbiddenPath)) then
AllowChange := false;
forbiddenPath: String = 'C:\Windows';procedure TMainForm.ShellListPathChanged(Sender: TObject);
if (ShellBrowser.SamePath(ShellList.Path, forbiddenPath)) then
ShellList.Path := lastPath
lastPath := ShellList.Path;
You can also use the OnBeforeShellCommand event and use the AllowExecute parameter to prevent the execution. The Command parameter when opening a folder might be "default" or "open".
This message is triggered by a handled excpetion. In the default configuration, RAD Studio stops on all exceptions, if handled or not. The end-user will not see errors like this for handled excpetions. Using exceptions for error handling is common in modern programming languages.
We recommend turning off this option:
"Tools > Options > Debugger Options > Language Exceptions > Notify on Language Exceptions".
Privileged processes do not receive Drag&Drop from non-privileged processes for security reasons. This could be the case if you start your IDE or your executable as admin.
1. Set the HotTrack property to True
2. Set the values htHandPoint and htUnderLineCold in the HotTrackStyles also to True.
3. Enter the following line to the OnMouseUp event of the JamShellList:
If the new icon is also part of the system image list, then this can be easily achieved using the OnGetImageIndex event of the JamShellList. You can get the full name and path of a specific item in the list using the GetFullPath method.
To get the index of a specific file type icon, you can use the GetIndexFromExtension method of the TJamSystemImageList component.Since the system image list is a global resource that is shared among all applications it cannot be changed easily. To add your custom icon to this image list you must register a file extension (a dummy one if necessary) with your icon in the system. This is done via the registry. Have a look here on the respective keys and how to manipulate them in Delphi: http://forum.codecall.net/topic/69184-solved-file-association-and-the-registry/ Note: Many installation builders can register icons for a specific file extension, e.g. InnoSetup