كيف يمكن حساب ارتفاع Qrshape مهما كان QrDbedit يحوي من أسطر

[clarmat]

السلام عليكم إخواني
لدي مشكلة حساب أو ما شابه في طباعة نصوص QrDbedit داخل Qrshape ، إدا تعدت QrDbedit اثنان أو ثلاث أسطر أو أكثر أجبر اثناء التصميم لتمديد ال Qrshape ارتفاعا ما يترك دائما Qrshapeفي السطر الأخير (آخر تسجيل )بالصفحة بنفس الإرتفاع رغم أن QrDbedit لا يحتوي إلا على سطر واحد،
و كيف إدا أمكن توسيط التسجيل في هده الحال، وبارك الله فيكم

[paix144]

و عليكم السلام و رحمة الله

كود :

procedure TForm1.DetailBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin QRShape4.Height:=DetailBand1.Size.Resolution; end;