Add(HTTP_Get,8712403,70,14)
{
 URL="https://www.cbr-xml-daily.ru/daily_eng_utf8.xml"
 link(onStatus,1046958:doPosition,[(126,20)(126,69)])
 link(onDownload,7917980:doConvert,[])
 link(onURLSize,1046958:doMax,[(118,34)(118,76)])
}
Add(Convertor,7917980,133,21)
{
 Mode=11
 link(onResult,4870837:doEvent1,[])
}
Add(GProgressBar,1046958,133,63)
{
 Left=5
 Top=328
 Width=553
 Point(doMax)
}
Add(BlockFind,4317450,203,21)
{
 StartBlock="<Name>"
 EndBlock="</Value>"
 Point(onNotFind)
 link(onSearch,9399948:doAdd,[])
}
Add(Memo,9399948,247,21)
{
 Left=94
 Top=2
 Width=213
 Height=323
 ScrollBars=3
 Point(doSetSelStart)
}
Add(BlockFind,5654930,238,98)
{
 IncludeBlock=1
 StartBlock="<Name>"
 EndBlock="</Name>"
 Point(onNotFind)
 link(onSearch,11119013:doEvent1,[])
 link(onEndSearch,162950:doSearch,[(278,111)(278,132)])
}
Add(BlockFind,162950,287,126)
{
 IncludeBlock=1
 StartBlock="<Value>"
 EndBlock="</Value>"
 Point(onNotFind)
 link(onSearch,9666116:doAdd,[(324,132)(324,146)])
 link(Text,11194919:Value,[(293,84)(174,84)(174,148)(202,148)])
}
Add(Memory,11194919,196,98)
{
 link(onData,5654930:doSearch,[])
}
Add(Hub,4870837,175,21)
{
 link(onEvent1,4317450:doSearch,[])
 link(onEvent2,11194919:doValue,[(196,34)])
}
Add(MainForm,790398,14,0)
{
 Width=622
 Height=390
 link(onCreate,8712403:doDownload,[])
}
Add(Label,3624708,299,63)
{
 Left=313
 Top=103
 Width=133
 Height=17
 Caption="Бабло в вашей валюте :D"
}
Add(Label,13774534,299,25)
{
 Left=458
 Top=105
 Width=141
 Height=17
 Caption="Баблишко в другой валюте"
}
Add(Label,13497554,430,203)
{
 Left=459
 Top=123
 Width=141
 Height=17
 Color=16777215
 Caption="0"
 AutoSize=1
 Alignment=2
}
Add(Edit,14870372,119,203)
{
 Left=317
 Top=121
 Width=120
 Text="0"
 link(onChange,8236252:doWork2,[])
}
Add(Math,3758564,371,203)
{
 OpType=2
 link(onResult,13497554:doText,[])
 link(Op1,10153435:Result,[(377,191)(362,191)(362,256)(230,256)])
}
Add(ListBox,11046335,378,119)
{
 Left=312
 Top=3
 Width=126
 Height=97
 Point(Index)
 link(onClick,8783951:doWork2,[])
}
Add(ArrayRW,3525391,322,203)
{
 link(onRead,3758564:doOperation,[])
 link(Array,1057528:Var2,[(328,197)(327,197)])
 link(Index,9195470:Var,[])
}
Add(ArrayRW,14705544,182,203)
{
 link(onRead,10153435:doOperation,[])
 link(Array,1057528:Var1,[(188,173)])
 link(Index,6333450:Var,[])
}
Add(GetDataEx,1057528,321,168)
{
 link(Data,14381241:Var2,[])
}
Add(Math,10153435,224,203)
{
 OpType=3
 link(onResult,3525391:doRead,[])
 link(Op1,14870372:Text,[(230,191)(218,191)(218,249)(125,249)])
}
Add(RealArray,915662,504,42)
{
 RealArray=[]
}
Add(ListBox,11707937,378,56)
{
 Left=467
 Top=3
 Width=126
 Height=97
 Point(Index)
 link(onClick,8783951:doWork1,[(417,69)])
}
Add(Hub,11119013,336,98)
{
 link(onEvent1,11707937:doAdd,[(368,104)(368,62)])
 link(onEvent2,11046335:doAdd,[(364,111)(364,125)])
}
Add(LineBreak,5531962,399,105)
{
 Type=1
 link(Data,11707937:Index,[])
 Primary=[6333450,-210,70]
}
Add(LineBreak,9543655,399,161)
{
 Type=1
 link(Data,11046335:Index,[])
 Primary=[9195470,-70,14]
}
Add(LineBreak,16090877,140,182)
{
 link(Out,8236252:doWork1,[(172,188)])
 Primary=[13110375,287,-56]
}
Add(HubEx,8783951,413,126)
{
 link(onEvent,13110375:In,[])
}
Add(HubEx,8236252,168,203)
{
 link(onEvent,14705544:doRead,[])
}
Add(ArrayRW,9666116,329,126)
{
 link(Array,14381241:Var3,[(335,117)])
}
Add(GetDataEx,14381241,321,112)
{
 link(Data,915662:Array,[(327,93)(510,93)])
}

Add(HTTP_Get,8712403,154,126)
{
 URL="http://www.cbr.ru/scripts/XML_daily.asp"
 link(onDownload,7596598:doConvert,[])
}
Add(MultiElementEx,7596598,196,133)
{
 link(onStrCatDlm,790398:doCaption,[(236,139)(236,98)(100,98)(100,118)])
 link(onEvent,727662:doAdd,[(243,146)(243,111)])
 link(onEvent1,727662:doSort,[(247,153)(247,132)])
}
BEGIN_SDK
  Add(EditMultiEx,11659532,21,21)
  {
   WorkCount=#9:doConvert|
   EventCount=#11:onStrCatDlm|7:onEvent|8:onEvent1|8:onEvent2|
   Width=391
   Height=382
   VOffset=140
   link(doConvert,7917980:doConvert,[])
  }
  Add(Convertor,7917980,35,161)
  {
   Mode=11
   link(onResult,6689592:doEvent1,[])
  }
  Add(BlockFind,14930380,105,105)
  {
   @Hint=#9:Получаем |4:Дату|
   IncludeBlock=1
   StartBlock="<ValCurs Date=""
   EndBlock="""
   link(onSearch,14710194:doStrCatDlm,[])
   AddHint(-44,-44,68,26,@Hint)
  }
  Add(Hub,6689592,77,161)
  {
   OutCount=3
   link(onEvent1,14930380:doSearch,[(98,167)(98,111)])
   link(onEvent2,12504866:doData,[])
   link(onEvent3,11508153:doSearch,[])
  }
  Add(StrCatDelim,14710194,147,105)
  {
   @Hint=#26:Формируем Caption MainForm|
   Str1="КАЛЬКУЛЯТОР СТОИМОСТИ ВАЛЮТ на "
   Str2=" года."
   link(onStrCatDlm,11659532:onStrCatDlm,[(367,111)(367,167)])
   AddHint(1,-44,165,13,@Hint)
  }
  Add(MultiReplace,7314409,189,175)
  {
   ReplaceList="</Nominal><Name>=#;\r\n</Name><Value>=#;\r\n"
   link(onResult,16204794:doWork3,[(230,181)])
  }
  Add(BlockFind,11508153,105,175)
  {
   IncludeBlock=1
   StartBlock="<Nominal>"
   EndBlock="</Value></Valute>"
   link(onSearch,7314409:doMultiReplace,[])
   link(onEndSearch,4505680:doData,[(142,188)(142,258)])
  }
  Add(DoData,4505680,189,252)
  {
   Data=Integer(1)
   link(onEventData,1683048:doEvent1,[])
  }
  Add(Hub,1683048,336,252)
  {
   link(onEvent1,11659532:onEvent1,[(368,258)(368,181)])
   link(onEvent2,11659532:onEvent2,[(381,265)(381,188)])
  }
  Add(DoData,12504866,147,168)
  {
   Data=String(1#Российский рубль#1)
   link(onEventData,16204794:doWork2,[])
  }
  Add(HubEx,16204794,226,168)
  {
   link(onEvent,8496094:doSplit,[])
  }
  Add(StrPart,8496094,238,168)
  {
   Char="#"
   link(onSplit,10596176:doStrCatDlm,[])
   link(onPart,11338739:doConvert,[])
  }
  Add(ConvertorEx,11338739,280,175)
  {
   Digits=5
   SymbolFill=" "
  }
  Add(StrCatDelim,10596176,322,168)
  {
   Delimiter="#"
   link(onStrCatDlm,11659532:onEvent,[])
   link(Str1,11338739:Var,[(328,156)(317,156)(317,216)(286,216)])
  }
END_SDK
Add(MainForm,790398,112,112)
{
 Width=544
 Height=455
 BorderStyle=1
 Position=1
 link(onCreate,8712403:doDownload,[])
}
Add(StringTable,727662,259,105)
{
 Left=5
 Top=120
 Width=460
 Height=300
 Font=[Courier New,8,0,0,204]
 Columns=#9:   За=50 |13:   Валюта=300|9:Рублей=70|
 StrDelimiter="#"
 Grid=0
 Redaction=1
 Point(doSort)
 Point(Strings)
}