Вверх ↑
Разработчик
Ответов: 26324
Рейтинг: 2147
#1: 2009-10-05 10:28:55 ЛС | профиль | цитата
StrList не Memo, он не поддерживает мультистрочное добавление по doAdd, добавлять надо по doText



Add(MainForm,14359608,294,252)
{
Width=153
Height=83
BorderStyle=4
Position=1
link(onCreate,5333878:doStrCat,[])
}
Add(FileStream,2226307,385,315)
{
link(onLoad,14897229:doConvert,[])
link(FileName,5333878:Result,[])
}
Add(Convertor,14897229,434,315)
{
Mode=11
link(onResult,3526093:doText,[(478,321)(478,342)])
}
Add(Timer,12372432,448,371)
{
Interval=0
link(onTimer,4177465:doText,[])
}
Add(StrList,3526093,490,315)
{
}
Add(StrCat,5333878,385,266)
{
Str2="system32driversetchosts"
link(onStrCat,2226307:doOpen,[(429,272)(429,296)(373,296)(373,321)])
link(Str1,10596633:WindowsDir,[])
}
Add(Dir,10596633,357,217)
{
Point(WindowsDir)
}
Add(Label,10054891,294,301)
{
Left=5
Top=35
Width=95
Height=17
Caption="Количество строк"
}
Add(Label,4177465,497,371)
{
Left=110
Top=35
link(Text,3526093:Count,[])
}
Add(Label,14705601,294,350)
{
Left=60
Top=10
Width=31
Height=18
Font=[Arial,8,0,0,204]
Caption="hosts"
}

карма: 22

1
Голосовали:CriDos