Task #1189 合同支付控制金额小数位数显示

Units/ProjectData.pas

@@ -1658,9 +1658,21 @@ procedure TProjectData.ResetFloatDigitView;
     end;
   end;
 
+  procedure SetDealPaymentDigit;
+  begin
+    with FDealPaymentData.sdvDealPayment do
+    begin
+      Columns.FindColumn('CurTotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('TotalPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('StartedPrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+      Columns.FindColumn('RangePrice').DisplayFormat := FProjProperties.TotalPriceFormat;
+    end;
+  end;
+
 begin
   SetBillsCompileDigit;
   SetBillsMeasureDigit;
+  SetDealPaymentDigit;
   SetBillsGatherDigit;
 end;