<div dir="ltr">Hello,<div><br></div><div>Just try the following steps:</div><div><br></div><div>. Open Lazarus IDE with its empty Form1;</div><div>. Put a TabControl1 in the Form1 and add one or more tabs;</div><div>. Implement the OnDrawTab event with this code:</div><div><br></div><div><div>  procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;</div><div>    TabIndex: Integer; const Rect: TRect; AActive: Boolean);</div><div>  begin</div><div>    ShowMessage('OK');</div><div>  end;</div></div><div><br></div><div>. Compile and run the project.</div><div><br></div><div>You can't see any message.</div><div><br></div><div>Now set True in the TabControl1.OwnerDraw and try the tests above again, you can't see any message btw.</div><div><br></div><div>So, is the OnDrawTab event working on Windows?</div><div><br></div><div>PS. I did this same test on GTK and I found same problem there too.</div><div><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div>Silvio Clécio</div></div></div>
</div></div>