qreport için AÇILI yazabilen bi label bileşeni var mı?

[kefukar]

S.A.
Forumda aradım, burada bahsi geçenler işimizi görmüyor. Delphi 7 - Qreport için şöyle bir label lazım..sadece Dikey değil açılı yazdırmak istiyoruz. Sadece bileşen ismi istiyorum. Mümkünse ve varsa... Teşekkürler...

[sadettinpolat]

http://www.qusoft.com/getfile.asp?level ... ANGLBL.ZIP

TQRAngledLabel component for writing rotated text. Freeware with source by Francisco Maia Goncalves Neto

http://www.qusoft.com/Download3.html

[kefukar]

Forumda bu bileşenin ismi verilmişti ancak site açılmıyor o nedenle bir sonuç alamadık. Yani download linki çalışmıyor...

[sadettinpolat]

http://www.torry.net/pages.php?id=187 burda da var.

http://www.torry.net/vcl/reports/quickr ... anglbl.zip

[kefukar]

@sadettinpolat çok teşekkürler. Bayadır uğraşıyordum sanırım serverları problemli ama en sonunda ilk verdiğiniz linkten indirmeyi başardım.. Allah razı olsun. İyi çalışmalar, Kolay gelsin..

[y_tatar]

QuickReport da Dikey Yazdırmak için aşa ğıda ki komutu kullana bilirsiniz
Yanız fonksiyon QuickReport 4 ve üzeri versiyoınlar da çalışıyor

Fonksiyon direk yazılınca ekranda açılı görünüyor fakat yazıcıdan açılı şekilde çıktı la bilme için
TQuickReport.PrinterSettings.PrintMetaFile özelliğinin Ture Yapıması gerekeiyor


Kolay gelsin.....................
Y_Tatar (..::Yxt::...)

Kod: Tümünü seç

function CreateRotatedFont(Font: TFont; Degrees: Integer): HFONT;
var
  LF : TLogFont;
begin
  FillChar(LF, SizeOf(LF), #0);
  with LF do begin
    lfHeight := Font.Height;
    lfWidth := 0;
    lfEscapement := Degrees*10;
    lfOrientation := 0;
    if fsBold in Font.Style then
      lfWeight := FW_BOLD
    else
      lfWeight := FW_NORMAL;
    lfItalic := Byte(fsItalic in Font.Style);
    lfUnderline := Byte(fsUnderline in Font.Style);
    lfStrikeOut := Byte(fsStrikeOut in Font.Style);
    lfCharSet := DEFAULT_CHARSET;
    StrPCopy(lfFaceName, Font.Name);
    lfQuality := DEFAULT_QUALITY;

    lfOutPrecision := OUT_DEFAULT_PRECIS;
    lfClipPrecision := CLIP_DEFAULT_PRECIS;
    case Font.Pitch of
      fpVariable: lfPitchAndFamily := VARIABLE_PITCH;
      fpFixed: lfPitchAndFamily := FIXED_PITCH;
    else
      lfPitchAndFamily := DEFAULT_PITCH;
    end;
  end;
  Font.Size := 5; //---
  Result := CreateFontIndirect(LF);

end;

////********************** Kullanımı
procedure TF_Not_Durum_Formu.QLabel1Print(sender: TObject;
  var Value: String);
begin
 TQRLabel(Sender).Font.Handle := CreateRotatedFont(TQRDBText(Sender).Font,90);
end; 

Not: Kodları [ code ] [ /code ] tag ları arasında yazarsak daha hoş ve okunaklı oluyor edit by rsimsek

[rsimsek]

Hocam öncelikle hoşgeldiniz Soru sorarak değil de katkıda bulunarak giriş yapmışsınız.