Citat:
dekys je napisao:
Postoji li nacin da se u QReport rotira neki text?
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]
Sve sto je besmislenije, utoliko je bolje.