Wrong variable set in TCarbonTabsControl.SetPageIndex
Original Reporter info from Mantis: djenkins @dfjenkins
-
Reporter name: David Jenkins
Original Reporter info from Mantis: djenkins @dfjenkins
- Reporter name: David Jenkins
Description:
This looks like a bug in TCarbonTabsControl (the setting ATabIndex := -1).
if (ATabIndex < 0) or (ATabIndex >= FTabs.Count) then
begin
// this PageIndex does not exist. This should only happen if AIndex<0
{if AIndex>=0 then
begin
Debugln(['TCarbonTabsControl.SetPageIndex unknown pageindex: ',AIndex]);
end;}
ATabIndex := -1;
SetControl32BitValue(ControlRef(Widget), 0);
ShowTab;
Exit;
end;
FTabIndex := ATabIndex;
I don't see any need to set ATabIndex but setting FTabIndex does make sense as it will clear the pages.
Patch against rev 36681 attached
Mantis conversion info:
- Mantis ID: 21728
- Fixed in revision: 36958 (#8c6daf0f)
- Monitored by: » @dfjenkins (David Jenkins)