استئصال وعلاج مرض وراثي

[Delphi4Us]

اذا اردت ان تشتغل بسرعة ينبغي تفادي تثبيت المكونات في كل مرة  تقوم بتحديثات دع هذه العملية عندما يصبح المكون جاهز

انا انشئ مشروع المكونات ومشروع التجربة بمشروع واحد واعدل واعمل ترجمة واشغل والتثبيت يتم مرة واحدة فقط

ثم ضع اسم الوحدة unit التي تحتويه اي NewDBGrid  في اخر ال uses

هذا الامر عرفته بالصدفة وانا استخدم مكونات BussnisSkin حين كان يحدث تعارض بين المكونات القياسية ومكونات هذا المنتج ولحل المشكلة انقل الوحدة لتلك الشركة الى اخر الـ Uses فيتم اعتماد اخر وحدة في الترتيب ولكن ان استخدم نفس اسم المكون الأصلي هذه لم تخطر ببالي .

بالنسبة لل TEdit لاحظت انت حذفت inherited

خطاء نتج عن التجارب المتعددة من تغيير الكود ربما ولم انتبه

انشاء TEdit بخاصية  multilines قد يصبح يقبل النص متعدد الاسطر و يقبل الضغط على ال entry لانشاء سطر جديد

ربما مكون Memo يفي بالغرض لاجل ذلك مع اضافة خاصية اخفاء واظهار اشرطة الانزلاق

اظن انه  ابقاء DefaultRowHeight بنفس الاسم الاصلي و هي ليس نفس ال property هذا تظليل و هي لا تقوم بنفس العمل

تفكيري لاضافتها واول ما بدأت هو لانني استخدمها في مكونات اخرى وموجودة خاصية بنفس الاسم للتحكم في ارتفاع الصفوف

 كما قلت كل عمود يمكن ان يستعمل font مستقل هذا يحتاج الى ظبط ايضا

اعتقد اننا لم نتدخل في اي شئ اخر عدا تغيير اماكن تموضع النص ولهذا جربت تغيير كل عمود بخط مختلف ويعمل بشكل جيد .


اعدت بعدها تعديل المشروع وجعلته بنفس اسم المكونات الرئيسية وقلت ربما هذا سيحل مشكلة عدم جعل النص بالوسط في حالة التعديل لان الوحدة Edit المعدلة ايضا جعلتها في نهاية الـ Uses ولكن لم يفلح الامر .

فاذا كان المكون DBgrid سوف يأخذ افتراضيا الوحدة التي عدلناها فالمفترض ان يأخد الوحدة TEdit التي عدلناها ايضا واستخدامها كـ Editor بداخله
ولكن لم تنجح الفكرة
وقلت ربما لان المكون AutoSize له افتراضيا هي True لذلك اضفت السطر التالي في حدث الانشاء

كود :

AutoSize:=false;

لان لدينا الامر التالي في حدث اعادة التموضع

كود :

if AutoSize then Exit;

وايضا لم تفلح العملية .



توقفت للحظة بعد ان رأيت ان مانفعله لا يؤدي المطلوب وبدأت افكر في حل أخر فانشاء مكونات جديدة لن يقدم شئ وستبقى المكونات الوارثة كلها فيها نفس المشكلة
الا بحال تحديث المكونات الأصلية بحيث عند اعادة ترجمة مكونات مثلا StyleControls ترث التعديل الجديد
ولهذا قمت بتعديل الوحدة الموجودة بالمسار

كود :

C:\Program Files (x86)\Embarcadero\Studio\22.0\source\vcl\Vcl.StdCtrls.pas

ولكن التغييرات لا تعمل فوضعت نقطة توقف وتأكد ان البيئة تقوم فعلا بقراءة التغييرات على الوحدة الرئيسية ومع ذلك لا تعمل
مع ملاحظة انني كثير ما اعدل وحدات لمكونات اخرى وتعمل بشكل عادي الا هذه الوحدات الخاصة بالدلفي
وقلت ربما ان ملفات DCU مختلفة عن ملفاتها الاصلية ووجدة حزمة بنفس المجلد وبالاسم 

كود :

stdvcl40.dproj

فتحتها في الدلفي وفيها كل الوحدات بما فيها الوحدة المطلوبة وقمت باعادة ترجمتها وشغلت مشروع التجربة ولكن التغييرات نفس الشئ لا تعمل.


التعديل يجب ان يكون بالوحدات الأصلية في الدلفي