تنظیم ارتفاع QRSubDetail با QRImage1 به صورت اتوماتیک برای عکسها موجود در بانک

[ealvandi]

با سلام

من میخوام یک سری عکس که در بانک ذخیره هستند رو در quick report توسط QRSubDetail پرینت کنم . مشکلی که بهش برخوردم اینه که اگه خاصیت Height عکسم متغیر بود چکار کنم که خاصیت QRSubdetail.Height به طور خودکار هم اندازه QRDBImage1.Height بشه ؟ ( خاصیت Height تمام عکسها متغیره)

متشکر از لطفتون.

[اصغر (پآچ)]

سلام دوست من

شما دو راه دارید یکی اینکه خاصیت AutoSize اون رو فعال کنید و راه دوم بیاید QRSubdetail خودتون رو ثابت بگیرید و ابعاد عکستون رو برابر ارتفاع اون تنظیم کنید بطوریکه عکس دفرم Deform نشود.

اگه خواستی من یه پروسیجر دارم که می تونم بهت بدم تا این کار دوم رو انجام بده.

موفق و موید باشی

[matinebi]

با سلام به اصغر(پواچ) لطفا قرار دهید

[اصغر (پآچ)]

سلام دوست من

این پریسجر میاد ابعاد عکس رو طوری تغییر میده که با طول یا عرض Image برابر میشه و هیچ تغییری هم در ظاهر عکس ایجاد نمیشه.



procedure TForm1.FitPicture(Sender: TObject);
var
Zoom: Extended;
begin
Image1.AutoSize := False;
Image1.Stretch := True;
if Image1.Picture.Height > Image1.Picture.Width then begin
Zoom := ContainImage.Height / Image1.Picture.Height;
Image1.Width := Floor(Image1.Picture.Width * Zoom);
Image1.Height := ContainImage.Height;
Image1.Left := (ContainImage.Width - Image1.Width) div 2;
end else begin
Zoom := ContainImage.Width / Image1.Picture.Width;
Image1.Height := Floor(Image1.Picture.Height * Zoom);
Image1.Width := ContainImage.Width;
Image1.Top := (ContainImage.Height - Image1.Height) div 2;
end;
end;


موفق و موید باشی

[pandco]

با سلام خدمت دوستان گرامی
دوست گرامی مثل اینکه سوال دوستمان را شما متوجه نشده اید دوست ما میخواهد در Quick Report در QRSubDetail یک QRDBImage1 گذاشته که آن به یک بانک وصل است که در آن بانک عکس ها بصورت Bloob ذخیره شده است برای پرینت آنها QRDBImage1 در هر سایزی باشد عکس در آن سایز پرینت می شود دوست ما میخواهد QRDBImage1.Height و QRSubdetail.Height را برابر Height عکس نماید و Height عکس ها متغییر هستند و نمی شود QRSubdetail.Height را مثلا 300 گذاشت باید حتما Height ها متغیر باشند (در کدی که شما لطف کرده و نوشته اید در QRDBImage1 خاصیت AutoSize وجود ندارد ) و نمی خواهد طول و عرض عکس را بصورت یکسان کوچک کند تا عکس دفرم نشود دوستمان می خواهد عکس را در سایز واقعی پرینت نماید. آیا راهی برای اینکار دارد.
با تشکر از اصغر(پواچ) که کد بالا را لطف کردن و گذاشتن
-----------------------------------------------------------------------------------------------
به جای آنکه سعی کنید جای کسی را بگیرید ، تلاش کنید جای واقعی خود را بیابید