TAdvSmoothTabPager - OnDrawTab event is not used

VCL TMS VCL UI Pack
1

In TAdvSmoothTabPager the OnDrawTab event that is not triggered/called anywhere.
I need this event or an alternative method to get a specific tab TRect.

Now using a type clone to access the protected function GetTabRect in it's OnResize event.

procedure TMyForm.pagerMainResize(Sender: TObject);
var
  LTabRect : TRect;
begin
  LTabRect := TAdvSmoothTabPagerCracker(pagerMain).GetTabRect(2);
  ...
  ...
end;

Thanks.

2

Thanks for notifying.
We've fixed this issue with overlooked OnDrawTab() event. In the next update this will be triggered and this event passes the rectangle of the tab.