Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "Помощь по среде"
Ответов: 125
Рейтинг: 6
#1: 2017-03-05 14:13:13 ЛС | профиль | цитата
Приветствую всех
Поковырявшись в поиске и найдя хороший пример, немного видоизменил его, для печати не картинки, а из области рисования. Всё хорошо, но печатать в области более 500х600 точек не получается. Прошу помощи, чтобы понять как сделать возможность печати картинки на весь лист?
Код
Add(MainForm,5760284,189,147)
{
Left=20
Top=105
Width=457
Height=419
Caption="Print Image"
link(onCreate,8609868:doDraw,[])
}
Add(Button,15415409,84,77)
{
Top=351
Width=441
Height=30
Align=4
Font=[MS Sans Serif,10,1,0,1]
Caption="Print"
link(onClick,14309344:doPrint,[(121,83)(121,104)])
}
Add(Printer,14309344,133,98)
{
Point(doSettings)
Point(CurDPIY)
Point(doPrintDlg)
link(onPrint,4383238:doDraw,[(180,104)(180,196)(124,196)(124,160)])
}
Add(Img_Bmp,4383238,133,154)
{
X=10
Y=10
DrawSource=2
Point(doDrawSource)
link(Bitmap,14309344:Context,[])
link(SourceBitmap,8734075:Var1,[(146,138)])
}
Add(Button,5229203,84,119)
{
Top=321
Width=441
Height=30
Align=4
Font=[MS Sans Serif,8,1,0,1]
Caption="Printer setting"
link(onClick,14309344:doSettings,[(121,125)(121,111)])
}
Add(PaintBox,14651079,273,161)
{
Width=500
Height=600
Visible=1
}
Add(Img_Line,8609868,231,161)
{
Point1=1
Point2=700000000
Size=5
link(onDraw,14651079:doRefresh,[])
link(Bitmap,8734075:Var2,[])
}
Add(GetDataEx,8734075,231,133)
{
Angle=1
link(Data,14651079:Bitmap,[(313,138)(313,200)(279,200)])
}
карма: 0

0
vip
#1.1контекстная реклама от партнеров
1
Сообщение
...
Прикрепленные файлы
(файлы не залиты)