diff options
Diffstat (limited to 'UChmod.pas')
| -rw-r--r-- | UChmod.pas | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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; |
