Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,154,42)
{
 Width=511
 Height=422
 Color=5723991
 Caption="Анекдоты от Anekdot.ru. Свежее за сегодня."
 BorderStyle=1
 Icon=[ZIP3610000078DAED575B485441189E6DB3A5D4348C2E922805652164D0ED215BF1A98B3D44109556984145B93E44178A76D730DD2C2D4594BC6D5A52442169B511981B195D8CB42BD106ED83B6154952199697E91BA766A73D9ED55DF3CD9FB39C7366BEF9FEF9AF3B87100D1943A2A248BF5C0C226436EEA1A1FC7DA7969027188BC63383C4E3A721D3F864101995FF24545D044089F49BD35719BE16C33D1A514D17973917196BF615D7DCB0DF777D6A1FBAA241F9832B2839E3BE74055FA61D7D149B614B2BBE76E9C66D87B3D5835CC950F38E6DF26ED3D382CACBCAD92F3F1960D79DEE29D65FB2225C01C71C33A2176C3B68E12A3C16367F66B481E57D1C1C63288D4F32408B9A217157DD2604E6B5E16149763D96C00A99FCDD579AF78C8657F5CA3B81C90B771CCF2A3EC7ED550A5609F0D254336811059806F9D6F943B84886890BCCC0AB3173D9D2F0071C96F51CE043B9256A919D99FB62CD4D9A58608F287289CD630936AF468E7D8A28C7EE2E00B8F9D59B012B45968636B70953E33620526A2654BC767B1EE4B3172C554B4835AB4372DE62A1E168FE80FCC87F0E8BDE5B0D184A60D0CC5746CDC3706417D2606D5D6758591707688BBA0058B57DDFA0B4B2189BDC26204517E73D9C5FFD5D9903B8A20ED9C05F71F9BA4FC52BC7CEFB25D272282D4E56013FC83CF0039270EEE1DAA4D375FAF3DE726CE8CD4D447086D10E1EDE28609A5A747C55810E23360F3F2088F083080DBA01C8799FF1BB618AF6225C21E232F4B4F4A208092987129C724DAD37187D221F50D1BC9C26D16440EB3D2DFDF8FF45B9297375D9D603E0E74DD2D7CD7B29B7415B9F7F5A3CCA4DD9BA877F3E11DD52ADE90D5F05BC84EE8D98F2821218F9C1BF9395C7ECE8F97344CEB1648FBE83105D0F1BC76783137733FB7C80D809D1E25D83F748F6DCC5EF9A3EDC810DE9E2EB228189C45D4FCDFDE3A6FE793361213351F3787D8F4EFF8F4AF69D12FAE75B457CA76847F4A0BEBC96469F783C677386D56A6D6969F13804DE6AA52B4DE7535252929393F9C86A1B0DB1FE3D69E4B74F5A678A8989493E7832D672776A253BCE4DCCFF949090909E9E2E488EF4B78BF0F2CE30D37D7DC695C2C24251DAE373DB3CC0905917D8D40A6315A6F896B00DD70F1A50C24EA17149691877B95C72C7866A0CA6A6A6CAE5C0F54ECE7E89298BC552EDA0BB1BE9E48A6EF64F67AAC5A0CD66F3F00C372DE8F407B9BF698A7F019C9898A8AC3570724C68E6D32843D5F4A28FEC909CD7023CFCA92C4F61DD92CC9BC08C2DE9952D1A3052B01D98E0F25EF033F2B3EDDC1CE566E498BAFFD337EE07DEE170A8F50AEEC371A50C3CE1D47B110EEF999354CF966C2A7B00B7343636FA745A9307FD4F63A786AD967E78B76B29356BF99C5387671D1FEB08E1CF1DB3B8D6DF53A4162F]
 Position=1
 link(onCreate,3700929:doEvent1,[])
}
Add(Button,15002735,154,77)
{
 Left=5
 Width=140
 Height=25
 Color=5723991
 Font=[Tahoma,9,0,0,204]
 Caption="Проверить анекдоты"
 Point(doEnabled)
 link(onClick,2775414:doEvent1,[])
}
Add(HTTP_Get,1642553,273,91)
{
 URL="http://anekdot.ru/last/j.html"
 link(onDownload,12588681:doConvert,[])
 link(onStop,6837845:doEvent1,[(319,118)(319,174)])
}
Add(Convertor,12588681,322,98)
{
 Mode=11
 link(onResult,16654113:doEvent1,[])
}
Add(BlockFind,3947193,434,168)
{
 IncludeBlock=1
 StartBlock="<div class="topictext">"
 EndBlock="</div>"
 link(onSearch,4020911:doEvent1,[])
 link(Text,8728035:Text,[])
}
Add(Memo,4087904,630,168)
{
 Left=5
 Top=25
 Width=495
 Height=230
 Color=16777215
 Font=[Tahoma,9,0,0,204]
 ScrollBars=3
 ReadOnly=0
}
Add(Label,10944663,574,210)
{
 Left=480
 Top=5
 Width=16
 Height=17
 Color=5723991
 Font=[Tahoma,8,0,16777088,204]
 Caption="00"
}
Add(Hub,4020911,476,168)
{
 link(onEvent1,15609337:doReplace,[])
 link(onEvent2,4949148:doNext,[(506,181)(506,216)])
}
Add(Counter,4949148,518,210)
{
 link(onNext,10944663:doText,[])
}
Add(Hub,3700929,238,56)
{
 InCount=4
 OutCount=7
 link(onEvent1,12099854:doIcon,[(266,62)(266,286)])
 link(onEvent2,7086770:doData,[])
 link(onEvent3,8728035:doClear,[(414,76)(414,118)])
 link(onEvent4,4087904:doClear,[(619,83)(619,181)])
 link(onEvent5,4949148:doReset,[(498,90)(498,230)])
 link(onEvent6,1642553:doDownload,[])
 link(onEvent7,11634487:doWork1,[(261,104)])
}
Add(StyleXP,367106,154,7)
{
}
Add(Replace,15609337,518,168)
{
 SubStr="<br />"
 DestStr="\r\n"
 link(onReplace,14649853:doStrCat,[])
}
Add(StrCat,14649853,574,168)
{
 Str2="\r\n\r\n*****\r\n\r\n"
 link(onStrCat,4087904:doAdd,[])
}
Add(Label,12781525,434,210)
{
 Left=355
 Top=5
 Width=121
 Height=17
 Color=5723991
 Font=[Tahoma,8,0,16777088,204]
 Caption="Загружено анекдотов:"
}
Add(Label,800244,490,21)
{
 Left=5
 Top=260
 Width=127
 Height=17
 Color=5723991
 Font=[Tahoma,8,0,16777088,204]
 Caption="Загрузка, подождите..."
}
Add(DoData,13289355,434,21)
{
 Data=String(Загружено.)
 link(onEventData,14099134:doWork2,[])
}
Add(DoData,7086770,434,63)
{
 Data=String(Загрузка, подождите...)
 link(onEventData,14099134:doWork3,[(480,69)])
}
Add(HubEx,14099134,476,21)
{
 link(onEvent,800244:doText,[])
}
Add(Button,7327927,53,126)
{
 Left=150
 Width=190
 Height=25
 Color=5723991
 Font=[Tahoma,9,0,0,204]
 Caption="Настройка обновления списка"
 link(onClick,2266226:doWork2,[])
}
Add(ChildForm,11151559,105,126)
{
 link(onEvent1,16214872:doInterval,[])
}
BEGIN_SDK
  Add(EditMulti,12163695,14,21)
  {
   EventCount=1
   WorkCount=1
   Width=314
   Height=144
   link(doWork1,11804395:doVisible,[(24,27)(24,104)])
  }
  Add(MainForm,11804395,42,70)
  {
   Left=35
   Top=105
   Width=204
   Height=149
   Color=5723991
   Visible=1
   Caption="Настройки"
   BorderStyle=3
   Point(doVisible)
   link(onCreate,191984:doRead,[])
  }
  Add(Button,16522880,42,119)
  {
   Left=10
   Top=55
   Width=175
   Height=25
   Color=5723991
   Font=[Tahoma,9,0,0,204]
   Caption="Сохранить"
   link(onClick,137556:doEvent1,[])
  }
  Add(Ini,191984,210,84)
  {
   FileName="set.ini"
   Section="anek"
   Key="interval"
   Type=1
   link(onResult,6917788:doOperation,[(254,90)(254,77)(90,77)(90,34)])
   link(Value,8780593:Var2,[])
  }
  Add(Hub,137556,91,119)
  {
   OutCount=3
   link(onEvent1,191984:doWrite,[(112,125)(112,97)])
   link(onEvent2,8542538:doData,[])
   link(onEvent3,11804395:doClose,[(111,139)(111,157)(29,157)(29,97)])
  }
  Add(DoData,8542538,119,126)
  {
   link(onEventData,12163695:onEvent1,[(318,132)(318,27)])
   link(Data,8780593:Var1,[(125,68)])
  }
  Add(Edit,14134317,182,21)
  {
   Left=20
   Top=30
   Width=130
   Color=16777215
   Font=[Tahoma,9,0,0,204]
   Text="10"
   link(onChange,1899007:doOperation,[])
  }
  Add(Math,1899007,231,21)
  {
   OpType=2
   Op2=60000
  }
  Add(Label,818187,273,28)
  {
   Left=15
   Top=10
   Width=168
   Height=18
   Color=5723991
   Font=[Tahoma,9,0,16777088,204]
   Caption="Частота обновления, минут:"
  }
  Add(UpDown,11585291,42,21)
  {
   Left=150
   Top=30
   Color=5723991
   Font=[Tahoma,9,0,0,204]
   Max=180
   Min=1
   Position=10
   link(onPosition,7029023:doWork2,[])
  }
  Add(Label,4002273,273,63)
  {
   Left=5
   Top=85
   Width=187
   Height=28
   Color=5723991
   Font=[Tahoma,9,0,16777088,204]
   Caption="Настройки сохраняются в файл set.ini в папке с программой"
   AutoSize=1
  }
  Add(GetDataEx,8780593,231,63)
  {
   link(Data,1899007:Result,[])
  }
  Add(Math,6917788,98,28)
  {
   OpType=3
   Op2=60000
   link(onResult,15166719:doEvent1,[])
  }
  Add(HubEx,7029023,166,21)
  {
   link(onEvent,14134317:doText,[])
  }
  Add(Hub,15166719,140,28)
  {
   link(onEvent1,7029023:doWork3,[(170,34)])
   link(onEvent2,11585291:doPosition,[(166,41)(166,14)(37,14)(37,27)])
  }
END_SDK
Add(Timer,16214872,154,112)
{
 Interval=600000
 Point(doInterval)
 link(onTimer,3700929:doEvent3,[(225,118)(225,76)])
}
Add(Hub,2775414,196,77)
{
 link(onEvent1,3700929:doEvent2,[(221,83)(221,69)])
}
Add(StrList,8728035,434,105)
{
}
Add(Hub,6837845,329,168)
{
 OutCount=3
 link(onEvent1,3947193:doSearch,[])
 link(onEvent2,13289355:doData,[(421,181)(421,27)])
}
Add(TrayIcon,12099854,364,266)
{
 Hint="Анекдоты"
 ShowWORemoveIcon=0
 Text="\r\nЕсть новые анекдоты!\r\n"
 Title="Анекдоты"
 Icon=0
 Point(doShowBallonTip)
 Point(onBallonUserClick)
 link(onClick,13360273:doEvent,[])
 link(onDblClick,9510420:doWork1,[(409,279)(409,245)(403,245)])
 link(onBallonUserClick,9510420:doWork3,[(403,293)])
}
Add(PopupMenu,1903371,469,273)
{
 Menu=#10:Развернуть|9:Настройки|18:Проверить анекдоты|1:-|11:О программе|5:Выход|
 link(onClick,3801621:doEvent,[])
}
Add(IndexToChanel,13360273,413,266)
{
 link(onEvent2,1903371:doPopupHere,[])
}
Add(IndexToChanel,3801621,518,273)
{
 Count=6
 link(onEvent1,9510420:doWork2,[(562,279)(562,256)])
 link(onEvent2,2266226:doWork3,[(567,286)(567,330)(95,330)])
 link(onEvent3,3700929:doEvent4,[(559,293)(559,343)(230,343)(230,83)])
 link(onEvent5,11365841:doMessage,[])
 link(onEvent6,10505978:In,[])
}
Add(HubEx,2266226,91,126)
{
 link(onEvent,11151559:doWork1,[])
}
Add(ChangeMon,5893844,413,301)
{
 link(onData,12099854:doShowBallonTip,[(452,307)(452,338)(352,338)(352,293)])
}
Add(Hub,16654113,364,98)
{
 OutCount=3
 link(onEvent1,5893844:doData,[(393,104)(393,307)])
 link(onEvent2,8728035:doAdd,[])
 link(onEvent3,11634487:doWork3,[(386,118)(386,136)])
}
Add(HubEx,9510420,399,250)
{
 Angle=2
 link(onEvent,12099854:doShow,[(352,256)(352,272)])
}
Add(LineBreak,6911541,112,63)
{
 Caption="x"
 link(Out,2953706:doClose,[])
 Primary=[10505978,476,245]
}
Add(Message,11365841,623,301)
{
 Message="Анекдоты от Anekdot.ru v1.3\r\n© Петр Паули, 2010\r\n\r\nСделано на Hiasm\r\nhiasm.com\r\n____________________\r\nacer-pauli@mail.ru\r\nICQ#406621835"
 Caption="О программе"
 Icon=4
}
Add(Button,12350794,273,357)
{
 Left=375
 Top=270
 Width=125
 Color=5723991
 Font=[Tahoma,9,0,0,204]
 Caption="Обновить"
 Point(doEnabled)
 link(onClick,4225432:doEvent1,[])
}
Add(Memo,4209212,626,427)
{
 Left=5
 Top=290
 Width=495
 Height=100
 Color=16777215
 Font=[Tahoma,9,0,0,204]
 ScrollBars=2
 ReadOnly=0
}
Add(HTTP_Get,640991,364,357)
{
 URL="http://pda.anekdot.ru/"
 link(onDownload,10418000:doConvert,[])
 link(onStop,3719846:doEvent1,[(404,384)(404,405)])
}
Add(Convertor,10418000,413,364)
{
 Mode=11
 link(onResult,6190195:doEvent1,[])
}
Add(Replace,1129786,574,427)
{
 SubStr="<br />"
 DestStr="\r\n"
 link(onReplace,4209212:doAdd,[])
}
Add(StrList,8500553,525,364)
{
}
Add(Hub,3719846,413,399)
{
 link(onEvent1,1604929:doSearch,[(513,405)(513,433)])
}
Add(Hub,4225432,315,357)
{
 OutCount=4
 link(onEvent1,8500553:doClear,[(513,363)(513,377)])
 link(onEvent2,4209212:doClear,[(339,370)(339,440)])
 link(onEvent3,640991:doDownload,[(352,377)(352,363)])
 link(onEvent4,3658335:doWork1,[(349,384)])
}
Add(BlockFind,1604929,525,427)
{
 IncludeBlock=1
 StartBlock="</h1></div>
<p class="main">"
 EndBlock="</p>"
 link(onSearch,1129786:doReplace,[])
 link(Text,8500553:Text,[])
}
Add(Label,7713485,537,20)
{
 Left=165
 Top=265
 Width=139
 Height=22
 Color=5723991
 Font=[Tahoma,11,0,16777088,204]
 Caption="Случайный анекдот"
}
Add(DoData,7498860,364,448)
{
 link(onEventData,12350794:doEnabled,[(408,454)(408,426)(262,426)(262,363)])
 link(Data,640991:Busy,[])
}
Add(Hub,6190195,455,364)
{
 link(onEvent1,8500553:doAdd,[])
 link(onEvent2,3658335:doWork3,[(481,377)(481,487)(349,487)])
}
Add(HubEx,3658335,345,448)
{
 link(onEvent,7498860:doData,[])
}
Add(DoData,5075199,273,147)
{
 link(onEventData,15002735:doEnabled,[(313,153)(313,183)(146,183)(146,83)])
 link(Data,1642553:Busy,[])
}
Add(HubEx,11634487,257,130)
{
 Angle=1
 link(onEvent,5075199:doData,[(261,153)])
}