[es] - QRLabel rotacija???

dekys
Dejan Stevanovic

Član broj: 464
Poruke: 76
*.rcub.bg.ac.yu

Sajt: www.illusion.rs

Profil

^{28.06.2001. u 12:57}

Postoji li nacin da se u QReport rotira neki text?

digital ILLUSION - Krusevac

^{28.06.2001. u 12:57}

overflow
Goran Milosavljević
Beograd

Član broj: 396
Poruke: 345
*.verat.net

ICQ: 106825659
Sajt: www.paradise.co.yu

Profil

Re: QRLabel rotacija???

^{03.07.2001. u 16:35}

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.
prof Jaukovic [FON] : "Kolega, jeste l' nesto rekli ili samo pricate ?"

^{03.07.2001. u 16:35}