diff --git a/source/childwin.dfm b/source/childwin.dfm
index 0aba1c69..87a126ee 100644
--- a/source/childwin.dfm
+++ b/source/childwin.dfm
@@ -74,6 +74,7 @@ object MDIChild: TMDIChild
       TreeOptions.PaintOptions = [toHotTrack, toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
       TreeOptions.SelectionOptions = [toRightClickSelect]
       OnChange = DBtreeChange
+      OnClick = DBtreeClick
       OnDblClick = DBtreeDblClick
       OnGetText = DBtreeGetText
       OnPaintText = DBtreePaintText
diff --git a/source/childwin.pas b/source/childwin.pas
index dfad0e69..fa232cf2 100644
--- a/source/childwin.pas
+++ b/source/childwin.pas
@@ -446,6 +446,7 @@ type
       CellRect: TRect);
     procedure menuShowSizeColumnClick(Sender: TObject);
     procedure DataGridColumnResize(Sender: TVTHeader; Column: TColumnIndex);
+    procedure DBtreeClick(Sender: TObject);
 
     private
       uptime                     : Integer;
@@ -6367,4 +6368,13 @@ begin
   PrevTableColWidths.Values[col.Text] := inttostr(col.Width);
 end;
 
+
+procedure TMDIChild.DBtreeClick(Sender: TObject);
+begin
+  // Auto resize "Size" column in dbtree when needed
+  if coVisible in DBTree.Header.Columns[1].Options then
+    DBTree.Header.AutoFitColumns(False, smaUseColumnOption, 1, 1);
+end;
+
+
 end.