小数位数管理相关

Units/CalcDecimal.pas

@@ -38,7 +38,6 @@ type
     constructor Create;
     destructor Destroy; override;
 
-    procedure ResetLinkViewColumns(AProjectData: TObject);
     procedure RefreshLinkViewColumnsFormat;
 
     property Quantity: TDecimal read FQuantity;
@@ -57,7 +56,6 @@ type
     destructor Destroy; override;
 
     procedure ResetLinkViewColumns;
-    procedure RefreshLinkViewColumnsFormat;
 
     property Common: TCalcDecimal read FCommon;
     property Compile: TCalcDecimal read FCompile;
@@ -159,19 +157,8 @@ end;
 
 procedure TCalcDecimal.RefreshLinkViewColumnsFormat;
 begin
-  Price.RefreshLinkViewColsFormat;
-end;
-
-procedure TCalcDecimal.ResetLinkViewColumns(AProjectData: TObject);
-begin
-  Price.ClearLinkViewCols;
-  with TProjectData(AProjectData).ProjectGLData.sdvProjectGL do
-  begin
-    Price.AddLinkViewCol(Columns.FindColumn('BasePrice'));
-    Price.AddLinkViewCol(Columns.FindColumn('InfoPrice'));
-    Price.AddLinkViewCol(Columns.FindColumn('DeltaPrice'));
-    Price.AddLinkViewCol(Columns.FindColumn('ValidDeltaPrice'));
-  end;
+  Quantity.RefreshLinkViewColsFormat;
+  TotalPrice.RefreshLinkViewColsFormat;
   Price.RefreshLinkViewColsFormat;
 end;
 
@@ -193,17 +180,6 @@ begin
   inherited;
 end;
 
-procedure TDecimalManager.RefreshLinkViewColumnsFormat;
-begin
-  FCommon.Quantity.RefreshLinkViewColsFormat;
-  FCommon.TotalPrice.RefreshLinkViewColsFormat;
-  FCommon.Price.RefreshLinkViewColsFormat;
-  
-  FCompile.Quantity.RefreshLinkViewColsFormat;
-  FCompile.TotalPrice.RefreshLinkViewColsFormat;
-  FCompile.Price.RefreshLinkViewColsFormat;
-end;
-
 procedure TDecimalManager.ResetLinkViewColumns;
 
   procedure ResetCommonLink;
@@ -276,15 +252,30 @@ procedure TDecimalManager.ResetLinkViewColumns;
     end;
   end;
 
-  procedure ResetCompileLink;
+  procedure ResetComplieLink;
+  begin
+
+  end;
+
+  procedure ResetPriceMarginLink;
   begin
-    // TODO
+    FPriceMargin.Price.ClearLinkViewCols;
+    with TProjectData(FProjectData).ProjectGLData.sdvProjectGL do
+    begin
+      FPriceMargin.Price.AddLinkViewCol(Columns.FindColumn('BasePrice'));
+      FPriceMargin.Price.AddLinkViewCol(Columns.FindColumn('InfoPrice'));
+      FPriceMargin.Price.AddLinkViewCol(Columns.FindColumn('DeltaPrice'));
+      FPriceMargin.Price.AddLinkViewCol(Columns.FindColumn('ValidDeltaPrice'));
+    end;
   end;
 
 begin
-  //ResetCommonLink;
-  //ResetCompileLink;
-  FPriceMargin.ResetLinkViewColumns(FProjectData);
+  {ResetCommonLink;
+  FCommon.RefreshLinkViewColumnsFormat;
+  ResetComplieLink;
+  FCompile.RefreshLinkViewColumnsFormat;}
+  ResetPriceMarginLink;
+  FPriceMargin.RefreshLinkViewColumnsFormat;
 end;
 
 end.