diff options
Diffstat (limited to 'UConnectionProperties.pas')
| -rw-r--r-- | UConnectionProperties.pas | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/UConnectionProperties.pas b/UConnectionProperties.pas index 3e68080..edf6927 100644 --- a/UConnectionProperties.pas +++ b/UConnectionProperties.pas @@ -189,12 +189,14 @@ begin MenuItem := TGTKMenuItem.CreateTyped(Self, itLabel); MenuItem.Caption := LANGConnProp_MenuItemCaption; PluginOptionMenu.Items.Add(MenuItem); - for i := 0 to PluginList.Count - 1 do begin - MenuItem := TGTKMenuItem.CreateTyped(Self, itImageText); - MenuItem.SetCaptionPlain(Format('%s [%s]', [TVFSPlugin(PluginList[i]).ModuleName, - ExtractFileName(TVFSPlugin(PluginList[i]).FullPath)])); - PluginOptionMenu.Items.Add(MenuItem); - end; + for i := 0 to PluginList.Count - 1 do + if TVFSPlugin(PluginList[i]).HandlesNetwork then begin + MenuItem := TGTKMenuItem.CreateTyped(Self, itImageText); + MenuItem.Data := PluginList[i]; + MenuItem.SetCaptionPlain(Format('%s [%s]', [TVFSPlugin(PluginList[i]).ModuleName, + ExtractFileName(TVFSPlugin(PluginList[i]).FullPath)])); + PluginOptionMenu.Items.Add(MenuItem); + end; // Fill the protocol menu for i := 1 to ServiceTypeTable_Count do begin |