Commit 9589dcbc authored by Željan Rikalo's avatar Željan Rikalo 🏊🏼
Browse files

Carbon: fixed result of TWSCarbonCustomListView GetTopItem,GetViewOrigin and...

Carbon: fixed result of TWSCarbonCustomListView GetTopItem,GetViewOrigin and GetBoundingRect. issue #21733

git-svn-id: trunk@36762 -
parent 5b350609
......@@ -665,6 +665,7 @@ end;
class function TCarbonWSCustomListView.GetBoundingRect(const ALV: TCustomListView): TRect;
begin
Result := Rect(0, 0, 0, 0);
if not CheckHandle(ALV, Self, 'GetBoundingRect') then Exit;
Result := TCarbonListView(ALV.Handle).GetItemsRect;
......@@ -697,7 +698,7 @@ end;
class function TCarbonWSCustomListView.GetTopItem(const ALV: TCustomListView): Integer;
begin
Result := 0;
Result := -1;
if not CheckHandle(ALV, Self, 'GetTopItem') then Exit;
Result := TCarbonListView(ALV.Handle).GetTopItem;
......@@ -705,6 +706,7 @@ end;
class function TCarbonWSCustomListView.GetViewOrigin(const ALV: TCustomListView): TPoint;
begin
Result := Point(0, 0);
if not CheckHandle(ALV, Self, 'GetViewOrigin') then Exit;
Result := TCarbonListView(ALV.Handle).GetViewOrigin;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment