Meine Uses KLausel sieht so aus:
Code: Alles auswählen
{$R-,S-,I-}
{$define TKSFont}
{$define TTrueTypeFont}
{$define new_style}
unit gFonts;
interface
[b]uses[/b]
{$ifdef TTrueTypeFont}
FreeType, TTTypes,
{$endif}
// Objects,
{$ifdef new_style}
classes, sysutils, fpcnvs; //wegen Canvas
{$else}
gDrivers; //wegen Canvas
{$endif}
Code: Alles auswählen
constructor TTrueTypeFont.Create(const FName: string);
begin
inherited Create;
if OpenTTF = 0 then TT_Init_FreeType;
Inc(OpenTTF);
if TT_Open_Face(FName, Face)<>0 then
begin
Status := TT_Err_Invalid_Face_Handle;
Exit;
end;
TT_New_Glyph(Face, Glyph);
TT_New_Instance(Face, Instance);
TT_Set_Instance_Resolutions(Instance, 96,96);
SetSize(8);
end;