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.



Поиск
Друзья
Администрация