Вверх ↑
Ответов: 1536
Рейтинг: 176
#1: 2013-03-07 16:11:07 ЛС | профиль | цитата
Если заранее известны границы текста, то можно воспользоваться простым FormatStr

Add(MainForm,12049245,161,161)
{
Width=586
Height=317
BorderStyle=1
link(onCreate,7555487:doExpand,[])
}
Add(SMTP,13035026,413,406)
{
Port=2525
Point(Attach)
Point(Login)
Point(Password)
link(onStatus,11925895:doText,[])
link(From,3429945:Text,[(426,371)(314,371)])
link(To,12730526:Text,[(433,360)(356,360)])
link(Subject,3603283:Text,[(440,353)(398,353)])
link(Body,760243:Text,[])
link(Attach,9644043:Array,[(454,306)(482,306)])
link(Login,13193839:Text,[(461,377)(475,377)])
link(Password,7944118:Text,[(468,385)(517,385)])
}
Add(Button,363541,294,406)
{
Left=445
Top=265
Width=65
Caption="Отправить"
link(onClick,5414407:doStart,[])
}
Add(Label,11925895,490,413)
{
Left=5
Top=270
Width=380
Caption="Статус"
}
Add(Memo,760243,441,252)
{
Left=10
Top=115
Width=245
Height=145
ScrollBars=2
}
Add(Edit,3603283,392,266)
{
Left=310
Top=175
Width=190
Text=""
}
Add(Label,1128265,532,161)
{
Left=310
Top=130
Width=33
Height=17
Font=[MS Sans Serif,8,4,0,1]
Caption="Кому:"
}
Add(Edit,3429945,308,301)
{
Left=10
Top=30
Width=150
Text=""
}
Add(Edit,12730526,350,280)
{
Left=310
Top=150
Width=190
Text=""
}
Add(Button,15980591,567,203)
{
Left=285
Top=10
Width=140
Caption="Присоединить файл"
}
Add(ListBox,9644043,462,154)
{
Left=285
Top=35
Width=290
Strings=#50:C:UsersСюда надо вставить текст AppDataRoaming|
}
Add(Edit,13193839,469,336)
{
Left=10
Top=55
Width=150
Text=""
}
Add(Edit,7944118,511,336)
{
Left=10
Top=80
Width=150
Text=""
}
Add(Label,10311866,567,161)
{
Left=10
Top=10
Width=46
Height=17
Font=[MS Sans Serif,8,4,0,1]
Caption="От кого:"
}
Add(Thread,5414407,357,406)
{
Delay=0
FastStop=0
link(onExec,13035026:doSend,[])
}
Add(EnvVars,7555487,210,175)
{
String="%appdata%"
link(onExpand,15489424:doSplit,[])
}
Add(ComputerInfo,6028682,357,133)
{
}
Add(Edit,13570333,357,175)
{
Left=310
Top=220
Width=195
Text="От сюда вставлять"
link(onChange,9907844:doString,[])
link(Str,6028682:UserName,[])
}
Add(FormatStr,9907844,406,175)
{
DataCount=4
Mask="%1\%2\%3\%4"
link(onFString,9644043:doText,[])
link(Str1,15489424:Part1,[(412,166)(398,166)(398,230)(265,230)])
link(Str2,15489424:Part2,[(419,159)(307,159)(307,221)(272,221)])
link(Str4,6636761:Value,[(433,166)(447,166)(447,236)(314,236)])
}
Add(MultiStrPart,15489424,259,175)
{
Char=""
Count=3
link(onSplit,6636761:doValue,[])
}
Add(Memory,6636761,308,175)
{
link(onData,13570333:doText,[])
}

карма: 1
Не так страшна ошибка, как опасность её не заметить.

0