Вверх ↑
Ответов: 231
Рейтинг: 1
#1: 2026-02-25 09:27:08 ЛС | профиль | цитата
Подскажите пожалуйста как реализовать печать изображения большого объёма в нашей среде? Уместив ее в лист A4?

Add(MainForm,2953706,133,126)
{
Width=859
Height=849
link(onCreate,5430260:doExecute,[])
}
Add(Image,1008111,357,140)
{
Left=10
Top=15
Width=745
Height=790
}
Add(ODialog,5430260,238,140)
{
link(onExecute,1008111:doLoad,[])
}
Add(Button,81843,238,196)
{
Left=770
Top=10
Width=65
Height=25
Caption="Print"
link(onClick,3328671:doPrint,[])
}
Add(Printer,3328671,294,196)
{
link(onPrint,3492415:doDraw,[])
}
Add(Img_Bmp,3492415,350,196)
{
X=1
Y=1
DrawSource=2
link(Bitmap,3328671:Context,[(356,184)(336,184)(336,239)(300,239)])
link(SourceBitmap,1008111:ImageBitmap,[])
}


Если в эту схему загрузить большое изображение, то будет Runtime Error.
карма: 1

0