Mega Code Archive
Quickreport da açlı label kullanımı
<![CDATA[
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::...)
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;
]]>