delphi4arab منتديات دلفي للعرب

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

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

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

clarmat

paix144