Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
 Width=1141
 Height=462
 Caption="Почта.ru"
 Position=1
}
Add(SMTP,2722764,357,196)
{
 Server="smtp.gmail.com"
 Port=587
 Point(Login)
 Point(Password)
 link(onStatus,8894008:doMessage,[(411,209)(411,314)])
 link(From,16337319:Text,[(370,156)(202,156)])
 link(To,3374901:Text,[(377,187)(328,187)])
 link(Subject,11664598:Text,[(384,180)(377,180)])
 link(Login,3158724:Var3,[(398,184)(232,184)(232,418)])
 link(Password,4127264:Var3,[(405,184)(259,184)(259,425)])
}
Add(Edit,3374901,322,140)
{
 Left=5
 Top=30
 Width=1120
 Text="Кому (только на Гугл почту)"
}
Add(Edit,16337319,196,77)
{
 Left=5
 Top=5
 Width=1115
 Enabled=1
 Text="От кого"
 link(Str,3158724:Var1,[(202,65)(83,65)])
}
Add(Edit,11664598,371,133)
{
 Left=5
 Top=60
 Width=1115
 Height=115
 Text="Тема"
 ClearAfterEnter=1
}
Add(hcMessage,8894008,448,308)
{
 Message="Состояние"
}
Add(LED,1140784,35,203)
{
 Left=5
 Top=205
}
Add(Button,5052816,105,273)
{
 Left=30
 Top=205
 Width=65
 Height=25
 Caption="Обновить"
}
Add(DoData,16342031,203,336)
{
 Data=String(0)
}
Add(DoData,8917610,203,378)
{
 Data=String(1)
}
Add(POP3,5854498,84,476)
{
 Server="smtp.gmail.com"
 Point(onError)
 link(onConnect,9066166:doEvent1,[])
 link(onRead,1813509:doAdd,[(184,489)(184,468)])
 link(Login,14556206:Var2,[(97,440)(62,440)])
 link(Password,4127264:Var2,[(104,438)(110,438)])
 link(onError,14312092:doEvent1,[(131,496)(131,538)])
}
Add(Label,15792650,112,210)
{
 Left=495
 Top=205
 Width=119
 Height=20
 Font=[MS Sans Serif,10,1,0,1]
 Caption="Войти на почту"
}
Add(Edit,3804312,56,371)
{
 Left=5
 Top=235
 Width=200
 Text="Логин"
 link(onChange,16337319:doText,[(142,377)(142,83)])
}
Add(Edit,13613937,104,368)
{
 Left=5
 Top=265
 Width=200
 Text="Пароль"
 Password=0
}
Add(Button,7868437,0,476)
{
 Left=5
 Top=295
 Width=200
 Caption="Войти"
 link(onClick,6710006:doEvent1,[])
}
Add(ComboBox,6871866,168,476)
{
 Left=615
 Top=260
 Width=125
 Height=21
 Text="Входящие письма"
 link(onClick,5854498:doRead,[(212,489)(212,477)(65,477)(65,489)])
}
Add(Hub,9066166,126,476)
{
 link(onEvent1,6871866:doAdd,[])
 link(onEvent2,2551076:doWork2,[(152,489)(152,513)(152,513)])
}
Add(Hub,6710006,42,476)
{
 OutCount=3
 link(onEvent1,5854498:doConnect,[])
 link(onEvent2,1912334:doWork1,[(66,489)(66,531)])
 link(onEvent3,9753806:doEnabled,[(154,496)(154,258)])
}
Add(ChildForm,1912334,77,525)
{
}
BEGIN_SDK
  Add(EditMulti,5185116,21,21)
  {
   WorkCount=2
   link(doWork1,1297934:doVisible,[(35,27)(35,139)])
   link(doWork2,1297934:doClose,[(35,34)(35,132)])
  }
  Add(MainForm,1297934,49,105)
  {
   Left=35
   Top=105
   Width=318
   Height=74
   Visible=1
   Caption="Загрузка"
   BorderStyle=8
   Position=1
   Point(doVisible)
  }
  Add(Label,15586718,56,49)
  {
   Left=5
   Width=297
   Height=29
   Font=[MS Sans Serif,15,1,0,1]
   Caption="Загрузка писем. Подождите"
  }
END_SDK
Add(ChildForm,11686228,84,574)
{
}
BEGIN_SDK
  Add(EditMulti,335189,21,21)
  {
   WorkCount=3
   link(doWork1,3836568:doVisible,[(117,27)(117,83)(37,83)(37,139)])
   link(doWork2,3836568:doClose,[(35,34)(35,132)])
   link(doWork3,1529112:doText,[(39,41)(39,55)])
  }
  Add(MainForm,3836568,49,105)
  {
   Left=35
   Top=105
   Width=318
   Height=74
   Visible=1
   Caption="Загрузка"
   BorderStyle=8
   Position=1
   Point(doVisible)
  }
  Add(Label,1529112,56,49)
  {
   Left=5
   Width=297
   Height=29
   Font=[MS Sans Serif,15,1,0,1]
   Caption=""
  }
END_SDK
Add(Hub,14312092,154,532)
{
 OutCount=4
 link(onEvent1,11686228:doWork1,[(180,538)(180,559)(72,559)(72,580)])
 link(onEvent2,14262990:doData,[(180,545)(180,594)(37,594)(37,643)])
 link(onEvent3,2432134:doTimer,[])
 link(onEvent4,1136644:doTimer,[(180,559)(180,577)(156,577)(156,594)])
}
Add(HubEx,15676232,63,532)
{
 link(onEvent,1912334:doWork2,[])
}
Add(Timer,1136644,168,588)
{
 Interval=4000
 Enable=1
 AutoStop=1
 link(onTimer,11686228:doWork2,[(212,594)(212,590)(72,590)(72,587)])
}
Add(HubEx,7730852,84,507)
{
 Angle=2
 link(onEvent,15676232:doWork2,[(65,513)(65,538)])
}
Add(Timer,2432134,217,546)
{
 Interval=1
 Enable=1
 AutoStop=1
 link(onTimer,2551076:doWork3,[(261,552)(261,534)(109,534)])
}
Add(HubEx,2551076,105,507)
{
 Angle=2
 link(onEvent,7730852:doWork2,[])
}
Add(DoData,14262990,49,637)
{
 Data=String(Произошла ошибка)
 link(onEventData,11686228:doWork3,[(83,643)(83,594)])
}
Add(Memo,1813509,259,462)
{
 Left=290
 Top=230
 Width=225
 Height=160
}
Add(Button,9753806,252,252)
{
 Left=5
 Top=180
 Width=1115
 Enabled=1
 Caption="Отправить"
 Point(doEnabled)
 link(onClick,2722764:doSend,[(310,258)(310,202)])
}
Add(GetDataEx,14556206,56,413)
{
 link(Data,3804312:Text,[])
}
Add(GetDataEx,4127264,104,420)
{
 link(Data,13613937:Text,[])
}
Add(GetDataEx,3158724,77,413)
{
 Angle=3
 link(Data,14556206:Var3,[])
}