Вверх ↑
Разработчик
Ответов: 26153
Рейтинг: 2127
#1: 2010-07-21 23:21:21 ЛС | профиль | цитата
Можно так

code_19629.txt

С загрузкой картинки можно так



Add(MainForm,7501120,182,231)
{
link(onCreate,8218554:doEnum,[])
}
Add(ListBox,14411427,364,238)
{
Left=10
Top=10
Width=195
Height=210
Point(ValueArray)
Point(doSelect)
link(onClick,5234744:doRead,[(408,251)(408,220)(349,220)(349,321)])
}
Add(StrList,1518598,231,175)
{
Strings=#9:Image|15 |10:Image2|20 |10:Image3|100|
}
Add(ArrayEnum,8218554,245,245)
{
link(onItem,524680:doMT,[])
link(Array,1518598:Array,[])
}
Add(MT_String,524680,301,238)
{
Delimeter="|"
link(onResult,14411427:doAdd,[])
}
Add(StrCat,4830356,441,315)
{
Str2=".jpg"
link(onStrCat,11073406:doLoad,[])
}
Add(ArrayRW,5234744,385,315)
{
link(onRead,4830356:doStrCat,[])
link(Array,14411427:ValueArray,[])
}
Add(ImageLoader,11073406,497,315)
{
DrawSource=2
link(onLoad,11073406:doDraw,[(541,321)(541,302)(487,302)(487,328)])
link(onDraw,12009510:doLoad,[])
}
Add(Image,12009510,553,322)
{
Left=215
Top=10
Width=170
Height=90
}

карма: 22

0
файлы: 1code_19629.txt [831B] [113]