Browse Source

FIX: Default hash file format (issue #1183)

Alexander Koblov 1 year ago
parent
commit
5cb86ee55b
1 changed files with 5 additions and 1 deletions
  1. 5 1
      src/fchecksumcalc.pas

+ 5 - 1
src/fchecksumcalc.pas

@@ -79,7 +79,11 @@ begin
   with TfrmCheckSumCalc.Create(Application) do
   try
     FFileName:= sFileName;
-    rbWindows.Checked:= (DefaultTextLineBreakStyle = tlbsCRLF);
+    if (DefaultTextLineBreakStyle = tlbsCRLF) then
+      rbWindows.Checked:= True
+    else begin
+      rbUnix.Checked:= True;
+    end;
 
     Result:= (ShowModal = mrOK);
     if Result then