Browse Source

FIX: Default hash file format (issue #1183)

Alexander Koblov 1 năm trước cách đây
mục cha
commit
5cb86ee55b
1 tập tin đã thay đổi với 5 bổ sung1 xóa
  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