Jo ich habe dort schon mal geschaut, aber wie Du selbst dort in Deinem letzten post schreibst, hast du den Source rausgenommen. Also nix zum schauen...
BTW: Ich habe die Veröffentlichung nicht in public stehen, sondern in published, da es anders nicht ging! Ansonsten ist es nun ok mit dem Font zumindest.
BTW2: Nun bräuchte ich nur noch etwas Unterstützung mit dem "Layout", da da die Vertikale Ausrichtung nicht funktioniert. Dies wird derzeit so gemacht. Horizontal läuft es, Vertikal nicht. Zeilenumbruch geht auch.
Delphi-Quellcode:
case TextAlign of
taCenter : myAlignment := DT_CENTER;
taLeftJustify : myAlignment := DT_LEFT;
taRightJustify : myAlignment := DT_RIGHT;
end; //funzt
case Layout of
tlTop : myAlignment := myAlignment or DT_TOP;
tlCenter : myAlignment := myAlignment or DT_VCENTER;
tlBottom : myAlignment := myAlignment or DT_BOTTOM;
end; //funzt nicht
IF FTextWordwrap then myAlignment := MyAlignment or DT_WORDBREAK; //funzt auch
DrawText(self.Canvas.Handle, PChar(FText), -1, TextRect, myAlignment);
TextAlign, Layout und FTextWordwrap sind inhaltlich korrekt belegt. Leider werden aber die Angaben von Layout nicht berücksichtigt.