Вверх ↑
Ответов: 8886
Рейтинг: 823
#1: 2019-03-03 23:24:17 ЛС | профиль | цитата
Spectr20, а на панели прокрутки не подойдёт
ScrollBox


Add(MainForm,2953706,189,105)
{
Width=544
}
Add(ChildScrollBox,15022993,273,105)
{
link(onEvent1,14668135:doLoad,[])
}
BEGIN_SDK
Add(EditMulti,8233162,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,2741524:doBrowse,[(39,27)(39,55)])
}
Add(ScrollBox,7270165,49,91)
{
Left=90
Top=1
Width=100
Height=260
}
Add(ChildPanelEx,16493588,259,49)
{
Mode=1
link(onClik,8233162:onEvent1,[(298,55)(298,27)])
}
BEGIN_SDK
Add(EditMultiEx,9864682,21,21)
{
WorkCount=#5:##add|7:##clear|8:##select|
EventCount=#6:onClik|
VarCount=#12:##eventIndex|6:Binmap|
Width=216
Height=109
Point(##add)
Point(##clear)
Point(##select)
Point(##eventIndex)
link(##add,1253005:doLoad,[(81,27)(81,48)])
link(Binmap,636498:Var1,[(34,82)])
}
Add(Panel,15783718,42,42)
{
Left=1
Top=1
Width=81
Height=43
Layout="parent.MyPng"
}
Add(Image,1253005,112,42)
{
Width=81
Height=43
Align=5
ViewStyle=4
link(onClick,10236747:doData,[])
}
Add(DoData,10236747,161,42)
{
link(onEventData,9864682:onClik,[(200,48)(200,27)])
link(Data,636498:Var3,[(167,33)(153,33)(153,82)])
}
Add(GetDataEx,636498,112,77)
{
link(Data,1253005:ImageBitmap,[])
}
END_SDK
Add(Browse,2741524,49,49)
{
link(onBrowse,9540679:doSearch,[])
}
Add(FileSearch,9540679,98,49)
{
Ext="*.png"
SubDir=1
link(onSearch,12777148:doEvent1,[])
link(onEndSearch,3537001:doResize,[(144,62)(144,97)])
}
Add(VBoxLayout,3537001,154,91)
{
Name="MyPng"
Space=1
Padding=1
}
Add(PNG,15372637,210,49)
{
Point(FileName)
Point(doBitmap)
link(onBitmap,16493588:##add,[])
}
Add(Hub,12777148,147,49)
{
link(onEvent1,15372637:doLoad,[])
link(onEvent2,15372637:doBitmap,[(179,62)(179,69)])
}
END_SDK
Add(Button,11117327,231,105)
{
Left=5
Top=10
Width=80
Height=70
Caption="Указать папку с картинками"
link(onClick,15022993:doWork1,[])
}
Add(Image,14668135,315,105)
{
Left=195
Top=35
Width=324
Height=172
}

карма: 19

0