Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

QRLabel rotacija???

[es] :: Pascal / Delphi / Kylix :: QRLabel rotacija???

[ Pregleda: 3216 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dekys
Dejan Stevanović

Član broj: 464
Poruke: 104



+1 Profil

icon QRLabel rotacija???28.06.2001. u 12:57 - pre 262 meseci
Postoji li nacin da se u QReport rotira neki text?
 
Odgovor na temu

overflow
Goran Milosavljević
Integration & Internet Senior
Engineer @ Telenor
Beograd

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

ICQ: 106825659
Sajt: localhost


Profil

icon Re: QRLabel rotacija???03.07.2001. u 16:35 - pre 262 meseci
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.
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: QRLabel rotacija???

[ Pregleda: 3216 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.