Вверх ↑
Ответов: 60
Рейтинг: 9
#1: 2020-10-13 06:13:55 ЛС | профиль | цитата
NUB, попробуй так.
Add(MainForm,3211311,168,147)
{
Width=285
Height=584
Position=1
}
Add(SearchInFile,993512,308,301)
{
FileName="1.txt"
Sensitive=1
Point(String)
link(onNotSearch,13927566:doEnum,[])
}
Add(Button,12793547,196,301)
{
Left=10
Top=250
Caption="Так"
link(onClick,15060268:doExecute,[])
}
Add(Edit,5282391,399,56)
{
Left=10
Top=15
Width=245
Text="своих"
}
Add(StrList,1946260,273,77)
{
FileName="1.txt"
Strings=#26:Небрежный плод моих забав,|30:Бессонниц, легких вдохновений,|23:Незрелых и увядших лет,|23:Ума холодных наблюдений|25:И сердца горестных замет.|25:Так думал молодой повеса,|24:Летя в пыли на почтовых,|22:Всевышней волею Зевеса|28:Наследник всех своих родных.|
Point(doSave)
}
Add(Button,11561342,224,140)
{
Left=15
Top=495
Caption="Или так"
link(onClick,10137797:doEnum,[])
}
Add(ArrayEnum,10137797,287,140)
{
link(onItem,16313034:doEnum,[])
link(Array,1946260:Array,[])
}
Add(Str_Enum,16313034,343,140)
{
Delimiter=" "
link(onEnum,15474315:doCompare,[])
}
Add(If_else,15474315,392,140)
{
link(onTrue,8420484:doAdd,[])
link(Op2,9735585:Var2,[])
}
Add(ODialog,15060268,259,301)
{
link(onExecute,993512:doSearch,[])
}
Add(Str_Enum,13927566,371,301)
{
Delimiter=" "
link(onEnum,5631536:doCompare,[])
}
Add(If_else,5631536,427,301)
{
link(onTrue,852769:doAdd,[])
link(Op1,9735585:Var3,[(433,103)])
}
Add(GetDataEx,9735585,399,98)
{
link(Data,5282391:Text,[])
}
Add(Memo,8420484,497,140)
{
Left=10
Top=275
Width=245
Height=205
Ctl3D=1
ScrollBars=3
link(Str,10137797:Item,[(503,131)(489,131)(489,180)(293,180)])
}
Add(Memo,852769,490,301)
{
Left=10
Top=45
Width=245
Height=205
Ctl3D=1
ScrollBars=3
link(Str,993512:String,[(496,292)(482,292)(482,341)(314,341)])
}

карма: 3

0
Редактировалось 3 раз(а), последний 2020-10-13 07:56:26