Procedure

updateAllChilds

Module

fOrdersSign

Last Modified

7/15/2014 3:26:42 PM

Scope

Local

Local subprogram to

clstCSOrdersClickCheck

Declaration

procedure updateAllChilds(CheckedStatus: boolean; ParentOrderId: string);

Calls Hierarchy


updateAllChilds
 └TSigItems.EnableSettings
   └TSigItems.TagToItem

Called-By Hierarchy


                        updateAllChilds
TfrmSignOrders.clstCSOrdersClickCheck┘ 

Calls

Name Declaration Comments
TSigItems.EnableSettings procedure EnableSettings(Index: integer; Checked: boolean); -

Called-By

Name Declaration Comments
TfrmSignOrders.clstCSOrdersClickCheck procedure clstCSOrdersClickCheck(Sender: TObject); -


Source

1686  procedure updateAllChilds(CheckedStatus: boolean; ParentOrderId: string);
1687  var
1688    idx: integer;
1689  begin
1690    for idx := 0 to clstCSOrders.Items.Count - 1 do
1691       if TOrder(clstCSOrders.Items.Objects[idx]).ParentID = ParentOrderId then
1692       begin
1693          if clstCSOrders.Checked[idx] <> CheckedStatus then
1694          begin
1695             clstCSOrders.Checked[idx] := CheckedStatus;
1696             SigItemsCS.EnableSettings(idx, clstCSOrders.checked[Idx]);
1697          end;
1698       end;
1699  end;