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 --- UFileAssoc.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'UFileAssoc.pas') diff --git a/UFileAssoc.pas b/UFileAssoc.pas index 2764df8..2c1f708 100644 --- a/UFileAssoc.pas +++ b/UFileAssoc.pas @@ -176,8 +176,8 @@ begin begin if not IsLnk then Icon := FileIconCached.FPixbuf else Icon := FileIconLnkCached.FPixbuf; - if (Pos('.', AName) > 1) and (LastDelimiter('.', AName) < Length(AName)) then begin - Ext := ANSIUpperCase(Trim(Copy(AName, LastDelimiter('.', AName) + 1, Length(AName) - LastDelimiter('.', AName)))); + if (Pos('.', FName) > 1) and (LastDelimiter('.', FName) < Length(FName)) then begin + Ext := WideUpperCase(Trim(Copy(FDisplayName, LastDelimiter('.', FDisplayName) + 1, Length(FDisplayName) - LastDelimiter('.', FDisplayName)))); // Try to find a plugin which can handle this archive type b := False; -- cgit v1.2.3