Source position: graphics.pp line 358
const clActiveForeground = TColor ( clForeground - cloActive );