دخول

**أبو معاذ**

السلام عليكم ورحمة الله وبركاته ،
في الحقيقة كانت مناسبة هذا الموضوع هي كالتالي :
أستعمل الفاست ريبورت في مشروعي ، و أنا على مقربة من الانتهاء من البرمجة ، اكتشفت أنني تركت في تقاريري امكانية التعديل عنه Sad

أي أن الخاصية Edit للمكون frxReport مفعلة ،
فانتابني اليأس على المرور في جميع النوافذ (Forms) و تغيير خاصية جميع المكونات الفاست ريبورت ، واحدة واحدة...
ولك أن تتخيل التعب و النصب ، وربما أمر على مكون ما دون تغيير هذه الخاصية.... Angry

فانتابني سؤال و هو : كيف لي معرفة جميع المكونات من نوع FastReport لكن برمجيا ، وكان هذا الحل :
للبحث عن جميع مكونات من نوع label :

كود :
Var i:Integer; 
begin 
  For i:=0 To ComponentCount-1 Do 
  If Components[i] Is TLabel Then 
    TLabel(Components[i]).Caption:='AAA'; 
end;

الأن مع الفاست ربورت و تغيير خاصية Edit :

كود :
For i:= 0 To ComponentCount-1 Do
   If Components[i] Is TfrxReport Then
      TfrxReport(Components[i]).PreviewOptions.Buttons := [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbNavigator, pbExportQuick] ;

أو حال آخر بسيط :

كود :
For i:= 0 To ComponentCount-1 Do
    If Components[i] Is TfrxReport Then
       TfrxReport(Components[i]).PreviewOptions.Buttons := TfrxReport(Components[i]).PreviewOptions.Buttons - [pbEdit];

وكانت النتيجة رائعة و فرحة كبيرة... Blush

وضعتها هنا للاستفادة.

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة