Einzelnen Beitrag anzeigen

DelphiNub

Registriert seit: 20. Nov 2006
11 Beiträge
 
#513

Re: Andorra 2D [Ver. 0.35, 04.03.08]

  Alt 11. Mär 2008, 11:33
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,[]);
  Mit Zitat antworten Zitat