From a0f1e0e9db4b0edee45018c47a08761916af0ce6 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 7 Jun 2008 20:40:48 +0200 Subject: Revised UTF-8 filenames support --- UTestPlugin.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'UTestPlugin.pas') diff --git a/UTestPlugin.pas b/UTestPlugin.pas index d30301a..7991e32 100644 --- a/UTestPlugin.pas +++ b/UTestPlugin.pas @@ -153,7 +153,7 @@ begin for i := 0 to PluginList.Count - 1 do begin MenuItem := TGTKMenuItem.CreateTyped(Self, itImageText); MenuItem.SetCaptionPlain(Format('%s [%s]', [TVFSPlugin(PluginList[i]).VFSName, - ANSIToUTF8(ExtractFileName(TVFSPlugin(PluginList[i]).FullPath))])); + ExtractFileName(TVFSPlugin(PluginList[i]).FullPath)])); PluginOptionMenu.Items.Add(MenuItem); end; -- cgit v1.2.3