Fix some compiler warnings and hints

1 files changed, 14 insertions, 15 deletions

diff --git a/UChmod.pas b/UChmod.pas
index cf41d3e..7601e08 100644
--- a/UChmod.pas
+++ b/UChmod.pas
@@ -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;