diff --git a/lcl/interfaces/carbon/carbonlistviews.pp b/lcl/interfaces/carbon/carbonlistviews.pp
index 9578e0f10e..54e66f1792 100644
--- a/lcl/interfaces/carbon/carbonlistviews.pp
+++ b/lcl/interfaces/carbon/carbonlistviews.pp
@@ -428,6 +428,8 @@ end;
 
 procedure TCarbonListColumn.SetHeaderWidth(AWidth: Integer);
 begin
+  if AWidth < 0 then
+    AWidth := 0;
   OSError(SetDataBrowserTableViewNamedColumnWidth(FOwner.Widget, PropertyID, AWidth),
     Self, 'SetHeaderWidth', 'SetDataBrowserTableViewNamedColumnWidth');