Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2008-08-15 18:08:48 ЛС | профиль | цитата
bestsponsor, самый простой
Add(Memo,10262024,133,28)
{
Left=25
Top=155
Width=345
Height=115
Strings=#10:1-я строка|10:2-я строка|10:3-я строка|10:4-я строка|10:5-я строка|10:6-я строка|10:7-я строка|10:8-я строка|10:9-я строка|11:10-я строка|
ScrollBars=2
Point(onMouseDown)
Point(onMouseUp)
Point(SelText)
}
Add(Memo,2340677,294,105)
{
Left=25
Top=5
Width=345
Height=115
ScrollBars=2
}
Add(Button,9853881,21,105)
{
Left=285
Top=130
Width=85
ParentFont=1
Caption="На принтер"
link(onClick,14745124:doFor,[])
}
Add(DoData,2504689,154,105)
{
link(onEventData,796434:doEvent1,[])
link(Data,10262024:SelText,[])
}
Add(Edit,11473699,84,28)
{
Left=130
Top=130
Text="1"
}
Add(Label,7171063,231,28)
{
Left=25
Top=130
Width=94
Height=17
Caption="Кол.экземпляров"
}
Add(UpDown,12091822,21,28)
{
Left=185
Top=130
Max=100
Min=1
link(onPosition,11473699:doText,[])
}
Add(For,14745124,77,105)
{
link(onEvent,2504689:doData,[])
link(End,11473699:Text,[])
}
Add(DoData,13318217,245,175)
{
Data=String(========================)
link(onEventData,14790676:doWork3,[])
}
Add(Hub,796434,203,105)
{
link(onEvent1,14790676:doWork2,[])
link(onEvent2,13318217:doData,[(240,118)(240,181)])
}
Add(HubEx,14790676,273,98)
{
link(onEvent,2340677:doAdd,[])
}
иммитация: нижнее окно - окно приема, верхнее принтер.

но только с Memo. Для телетайпа - вполне достаточно.
У RichEdit есть почему-то неработающая точка Position и нету точки SelText. Если бы было или то или то , то можно было бы организовать.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:bestsponsor