Clarc писал(а):
Как тебе мой пример??Если немного упростить и привести в божеский вид, то пойдет
code_21778.txt
------------ Дoбавленo в 13.35:
Я думаю, что и вот так тоже будет работать, еще немного упростив
Add(MainForm,2953706,35,119)
{
Width=304
Height=100
Caption="Распознование по категориям"
BorderStyle=4
Position=1
}
Add(StrList,3290294,238,105)
{
Strings=#15:exeПрограммыexe|15:comПрограммыcom|12:mp3Музыкаmp3|12:wavМузыкаwav|12:assМузыкаass|12:asfМузыкаasf|14:midiМузыкаmidi|12:oggМузыкаogg|12:wmaМузыкаwma|11:wmvВидеоwmv|11:aviВидеоavi|11:mp4Видеоmp4|11:flvВидеоflv|11:movВидеоmov|11:mkvВидеоmkv|13:mpegВидеоmpeg|13:mpg2Видеоmpg2|12:rarАрхивыrar|12:zipАрхивыzip|10:7zАрхивы7z|12:tarАрхивыtar|12:isoАрхивыiso|12:cabАрхивыcab|
}
Add(BlockFind,11694260,238,175)
{
IncludeBlock=1
Point(doStartBlock)
Point(doEndBlock)
link(onSearch,8209288:doString,[(289,181)(289,97)(84,97)(84,237)])
link(Text,3290294:Text,[])
}
Add(FormatStr,8209288,105,231)
{
Mask="C:Downloads\%1\%2"
link(onFString,2572642:doText,[])
link(Str2,10497326:Part,[])
}
Add(Str_Enum,14717853,154,182)
{
Delimiter="."
link(onEnum,12122857:doEvent1,[])
}
Add(Str_Enum,10497326,105,182)
{
Delimiter="/"
link(onEnum,14717853:doEnum,[])
link(String,2781474:Text,[])
}
Add(Edit,2781474,105,119)
{
Left=5
Top=25
Width=290
Text="Вставь сюда URL"
link(onChange,10497326:doEnum,[(150,125)(150,110)(93,110)(93,188)])
}
Add(Edit,2572642,154,231)
{
Left=5
Top=50
Width=290
Text="Здесь получи результат"
}
Add(Hub,12122857,203,182)
{
OutCount=3
link(onEvent1,11694260:doStartBlock,[])
link(onEvent2,11694260:doEndBlock,[])
link(onEvent3,11694260:doSearch,[(227,202)(227,181)])
}
Add(Button,8621398,35,182)
{
Left=5
Top=5
Caption="Пример"
Data=String(http://clarc2009.narod.ru/BurnoutParadise.rar)
}