type
TMycxTreeListController = class(TcxTreeListController)
  function DoNodeMouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer): Boolean;override;
end;

TMycxTreeListNode = class(TcxUnboundTreeListNode)
  procedure SetCheckState(AValue: TcxCheckBoxState);
  procedure CheckClick;
end;

TcxTreeList = class(cxTL.TcxTreeList)
  function GetControllerClass: TcxCustomControlControllerClass;override;
  function CreateNode: TcxTreeListNode; override;
end;

  TForm1 = class(TForm)
    cxTreeList1: TcxTreeList;
    cxTreeList1Column1: TcxTreeListColumn;
    cxTreeList1Column2: TcxTreeListColumn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// скопировано с cxTL
procedure TMycxTreeListNode.SetCheckState(AValue: TcxCheckBoxState);
var
  ACheckedCount: Integer;
  APrevCheckState: TcxCheckBoxState;
const
  AState: array[TcxCheckBoxState] of TcxTreeListNodeCheckInfos =
    ([], [nciChecked], [nciGrayed]);
  AParentCheckState: array[Boolean] of TcxCheckBoxState = (cbsGrayed, cbsChecked);
begin
  APrevCheckState := CheckState;
  CheckInfo := CheckInfo - [nciChecked, nciGrayed] + AState[AValue] + [nciChangeCheck];
  try
(*  код который проставляет галки вверх и вниз по узлам
   if (CheckState in [cbsChecked, cbsUnchecked]) and HasChildren then
    begin
      LoadChildren;
      if not IsRadioGroup or (CheckState = cbsUnchecked) or (CheckedCount = 0) then
        SetChildrenCheckState(CheckState, nil);
    end;
    if (Parent <> nil){ and (Parent.CheckGroupType <> ncgNone)} then
    begin
      if Parent.IsRadioGroup and Checked then
        Parent.SetChildrenCheckState(cbsUnchecked, Self);
      if not (nciChangeCheck in Parent.CheckInfo) then
      begin
        ACheckedCount := Parent.CheckedCount;
        if (ACheckedCount = 0) and (Parent.GrayedCount = 0) then
          Parent.CheckState := cbsUnchecked
        else
          Parent.CheckState := AParentCheckState[(ACheckedCount = Parent.Count) or
            ((ACheckedCount > 0) and Parent.IsRadioGroup)];
      end;
    end;  *)
  finally
    CheckInfo := CheckInfo - [nciChangeCheck];
    if (Parent <> nil) and (Parent.CheckGroupType <> ncgNone) then
      Repaint(True);
    if APrevCheckState <> CheckState then
//      TreeList.DoNodeCheckChanged(Self, CheckState);
// дописано
      TcxTreeList(TreeList).DoNodeCheckChanged(Self, CheckState);
  end;
end;

// скопировано с cxTL
procedure TMycxTreeListNode.CheckClick;
const
  ANewState: array[Boolean, TcxCheckBoxState] of TcxCheckBoxState =
  ((cbsChecked, cbsUnchecked, cbsChecked), (cbsChecked, cbsGrayed, cbsUnchecked));
begin
  if not Enabled or not HasCheckbox or
    ((Parent.CheckGroupType = ncgRadioGroup) and Checked) then Exit;
//  CheckState := ANewState[AllowGrayed, CheckState];
// дописано
  SetCheckState(ANewState[AllowGrayed, CheckState]);
end;


{ TcxTreeList }

function TcxTreeList.CreateNode: TcxTreeListNode;
begin
  Result := TMycxTreeListNode.Create(Self);
end;

function TcxTreeList.GetControllerClass: TcxCustomControlControllerClass;
begin
  Result := TMycxTreeListController;
end;


{ TMycxTreeListController }

// скопировано с cxTL
function TMycxTreeListController.DoNodeMouseDown(
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer): Boolean;
begin
  Result := False;
  if CanDrag(X, Y) and HitTest.HitAtNode and IsEditing then
    TreeList.DragAndDropState := ddsNone;
  if not (ssDouble in Shift) and (Button <> mbMiddle) and HitTest.HitAtNode then
    CheckNodeContentClick(Shift);
  if HitTest.HitAtCheckButton and (Button = mbLeft) then
    TMycxTreeListNode(HitTest.HitNode).CheckClick
  else
    if HitTest.HitAtButton and (Button = mbLeft) then
    begin
      HitTest.HitNode.Expanded := not HitTest.HitNode.Expanded;
      Result := True;
    end;
  HitTest.ReCalculate;
end;