A type for events happened to a toolbar button.
Unit SRVToolBar.
type
TSRVClickButtonEvent = procedure(Sender: TObject; ToolButton: TSRVToolButton) of object;
ScaleRichView © Ilya Zelensky & Sergey Tkachenko