Вверх ↑
Ответов: 8888
Рейтинг: 823
#1: 2017-03-31 13:15:58 ЛС | профиль | цитата
vladislaw, ползунки появляются, когда помещённый в childScrollBox элемент выходит за размер
проба


Add(MainForm,2953706,182,91)
{
}
Add(ChildForm,8327390,238,91)
{
}
BEGIN_SDK
Add(EditMulti,3617729,21,21)
{
}
Add(MainForm,16617632,35,105)
{
Left=35
Top=105
}
Add(ChildScrollBox,10520453,126,63)
{
}
BEGIN_SDK
Add(EditMulti,37257,21,21)
{
}
Add(ScrollBox,12706341,35,105)
{
Left=15
Top=15
Width=335
Height=230
Point(onHScroll)
Point(onVScroll)
link(onHScroll,2489122:doWork1,[(81,111)])
link(onVScroll,2489122:doWork2,[])
}
Add(ChildPanel,10703260,105,112)
{
}
BEGIN_SDK
Add(EditMulti,8744456,21,21)
{
WorkCount=1
link(doWork1,11562629:doWork1,[(123,27)])
}
Add(Panel,5822667,154,77)
{
Width=2000
Height=1500
Point(Handle)
}
Add(Img_Text,1354950,154,133)
{
DrawSource=1
Font=[MS Sans Serif,72,1,0,1]
Text="Дочерняя форма"
link(Bitmap,5822667:Handle,[])
}
Add(Timer,6471674,63,133)
{
Interval=10
AutoStop=1
link(onTimer,11562629:doWork2,[])
}
Add(HubEx,11562629,119,133)
{
link(onEvent,1354950:doDraw,[])
}
END_SDK
Add(HubEx,2489122,77,112)
{
link(onEvent,10703260:doWork1,[])
}
END_SDK
END_SDK

карма: 19

0