Zoom در QuickReport

[saeed_82]

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

[nasr]

این امکان در کوئیک ریپورت نیست ولی در FastReport می تونی

[saeed_82]

لینک این fastreport رو میتونی بزاری ما دانلودش کنیم
ببینیم این چیه اصلا
فقط لطفا دوباره آدرس فروشگاه برنامه نویس رو ندید
قربون شما
(ما تا حالا هرچی لینک خواستیم به فروشگاه برنامه نویس منتهی شده :? )

[MToloo]

آره منم تو این سایت زیاد از FastReport چیزی شنیدم ولی اصلا نمیدونم تو چه مایه ها هست. اگه میشه لینکش و بزارین.

[_alish_]

با سلام
begin
آقایان می شود دیگر کامپوننتهای جانبی هم با این ابزار نوشته شده شما خودتان با QRPreview1 می توانید یک CustomQuickreport طراحی کنید که کلید Zoom هم داشته باشد بدی ما اینه که با کلیه کامپوننتها کار نمی کنیم
من یکی طراحی کرده بودم ولی با C++ Bilder بوده ولی مطمئن باش می شه یکم سعی کن
end.

[nasr]

لینک این fastreport رو میتونی بزاری ما دانلودش کنیم
ببینیم این چیه اصلا


سایت خود FastReport را می تونید یه نگاهی بندازید نسخه Demo ش را دانلود کنید

[saeed_82]

آخه دموش به چه درد ما میخوره برادر

[Mahdi_S_T]

کی گفته که با QuickReport عمل Resize انجام نمیشه ! :shock:

من اینکار را انجام دادم اما روش داره :wink:

[MToloo]

alish جان اگه میشه توضیح بده چطوری میشه با QRPreview کار کرد. من قبلا خیلی سعی کردم .ولی نمیدونم کجا باید چی بینویسم. یعنی چطوری میشه QuickReport ام و با QRPreview مرتبط کنم. شایدهم باید QRPreview رو با QuickReport مرتبط کنم.


کی گفته که با QuickReport عمل Resize انجام نمیشه !

من اینکار را انجام دادم اما روش داره
ببخشید روش همون خرجه؟

[Mahdi_S_T]

با سلام ، روش Zoom کردن و همچنین ارتباط QRPreview را با QuickReport توضیح میدهم ، امیدوارم که مورد نظر واقع شود :

- QuickReport2 را ایجاد کنید و صفحه مورد نظر را طراحی نمایید و کد زیر را در رویداد OnPtreviw بنویسید :


procedure TQuickReport2.QuickRepPreview(Sender: TObject);
begin
form3:=Tform3.Create(application);
form3.QRpreview1.Qrprinter:=Quickreport2.QRPrinter ;
form3.QRPreview1.Zoom:=200;
form3.show;
end;


- یک Button بر روی Form1 قرار دهید و کد زیر را در آن بنویسید :


quickreport2.preview;


- Form3 را ایجاد کنید و بر روی آن یک Panel قرار دهید و خاصیت Align آنرا alTop قرار دهید و بر روی آن یک Button قرار دهید و سپس یک QRPreview در روی فرم قرار دهید و در پایان کدهای ذیل را به button اضافه نمایید :


QRPreview1.Zoom:=100;

توجه داشته باشید که در این قسمت می توانید اعداد مختلف را جهت Zoom انتخاب نمایید.
در رویداد OnClose فرم سوم کد زیر را وارد کنید :


form3.Free;


لازم به ذکر است چون فرم سوم به حالت پویا ایجاد شده بایداز قسمت نوار منو دلفی گزینه project را وسپس Option را انتخاب کنید و سپس Form3 را از سمت چپ به راست انتقال دهید.

البته اگر کمی پس و پیش بود مرا ببخشید . موفق و پیروز باشید.

[MToloo]

:flower: :موافق: :تشویق: