Source position: treegrids.pas line 1000
type TScrollDirections = set of (
sdLeft,
sdUp,
sdRight,
sdDown
);