Add(MainForm,3551160,49,217)
{
Width=261
Height=326
Position=1
link(onCreate,3226726:doSearch,[(128,237)(128,174)])
}
Add(Button,3272711,119,245)
{
Left=15
Top=10
Width=200
link(onClick,3980929:doEvent1,[])
}
Add(Image,6566424,539,154)
{
Left=15
Top=60
Width=200
Height=200
Color=16777215
ViewStyle=1
}
Add(Jpeg,9896000,490,154)
{
Quality=100
Point(doBitmap)
Point(FileName)
link(onBitmap,6566424:doLoad,[])
}
Add(Hub,7362224,455,154)
{
link(onEvent1,9896000:doLoad,[])
link(onEvent2,9896000:doBitmap,[(479,167)(479,174)])
}
Add(StrList,3164099,273,140)
{
Point(EndIdx)
Point(doGetString)
Point(onGetString)
link(onGetString,2150770:doEvent1,[])
}
Add(Random,2476299,294,224)
{
Point(doMax)
Point(Max)
link(onRandom,3164099:doGetString,[(338,230)(338,209)(261,209)(261,188)])
link(Max,3164099:EndIdx,[])
}
Add(Label,10911830,406,84)
{
Left=15
Top=35
Width=200
}
Add(Hub,2150770,343,147)
{
link(onEvent1,2941623:doPart,[(369,153)(369,121)(345,121)(345,90)])
link(onEvent2,7362224:doEvent1,[])
}
Add(Hub,3980929,175,245)
{
link(onEvent1,2476299:doMax,[])
link(onEvent2,2476299:doRandom,[(241,258)(241,230)])
}
Add(FileSearch,3226726,175,168)
{
Ext="*.jpg"
Dir="\"
link(onSearch,3164099:doAdd,[(240,174)(240,146)])
link(onEndSearch,2476299:doRandomize,[(251,181)(251,237)])
link(Dir,3898168:CurrentDir,[])
}
Add(Dir,3898168,182,63)
{
}
Add(FilePartElm,2941623,357,84)
{
Mode=2
link(onPart,10911830:doText,[])
}
Ответов: 632
Рейтинг: 4
|
|||
K0ndar, вообще-то можно было все автоматизировать! Скомпилируете программу и рядом с программой положите все свои изображения (.jpg) формата.
|
|||
карма: 0 |
|