You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

59 lines
2.4 KiB

  1. unit utsFontCreator;
  2. {$IFDEF FPC}
  3. {$mode objfpc}{$H+}
  4. {$ENDIF}
  5. interface
  6. uses
  7. Classes, SysUtils,
  8. utsUtils, utsContext, utsTypes, utsFont;
  9. type
  10. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  11. TtsFontCreator = class(TtsRefManager)
  12. private
  13. fContext: TtsContext;
  14. public
  15. property Context: TtsContext read fContext;
  16. function GetFontByName(const aFontname: String; const aSize: Integer; const aStyle: TtsFontStyles; const aAntiAliasing: TtsAntiAliasing): TtsFont; overload; virtual;
  17. function GetFontByFile(const aFilename: String; const aSize: Integer; const aStyle: TtsFontStyles; const aAntiAliasing: TtsAntiAliasing): TtsFont; overload; virtual;
  18. function GetFontByStream(const aStream: TStream; const aSize: Integer; const aStyle: TtsFontStyles; const aAntiAliasing: TtsAntiAliasing): TtsFont; overload; virtual;
  19. constructor Create(const aContext: TtsContext);
  20. end;
  21. implementation
  22. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  23. //TtsFontCreator////////////////////////////////////////////////////////////////////////////////////////////////////////
  24. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  25. function TtsFontCreator.GetFontByName(const aFontname: String; const aSize: Integer; const aStyle: TtsFontStyles; const aAntiAliasing: TtsAntiAliasing): TtsFont;
  26. begin
  27. result := nil;
  28. end;
  29. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  30. function TtsFontCreator.GetFontByFile(const aFilename: String; const aSize: Integer; const aStyle: TtsFontStyles; const aAntiAliasing: TtsAntiAliasing): TtsFont;
  31. begin
  32. result := nil;
  33. end;
  34. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  35. function TtsFontCreator.GetFontByStream(const aStream: TStream; const aSize: Integer; const aStyle: TtsFontStyles; const aAntiAliasing: TtsAntiAliasing): TtsFont;
  36. begin
  37. result := nil;
  38. end;
  39. ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
  40. constructor TtsFontCreator.Create(const aContext: TtsContext);
  41. begin
  42. inherited Create(aContext);
  43. fContext := aContext;
  44. end;
  45. end.