简单报表问题,顺便放分......

Question

在Quick Report中打印 怎么旋转的Label的字体,很像它自带的TQRLabel不行!

Answer 1

有没有这样的控件呢,可以用在QReport上?

Answer 2

FastReport报表控件可以字体旋转，不过只能水平和垂直！

Answer 3

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;