Source position: atshapelinebgra.pas line 30
type TShapeLineDirection = (
drLeftRight,
drUpDown,
drTopLeftBottomRight,
drTopRightBottomLeft
);