Report a bug: TBitmapFonts.Font[fontname] return a nil value, change TBitmapFonts.insert(...) code:
Code:function TBitmapFonts.Insert(const Font: TBitmapFont): Integer; begin Result := Length(FFonts); SetLength(FFonts, Result + 1); FFonts[Result] := Font; FFonts[Result].StyleTags := FStyleTags; FFonts[Result].Canvas := FCanvas; FSearchListDirty := True; //add this code end;
Bookmarks