[Lazarus] Is the TTabControl.OnDrawTab working on Windows?

[silvioprog]

Hello,

Just try the following steps:

. Open Lazarus IDE with its empty Form1;
. Put a TabControl1 in the Form1 and add one or more tabs;
. Implement the OnDrawTab event with this code:

  procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
    TabIndex: Integer; const Rect: TRect; AActive: Boolean);
  begin
    ShowMessage('OK');
  end;

. Compile and run the project.

You can't see any message.

Now set True in the TabControl1.OwnerDraw and try the tests above again,
you can't see any message btw.

So, is the OnDrawTab event working on Windows?

PS. I did this same test on GTK and I found same problem there too.

-- 
Silvio Clécio
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20160129/83f2b972/attachment-0002.html>