Source position: fplazreport.pp line 29
type TFontSubstitutionEvent = procedure(
Sender: TOBject;
const aFontName: string;
const aBold: Boolean;
const aItalic: Boolean;
var aFont: TFPFontCacheItem
) of object;