Source position: ggi.pp line 632
function ggiPutVLine(
vis: TGGIVisual;
x: Integer;
y: Integer;
h: Integer;
var buf
):Integer;