The TTabControl.OnDrawTab event doesn't work
Original Reporter info from Mantis: silvioprog
-
Reporter name: silvioprog
Original Reporter info from Mantis: silvioprog
- Reporter name: silvioprog
Description:
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.
Additional information:
Topic: http://lists.lazarus.freepascal.org/pipermail/lazarus/2016-January/097029.html
Mantis conversion info:
- Mantis ID: 29543
- Fixed in revision: 51493 (#7301b0ab)