Iskreno, mrzelo me je da isprobavam sa QReportom ali sa obicnom formom radi :

procedure TForm1.Crtaj(ACanvas: TCanvas; X, Y, Ugao: integer; Text: string);
var
LogFont: TLogFont;
OFont, NFont: HFONT;
begin
GetObject(ACanvas.Font.Handle, SizeOf(LogFont), @LogFont);
LogFont.lfEscapement:= Ugao * 10;
NFont := CreateFontIndirect(LogFont);
OFont := SelectObject(ACanvas.Handle, NFont);
ACanvas.TextOut(X, Y, Text);
NFont := SelectObject(ACanvas.Handle, OFont);
DeleteObject(NFont);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.Font.Name := 'Tahoma';
Image1.Canvas.Font.Size := 14;
Crtaj(Image1.Canvas, 150, 140, 45, 'Proba');
end;

Javi sta si uradio.

[Ovu poruku je menjao overflow dana 07-03-2001 u 04:40 PM GMT]