Имена картинок должны соответствовать наименованию строки...
Если в списке "солнце", то картинку называем "солнце.jpg".
Add(MainForm,2953706,119,273)
{
Width=261
Height=326
Position=1
link(onCreate,2476299:doRandomize,[])
}
Add(Button,3272711,189,301)
{
Left=15
Top=10
Width=200
link(onClick,3980929:doEvent1,[])
}
Add(Image,6566424,609,210)
{
Left=15
Top=60
Width=200
Height=200
Color=16777215
ViewStyle=0
}
Add(Jpeg,9896000,560,210)
{
Quality=100
Point(doBitmap)
Point(FileName)
link(onBitmap,6566424:doLoad,[])
}
Add(Hub,7362224,525,210)
{
link(onEvent1,9896000:doLoad,[])
link(onEvent2,9896000:doBitmap,[(549,223)(549,230)])
}
Add(StrCat,14212699,476,210)
{
Str2=".jpg"
link(onStrCat,7362224:doEvent1,[])
}
Add(StrList,3164099,343,196)
{
Strings=#6:солнце|6:камень|8:карандаш|
Point(EndIdx)
Point(doGetString)
Point(onGetString)
link(onGetString,2150770:doEvent1,[])
}
Add(Random,2476299,364,280)
{
Point(doMax)
Point(Max)
link(onRandom,3164099:doGetString,[(408,286)(408,258)(331,258)(331,230)])
link(Max,3164099:EndIdx,[])
}
Add(Label,10911830,476,140)
{
Left=15
Top=35
Width=200
}
Add(Hub,2150770,413,203)
{
link(onEvent1,10911830:doText,[(445,209)(445,146)])
link(onEvent2,14212699:doStrCat,[])
}
Add(Hub,3980929,245,301)
{
link(onEvent1,2476299:doMax,[])
link(onEvent2,2476299:doRandom,[(311,314)(311,286)])
}