From 1b2b4bb4f3ecc034a6e9364d8768e50b167a9680 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Tue, 24 Dec 2024 12:41:48 +0100 Subject: Rough GTK3 port --- vfs/UVFSCore.pas | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'vfs/UVFSCore.pas') diff --git a/vfs/UVFSCore.pas b/vfs/UVFSCore.pas index b6c516d..216cd5e 100644 --- a/vfs/UVFSCore.pas +++ b/vfs/UVFSCore.pas @@ -173,6 +173,7 @@ type procedure DoInitPlugins; +function LookupVFSPlugin(const ModuleID: string): TVFSPlugin; var PluginList: TList; @@ -1004,6 +1005,19 @@ begin Result := (FSourcePlugin.FVFSGetCapabilities() and VFS_CAP_ARCHIVE_STREAMING) = VFS_CAP_ARCHIVE_STREAMING; end; +(********************************************************************************************************************************) +(********************************************************************************************************************************) +function LookupVFSPlugin(const ModuleID: string): TVFSPlugin; +var i: integer; +begin + Result := nil; + for i := 0 to PluginList.Count - 1 do + if Trim(TVFSPlugin(PluginList[i]).ModuleID) = ModuleID then begin + Result := TVFSPlugin(PluginList[i]); + Break; + end; +end; + (********************************************************************************************************************************) (********************************************************************************************************************************) function GetBinaryPath: string; -- cgit v1.2.3