Escribir texto en un canvas en la orientacion que quieras

Por Saiyine  el 0000-00-00 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 475

procedure TextOutAngle(x,y,aAngle,aSize: integer; fuente,txt: string; C : TCanvas);
var hFont, Fontold: integer;
DC: hdc;
Fontname: string;
begin
        if length(txt)= 0 then
        EXIT;
        DC:= c.handle;
        SetBkMode(DC, transparent);
        hFont:= CreateFont(-aSize,0, aAngle*10,0, fw_bold,0, 0,
        0,1,4,\$10,2,4,PChar(fuente));
        Fontold:= SelectObject(DC, hFont);
        TextOut(DC,x,y,PChar(txt), length(txt));
        SelectObject(DC, Fontold);
        DeleteObject(hFont);
end;

1493 

Anonimo (2007-09-19 10:40:44) uy uy uy, que kosa más rara.