fclimgtest.lpr(71,26) Error: Incompatible types: got "TTrueTypeFont" expected "TFPCustomFontClass"
Nun habe ich meine Fontvarable vom Typ TCustomFontClass definiert in der Hoffnung dass dies typverträglich ist tum Naxhfolgetyp, wie das bei sonstigen Klassentypen der Fall ist, aber offensichtlich nicht bei class of...
Wie leite ich die Klasse richtig ab? Meine KLassendefinition sieht so aus:
Code: Alles auswählen
TTrueTypeFont = class(TFPCustomDrawFont)
private
thefont: ttfFont;
function GetHeight: Integer;
public
procedure DoDrawText (x,y:integer; text:string); override;
procedure DoGetTextSize (text:string; var w,h:integer); override;
function DoGetTextHeight (text:string) : integer; override;
function DoGetTextWidth (text:string) : integer; override;
constructor Create(FontfileName: String; ASize: Integer);
procedure DrawText(x,y: Integer; Text: String);
procedure PrintText(x,y: Integer; Text: String);
destructor Destroy; override;
procedure GetTextSize (text:string; var w,h:integer);
function GetTextHeight (text:string) : integer;
function GetTextWidth (text:string) : integer;
property Height: Integer read GetHeight;
end;
Wie mache ich diese Klassenableitung richtig? Ich beziehe mich auf die Font Klasse in der Unit FPCanvas aus dem FCLImage Paket.