paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Carbon: fixed range check error when setting column width in TListView. Patch by C Western. issue #27581

Browse Source 
git-svn-id: trunk@48093 -
This commit is contained in:
zeljko 2015-03-02 12:39:23 +00:00
parent aa72b32e77
commit 12d74d7a9b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/carbon/carbonlistviews.pp
View File

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