[kasimka]

Есть такой класс:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

TCustomTreeView = class(TTreeView)  private    FCheckBox: Boolean;    FAutoCheck: Boolean;    procedure SetCheckBox(const Value: Boolean);  public    function GetChecked(Node: TTreeNode): Boolean;    procedure SetChecked(Node: TTreeNode; Checked: Boolean);  published    property CheckBox: Boolean read FCheckBox write SetCheckBox default False;    property AutoCheck: Boolean read FAutoCheck write FAutoCheck default False;  end;   Методы:   const  TVIS_CHECKED = $2000;   function TCustomTreeView.GetChecked(Node: TTreeNode): Boolean; var  Item :TTVItem; begin  Item.Mask  := TVIF_STATE;  Item.hItem := Node.ItemId;  TreeView_GetItem(Node.TreeView.Handle, Item);  Result := (Item.State and TVIS_CHECKED) = TVIS_CHECKED; end;   procedure TCustomTreeView.SetCheckBox(const Value: Boolean); var  FStyle: Integer; begin  FCheckBox := Value;  FStyle := GetWindowLong(Handle, GWL_STYLE);  if FCheckBox then    FStyle := FStyle or TVS_CHECKBOXES  else    if (FStyle and TVS_CHECKBOXES) = TVS_CHECKBOXES then      FStyle := FStyle and not TVS_CHECKBOXES;  SetWindowLong(Handle, GWL_STYLE, FStyle);  Repaint; end;   procedure TCustomTreeView.SetChecked(Node: TTreeNode; Checked: Boolean); var  Item :TTVItem; begin  FillChar(Item, SizeOf(TTVItem), 0);  with Item do  begin    hItem     := Node.ItemId;    Mask      := TVIF_STATE;    StateMask := TVIS_STATEIMAGEMASK;    if Checked then      Item.State :=TVIS_CHECKED    else      Item.State :=TVIS_CHECKED shr 1;    TreeView_SetItem(Node.TreeView.Handle, Item);  end; end;

Как сделать так, чтобы при AutoCheck=True галочки выставлялись во всех дочерних чекбоксах?