Вверх ↑
Ответов: 378
Рейтинг: 61
#1: 2011-09-30 07:20:31 ЛС | профиль | цитата
[offtop]
Ravilr писал(а):
в следующий раз при переделывании схемы, пожалуйста, следуй рекомендациям по схемупостроению. Правильность лишней не будет!
ОК [/offtop]
------------ Дoбавленo в 07.20:
[offtop]Ravilr, так лучше?

Make(delphi)
ver(4.04 build 185)
Add(MainForm,12263614,420,189)
{
Width=744
Height=337
BorderStyle=4
Position=1
}
Add(Button,7945617,420,231)
{
Left=280
Top=280
Caption="Start"
link(onClick,3375799:doStart,[])
}
Add(Label,4335205,525,343)
{
Left=345
Top=285
Width=32
Height=17
Caption="Count"
}
Add(Edit,6870352,609,343)
{
Left=380
Top=280
Text=""
link(Str,10119476:Count,[])
}
Add(FileSearch,5897658,518,231)
{
Ext="*.*"
Dir="C:"
link(onSearch,10119476:doAdd,[])
link(onEndSearch,11022361:doAdd,[(562,244)(562,300)])
}
Add(Timer,8375537,567,343)
{
Interval=10
link(onTimer,6870352:doText,[])
}
Add(StrList,10119476,602,231)
{
}
Add(Thread,3375799,469,231)
{
Delay=100
FastStop=0
link(onExec,5897658:doSearch,[])
}
Add(RichEdit,11022361,574,294)
{
Left=5
Top=5
Width=725
Height=270
Ctl3D=0
ScrollBars=3
link(Str,10119476:Text,[(580,285)(608,285)])
}
[/offtop]
карма: 0
0