TGLBitmapFontRanges

type TGLBitmapFontRanges = class(TCollection)

protected

  FOwner: TComponent;

  function GetOwner; override;

  procedure SetItems();

  function GetItems();

  function CalcCharacterCount;

  procedure Update(); override;

public

  constructor Create();

  destructor Destroy; override;

  function Add();

  function FindItemID();

  property Items []: TGLBitmapFontRange; default; [rw]

  function CharacterToTileIndex();

  function TileIndexToChar();

  procedure NotifyChange;

  property CharacterCount: Integer; [r]

end;

TGLBitmapFontRanges

TObject