Работа с QRImage
Всем привет!!!
У меня на форме есть GroupBox, в него вставлен Image, свойство Image - Align-alClient; AutoSize-true; Center-True. Эти настройки позволяют загружать в Image любую картинку. если она больше GroupBox, то картинка пропорционально уменьшается, если меньше то такая как есть, но красиво выровнена по центру GroupBox.
Такого же эффекта мне надо добится при печати на QuickReport, но на панели инструментов отчетов (QuickReport) нет ничего похожего на GroupBox, таким образом мне не к чему привязать свою картинку. как не эксперементировал, она либо ростягивается до реальных размеров, либо QRImage содержит часть рисунка(((((
Подскажите как выкрутится
У меня на форме есть GroupBox, в него вставлен Image, свойство Image - Align-alClient; AutoSize-true; Center-True. Эти настройки позволяют загружать в Image любую картинку. если она больше GroupBox, то картинка пропорционально уменьшается, если меньше то такая как есть, но красиво выровнена по центру GroupBox.
Такого же эффекта мне надо добится при печати на QuickReport, но на панели инструментов отчетов (QuickReport) нет ничего похожего на GroupBox, таким образом мне не к чему привязать свою картинку. как не эксперементировал, она либо ростягивается до реальных размеров, либо QRImage содержит часть рисунка(((((
Подскажите как выкрутится
Получаешь картинку в Graphics::TBitmap *Bmp;
Пропорцией (размер картинки/размер QRImage) определяешь, какая нужна высота и ширина, что бы сохранить пропорции картинки, затем создаешь новый BMP:
Graphics::TBitmap * __fastcall NewBmp(Graphics::TBitmap *Btm,int PageWidth,int PageHeight)
{
Graphics::TBitmap *BtmOut=new Graphics::TBitmap();
BtmOut->Height=PageHeight;BtmOut->Width=PageWidth;
SetStretchBltMode(BtmOut->Canvas->Handle,HALFTONE);
StretchBlt(BtmOut->Canvas->Handle,0,0,PageWidth,PageHeight,
Btm->Canvas->Handle,0,0,Btm->Width,Btm->Height,SRCCOPY);
return(BtmOut);
}
А после:
QRImage1->Picture->Bitmap->Assign(Bmp);delete Bmp;
Как проще - не знаю.
Пропорцией (размер картинки/размер QRImage) определяешь, какая нужна высота и ширина, что бы сохранить пропорции картинки, затем создаешь новый BMP:
Graphics::TBitmap * __fastcall NewBmp(Graphics::TBitmap *Btm,int PageWidth,int PageHeight)
{
Graphics::TBitmap *BtmOut=new Graphics::TBitmap();
BtmOut->Height=PageHeight;BtmOut->Width=PageWidth;
SetStretchBltMode(BtmOut->Canvas->Handle,HALFTONE);
StretchBlt(BtmOut->Canvas->Handle,0,0,PageWidth,PageHeight,
Btm->Canvas->Handle,0,0,Btm->Width,Btm->Height,SRCCOPY);
return(BtmOut);
}
А после:
QRImage1->Picture->Bitmap->Assign(Bmp);delete Bmp;
Как проще - не знаю.