Procedure

updateAllChilds

Module

fOrdersSign

Last Modified

7/15/2014 3:26:42 PM

Scope

Local

Local subprogram to

clstOrdersClickCheck

Declaration

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

Calls Hierarchy


updateAllChilds
 └TSigItems.EnableSettings
   └TSigItems.TagToItem

Called-By Hierarchy


                      updateAllChilds
TfrmSignOrders.clstOrdersClickCheck┘ 

Calls

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

Called-By

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


Source

1099  procedure updateAllChilds(CheckedStatus: boolean; ParentOrderId: string);
1100  var
1101    idx: integer;
1102  begin
1103    for idx := 0 to clstOrders.Items.Count - 1 do
1104       if TOrder(clstOrders.Items.Objects[idx]).ParentID = ParentOrderId then
1105       begin
1106          if clstOrders.Checked[idx] <> CheckedStatus then
1107          begin
1108             clstOrders.Checked[idx] := CheckedStatus;
1109             SigItems.EnableSettings(idx, clstOrders.checked[Idx]);
1110          end;
1111       end;
1112  end;