TFreeTypeFont

type TFreeTypeFont = class(TFPCustomDrawFont)

protected

  procedure DrawChar(); virtual;

  procedure DrawCharBW(); virtual;

  procedure SetName(); override;

  procedure SetIndex();

  procedure SetSize(); override;

  function GetFlags(); override;

  procedure SetFlags(); override;

  procedure DoAllocateResources; override;

  procedure DoDeAllocateResources; override;

  procedure DoCopyProps(); override;

  procedure DoDrawText(); override;

  procedure DoGetTextSize(); override;

  function DoGetTextHeight(); override;

  function DoGetTextWidth(); override;

  procedure GetText();

  procedure GetFace;

public

  constructor create; override;

  destructor Destroy; override;

  property FontIndex: Integer; [rw]

  property Resolution: LongWord; [rw]

  property AntiAliased: Boolean; [rw]

  property Angle: real; [rw]

end;

TFreeTypeFont

TObject