گرفتن متن داخل یک memo و نمایش آن

[geeking]

سلام دوستان
مشکل کارم چیه ؟؟








میخوام وقتی کاربر توی محیط design ، فست ریپورت تغییری انجام داد. اون تغییر در Edit1.Text نشان داده بشه.
یعنی وقتی که صفحه گزارش را بست هر تغییری توی memo گزارش باشه را بفرسته توی Edit1.Text.
برای این منظور برای وقتی که کاربر صفحه گزارش را ببنده این کد را نوشتم ولی اعمال نمیشود.


procedure TForm1.frxReport1ClosePreview(Sender: TObject);
var memo : TfrxMemoView;
begin
memo := frxReport1.FindObject('memo1') as TfrxMemoView;
Edit1.Text := memo.Text;
end;

ممنون از دوستان








فایل ضمیمه شده حاوه کد نوشته شده

[golbafan]

سلام
شما باید در متن onnewgetvalue کد بزنید
یا در خود fr کدها رو بنویسید

از سمپل ها استفاده کنید

[geeking]

سلام
میتونید یک sample بگید، از همین مثال خودم یا هم همهینو اوکی کنید ؟

[geeking]

سلام
این کد را نوشتم ولی کار نمیکنه ؟؟؟


procedure TForm1.frxReport1GetValue(const VarName: string; var Value: Variant);
begin
if VarName = 'Memo1' then
Edit1.Text := Value;
end;

[یوسف زالی]

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

[geeking]

دلیلش اینه که فست ریپورت هنوز یکم باگ داره.
دقیقا بعد از فراخوانی DesignReport کدتون رو بنویسید.
سلام
نمیدونم مشکلش چیه، ولی بازم درست نشد، به نظرتون باید چکار کنم از فست ریپورت ورژن 4 استفاده میکنم .
2-3 باز نصب کردم هم روی دلفی 2010 و هم 2007 تست کردم جواب نداد.
بعید میدونم از باگ باشه !

[یوسف زالی]

بعد از دستور designreport من تست کردم و جواب داد.
رویداد ها ظاهرا مشکل دارند و به درستی کال نمی شوند.
نسخه ای که تست شد:
4.7.61

[geeking]

میتونید کدتون را اینجا بذارید ببینم ؟این کد رو توی چه eventی مینویسید ؟
روی fastReport 4.7.91 تست کردم نسخه 61 رو برای دانلود پیدا نکردم.


رویداد ها ظاهرا مشکل دارند و به درستی کال نمی شوند.
توی رویدادها showmessage میزنم کال میشه .

[geeking]

حتی بعد از تغییرات توی گزارشم وقتی گزارش را کاربر بست و اومد صفحه اصلی این کد را نوشتم کار میکنه و editbox را آپدیت میکنه


procedure TForm1.updateClick(Sender: TObject);
var
memo : TfrxMemoView;
begin
memo := frxReport1.FindObject('memo1') as TfrxMemoView;
Edit1.Text := memo.Text;
end;

[یوسف زالی]

دوست عزیز من که گفتم اصلا در ایونت خاصی ننویسید، دقیقا در کد برنامه زیر دستور DesignReport

[geeking]

شرمنده دوست عزیز سوال آخر و بعدش تمام
شما می فرمایید این کد درسته ؟



procedure TForm1.Button1Click(Sender: TObject);
var
memo : TfrxMemoView;
begin
memo := frxReport1.FindObject('memo1') as TfrxMemoView;
memo.Text := Edit1.Text;
frxReport1.DesignReport();
Edit1.Text := memo.Text;
frxReport1.ShowReport();
end;

و باید کار کند ؟
ممنون از وقتی که می‌گذارید.

[یوسف زالی]

منطقا باید تغییرات رو در اون کد ببینید. همین کد در دلفی 7 فست 4.7.91 جواب داد.