Редактировалось 1 раз(а), последний 2017-03-03 09:58:59

1 [code:1]Add(FileTools,9152676,364,210) {
link(NewFileName,158527:Value,[(377,195)(447,195)])
}
Add(ComboBox,236304,252,140)
{
Left=90
Top=10
Width=295
Height=21
}
Add(ArrayEnum,10886946,259,203)
{
link(onItem,5411:doEvent1,[])
link(Array,236304:Array,[])
}
Add(Memory,158527,441,147)
{
}
Add(StrCat,3902483,399,147)
{
link(onStrCat,158527:doValue,[])
link(Str1,12233915:Text,[(405,132)(405,132)])
}
Add(Hub,5411,301,203)
{
link(onEvent1,2969096:doPart,[(341,209)(341,146)])
link(onEvent2,9152676:doCopy,[(348,216)(348,223)])
}
Add(FilePart,2969096,350,140)
{
NameWOExt=1
link(onName,3902483:doStrCat,[(390,153)(390,153)])
}
Add(Button,5796967,203,203)
{
Left=5
Top=35
Width=110
Caption="копировать в папку"
link(onClick,10886946:doEnum,[])
}
Add(Button,14087605,161,140)
{
Left=5
Top=10
Width=80
Caption="добавить"
link(onClick,15799165:doExecute,[])
}
Add(ODialog,15799165,203,140)
{
Select=1
link(onExecute,236304:doAdd,[])
}
Add(Edit,12233915,399,84)
{
Left=120
Top=35
Width=265
Text="C:\"
}
[/code:1]

2 надо заполнить массив иконок и менять индекс точки IconID
[code:1]Add(TreeView,15274135,322,189) {
Left=5
Top=10
Width=230
Height=240
Icons=['иконка №0'=[]]
link(IconID,8724527:Value,[])
}
Add(Memory,8724527,336,140)
{
Default=Integer(0)
}
[/code:1]

Редактировалось 1 раз(а), последний 2017-03-03 09:58:59