From a0f1e0e9db4b0edee45018c47a08761916af0ce6 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@users.sourceforge.net>
Date: Sat, 7 Jun 2008 20:40:48 +0200
Subject: Revised UTF-8 filenames support

---
 UChmod.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'UChmod.pas')

diff --git a/UChmod.pas b/UChmod.pas
index 971260b..5c3e6b3 100644
--- a/UChmod.pas
+++ b/UChmod.pas
@@ -179,7 +179,7 @@ var Mode: Cardinal;
 begin
   if Busy then Exit;   Busy := True;
   Mode := 0;
-  {$WARNINGS OFF}
+  { $WARNINGS OFF}
   Mode := Mode or (Ord(cbSUID.Checked) * __S_ISUID);
   Mode := Mode or (Ord(cbSGID.Checked) * __S_ISGID);
   Mode := Mode or (Ord(cbSticky.Checked) * __S_ISVTX);
@@ -192,7 +192,7 @@ begin
   Mode := Mode or (Ord(cbALLRead.Checked) * S_IROTH);
   Mode := Mode or (Ord(cbALLWrite.Checked) * S_IWOTH);
   Mode := Mode or (Ord(cbALLExec.Checked) * S_IXOTH);
-  {$WARNINGS ON}
+  { $WARNINGS ON}
   LastMode := Mode;
   TextLabel.Caption := Format(LANGFChmod_TextLabel, [AttrToStr(Mode, False)]);;
   TextLabel.UseMarkup := True;
@@ -227,7 +227,7 @@ procedure TFChmod.AssignMode(const Mode: Cardinal; const FileName, User, Group:
 begin
   LastMode := Mode mod $1000;
   OctalEntry.Text := Format('%.4d', [AttrToOctal(LastMode)]);
-  FileLabel.Caption := Format(LANGFChmod_FileLabel, [ANSIToUTF8(FileName), AttrToStr(Mode), AttrToOctal(Mode), ANSIToUTF8(User), ANSIToUTF8(Group)]);
+  FileLabel.Caption := Format(LANGFChmod_FileLabel, [StrToUTF8(FileName), AttrToStr(Mode), AttrToOctal(Mode), User, Group]);
   FileLabel.UseMarkup := True;
   if Length(FileName) > 20 then FileLabel.SetSizeRequest(200, -1);
 end;
-- 
cgit v1.2.3