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

lcl: carbon: fixed crash on draw item

Browse Source 
git-svn-id: trunk@41335 -
This commit is contained in:
mattias 2013-05-20 20:57:26 +00:00
parent b823ce32cf
commit c8408ddee7
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

@ -1971,6 +1971,8 @@ procedure TCarbonListBox.DrawItem(AIndex: Integer; AState: DataBrowserItemState)
var var
DrawStruct: TDrawListItemStruct; DrawStruct: TDrawListItemStruct;
begin begin
if AIndex >= TCustomListBox(LCLObject).Items.Count then exit;
DrawStruct.Area := GetItemRect(AIndex); DrawStruct.Area := GetItemRect(AIndex);
DrawStruct.DC := HDC(Context); DrawStruct.DC := HDC(Context);
DrawStruct.ItemID := AIndex; DrawStruct.ItemID := AIndex;