چاپ عکس روی فرم با فست ریپورت

[khoshblagh]

با سلام خدمت دوستان
بر روی یک فرم یک دیبی گرید و یک ایمج قرار دادم که به یک بانک اکسس وصل است و با حرکت بر روی دیبی گرید عکس درون فیلد در کنترل ایمج نشان داده میشود. حالا اگر یک دکمه بر روی فرم باشد و بخواهم آن عکس را که در حاضر نمایش داده میشود را از طریق فست ریپورت نمایش بدهد چه کدی باید برای آن نوشت. توضیح بیشتر اینکه یک گزارش با فست ریپورت ساختم که در حال حاضر در صورت زدن دکمه تمام عکسهای درون بانک متصل به آن را نشان میدهد.در حالیکه میخواهم فقط عکسی را که در ایمج فرم میباشد را نشان بدهد. متشکرم

[hossein_h62]

سلام
به این شکل :




procedure TForm1.Button1Click(Sender: TObject);
var
pic:Tfrxpictureview;
begin
pic:= frxReport1.FindObject('picture1')as Tfrxpictureview;
pic.Picture:=image1.Picture;
frxreport1.ShowReport(true);
end;

[vcldeveloper]

نیاز به کد نویسی نیست. مشکل ایشون اینه که یک Data band توی گزارش قرار دادند، و اون رو به جدول مربوطه وصل کردند. طبیعی هست که یک Data band کل رکوردهای جدول را پیمایش میکنه.

برای نمایش داده های فقط یک رکورد در گزارش، باید کنترل ها در باندهای غیر دیتا قرار داده بشند، مثلا یک کنترل Picture در باند Page Header قرار بدید، و خصوصیات مربوط به DataSet و FieldName آن را تنظیم کنید، می بینید که فقط داده های یک رکورد (رکورد جاری) را نمایش میده، نه کل رکوردها را.