Преглед изворни кода

FIX: Default hash file format (issue #1183)

Alexander Koblov пре 1 година
родитељ
комит
5cb86ee55b
1 измењених фајлова са 5 додато и 1 уклоњено
  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