GitLab

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)