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

[Delphi4Us]

الحزمة تحتوي على وحدة UCrtlsFix غير موجودة و تمنع تثبيت المكونات

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

بالنسبة الى الضبط الجيد وبالمنتصف يمكن ذلك بازالة الرقم 3 بعد حرف H

كود :

Canvas.MoveTo(ARect.Left + 2, ARect.Top  + H - 3 );

الاخ  Ndagor وضعه عند التجربة وبازالته يمكن وضع النص بالمنتصف تماما ويجب ازالة الرقم 3 حتى من اجراء اعادة رسم العناوين ايضا



اما عند الدخول بوضع التعديل فلا يمكن استخدام نفس اسلوب الرسم لان ما يحدث 
هو ان المكون TDBGrid في Delphi يستخدم المكون TEdit عند تحرير الخلايا. عندما ينقر المستخدم مرتين على خلية في TDBGrid، يتم إنشاء كائن TEdit جديد ووضعه فوق الخلية. يمكن للمستخدم بعد ذلك إدخال أو تعديل قيمة الخلية باستخدام TEdit.
تماما مثلما نستخدم المكون TcompoBox او CheckBox
والمكون Tedit طبعا هو القديم وليس الذي عدلناه والحل هو استخدام المكون الجديد للتعديل .
على العموم الخطوة القادمة سنرى في هذا .