|
|
@@ -89,6 +89,8 @@ type
|
|
|
TMeasureBillsIDTree = class(TBillsIDTree)
|
|
|
private
|
|
|
FCompileTree: TCompileBillsIDTree;
|
|
|
+ protected
|
|
|
+ function CreateItem: TsdIDTreeNode; override;
|
|
|
public
|
|
|
procedure DoOnReCalcNode(AID: Integer); overload; override;
|
|
|
procedure DoOnReCalcNode(ANode: TsdIDTreeNode); overload; override;
|
|
|
@@ -346,6 +348,11 @@ begin
|
|
|
FCompileTree.DoOnReCalcNode(AID);
|
|
|
end;
|
|
|
|
|
|
+function TMeasureBillsIDTree.CreateItem: TsdIDTreeNode;
|
|
|
+begin
|
|
|
+ Result := TMeasureBillsIDTreeNode.Create(Self);
|
|
|
+end;
|
|
|
+
|
|
|
procedure TMeasureBillsIDTree.DoOnReCalcNode(ANode: TsdIDTreeNode);
|
|
|
begin
|
|
|
if Assigned(FCompileTree) then
|
