Hallo,
ich habe an mein Font-Interface ist jetzt so weit eigentlich fertig (Nein, ich habe es noch nicht hoch geladen). Um einen Text auszugeben, ist jetzt eigentlich nur folgender Code notwendig:
Delphi-Quellcode:
with AdDraw.Fonts.GenerateFont('Verdana',36,[]) do
begin
with TypeSetter as TAdSimpleTypeSetter do
begin
//Den Text zentriert ausgeben
DrawMode := [dtCenter, dtMiddle];
end;
Color := Ad_ARGB(128,0,0,255);
TextOut(AdRect(0,0,ClientWidth,ClientHeight),s);
end;
Die Klasse "TAdFontFactory" (hier das "Fonts" Objekt), kümmert sich automatisch darum, das der Font nicht ständig neu generiert wird, sonder ein bestehender Font verwendet wird.
Ich hoffe, das ist so einfach genug
