Tad писал(а):
еще про печать...
Получается как...запустил , печать(печатается у меня через PDF-XChange Printer 2012 в файл),получается одна картинка на лист,так...
Если не закрывать программу, и опять печать, то к картинке добавляется еще одна, т.е. 2 на лист.Как исправить?
Если же запустить заново программу , то все в норме, одна картинка на лист.
Add(MainForm,2953706,204,47)
{
Point(Handle)
}
Add(Image,15886761,264,107)
{
Left=180
Top=30
Width=1
Height=1
Visible=1
Point(ImageWidth)
Point(ImageHeight)
Point(doRefresh)
}
Add(ScreenShort,9206700,204,107)
{
link(onCapture,15886761:doLoad,[])
link(Handle,2953706:Handle,[])
}
Add(Hub,9925062,143,107)
{
OutCount=3
link(onEvent1,9206700:doCapture,[])
link(onEvent2,14658084:doData,[(190,120)(190,160)])
link(onEvent3,6438251:doPrintDlg,[(180,127)(180,190)])
}
Add(Printer,6438251,334,177)
{
Title="1"
Point(doPrintDlg)
link(RichEdit,1060362:RichEdit,[])
}
Add(DoData,14658084,264,154)
{
link(onEventData,1060362:doAddBitmap,[])
link(Data,15886761:ImageBitmap,[])
}
Add(RichEdit,1060362,320,119)
{
Left=30
Top=65
Width=0
Height=5
Visible=1
Point(doAddBitmap)
Point(RichEdit)
}
Add(Button,7459685,78,107)
{
Left=155
Top=100
Caption="печать"
link(onClick,9925062:doEvent1,[])
}
Всё, вопрос снят....очистку списка никак не знал)))
Поиск
Друзья
Администрация