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

[Delphi4Us]

مثال و حدة D4AVcl.StdCtrls حجمها 371ko اما التي عندي حجمها 341ko  فرق 40 كيلو

 
ربما بسبب اختلاف نسخ دلفي فانا اخدت النسخة من دلفي 11.3 ربما بسبب زيادة التعليقات والتلميحات حول الكود مثل

كود :

/// <summary>     ///   Specifies the number of cells displayed in each picker column when the popup is visible.     /// </summary>

لحد الان لاتوجد خطة عمل واضحة و لا قامة المكونات او العيوب التي يجب معالجتها

حتى الان تم حل مشكلة عدم القدرة على زيادة ارتفاع الخلايا في DBGrid

كود :

DBGrid1.DefaultRowHeight:=51;

وتم حل مشكلة عدم توسيط الكتابة في الخلية عند زيادة الاتفاع
وتم حل مشكلة عدم توسيط الكتابة في المكون Tedit عند زيادة الارتفاع



هناك مشكلة في المكون  TcomboBox لا يظهر الكتابة الا بعد تمرير الفأرة عليه فقط عندما تكون الخاصية Style له تساوي csOwnerDrawFixed

وعلى كل حال انا توقفت حتى احصل على شاشة اكبر لا تتعبني في معالجة وتتبع الكود

الخطة لازالت هناك مكونات TcomboBox و TlistBox بحاجة الى معالجة زيادة الارتفاع وتوسيط الكتابة
ولازال هناك مكونات بحاجة الى اضافة احداث لها مثل حدث تمرير زر عجلة الفأرة وهو مهم خاصة في مكون  TDateTimePicker حتى يتسنى زيادة الايام والشهور والسنين بعجلة الفأرة
ولازال هناك مكون TDateTimePicker بحاجة الى معالجة خاصية الـ Text فهي حتى وان لم تحدد التاريخ يبقى فيها القيمة ( /  / ) والخاصية Date حتى وان لم تحدد التاريخ فيها تاريخ قديم شئ مثل 1980/11/1
وايضا مكون SpainEdit بحاجة الى توسيط الكتابة رأسياً وأفقيا حتى TAlignment لليمين او الوسط او اليسار لا يوجد كما يحتاج الى اضافة حدث عجلة الفأرة لزيادة وانقاص قيمته بعجلة الفأرة والمفترض ان يكون تم حل مشكلة التوسيط الرأسي لانه يرث من TCustomEdit والتي تم حل المشكلة بها للمكون Edit والمفترض كل المكونات التي ترث من TCustomEdit لا تحتاج الى معالجتها 
وهناك خطاء رسم عندما تستخدم سكين داكن اللون او اسود يظهر بمكون Dbgrid خطوط بيضاء سبق وعالجتها من الكود في حدث الرسم
المكون TPageControl يحتاج الى اضافة خيار رسم الـ Tab ناحية اليمين
وهذا الذي اذكره الان و هناك الكثير يحتاج لاصلاح

اما المكونات الاصلية فتركنا امر وفكرة تعديلها