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+
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
hehe tirei de lugar nehum naum by eu eu vc ja descobriu quem sou eu =D t+ vlw por comentar
tinha q ser tu =D
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