مشكلة : صورة صغيرة جداً

توصلت الى حل قد يكون معقول لهذه المشكلة وهو عن طريق التحكم في حدود الرسم ثم تمديد الرسم داخل هذه الحدود وهو كالاتي

X := (Printer.PageHeight div 2) - ((paintbox1.Height*2) div 2);

       Y := (Printer.PageWidth div 2) - ((paintbox1.Width*2) div 2);

        dest.Top := x; dest.Left := y;

 dest.Right := y+ paintbox1.Width*8;

 dest.Bottom := x + paintbox1.Height*8;

Printer.Canvas.StretchDraw(dest, bitmap);

اوردته هنا عسى ان تحل مثل هذه المشكلة ان تعرض لها احد منكم

** الكود يحتاج بعض التعديل لكي تاتي الصورة في المنتصف تماماً (حل كما يقولون على الطاير ;) )

اخوكم وجدي