Moinsen
Erstmal großes Lob an Andreas für seine 2d Engine
Aber.. ich hab da ma n Problemchen:
Ich hab mir eine funktion geschrieben um text mittig auszugeben:
Delphi-Quellcode:
procedure TextOutCentered( AdDraw: TAdDraw; s: string; x, y: integer );
var
w, h: integer;
begin
with AdDraw.Canvas do begin
w:= Font.TextWidth( s );
h:= Font.TextHeight( s );
TextOut( x - (w div 2), y - (h div 2), s );
end;
end;
Nun habe ich das Problem, das TextWidth und TextHeight 0 zurückgeben
Ich benutze Version 0.35 und benutzt werden:
Delphi-Quellcode:
AdDraw.Fonts.GenerateFont('Verdana',50,[afBold]);
AdDraw.Fonts.GenerateFont('Arial',24,[]);