Procedure

updateAllChilds

Module

fReview

Last Modified

7/15/2014 3:26:38 PM

Scope

Local

Local subprogram to

lstReviewClickCheck

Declaration

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

Calls Hierarchy


updateAllChilds
 └TSigItems.EnableSettings
   └TSigItems.TagToItem

Called-By Hierarchy


                 updateAllChilds
TfrmReview.lstReviewClickCheck┘ 

Calls

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

Called-By

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


Source

925   procedure updateAllChilds(CheckedStatus: boolean; ParentOrderId: string);
926   var
927     idx: integer;
928     AChangeItem: TChangeItem;
929   begin
930     for idx := 0 to lstReview.Items.Count - 1 do
931     begin
932       AChangeItem := TChangeItem(lstReview.Items.Objects[idx]);
933       if Assigned(AChangeItem) and (AChangeItem.ParentID = ParentOrderId) then
934           if lstReview.Checked[idx] <> CheckedStatus then
935           begin
936             lstReview.Checked[idx] := CheckedStatus;
937             SigItems.EnableSettings(idx, lstReview.checked[Idx]);
938           end;
939     end;
940   end;