Procedure

updateAllChilds

Module

fReview

Last Modified

7/15/2014 3:26:38 PM

Scope

Local

Local subprogram to

lstCSReviewClickCheck

Declaration

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

Calls Hierarchy


updateAllChilds
 └TSigItems.EnableSettings
   └TSigItems.TagToItem

Called-By Hierarchy


                   updateAllChilds
TfrmReview.lstCSReviewClickCheck┘ 

Calls

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

Called-By

Name Declaration Comments
TfrmReview.lstCSReviewClickCheck procedure lstCSReviewClickCheck(Sender: TObject); -


Source

2290  procedure updateAllChilds(CheckedStatus: boolean; ParentOrderId: string);
2291  var
2292    idx: integer;
2293    AChangeItem: TChangeItem;
2294  begin
2295    for idx := 0 to lstCSReview.Items.Count - 1 do
2296    begin
2297      AChangeItem := TChangeItem(lstCSReview.Items.Objects[idx]);
2298      if Assigned(AChangeItem) and (AChangeItem.ParentID = ParentOrderId) then
2299          if lstCSReview.Checked[idx] <> CheckedStatus then
2300          begin
2301            lstCSReview.Checked[idx] := CheckedStatus;
2302            SigItemsCS.EnableSettings(idx, lstCSReview.checked[Idx]);
2303          end;
2304    end;
2305  end;