Make(delphi)
Pos(25,0)
Add(MainForm,4184831,17,273)
{
 Left=20
 Top=105
 Visible=1
 Caption=""
 link(onCreate,4622343:doEvent1,[])
}
Add(Button,12354016,66,154)
{
 Left=145
 Top=60
 Width=100
 Caption="Проверить"
 link(onClick,6554749:doWork1,[(231,160)])
}
Add(HTTP_Get,4383465,241,210)
{
 URL="http://hiasm.1gb.ru/forum_serv.php?q=1"
 Length=5
 link(onDownload,15779580:doConvert,[])
 link(Position,669112:Value,[])
}
Add(Convertor,15779580,290,217)
{
 Mode=11
 link(onResult,8241099:doConvert,[])
}
Add(Memory,669112,255,154)
{
 Default=Integer(21)
}
Add(Ping,8142197,136,210)
{
 Name="www.hiasm.com"
 ByteCount=1
 link(onFind,6205670:doData,[])
}
Add(Timer,14208105,66,210)
{
 Interval=60000
 link(onTimer,8304220:doWork2,[])
}
Add(SampleDelta,13718052,479,217)
{
 link(onCalcDelta,12832302:doWork2,[])
}
Add(Convertor,8241099,332,217)
{
 Mode=1
 link(onResult,13409516:doEvent1,[(369,223)(369,216)])
}
Add(If_else,10931598,563,217)
{
 Type=2
 Op2=Integer(0)
 link(onTrue,3536612:doOperation,[])
}
Add(Time,161842,871,168)
{
 Format="h:m:s"
}
Add(FormatStr,2905991,871,217)
{
 Mask="%1\n\rНовые сообщения(%2)"
 link(onFString,15228594:doWork1,[])
 link(Str1,161842:FormatTime,[])
}
Add(Math,3536612,633,217)
{
 ResultType=0
 Point(doClear)
 link(onResult,13124715:doEvent1,[])
 link(Op1,3536612:Result,[(639,205)(627,205)(627,261)(639,261)])
}
Add(ChildForm,15228594,927,217)
{
 PColor(onEvent1,16744576)
 link(onEvent1,6995705:In,[])
}
BEGIN_SDK
  Add(EditMulti,8663354,21,21)
  {
   EventCount=1
   WorkCount=1
   Width=622
   Height=256
   link(doWork1,6570205:doEvent1,[(31,27)(31,76)])
  }
  Add(MainForm,16382078,371,49)
  {
   Left=35
   Top=105
   Width=210
   Height=35
   Color=12632256
   Visible=1
   Caption=""
   BorderStyle=0
   TaskBar=1
   Point(doVisible)
   Point(doLeft)
   Point(doTop)
   Point(Handle)
   link(onActivate,4703651:doEvent1,[(425,55)(425,125)])
  }
  Add(Hub,6570205,42,70)
  {
   OutCount=3
   link(onEvent1,8352872:doStart,[(107,76)(107,34)])
   link(onEvent2,6016409:doData,[])
   link(onEvent3,6235657:doText,[(100,90)(100,167)])
  }
  Add(DoData,6016409,238,77)
  {
   Data=Integer(1)
   link(onEventData,13885877:doWork2,[])
  }
  Add(HubEx,13885877,280,70)
  {
   link(onEvent,16382078:doVisible,[])
  }
  Add(DoData,16283825,238,35)
  {
   Data=Integer(0)
   link(onEventData,13885877:doWork1,[(284,41)])
  }
  Add(MultiElement,12445492,308,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=59
     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,175,147)
  {
   PColor(onEvent1,16711935)
   link(onEvent1,10540970:doWork3,[(221,153)])
   link(onEvent2,8663354:onEvent1,[(558,160)(558,27)])
  }
  Add(HubEx,10540970,217,28)
  {
   link(onEvent,16283825:doData,[])
  }
  Add(Thread,8352872,126,28)
  {
   Delay=90000
   FastStop=0
   BusyEvent=1
   link(onSyncExec,10540970:doWork2,[])
  }
  Add(WinTools,8998829,371,168)
  {
   link(Handle,4324991:Var2,[])
  }
  Add(GetDataEx,4324991,364,105)
  {
   link(Data,16382078:Handle,[])
  }
  Add(Hub,4703651,448,119)
  {
   link(onEvent1,8998829:doPopup,[(492,125)(492,153)(359,153)(359,181)])
   link(onEvent2,6863928:ActivePrevWnd,[])
  }
  Add(InlineCode,6863928,504,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,[(510,114)])
  }
  Add(Memo,6235657,133,140)
  {
   Width=210
   Height=35
   Align=5
   Color=-16777192
   Font=[MS Sans Serif,8,1,0,1]
   TabOrder=-1
   Ctl3D=1
   Strings=#7:fgcfgfc|7:fghfghf|
   ReadOnly=0
   Point(onMouseDown)
   link(onMouseDown,15100790:doEvent1,[])
  }
END_SDK
Add(HubEx,6554749,227,203)
{
 link(onEvent,4383465:doDownload,[])
}
Add(HubEx,8304220,115,203)
{
 link(onEvent,8142197:doPing,[])
}
Add(TrayIcon,16410587,297,287)
{
 Hint="Нет новых сообщений"
 ShowWORemoveIcon=0
 Point(doHint)
 Point(doAddTrayIcon)
 link(onClick,12225522:doPopupHere,[])
}
Add(Hub,4622343,59,287)
{
 OutCount=4
 link(onEvent1,8304220:doWork3,[(119,293)])
 link(onEvent2,16410587:doHide,[])
 link(onEvent3,13908619:doWork2,[])
 link(onEvent4,12307605:In,[])
}
Add(Hub,13124715,682,217)
{
 OutCount=4
 link(onEvent1,2905991:doString,[])
 link(onEvent2,15234324:doString,[])
 link(onEvent3,2869870:doWork1,[(726,237)(726,435)(159,435)(159,384)])
 link(onEvent4,12285459:doWork,[(737,244)(737,265)])
}
Add(PopupMenu,12225522,353,280)
{
 Menu=#5:Сброс|1:-|5:Выход|
 PColor(onClick,16744576)
 link(onClick,1058291:doEvent,[])
}
Add(DoData,6205670,185,210)
{
 link(onEventData,6554749:doWork2,[])
}
Add(FormatStr,15234324,745,224)
{
 DataCount=1
 Mask="Новые сообщения: %1"
 link(onFString,7381889:In,[])
}
Add(IndexToChanel,1058291,395,280)
{
 Count=3
 PColor(onEvent3,16711935)
 link(onEvent1,2122967:doEvent2,[])
 link(onEvent3,4184831:doClose,[(446,300)(446,395)(5,395)(5,300)])
}
Add(LineBreak,356352,486,273)
{
 Caption="Сброс1"
 link(Out,2122967:doEvent1,[])
 Primary=[6995705,504,-56]
}
Add(Hub,2122967,563,273)
{
 InCount=2
 OutCount=4
 link(onEvent1,3536612:doClear,[(611,279)(611,230)])
 link(onEvent2,135873:doData,[])
 link(onEvent3,2869870:doWork2,[(607,293)(607,429)(166,429)(166,391)])
 link(onEvent4,14259867:doData,[(621,300)(621,328)])
}
Add(LineBreak,10520868,101,336)
{
 Caption="Set_hint1"
 link(Out,3858149:doEvent1,[])
 Primary=[7381889,707,-112]
}
Add(LineBreak,15471600,101,357)
{
 Caption="Set_hint2"
 link(Out,3858149:doEvent2,[(169,363)(169,349)])
 Primary=[6969891,588,-77]
}
Add(Hub,3858149,178,336)
{
 InCount=3
 OutCount=1
 link(onEvent1,16410587:doHint,[(287,342)(287,314)])
}
Add(DoData,135873,640,280)
{
 Data=String(Нет новых сообщений)
 link(onEventData,6969891:In,[])
}
Add(IconGraph,14996932,234,301)
{
 Sensit=0
 Style=2
 ChannelsBar=0
 FonColor=-16777192
 TextColor=0
 Point(doTranspIcon)
 link(onIconGraph,16410587:doIcon,[])
}
Add(HubEx,13908619,213,294)
{
 link(onEvent,14996932:doPosition1,[])
}
Add(LineBreakEx,13765077,164,315)
{
 Caption="Icon"
 Type=1
 link(OnEvent,13908619:doWork3,[(217,321)])
}
Add(LineBreakEx,12285459,780,259)
{
 Caption="Icon"
}
Add(LineBreakEx,7019717,689,322)
{
 Caption="Icon"
}
Add(DoData,14259867,640,322)
{
 Data=Integer(0)
 link(onEventData,7019717:doWork,[])
}
Add(InfoTip,15504479,318,14)
{
 Info=#35:Проверка новых сообщений на форуме.|45:Потребление трафика: ~1 килобайт за проверку.|93:Функции: Отображение количества новых постов в трее, отдельном окне(popup), подсказка в трее.|76:Цель: экономия трафика, программа сама оповестит вас о наличии новых постов.|55:PS: по умолчанию проверка производится 1 раз в 1 минуту|
 Transparent=1
 Width=330
 Height=116
}
Add(Hub,13409516,374,210)
{
 OutCount=3
 link(onEvent1,10542576:doWork1,[(418,216)(418,181)])
 link(onEvent2,13718052:doCalcDelta,[])
 link(onEvent3,10630825:doValue,[])
}
Add(MultiElement,2147434,472,154)
{
 link(onEvent1,12832302:doWork1,[(532,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,9053964,402,154)
{
 Caption="onStart"
 link(Out,2147434:doWork1,[])
 Primary=[12307605,-294,154]
}
Add(GlobalVar,10630825,416,224)
{
 Name="Posts"
}
Add(MultiElement,10542576,430,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,528,210)
{
 link(onEvent,10931598:doCompare,[])
}
Add(ChanelToIndex,2869870,178,378)
{
 link(onIndex,14996932:doTranspIcon,[(222,384)(222,321)])
}