Source position: graphics.pp line 414
type TMappedColor = clActiveHighlightedText..clNormalForeground;