el 0000-00-00 00:00:00 - Secciones: - Enlace permanente: 475procedure 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;
Saiyine recommends the easiest way to earn money with your web: get paid just by having some links! Click this button to check it out.

Se suspenden las traducciones de la wikipedia hasta que no se aclaren las condiciones de su adquisición práctica por parte de google.