Add(MainForm,2953706,21,105)
{
Position=1
}
Add(Button,10531553,168,238)
{
Left=20
Top=60
Width=110
Caption="Скачать!"
link(onClick,307445:doOpen,[])
}
Add(FTP_Client,307445,280,238)
{
Name="FTP"
link(onConnect,2607648:doEvent1,[])
link(onGlobalError,3391674:doMessage,[])
AddHint(-10,-22,35,13,Name)
}
Add(Hub,2607648,385,238)
{
OutCount=3
link(onEvent1,9090339:doWork,[(421,244)(421,167)])
link(onEvent2,13632970:doFileOperation,[])
link(onEvent3,307445:doClose,[(423,258)(423,315)(268,315)(268,251)])
}
Add(FTPC_ReadWrite,13632970,686,245)
{
RemoteName="file.txt"
FTP_Client="FTP"
link(onFileOperation,3697321:doMessage,[])
link(LocalName,7746881:Value,[])
AddHint(82,38,42,13,RemoteName)
AddHint(-5,44,35,13,FTP_Client)
}
Add(Memory,7746881,686,161)
{
Default=String(file.txt)
AddHint(105,9,52,13,Default)
}
Add(Message,3391674,329,252)
{
Caption="Ошибка"
Icon=3
}
Add(InfoTip,1792088,637,140)
{
Info=#14:Куда сохранить|
Width=127
Height=67
}
Add(Message,3697321,742,245)
{
Message="Скачивание завершено"
Caption="Результат"
Icon=4
}
Add(FTPC_DirAction,16564829,539,161)
{
Directory="/dir1/dir2"
FTP_Client="FTP"
AddHint(-21,-41,59,13,Directory)
AddHint(-5,39,35,13,FTP_Client)
}
Add(InfoTip,1013139,497,84)
{
Info=#37:Перейти в каталог, где находится файл|
Width=127
Height=123
}
Add(Check,9090339,434,161)
{
Check=1
link(onEvent,16564829:doDirAction,[])
}
Ответов: 4631
Рейтинг: 749
|
|||
|
|||
карма: 26 |
|
Редактировалось 1 раз(а), последний 2018-06-22 16:18:22