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