Revised UTF-8 filenames supportv0.6.38

1 files changed, 3 insertions, 3 deletions

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;