Make(Delphi)
Pos(0,0)
Add(MainForm,15497,28,21)
{
 Left=351
 Top=231
 Width=322
 Height=359
 Caption="Easy Mail Client"
 BorderStyle=3
}
Add(SMTP,55446,182,224)
{
 Server=""
 Login="galkov"
 Point(Attach)
 link(onSend,84847:doCompare,[])
 link(onStatus,3986548:doWork2,[])
 link(Server,70667:Text,[])
 link(From,52151:Text,[])
 link(To,19665:Text,[])
 link(Subject,24307:Text,[])
 link(Body,15273811:Text,[(216,191)(244,191)])
 link(Attach,5859768:Array,[(223,202)(328,202)])
}
Add(Edit,70667,182,21)
{
 Left=70
 Top=5
 Width=235
 Height=19
 Color=-16777188
 Ctl3D=1
 Font=[Arial,8,0,0,1]
 Text="smtp.inbox.ru"
}
Add(BitBtn,41943,84,56)
{
 Left=155
 Top=295
 Width=70
 Height=25
 TabOrder=6
 Font=[Arial,8,0,0,1]
 FrameColor=-16777188
 Caption="Clear"
 Data=String()
 link(onClick,10377:doEvent1,[])
}
Add(Label,33486,28,175)
{
 Left=15
 Top=50
 Font=[Arial,8,0,0,1]
 Caption="To:"
}
Add(Memo,15273811,238,49)
{
 Left=15
 Top=160
 Width=285
 Height=125
 Hint="Письмо"
 Strings=#9:E:\\1.ico|9:E:\\2.ico|
 ScrollBars=3
}
Add(Label,50883,28,133)
{
 Left=15
 Top=30
 Font=[Arial,8,0,0,1]
 Caption="From:"
}
Add(If_else,84847,308,224)
{
 Type=5
 Op2=String()
 link(onTrue,94987:doMessage,[])
 link(onFalse,56539:doMessage,[])
}
Add(Edit,24307,203,147)
{
 Left=70
 Top=68
 Width=235
 Height=19
 TabOrder=3
 Ctl3D=1
 Font=[Arial,8,0,0,1]
 Text="HiAsm"
}
Add(Message,94987,399,224)
{
 Caption="Mail Error"
 Icon=1
}
Add(StatusBar,5785124,259,231)
{
}
Add(Label,82794,28,217)
{
 Left=15
 Top=70
 Font=[Arial,8,0,0,1]
 Caption="Subject:"
}
Add(Hub,10377,133,56)
{
 OutCount=4
 link(onEvent1,70667:doText,[(173,62)(173,27)])
 link(onEvent2,52151:doText,[])
 link(onEvent3,19665:doText,[(180,76)(180,111)])
 link(onEvent4,24307:doText,[(173,83)(173,149)(173,153)])
}
Add(Label,80021,28,91)
{
 Left=15
 Top=10
 Font=[Arial,8,0,0,1]
 Caption="Server:"
}
Add(BitBtn,9514,84,217)
{
 Left=235
 Top=295
 Width=70
 Height=25
 TabOrder=5
 Font=[Arial,8,0,0,1]
 FrameColor=-16777188
 Caption="Send"
 Data=String(!!!)
 link(onClick,8915623:doEvent1,[])
}
Add(Edit,19665,196,105)
{
 Left=70
 Top=47
 Width=235
 Height=19
 TabOrder=2
 Ctl3D=1
 Font=[Arial,8,0,0,1]
 Text="galkov@inbox.ru"
}
Add(Edit,52151,189,63)
{
 Left=70
 Top=26
 Width=235
 Height=19
 TabOrder=1
 Ctl3D=1
 Font=[Arial,8,0,0,1]
 Text="galkov@inbox.ru"
}
Add(Message,56539,357,231)
{
 Message="Письмо отправлено!"
 Caption="Mail Ok"
 Icon=4
}
Add(ListBox,5859768,308,147)
{
 Left=15
 Top=100
 Width=285
 Height=50
 Hint="Файлы"
 Point(onDblClick)
 Point(Index)
 link(onDblClick,12664653:doCompare,[])
}
Add(ODialog,7907887,259,147)
{
 Title="Add File to Attach"
 Select=1
 link(onExecute,5859768:doAdd,[])
}
Add(Hub,8915623,133,217)
{
 link(onEvent1,3986548:doWork1,[(242,223)])
 link(onEvent2,55446:doSend,[])
}
Add(HubEx,3986548,238,224)
{
 link(onEvent,5785124:doText,[])
}
Add(If_else,12664653,364,168)
{
 Type=1
 Op2=Integer(0)
 link(onTrue,7907887:doExecute,[(406,174)(406,137)(249,137)(249,153)])
 link(onFalse,13079428:doMessage,[])
 link(Op1,12517860:Var2,[])
}
Add(Message,13079428,413,175)
{
 Message="Удалить этот файл из списка ?"
 Type=2
 link(onMessage,783760:doCase,[])
}
Add(Case,783760,462,175)
{
 Value=Integer(6)
 link(onTrue,8444837:doData,[])
}
Add(DoData,8444837,504,182)
{
 link(onEventData,5859768:doDelete,[(546,188)(546,210)(298,210)(298,167)])
 link(Data,12517860:Var3,[(510,156)])
}
Add(GetDataEx,12517860,357,147)
{
 link(Data,5859768:Index,[(370,147)(349,147)(349,202)(335,202)])
}