Make(delphi)
Add(MainForm,16568860,168,161)
{
 Left=20
 Top=105
 Width=251
 Height=410
 Caption="Получение курса доллара с сайта ЦБ РФ"
 Position=1
}
Add(Button,12705808,168,217)
{
 Top=354
 Width=235
 Align=4
 Caption="получить"
 link(onClick,427429:doDownload,[])
}
Add(MultiElementEx,427429,231,217)
{
 @Hint=#21:Получение курса валют|
 link(onSearch,4773476:doAdd,[])
}
BEGIN_SDK
  Add(EditMultiEx,15462073,21,21)
  {
   WorkCount=#34:doDownload=Начинает закачку курсов|42:doStop=Принудительно останавливает закачку|
   EventCount=#47:onSearch=Выдает в поток список валют и значений|
   DataCount=#78:FileName=Имя файла для сохранения (оставить пустым, если нужно выдать в поток)|
   Width=839
   Height=424
   link(doDownload,1971098:In,[])
   link(doStop,11894278:In,[])
  }
  Add(HTTP_Get,14749906,168,112)
  {
   URL="http://www.cbr.ru/scripts/XML_daily.asp"
   link(onDownload,7093061:doConvert,[])
   link(FileName,1061497:Var,[])
  }
  Add(LineBreak,6153762,77,112)
  {
   link(Out,14749906:doDownload,[])
   Primary=[1971098,-14,-91]
  }
  Add(LineBreak,7705183,119,119)
  {
   link(Out,14749906:doStop,[])
   Primary=[11894278,-21,-91]
  }
  Add(LineBreak,5056229,21,56)
  {
   Type=1
   link(Data,15462073:FileName,[])
   Primary=[1061497,154,28]
  }
  Add(StrList,4857898,273,98)
  {
   link(onChange,12928074:doSearch,[(318,104)(318,152)(261,152)(261,174)])
  }
  Add(BlockFind,12928074,273,168)
  {
   StartBlock="<Valute ID"
   EndBlock="</Valute>"
   link(onSearch,785212:doText,[])
   link(Text,4857898:Text,[])
  }
  Add(Convertor,7093061,217,119)
  {
   Mode=11
   link(onResult,4857898:doText,[])
  }
  Add(StrList,785212,364,147)
  {
   link(onChange,10845549:doSearch,[(408,153)(408,213)(352,213)(352,272)])
  }
  Add(BlockFind,10845549,364,266)
  {
   IncludeBlock=1
   StartBlock="<Name>"
   EndBlock="</Name>"
   link(onSearch,15066474:doValue,[])
   link(onEndSearch,10427287:doSearch,[])
   link(Text,15762399:Data1,[])
  }
  Add(GetData,15762399,364,210)
  {
   Count=3
   link(Data,785212:Text,[])
  }
  Add(BlockFind,10427287,413,273)
  {
   IncludeBlock=1
   StartBlock="<Value>"
   EndBlock="</Value>"
   link(onSearch,11324495:doValue,[])
   link(onEndSearch,14502384:doSearch,[])
   link(Text,15762399:Data2,[(419,257)(377,257)])
  }
  Add(FormatStr,1669946,525,336)
  {
   DataCount=3
   Mask="%3 %1 - %2 руб."
   MakeExt(Mask,Маска вывода (%1 - название’ %2 - цена’ %3 - номинал),Mask)
   link(onFString,13912863:In,[])
   link(Str1,15066474:Value,[])
   link(Str2,11324495:Value,[(538,314)(587,314)])
   link(Str3,10836446:Value,[(545,324)(643,324)])
  }
  Add(Memory,15066474,525,266)
  {
  }
  Add(BlockFind,14502384,462,280)
  {
   IncludeBlock=1
   StartBlock="<Nominal>"
   EndBlock="</Nominal>"
   link(onSearch,10836446:doValue,[])
   link(Text,15762399:Data3,[(468,261)(384,261)])
  }
  Add(Memory,11324495,581,273)
  {
  }
  Add(LineBreak,9466407,805,21)
  {
   link(Out,15462073:onSearch,[])
   Primary=[13912863,-231,315]
  }
  Add(Memory,10836446,637,280)
  {
   link(onData,10029220:In,[])
  }
  Add(LineBreak,2650534,462,336)
  {
   Caption=">"
   Color=12639424
   link(Out,1669946:doString,[])
   Primary=[10029220,231,-56]
  }
END_SDK
Add(Memo,4773476,294,217)
{
 Width=235
 Height=354
 Align=5
 ScrollBars=2
}