Вверх ↑
Ответов: 110
Рейтинг: 9
#1: 2005-10-27 12:07:56 ЛС | профиль | цитата
Примерно так:

Add(Label,4429287,97,56)
{
Width=270
Height=20
Caption="перетащи сюда файл и сохрани его в другом месте"
}
Add(DataToFile,15674270,251,217)
{
link(onGet,86012:doPut,[(400,223)(400,223)])
link(Stream,66235:Stream,[])
}
Add(DropFile,18756,97,133)
{
link(onDropFile,4493258:doEvent1,[])
}
Add(Edit,67751,517,105)
{
Left=50
Top=50
Width=215
Height=21
Font=[Times New Roman,9,0,0,1]
Text="c: est.txt"
}
Add(FileStream,66235,251,140)
{
}
Add(FileStream,54924,517,154)
{
Mode=1
link(FileName,67751:Text,[])
}
Add(Hub,4493258,167,133)
{
OutCount=3
link(onEvent1,54924:doOpen,[(358,139)(358,160)])
link(onEvent2,66235:doOpen,[])
}
Add(Label,7650048,286,91)
{
Left=10
Top=50
Width=40
Height=20
Caption="куда?:"
}
Add(DataToFile,86012,517,217)
{
link(Stream,54924:Stream,[])
}
Add(Button,7354900,167,287)
{
Left=30
Top=20
Caption="start"
link(onClick,9494795:doFor,[])
}
Add(For,9494795,259,287)
{
link(onEvent,9981482:doEvent1,[(302,293)(302,272)])
link(onStop,10359057:doEvent1,[(355,300)(355,314)])
link(End,66235:Size,[(272,237)(264,237)])
}
Add(Hub,9981482,342,266)
{
link(onEvent1,15674270:doGet,[(384,272)(384,258)(241,258)(241,230)])
link(onEvent2,9399235:doText,[(491,279)(491,279)])
}
Add(Beep,13538709,517,315)
{
Duration=200
}
Add(Hub,10359057,419,308)
{
link(onEvent1,54924:doClose,[(484,314)(484,167)])
link(onEvent2,13538709:doBeep,[(473,321)(473,321)])
}
Add(Edit,9399235,608,273)
{
Left=10
Top=90
link(Str,54924:Position,[(614,212)(537,212)])
}
Только отображение текущего кол-ва малость не поспевает (:
карма: 0

0