Source position: agraphics.pas line 1989
function SetFont(
Rp: PRastPort;
TextFont: PTextFont
):LongInt;