Source position: treegrids.pas line 2104
type TTGBeforeDrawLineImageEvent = procedure(
Sender: TBaseTreeGrid;
Node: PTreeGridNode;
Level: Integer;
var PosX: Integer
) of object;