grial1964 писал(а):
Циклы не подходяЕстественно что циклы не подходят, где вы видели принтер печатающий со скоростью 1 страница в мс.???
Пока ваш принтер включится, разогреется примет все данные на печать, отпечатает страницу пройдет минимум секунд 5-10! И потом печать каждой страници на среднем лазерном принтере 1,5 - 3 сек! Так что если выставить таймер с задержкой в 1500 мс. Печать будет ровной.
Это конечно не совсем то, но при отсутствии точки кол-ва страниц вполне спасает!
как вариант:
Add(MainForm,2953706,98,98)
{
Width=359
Height=257
}
Add(Printer,1540615,504,203)
{
link(Text,15483007:Text,[])
}
Add(Memo,15483007,504,133)
{
Left=10
Top=20
Width=305
Height=125
Strings=#41:Съешь ещё этих мягких французских булок, |15:да выпей же чаю|
}
Add(Label,13388471,98,49)
{
Left=15
Top=160
Width=70
Height=17
Caption="кол.во копий"
}
Add(Edit,2074439,224,149)
{
Left=105
Top=160
Width=40
Text="3"
DataType=1
}
Add(Button,8394074,112,203)
{
Left=155
Top=155
Width=160
Height=50
Caption="Print"
link(onClick,6593440:doEvent1,[])
}
Add(Timer,12600720,434,203)
{
Interval=1500
Enable=1
AutoStop=1
Point(doAutoStop)
link(onTimer,1540615:doPrint,[])
}
Add(DoData,3841184,224,210)
{
link(onEventData,12600720:doAutoStop,[(278,216)(278,223)])
link(Data,2074439:Text,[])
}
Add(Hub,6593440,182,203)
{
link(onEvent1,16078791:doDeferredEvent,[(262,209)(262,188)])
link(onEvent2,3841184:doData,[])
}
Add(DeferredEvent,16078791,329,182)
{
Delay=21
InData=0
link(onDeferredEvent,12600720:doTimer,[(397,188)(397,209)])
}
Поиск
Друзья
Администрация