nesco писал(а):
Надо бы проверить на действующем принтереПроверил, не работает! Выдаёт лишь одну копию.
хотя если подавать сигнал на метод doPrintDlg, то в открывшемся диалоговом окне видно что количество копий выставляется.
Add(MainForm,7302977,217,364)
{
Width=359
Height=257
}
Add(Printer,1540615,623,469)
{
Point(doCopies)
Point(doPrintDlg)
link(Text,15483007:Text,[])
}
Add(Memo,15483007,623,399)
{
Left=10
Top=20
Width=305
Height=125
Strings=#41:Съешь ещё этих мягких французских булок, |15:да выпей же чаю|
}
Add(Label,13388471,217,315)
{
Left=15
Top=160
Width=70
Height=17
Caption="кол.во копий"
}
Add(Edit,2074439,343,415)
{
Left=105
Top=160
Width=40
Text="3"
DataType=1
}
Add(Button,8394074,231,469)
{
Left=155
Top=155
Width=160
Height=50
Caption="Print"
link(onClick,6593440:doEvent1,[])
}
Add(DoData,3841184,343,476)
{
Data=Integer(3)
link(onEventData,1540615:doCopies,[])
link(Data,2074439:Text,[])
}
Add(Hub,6593440,301,469)
{
link(onEvent1,16078791:doDeferredEvent,[(381,475)(381,454)])
link(onEvent2,3841184:doData,[])
}
Add(DeferredEvent,16078791,427,448)
{
Delay=21
InData=0
link(onDeferredEvent,1540615:doPrint,[(552,454)(552,475)])
}