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

[Ndagor]

الكود التصحيح الرسم العمودي في الجدول  الموجود في الخوارزمية DrawCell  في الوحدة D4AVcl.DBGrids يمكن و ضعه داخل الخوارزمة WriteText  مباشرة لانها مستعملة عدة مرات و الخلايا الجدول في حدث و عناوين الاعمدة في حدث اخر و يحتاج الى التصحيح ..حسب مافهمت 

كود :

            var h :Integer;             h :=  ARect.Height div 2 - Canvas.TextHeight(value) div 2;