Make(delphi)
Pos(207,0)
Add(MainForm,4184831,-165,273)
{
 Left=20
 Top=105
 Visible=1
 Caption=""
 link(onCreate,4622343:doEvent1,[])
}
Add(Button,12354016,-116,154)
{
 Left=145
 Top=60
 Width=100
 Caption="Проверить"
 link(onClick,6554749:doWork1,[(49,160)])
}
Add(HTTP_Get,4383465,59,210)
{
 URL="http://hiasm.1gb.ru/forum_serv.php?q=1"
 Length=5
 link(onDownload,15779580:doConvert,[])
 link(Position,669112:Value,[])
}
Add(Convertor,15779580,108,217)
{
 Mode=11
 link(onResult,8241099:doConvert,[])
}
Add(Memory,669112,73,154)
{
 Default=Integer(21)
}
Add(Ping,8142197,-46,210)
{
 Name="www.hiasm.com"
 ByteCount=1
 link(onFind,6205670:doData,[])
}
Add(Timer,14208105,-116,210)
{
 Interval=60000
 link(onTimer,8304220:doWork2,[])
}
Add(SampleDelta,13718052,297,217)
{
 link(onCalcDelta,12832302:doWork2,[])
}
Add(Convertor,8241099,150,217)
{
 Mode=1
 link(onResult,13409516:doEvent1,[(187,223)(187,216)])
}
Add(If_else,10931598,395,217)
{
 Type=2
 Op2=Integer(0)
 link(onTrue,3536612:doOperation,[])
}
Add(Time,161842,689,168)
{
 Format="h:m:s"
}
Add(FormatStr,2905991,689,217)
{
 Mask="%1\n\rНовые сообщения(%2)\n\r\n\rНажмите, чтобы сбросить счетчик"
 link(onFString,15228594:doWork1,[])
 link(Str1,161842:FormatTime,[])
}
Add(Math,3536612,451,217)
{
 ResultType=0
 Point(doClear)
 link(onResult,13124715:doEvent1,[])
 link(Op1,3536612:Result,[(457,205)(445,205)(445,261)(457,261)])
}
Add(ChildForm,15228594,745,217)
{
 PColor(onEvent1,16744576)
 link(onEvent1,6995705:In,[])
}
BEGIN_SDK
  Add(EditMulti,8663354,21,21)
  {
   EventCount=1
   WorkCount=1
   Width=622
   link(doWork1,6570205:doEvent1,[(39,27)(39,76)])
  }
  Add(MainForm,16382078,350,49)
  {
   Left=35
   Top=105
   Width=210
   Height=55
   Color=12632256
   Visible=1
   AlphaBlendValue=200
   Caption=""
   BorderStyle=0
   TaskBar=1
   Point(doVisible)
   Point(doLeft)
   Point(doTop)
   Point(Handle)
   link(onActivate,4703651:doEvent1,[(404,55)(404,125)])
  }
  Add(Label,13727534,105,147)
  {
   Width=210
   Height=55
   Align=5
   Color=15780518
   Font=[MS Sans Serif,8,1,0,1]
   Caption=""
   link(onClick,15100790:doEvent1,[])
  }
  Add(Hub,6570205,56,70)
  {
   OutCount=3
   link(onEvent1,8352872:doStart,[(107,76)(107,34)])
   link(onEvent2,6016409:doData,[])
   link(onEvent3,13727534:doText,[(96,90)(96,153)])
  }
  Add(DoData,6016409,217,77)
  {
   Data=Integer(1)
   link(onEventData,13885877:doWork2,[])
  }
  Add(HubEx,13885877,259,70)
  {
   link(onEvent,16382078:doVisible,[])
  }
  Add(DoData,16283825,217,35)
  {
   Data=Integer(0)
   link(onEventData,13885877:doWork1,[(263,41)])
  }
  Add(MultiElement,12445492,287,84)
  {
   link(onEvent1,16382078:doLeft,[])
   link(onEvent2,16382078:doTop,[])
  }
  BEGIN_SDK
    Add(EditMulti,2568134,21,21)
    {
     EventCount=2
    }
    Add(Math,6068020,168,105)
    {
     OpType=1
     Op2=215
     link(onResult,2568134:onEvent1,[(240,111)(240,27)])
     link(Op1,12028265:Width,[(174,83)(209,83)])
    }
    Add(Math,11001575,210,119)
    {
     OpType=1
     Op2=100
     ResultType=0
     link(onResult,2568134:onEvent2,[(260,125)(260,34)])
     link(Op1,12028265:Height,[])
    }
    Add(Screen,12028265,203,28)
    {
    }
    Add(Timer,2900489,35,105)
    {
     Interval=4000
     link(onTimer,7217549:doEvent1,[])
    }
    Add(Hub,7217549,98,105)
    {
     link(onEvent1,6068020:doOperation,[])
     link(onEvent2,11001575:doOperation,[(152,118)(152,125)])
    }
  END_SDK
  Add(Hub,15100790,147,147)
  {
   PColor(onEvent1,16711935)
   link(onEvent1,10540970:doWork3,[(193,153)])
   link(onEvent2,8663354:onEvent1,[(538,160)(538,27)])
  }
  Add(HubEx,10540970,189,28)
  {
   link(onEvent,16283825:doData,[])
  }
  Add(Thread,8352872,126,28)
  {
   Delay=90000
   FastStop=0
   BusyEvent=1
   link(onSyncExec,10540970:doWork2,[])
  }
  Add(WinTools,8998829,350,168)
  {
   link(Handle,4324991:Var2,[])
  }
  Add(GetDataEx,4324991,343,105)
  {
   link(Data,16382078:Handle,[])
  }
  Add(Hub,4703651,427,119)
  {
   link(onEvent1,8998829:doPopup,[(471,125)(471,153)(338,153)(338,181)])
   link(onEvent2,6863928:ActivePrevWnd,[])
  }
  Add(InlineCode,6863928,483,126)
  {
   WorkPoints=#13:ActivePrevWnd|
   DataPoints=#4:Wind|
   Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses Windows,Messages,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|21:     Wind: THI_Event;|58:     procedure ActivePrevWnd(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|36:procedure THiAsmClass.ActivePrevWnd;|5:begin|65:   SetActiveWindow(GetWindow(ToIntegerEvent(Wind), GW_HWNDNEXT));|4:end;|0:|4:end.|
   link(Wind,4324991:Var3,[(489,114)])
  }
END_SDK
Add(HubEx,6554749,45,203)
{
 link(onEvent,4383465:doDownload,[])
}
Add(HubEx,8304220,-67,203)
{
 link(onEvent,8142197:doPing,[])
}
Add(TrayIcon,16410587,115,287)
{
 Hint="Нет новых сообщений"
 ShowWORemoveIcon=0
 Point(doHint)
 Point(doAddTrayIcon)
 link(onClick,12225522:doPopupHere,[])
}
Add(Hub,4622343,-123,287)
{
 OutCount=4
 link(onEvent1,8304220:doWork3,[(-63,293)])
 link(onEvent2,16410587:doHide,[])
 link(onEvent3,13908619:doWork2,[])
 link(onEvent4,12307605:In,[])
}
Add(Hub,13124715,514,217)
{
 OutCount=3
 link(onEvent1,2905991:doString,[])
 link(onEvent2,15234324:doString,[])
 link(onEvent3,12285459:doWork,[(572,237)(572,265)])
}
Add(PopupMenu,12225522,171,280)
{
 Menu=#5:Сброс|1:-|5:Выход|
 PColor(onClick,16744576)
 link(onClick,1058291:doEvent,[])
}
Add(DoData,6205670,3,210)
{
 link(onEventData,6554749:doWork2,[])
}
Add(FormatStr,15234324,563,224)
{
 DataCount=1
 Mask="Новые сообщения: %1"
 link(onFString,7381889:In,[])
}
Add(IndexToChanel,1058291,213,280)
{
 Count=3
 PColor(onEvent3,16711935)
 link(onEvent1,2122967:doEvent2,[])
 link(onEvent3,4184831:doClose,[(251,300)(251,396)(-177,396)(-177,300)])
}
Add(LineBreak,2153807,255,273)
{
 Caption="Сброс1"
 link(Out,2122967:doEvent1,[])
 Primary=[6995705,553,-56]
}
Add(Hub,2122967,395,273)
{
 InCount=2
 OutCount=3
 link(onEvent1,3536612:doClear,[(439,279)(439,230)])
 link(onEvent2,135873:doData,[])
 link(onEvent3,14259867:doData,[(446,293)(446,328)])
}
Add(LineBreak,2737093,-81,336)
{
 Caption="Set_hint1"
 link(Out,3858149:doEvent1,[])
 Primary=[7381889,707,-112]
}
Add(LineBreak,10813816,-81,357)
{
 Caption="Set_hint2"
 link(Out,3858149:doEvent2,[(-13,363)(-13,349)])
 Primary=[6969891,588,-77]
}
Add(Hub,3858149,-4,336)
{
 InCount=3
 OutCount=1
 link(onEvent1,16410587:doHint,[(105,342)(105,314)])
}
Add(DoData,135873,458,280)
{
 Data=String(Нет новых сообщений)
 link(onEventData,6969891:In,[])
}
Add(IconGraph,14996932,52,301)
{
 Sensit=0
 Style=2
 ChannelsBar=0
 TextColor=0
 link(onIconGraph,16410587:doIcon,[])
}
Add(HubEx,13908619,31,294)
{
 link(onEvent,14996932:doPosition1,[])
}
Add(LineBreakEx,13765077,-18,315)
{
 Caption="Icon"
 Type=1
 link(OnEvent,13908619:doWork3,[(35,321)])
}
Add(LineBreakEx,12285459,598,259)
{
 Caption="Icon"
}
Add(LineBreakEx,7019717,507,322)
{
 Caption="Icon"
}
Add(DoData,14259867,458,322)
{
 Data=Integer(0)
 link(onEventData,7019717:doWork,[])
}
Add(InfoTip,15504479,136,14)
{
 Info=#35:Проверка новых сообщений на форуме.|45:Потребление трафика: ~1 килобайт за проверку.|93:Функции: Отображение количества новых постов в трее, отдельном окне(popup), подсказка в трее.|76:Цель: экономия трафика, программа сама оповестит вас о наличии новых постов.|56:PS: по умолчанию проверка производится 1 раз в 10 минут.|
 Transparent=1
 Width=302
 Height=116
}
Add(Hub,13409516,192,210)
{
 OutCount=3
 link(onEvent1,10542576:doWork1,[(236,216)(236,181)])
 link(onEvent2,13718052:doCalcDelta,[])
 link(onEvent3,10630825:doValue,[])
}
Add(MultiElement,2147434,290,154)
{
 link(onEvent1,12832302:doWork1,[(350,160)])
}
BEGIN_SDK
  Add(EditMulti,2655929,21,21)
  {
   EventCount=1
   WorkCount=1
   Width=342
   link(doWork1,4485230:doTimer,[(42,27)(42,125)])
  }
  Add(Ini,15139382,126,119)
  {
   FileName="FSX2.ini"
   Section="A"
   Key="Last"
   link(onResult,12350:doCompare,[])
  }
  Add(GlobalVar,10630825,189,63)
  {
   Name="Posts"
  }
  Add(If_else,12350,182,119)
  {
   Type=1
   link(onTrue,11953258:doOperation,[])
   link(Op2,3808926:Var2,[])
  }
  Add(Math,11953258,231,119)
  {
   OpType=1
   ResultType=0
   link(onResult,2655929:onEvent1,[(313,125)(313,27)])
   link(Op1,3808926:Var3,[(237,100)])
  }
  Add(GetDataEx,3808926,182,91)
  {
   link(Data,10630825:Var,[])
  }
  Add(Timer,4485230,63,119)
  {
   Interval=9000
   Enable=1
   AutoStop=1
   link(onTimer,15139382:doRead,[])
  }
END_SDK
Add(LineBreak,12184818,220,154)
{
 Caption="onStart"
 link(Out,2147434:doWork1,[])
 Primary=[12307605,-294,154]
}
Add(GlobalVar,10630825,234,224)
{
 Name="Posts"
}
Add(MultiElement,10542576,248,175)
{
}
BEGIN_SDK
  Add(EditMulti,3727592,21,21)
  {
   WorkCount=1
   link(doWork1,11300158:doCompare,[(53,27)(53,83)])
  }
  Add(Ini,15138733,217,70)
  {
   FileName="FSX2.ini"
   Section="A"
   Key="Last"
  }
  Add(If_else,11300158,84,77)
  {
   Type=2
   Op2=Integer(0)
   link(onTrue,15138733:doWrite,[])
   link(onFalse,10674296:doOperation,[])
   link(Op1,10674296:Result,[(90,65)(114,65)(114,128)(139,128)])
  }
  Add(Math,10674296,133,84)
  {
   Op2=1
   ResultType=0
  }
END_SDK
Add(HubEx,12832302,346,210)
{
 link(onEvent,10931598:doCompare,[])
}