نوشتن حروف به صورت عمودي در Quick Report

[reza_66]

سلام به همه دوستان.عيدتوووون مبارك.

مي خواستم بدونم نحوه نوشتن حروف بصورت عمودي درگزارشات quick report به چه صورته و تنظيماتي رو كه براي كريستال ريپورت

توضيح دادين دركويك ريپورت از كجا ميتونم بيابم و انجام بدم.

لطفا راهنمايي كنيد.

متشكرم

اميدوارم سال خوب و خوشي داشته باشيد

[یوسف زالی]

سلام.
خیلی وقت می شه که کمتر کسی با کوئیک کار می کنه. دلیل این که کسی هم جوابی نداده می تونه این باشه.
این می تونه کمکتون کنه:
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_23587790.html

[reza_66]

سلام.
خیلی وقت می شه که کمتر کسی با کوئیک کار می کنه. دلیل این که کسی هم جوابی نداده می تونه این باشه.
این می تونه کمکتون کنه:
http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_23587790.html

ممنون بابت اينكه پاسخ داديد

به نظر شما بهترين ابزار گزارش سازي براي دلفي 7 كه جامع باشه و امكاناتش زياد باشه كدومه؟؟؟؟

[یوسف زالی]

من خودم با 7 کار کردم و می کنم، بهترین رو در فست می بینم. fastreport
جامع ترین گزارش ها رو (تقریبا) می ده. با این امکان که به سادگی می تونید توابع و حتی کامپوننت های خودتون رو هم درش اضافه کنید.
چیزی که الان لازم دارید هم در اونجا فقط ست کردن یک پراپرتی هست. همین

[reza_66]

من خودم با 7 کار کردم و می کنم، بهترین رو در فست می بینم. fastreport جامع ترین گزارش ها رو (تقریبا) می ده. با این امکان که به سادگی می تونید توابع و حتی کامپوننت های خودتون رو هم درش اضافه کنید. چیزی که الان لازم دارید هم در اونجا فقط ست کردن یک پراپرتی هست. همین ممنون بابت راهنماييهاتون .فقط اگه ممكنه لينك دانلود فست رو بهم بديد يا اگه خودتون فست رو داريد برام ايميل كنيد ممنون ميشم چون جستجو كه كردم ورژنهاي مختلفي داره نميدونم كدوم بهتره ايميل:hi2_all2005@yahoo.com در مورد كويك هم نتونستم از سايتي كه داديد چيزي در بيارم اگه ممكنه بيشتر راهنمايي كنيد تا فعلا كارم راه بيفته ممنون ميشم تشكر

[یوسف زالی]

procedure TForm1.QRLabel1(sender: TObject; var Value: String);


function CreateRotatedFont(Font: TFont; Degrees: Integer): HFONT;
var
LF : TLogFont;
begin
FillChar(LF, SizeOf(LF), #0);
with LF do
begin
LFWidth := 0;
LFOrientation := 0;
LFHeight := Font.Height;
LFEscapement := Degrees*10;
LFCharSet := DEFAULT_CHARSET;
LFItalic := Byte(fsItalic in Font.Style);
LFUnderline := Byte(fsUnderline in Font.Style);
LFStrikeOut := Byte(fsStrikeOut in Font.Style);
if fsBold in Font.Style then LFWeight := FW_BOLD
else LFWeight := FW_NORMAL;
StrPCopy(LFFaceName, Font.Name);
LFQuality := DEFAULT_QUALITY;
LFOutPrecision := OUT_DEFAULT_PRECIS;
LFClipPrecision := CLIP_DEFAULT_PRECIS;
case Font.Pitch of
fpFixed: lfPitchAndFamily := FIXED_PITCH;
fpVariable: lfPitchAndFamily := VARIABLE_PITCH;
else
LFPitchAndFamily := DEFAULT_PITCH;
end;
end;
Font.Size := 5; //---
Result := CreateFontIndirect(LF);
end;

begin
TQRLabel(Sender).Font.Handle := CreateRotatedFont(TQRLabel(Sender).Font,90); // 90 is the degree of rotation
end;



این هم خوبه:
http://www.quickreport.co.uk/webinfopage.aspx?WebInfoID=648
یکی از قابلیت هاش:




TQRPLabel can print rotated text

[reza_66]

سلام دوستان خوب

من با موفقیت تونستم با کمک شما در گزارشم کویکم کارکترهامو بصورت عمودی در بیارم ولی چرا وقتی چاپ میشه خودش افقیشون میکنه؟؟؟؟

باید چیکار کنم که تو چاپ گزارش کویکم هم عمودی چاپ بشه؟؟؟

لطفا کمک کنید ضروریه و عجله ای

ممنون

[meytib]

سلام دوستان خوب

من با موفقیت تونستم با کمک شما در گزارشم کویکم کارکترهامو بصورت عمودی در بیارم ولی چرا وقتی چاپ میشه خودش افقیشون میکنه؟؟؟؟

باید چیکار کنم که تو چاپ گزارش کویکم هم عمودی چاپ بشه؟؟؟

لطفا کمک کنید ضروریه و عجله ای

ممنون

از کوئیک ریپورت 5.5 استفاده کن - از دلفی ورژن بالاتر از xe استفاده کن و کوئیک ریپورت رو از خود سایتش دانلود کن . کامپوننت های جدیدی داره که p دارن مثل QRPLabel1 در عوض QRLabel1 یه خاصیت بنام degree داره که خیلی راحت هر درجه ای خواستی قرار میگیره - افقی عمودی 45 درجه و ....