Ver Fonte

FIX: Default hash file format (issue #1183)

Alexander Koblov há 1 ano atrás
pai
commit
5cb86ee55b
1 ficheiros alterados com 5 adições e 1 exclusões
  1. 5 1
      src/fchecksumcalc.pas

+ 5 - 1
src/fchecksumcalc.pas

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