Add(VisualShape,11216630,238,77)
{
Left=-55
Top=65
Width=690
Height=30
Color2=-16777203
}
Add(VisualShape,7656678,189,77)
{
Left=-60
Top=10
Width=690
Height=60
Color2=16711680
}
Add(MainForm,778338,114,119)
{
Width=630
Height=663
Color=-16777211
Caption="RSS 2.0"
BorderStyle=3
Position=1
link(onCreate,3363619:doEvent1,[])
}
Add(MultiElementEx,10950001,294,140)
{
link(onSearch,10534533:doText,[(382,146)(382,84)])
link(onSearch1,14623709:doValue,[(408,153)(408,126)])
link(onSearch2,8572529:doText,[(382,160)(382,168)])
link(onSearch3,11619339:doText,[(382,167)(382,210)])
link(onData,3278049:doSearch,[(338,174)(338,216)(282,216)(282,258)])
}
BEGIN_SDK
Add(EditMultiEx,10072835,21,21)
{
WorkCount=#10:doDownload|
EventCount=#8:onSearch|9:onSearch1|9:onSearch2|9:onSearch3|6:onData|
VarCount=#5:Value|
DataCount=#3:URL|
Width=657
Height=221
link(doDownload,12092553:doDownload,[(35,27)(35,69)])
link(Value,11932813:Value,[(27,193)(223,193)])
}
Add(HTTP_Get,12092553,49,63)
{
URL="http://news.mail.ru/rss/"
link(onDownload,13722011:doConvert,[])
link(URL,10072835:URL,[(55,42)(27,42)])
}
Add(Charset,14470209,147,140)
{
Type=7
}
Add(Convertor,13722011,105,70)
{
Mode=11
link(onResult,2487197:doEvent1,[])
}
Add(StrList,1132080,455,49)
{
link(onChange,2027070:doEvent1,[])
}
Add(Hub,2027070,529,49)
{
OutCount=4
link(onEvent1,14728247:doSearch,[])
link(onEvent2,10460145:doSearch,[(553,62)(553,97)])
link(onEvent3,15133539:doSearch,[(553,69)(553,139)])
link(onEvent4,15473152:doSearch,[(553,76)(553,181)])
}
Add(BlockFind,14728247,564,49)
{
IncludeBlock=1
StartBlock="<title>"
EndBlock="</title>"
link(onSearch,10072835:onSearch,[(602,55)(602,27)])
link(Text,14391569:Data1,[(570,37)(516,37)(516,156)(461,156)])
}
Add(GetData,14391569,455,112)
{
Count=4
link(Data,1132080:Text,[])
}
Add(BlockFind,12784910,216,70)
{
IncludeBlock=1
StartBlock="<channel>"
EndBlock="<item>"
link(onSearch,15551976:doReplace,[])
}
Add(BlockFind,10460145,564,91)
{
IncludeBlock=1
StartBlock="<link>"
EndBlock="</link>"
link(onSearch,10072835:onSearch1,[(602,97)(602,34)])
link(Text,14391569:Data2,[(570,79)(510,79)(510,156)(468,156)])
}
Add(BlockFind,15133539,564,133)
{
IncludeBlock=1
StartBlock="<description>"
EndBlock="</description>"
link(onSearch,10072835:onSearch2,[(602,139)(602,41)])
link(Text,14391569:Data3,[(570,121)(514,121)(514,156)(475,156)])
}
Add(BlockFind,15473152,564,175)
{
IncludeBlock=1
StartBlock="<pubDate>"
EndBlock="</pubDate>"
link(onSearch,10072835:onSearch3,[(602,181)(602,48)])
link(Text,14391569:Data4,[(570,159)(482,159)])
}
Add(Hub,2487197,189,70)
{
link(onEvent1,12784910:doSearch,[])
link(onEvent2,11932813:doValue,[(210,83)(210,118)])
}
Add(Memory,11932813,217,112)
{
link(onData,10072835:onData,[(463,118)(463,55)])
}
Add(Replace,15551976,273,70)
{
SubStr="<![CDATA["
link(onReplace,3293020:doReplace,[])
}
Add(Replace,3293020,357,70)
{
SubStr="]]>"
link(onReplace,1132080:doText,[])
}
END_SDK
Add(Label,11619339,437,204)
{
Left=-41
Top=95
Width=694
Height=22
Color=16300728
Font=[Arial Narrow,11,0,16777215,204]
Caption="Загрузка..."
AutoSize=1
Alignment=2
}
Add(Memory,14623709,490,120)
{
}
Add(WinExec,4841176,490,71)
{
link(FileName,14623709:Value,[(496,59)(484,59)(484,164)(496,164)])
}
Add(Label,8572529,437,162)
{
Left=4
Top=71
Width=594
Height=22
Color=-16777203
Font=[Arial Narrow,11,0,16777215,204]
Caption="Загрузка..."
AutoSize=1
Alignment=1
}
Add(Label,10534533,437,78)
{
Left=4
Top=27
Width=609
Height=35
Color=16711680
Font=[Arial Narrow,20,0,16777215,204]
Caption="Загрузка..."
AutoSize=1
Alignment=2
ColorHover=65280
link(onClick,4841176:doShellExec,[])
}
Add(MultiElementEx,3278049,294,252)
{
link(onFString,3403107:doFromText,[])
link(Text,10950001:Value,[])
}
BEGIN_SDK
Pos(54,0)
Add(EditMultiEx,11458014,-33,21)
{
WorkCount=#8:doSearch|7:doClear|
EventCount=#9:onFString|
DataCount=#4:Text|
Width=951
link(doSearch,12975006:doSearch,[(-19,27)(-19,55)])
link(doClear,4704026:doClear,[(-19,34)(-19,106)(807,106)(807,62)])
}
Add(BlockFind,12975006,-5,49)
{
IncludeBlock=1
StartBlock="<item>"
EndBlock="</item>"
link(onSearch,7627022:doReplace,[])
link(onEndSearch,1979034:doData,[(41,62)(41,125)])
link(Text,11458014:Text,[(1,35)(-27,35)])
}
Add(StrList,4704026,821,49)
{
}
Add(Replace,7627022,51,49)
{
SubStr="<title>"
DestStr="<span style="color:red"><span style="font-size:14pt"><b>"
link(onReplace,12427654:doReplace,[])
}
Add(Replace,12427654,107,49)
{
SubStr="</title>"
DestStr="</b></span></span>"
link(onReplace,11774025:doReplace,[])
}
Add(Replace,11774025,163,49)
{
SubStr="</title>"
DestStr="</b></span></span><BR>"
link(onReplace,14051629:doReplace,[])
}
Add(Replace,14051629,219,49)
{
SubStr="<link>"
DestStr="<a href=""
link(onReplace,7647860:doReplace,[])
}
Add(Replace,7647860,268,49)
{
SubStr="</link>"
DestStr="" target="_blank"><span style="font-size:8pt"><span style="color:blue"><div align="right">Подробнее...</div></span></span></a><hr>"
link(onReplace,14970661:doReplace,[])
}
Add(Replace,14970661,317,49)
{
SubStr="<guid>"
DestStr="<"
link(onReplace,192006:doReplace,[])
}
Add(Replace,192006,366,49)
{
SubStr="</guid>"
DestStr=">"
link(onReplace,7715358:doReplace,[])
}
Add(Replace,7715358,422,49)
{
SubStr="<pubDate>"
DestStr="<br><span style="font-size:12pt"><span style="color:green">"
link(onReplace,12066586:doReplace,[])
}
Add(Replace,12066586,478,49)
{
SubStr="</pubDate>"
DestStr="</span></span>"
link(onReplace,15952126:doReplace,[])
}
Add(DoData,1979034,821,119)
{
link(onEventData,11568577:doString,[])
link(Data,4704026:Text,[])
}
Add(Replace,15952126,527,49)
{
SubStr="<description>"
link(onReplace,3486057:doReplace,[])
}
Add(Replace,3486057,583,49)
{
SubStr="</description>"
link(onReplace,20174:doReplace,[])
}
Add(FormatStr,11568577,863,119)
{
DataCount=1
Mask="<html>
<head>
<body>
%1
</body>
</head>
</html>
"
link(onFString,11458014:onFString,[(903,125)(903,27)])
}
Add(Replace,20174,632,49)
{
SubStr="<"
DestStr="<"
link(onReplace,15350963:doReplace,[])
}
Add(Replace,15350963,688,49)
{
SubStr=">"
DestStr=">"
link(onReplace,3293020:doReplace,[])
}
Add(Replace,3293020,749,49)
{
SubStr="]]>"
link(onReplace,4704026:doAdd,[])
}
END_SDK
Add(Hub,3363619,247,133)
{
InCount=3
link(onEvent1,3278049:doClear,[(277,139)(277,265)])
link(onEvent2,10950001:doDownload,[])
}
Add(WebBrowser,3403107,371,224)
{
Top=120
Width=615
Height=505
Point(doFromText)
}
Add(Button,13037561,112,161)
{
Left=-3
Width=630
Caption="Обновить"
link(onClick,3363619:doEvent2,[(196,167)(196,146)])
}
Add(StyleXP,509107,189,28)
{
}
Add(Timer,12741260,175,182)
{
Interval=60000
link(onTimer,3363619:doEvent3,[(227,188)(227,153)])
}
Этот топик читают: Гость
|
Ответов: 70
Рейтинг: 47
|
|||
|
Новости Mail.Ru в Rss
|
|||
| карма: 1 |
| ||
| файлы: 1 | code_14351.txt [7.1KB] [206] |
|
Ответов: 1397
Рейтинг: 50
|
|||
|
Плохо, что при выборе "далее..." открытие новостей происходит уже не в программе, а в браузере.
|
|||
| карма: 0 |
|
2



Поиск
Друзья
Администрация