diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-07 20:40:48 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2008-06-07 20:40:48 +0200 |
| commit | a0f1e0e9db4b0edee45018c47a08761916af0ce6 (patch) | |
| tree | dc9d05f5772442f61ec913631540b24cf67d5e8a /UFileAssoc.pas | |
| parent | ecde167da74c86bc047aaf84c5e548cf65a5da98 (diff) | |
| download | tuxcmd-a0f1e0e9db4b0edee45018c47a08761916af0ce6.tar.xz | |
Revised UTF-8 filenames supportv0.6.38
Diffstat (limited to 'UFileAssoc.pas')
| -rw-r--r-- | UFileAssoc.pas | 4 |
1 files changed, 2 insertions, 2 deletions
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; |