TTGGetImageExEvent

type TTGGetImageExEvent = procedure(

  Sender: TBaseTreeGrid;

  Node: PTreeGridNode;

  Kind: TTGImageKind;

  Column: TColumnIndex;

  var Ghosted: Boolean;

  var ImageIndex: Integer;

  var ImageList: TCustomImageList

) of object;