TextSuite/utsFontCreator.pas

unit utsFontCreator;

{$IFDEF FPC}
  {$mode objfpc}{$H+}
{$ENDIF}

interface

uses
  Classes, SysUtils,
  utsUtils, utsContext;

type
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  TtsFontCreator = class(TtsRefManager)
  private
    fContext: TtsContext;
  public
    property Context: TtsContext read fContext;

    constructor Create(const aContext: TtsContext);
  end;

implementation

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//TtsFontCreator////////////////////////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
constructor TtsFontCreator.Create(const aContext: TtsContext);
begin
  inherited Create(aContext);
  fContext := aContext;
end;

end.