Source position: ggi.pp line 580
function ggiGetGCForeground(
vis: TGGIVisual;
var Color: TGGIPixel
):Integer;