Source position: comctrls.pp line 2119
type TToolBarOnPaintButton = procedure(
Sender: TToolButton;
State: Integer
) of object;