diff options
Diffstat (limited to 'UChmod.pas')
| -rw-r--r-- | UChmod.pas | 29 |
1 files changed, 14 insertions, 15 deletions
@@ -177,22 +177,21 @@ end; procedure TFChmod.PermissionsCheckBoxToggle(Sender: TObject); var Mode: Cardinal; begin - if Busy then Exit; Busy := True; + if Busy then Exit; + Busy := True; Mode := 0; - { $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); - Mode := Mode or (Ord(cbUSRRead.Checked) * S_IRUSR); - Mode := Mode or (Ord(cbUSRWrite.Checked) * S_IWUSR); - Mode := Mode or (Ord(cbUSRExec.Checked) * S_IXUSR); - Mode := Mode or (Ord(cbGRPRead.Checked) * S_IRGRP); - Mode := Mode or (Ord(cbGRPWrite.Checked) * S_IWGRP); - Mode := Mode or (Ord(cbGRPExec.Checked) * S_IXGRP); - 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} + Mode := Mode or (Cardinal(Ord(cbSUID.Checked)) * __S_ISUID); + Mode := Mode or (Cardinal(Ord(cbSGID.Checked)) * __S_ISGID); + Mode := Mode or (Cardinal(Ord(cbSticky.Checked)) * __S_ISVTX); + Mode := Mode or (Cardinal(Ord(cbUSRRead.Checked)) * S_IRUSR); + Mode := Mode or (Cardinal(Ord(cbUSRWrite.Checked)) * S_IWUSR); + Mode := Mode or (Cardinal(Ord(cbUSRExec.Checked)) * S_IXUSR); + Mode := Mode or (Cardinal(Ord(cbGRPRead.Checked)) * S_IRGRP); + Mode := Mode or (Cardinal(Ord(cbGRPWrite.Checked)) * S_IWGRP); + Mode := Mode or (Cardinal(Ord(cbGRPExec.Checked)) * S_IXGRP); + Mode := Mode or (Cardinal(Ord(cbALLRead.Checked)) * S_IROTH); + Mode := Mode or (Cardinal(Ord(cbALLWrite.Checked)) * S_IWOTH); + Mode := Mode or (Cardinal(Ord(cbALLExec.Checked)) * S_IXOTH); LastMode := Mode; TextLabel.Caption := Format(LANGFChmod_TextLabel, [AttrToStr(Mode, False)]);; TextLabel.UseMarkup := True; |