Revised UTF-8 filenames supportv0.6.38

1 files changed, 19 insertions, 19 deletions

diff --git a/UChown.pas b/UChown.pas
index c85fa00..5127c22 100644
--- a/UChown.pas
+++ b/UChown.pas
@@ -1,21 +1,21 @@
 (*
     Tux Commander - UChown - Change owner dialog
-    Copyright (C) 2004 Tomas Bzatek <tbzatek@users.sourceforge.net>

-    Check for updates on tuxcmd.sourceforge.net

-

-    This program is free software; you can redistribute it and/or modify

-    it under the terms of the GNU General Public License as published by

-    the Free Software Foundation; either version 2 of the License, or

-    (at your option) any later version.

-

-    This program is distributed in the hope that it will be useful,

-    but WITHOUT ANY WARRANTY; without even the implied warranty of

-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

-    GNU General Public License for more details.

-

-    You should have received a copy of the GNU General Public License

-    along with this program; if not, write to the Free Software

-    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

+    Copyright (C) 2004 Tomas Bzatek <tbzatek@users.sourceforge.net>
+    Check for updates on tuxcmd.sourceforge.net
+
+    This program is free software; you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation; either version 2 of the License, or
+    (at your option) any later version.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with this program; if not, write to the Free Software
+    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *)
 unit UChown;
 
@@ -153,7 +153,7 @@ begin
         Break;
       end;
   //  Fill more info
-  FileLabel.Caption := Format(LANGFChmod_FileLabel, [ANSIToUTF8(FileName), AttrToStr(Mode), AttrToOctal(Mode), susr, sgrp]);
+  FileLabel.Caption := Format(LANGFChmod_FileLabel, [StrToUTF8(FileName), AttrToStr(Mode), AttrToOctal(Mode), susr, sgrp]);
   FileLabel.UseMarkup := True;
   if Length(FileName) > 20 then FileLabel.SetSizeRequest(200, -1);
   OwnerListView.OnSelectionChanged := OwnerListViewSelectionChanged;
@@ -170,13 +170,13 @@ begin
     if UsrManager.UserList.Count > 0 then
       for i := 0 to UsrManager.UserList.Count - 1 do begin
         Item := OwnerListView.Items.Add;
-        Item.SetValue(0, ANSIToUTF8(TUser(UsrManager.UserList[i]).UserName));
+        Item.SetValue(0, TUser(UsrManager.UserList[i]).UserName);
         Item.SetValue(1, TUser(UsrManager.UserList[i]).UID);
       end;
     if UsrManager.GroupList.Count > 0 then
       for i := 0 to UsrManager.GroupList.Count - 1 do begin
         Item := GroupListView.Items.Add;
-        Item.SetValue(0, ANSIToUTF8(TGroup(UsrManager.GroupList[i]).GroupName));
+        Item.SetValue(0, TGroup(UsrManager.GroupList[i]).GroupName);
         Item.SetValue(1, TGroup(UsrManager.GroupList[i]).GID);
       end;
   finally