Вверх ↑
Ответов: 9906
Рейтинг: 351
#1: 2017-07-18 09:19:46 ЛС | профиль | цитата
Tad писал(а):
Del_BlockFind.png
Tad, конечно же -- жульничает.
Ибо его установка: вовсе не достижение конечного результата.
А -- "прокукарекать", подвинув других, тем самым, к мыслительному процессу.
Что вовсе не всегда адекватно. Но, как говорится: "а там хоть не рассветай"

Но, в данном случае, мысль его правильная. Реализуемая примерно так:
Del_BlockFind.sha

Add(MainForm,11394752,245,21)
{
Width=868
Height=591
}
Add(BlockFind,6286189,448,161)
{
IncludeBlock=1
Point(doEndBlock)
Point(doStartBlock)
Point(doStop)
link(onSearch,11112119:doEvent1,[])
}
Add(Button,13381527,245,84)
{
Left=14
Top=7
Width=104
Caption="Load FILE"
link(onClick,16620189:doExecute,[])
}
Add(Memo,11257195,406,56)
{
Left=14
Top=42
Width=400
Height=497
AddType=1
ScrollBars=2
Point(doLoad)
Point(SelText)
}
Add(Memo,11995381,539,140)
{
Left=434
Top=42
Width=400
Height=497
ScrollBars=2
}
Add(ODialog,16620189,308,84)
{
FileName="License.txt"
link(onExecute,11257195:doLoad,[])
}
Add(DoData,10753809,308,168)
{
link(onEventData,10476694:doEvent1,[])
link(Data,11257195:SelText,[(314,152)(433,152)])
}
Add(Hub,10476694,357,168)
{
OutCount=3
link(onEvent1,6286189:doEndBlock,[])
link(onEvent2,6286189:doStartBlock,[])
link(onEvent3,9794996:doStrCat,[(382,188)(382,167)])
}
Add(StrCat,9794996,399,161)
{
link(onStrCat,6286189:doSearch,[])
link(Str2,11257195:Text,[])
}
Add(Button,7288544,245,168)
{
Left=133
Top=7
Width=118
Caption="Cut to SELECT"
link(onClick,10753809:doData,[])
}
Add(Hub,11112119,497,161)
{
link(onEvent1,11995381:doText,[])
link(onEvent2,6286189:doStop,[(522,174)(522,202)(438,202)(438,188)])
}
карма: 9

0
Редактировалось 4 раз(а), последний 2017-07-18 09:46:05