[Tutorial]Texto rotativo

[Anonymous]

procedure AngleTextOut(CV: TCanvas; const sText: String; x, y, angle:integer);
var
LogFont: TLogFont;
SaveFont: TFont;
begin
SaveFont := TFont.Create;
SaveFont.Assign(CV.Font);
GetObject(SaveFont.Handle, sizeof(TLogFont), @LogFont);
with LogFont do
begin
lfEscapement := angle *10;
lfPitchAndFamily := FIXED_PITCH or FF_DONTCARE;
end; {with}
CV.Font.Handle := CreateFontIndirect(LogFont);
SetBkMode(CV.Handle, TRANSPARENT);
CV.TextOut(x, y, sText);
CV.Font.Assign(SaveFont);
SaveFont.Free;
end;

não testei e não fui  eu que fis postei pq achei legal achei em uma pagina na net t+

[Hacker Xtreme]

cara sempre que vc postar um texto ou algo do tipo poste da onde tirou por favor =)..
to gostando de ver, vc entrou a pouco tempo e já ta postando de tudo Oo

[Anonymous]

hehe tirei de lugar nehum naum by eu eu vc ja descobriu quem sou eu =D t+ vlw por comentar

[Hacker Xtreme]

tinha q ser tu =D

[Anonymous]

hehe fale ae tu se empressionou ne pensou que era um cara mais ou menus =D ae gente desupa o flood e que num to aguentandu e se tiver duvidas comenteme  vlww extreme por comentar