tstockobjects.paintglyph

public procedure tstockobjects.paintglyph(

  const canvas: tcanvas;

  const glyph: stockglyphty;

  const rect: rectty;

  const grayed: Boolean = False;

  const color: colorty = cl_glyph;

  aalignment: alignmentsty = [al_ycentered, al_xcentered]

);