From 12d74d7a9b4f302bc8eb6048779131296d6a11c3 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Mon, 2 Mar 2015 12:39:23 +0000
Subject: [PATCH] Carbon: fixed range check error when setting column width in
 TListView. Patch by C Western. issue #27581

git-svn-id: trunk@48093 -
---
 lcl/interfaces/carbon/carbonlistviews.pp | 2 ++
 1 file changed, 2 insertions(+)

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');