Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,42,154)
{
 Width=412
 Height=241
 Caption="WallChange"
 TaskBar=1
 Position=1
 Point(doSetFocus)
 link(onActivate,3509777:doSearch,[])
 link(onCreate,1053237:doEvent1,[])
}
Add(FileSearch,3509777,161,154)
{
 Dir="walls"
 link(onSearch,3752004:doAdd,[])
}
Add(Desktop,5786228,707,280)
{
}
Add(StrList,3752004,217,154)
{
 Point(doGetString)
 Point(String)
 link(onChange,7131648:doOperation,[])
}
Add(Hub,12483271,574,266)
{
 link(onEvent1,3752004:doGetString,[(593,272)(593,233)(205,233)(205,202)])
 link(onEvent2,863698:doRead,[(612,279)(612,286)])
}
Add(TrayIcon,4863793,133,84)
{
 Hint="WallChange"
 FormHook=0
 ShowWORemoveIcon=0
 link(onClick,5083181:doEvent,[])
}
Add(IndexToChanel,7643061,392,84)
{
 Data=Integer(2)
 Point(Data)
 link(onEvent1,7492819:doEvent2,[(440,90)(440,279)])
 link(onEvent2,2953706:doClose,[(469,97)(469,59)(14,59)(14,181)])
}
Add(Hub,7492819,462,266)
{
 InCount=2
 OutCount=1
 link(onEvent1,12586300:doNext,[])
}
Add(IndexToChanel,5083181,182,84)
{
 Data=Integer(2)
 link(onEvent1,7492819:doEvent1,[(274,90)(274,118)])
 link(onEvent2,5495851:doPopupHere,[(258,97)(258,76)])
}
Add(PopupMenu,5495851,301,70)
{
 Menu=#7:Сменить|5:Выход|
 TranspIcon=1
 link(onClick,7643061:doEvent,[(349,76)(349,90)])
}
Add(Counter,12586300,518,266)
{
 Max=0
 Default=-1
 Point(doMax)
 link(onNext,12483271:doEvent1,[])
}
Add(DirTools,14553879,154,308)
{
 Point(doExists)
 link(onOK,12586237:doCompare,[])
 link(Source,13511325:Caption,[])
}
Add(Hub,1053237,84,168)
{
 OutCount=4
 link(onEvent1,4863793:doHide,[(116,174)(116,97)])
 link(onEvent2,14553879:doExists,[(126,181)(126,335)])
 link(onEvent3,2953706:doSetFocus,[(109,188)(109,211)(30,211)(30,188)])
}
Add(If_else,12586237,203,308)
{
 link(onTrue,4625193:doMessage,[])
}
Add(Message,4625193,252,308)
{
 Message="Не найдена папка Walls"
 Caption="Ошибка"
}
Add(Label,13511325,154,259)
{
 Left=180
 Top=265
 Caption="Walls"
}
Add(StyleXP,9823806,882,595)
{
}
Add(Math,7131648,308,154)
{
 OpType=1
 Op2=1
 ResultType=0
 link(onResult,12586300:doMax,[(429,160)(429,293)])
 link(Op1,3752004:Count,[(314,142)(272,142)(272,218)(230,218)])
}
Add(ArrayRW,863698,651,280)
{
 link(onRead,5786228:doFromFile,[])
 link(Array,3752004:Array,[(657,243)(237,243)])
}