Pascal eXtended Library (aka Asphyre) released!

[devchenxip]

Report a bug: TBitmapFonts.Font[fontname] return a nil value, change TBitmapFonts.insert(...) 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;