Source position: treegrids.pas line 2112
type TTGScrollBarShowEvent = procedure(
Sender: TBaseTreeGrid;
Bar: Integer;
Show: Boolean
) of object;