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

fix for #13555

Browse Source 
git-svn-id: trunk@19570 -
This commit is contained in:
dmitry 2009-04-22 09:05:39 +00:00
parent 5a271ede8d
commit 01bb1f3c33
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -608,7 +608,7 @@ var
SubIndex: Integer;
begin
Result := noErr;
// DebugLn('CarbonItemDataCallBack ID: ' + DbgS(ID));
DebugLn('CarbonItemDataCallBack ID: ' + DbgS(ID));
ACarbonDataBrowser := TCarbonDataBrowser(GetCarbonControl(AControl));
if ACarbonDataBrowser = nil then Exit;
ALCLDataBrowser := ACarbonDataBrowser.LCLObject;
@ -1077,8 +1077,7 @@ begin
GetClientRect(R);
Result := (Y - R.Top - GetHeaderHeight + P.Y) div GetItemsHeight;
if Result >= GetitemsCount then Result := -1;
if (Result < 0) or (Result >= GetitemsCount) then Result := -1;
end;
function TCarbonDataBrowser.GetItemIcon(AIndex, ASubIndex: Integer): IconRef;