Procedure

TSigItems.EnableSettings

Module

uSignItems

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TSigItems

Declaration

procedure EnableSettings(Index: integer; Checked: boolean);

Calls Hierarchy


TSigItems.EnableSettings
 └TSigItems.TagToItem

Called-By Hierarchy


                 TSigItems.EnableSettings
                        updateAllChilds┤ 
  TfrmSignOrders.clstOrdersClickCheck┘ │ 
    TfrmSignOrders.clstOrdersClickCheck┤ 
                        updateAllChilds┤ 
TfrmSignOrders.clstCSOrdersClickCheck┘ │ 
  TfrmSignOrders.clstCSOrdersClickCheck┤ 
                        updateAllChilds┤ 
       TfrmReview.lstReviewClickCheck┘ │ 
         TfrmReview.lstReviewClickCheck┤ 
                        updateAllChilds┤ 
     TfrmReview.lstCSReviewClickCheck┘ │ 
       TfrmReview.lstCSReviewClickCheck┘ 

Calls

Name Declaration Comments
TSigItems.TagToItem function TagToItem(ATag: integer): TSigItemTagInfo; -

Called-By

Name Declaration Comments
TfrmSignOrders.clstCSOrdersClickCheck procedure clstCSOrdersClickCheck(Sender: TObject); -
TfrmSignOrders.clstOrdersClickCheck procedure clstOrdersClickCheck(Sender: TObject); -
TfrmReview.lstCSReviewClickCheck procedure lstCSReviewClickCheck(Sender: TObject); -
TfrmReview.lstReviewClickCheck procedure lstReviewClickCheck(Sender: TObject); -
updateAllChilds procedure updateAllChilds(CheckedStatus: boolean; ParentOrderId: string); -
updateAllChilds procedure updateAllChilds(CheckedStatus: boolean; ParentOrderId: string); -
updateAllChilds procedure updateAllChilds(CheckedStatus: boolean; ParentOrderId: string); -
updateAllChilds procedure updateAllChilds(CheckedStatus: boolean; ParentOrderId: string); -


Source

960   procedure TSigItems.EnableSettings(Index: integer; Checked: boolean);
961   var
962     cb: TORCheckBox;
963     i: integer;
964     Info: TSigItemTagInfo;
965   
966   begin
967     if Index < 0 then exit;
968     for i := 0 to Fcb.Count-1 do
969     begin
970       if TObject(Fcb[i]) is TORCheckBox then
971       begin
972         cb := TORCheckBox(Fcb[i]);
973         info := TagToItem(cb.Tag);
974         if info.Index = Index then
975           cb.enabled := Checked;
976       end;
977     end;
978     i := FItems.IndexOfPiece(IntToStr(Index), U, 2);
979     if i >= 0 then
980       FItems.SetStrPiece(i, 5, BoolChar[not Checked]);
981   end;