TdxTreeList怎样在程序中实现自动列宽

其实是自己判断了列宽自己调整的
没有直接属性
procedure TForm1.dxTreeList1CustomDrawCell(Sender: TObject;
  ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
  AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
  var AText: String; var AColor: TColor; AFont: TFont;
  var AAlignment: TAlignment; var ADone: Boolean);
begin
  if AColumn.Width <     (ACanvas.TextWidth(AText)+15)      then
    AColumn.Width :=   ACanvas.TextWidth(AText)+15;

end;
15 就是冗余宽度，自己调整个