Вверх ↑
Ответов: 2193
Рейтинг: 673
#1: 2022-10-15 18:28:11 ЛС | профиль | цитата
ric, компилятор FPC?
Попробуйте так:
Add(ChildPanel,6527287,518,168)
{
link(onEvent1,16063724:doWork1,[])
}
BEGIN_SDK
Add(EditMulti,4366545,119,56)
{
EventCount=1
}
Add(Panel,15046377,210,91)
{
Width=318
Height=30
Align=2
BevelInner=0
}
Add(Button,8833920,312,99)
{
Left=5
Top=5
Font=[Arial,8,0,0,1]
Caption="Add"
link(onClick,4366545:onEvent1,[(392,105)(392,62)])
}
END_SDK
Add(ChildScrollBox,16063724,574,168)
{
@Hint=#15:Спасибо olDjeka|
}
BEGIN_SDK
Add(EditMulti,6395808,168,56)
{
WorkCount=1
Width=328
Height=214
link(doWork1,14088804:doEvent1,[(176,62)(176,90)])
}
Add(ScrollBox,3575537,399,147)
{
Top=30
Width=318
Height=127
Align=5
Point(doSetFocus)
}
Add(ChildPanelEx,12820836,287,84)
{
Mode=1
link(onClick,5664572:doDeferredEvent,[])
link(Text,12820836:##handle,[(293,74)(268,74)(268,127)(293,127)])
}
BEGIN_SDK
Add(EditMultiEx,8038962,189,42)
{
WorkCount=#5:##Add|9:##hdelete|6:doText|
EventCount=#7:onClick|12:onMouseWheel|
VarCount=#8:##handle|3:Top|
DataCount=#4:Text|
Width=286
Height=214
Point(##Add)
Point(##hdelete)
Point(##handle)
link(##Add,15720799:doText,[(238,48)(238,69)])
link(doText,1986715:doText,[(203,62)(203,188)])
link(Top,13351110:Top,[(202,232)(398,232)])
}
Add(Panel,13351110,385,112)
{
Width=326
Height=122
Align=2
BorderWidth=0
Point(Handle)
Point(onMouseWheel)
Point(Top)
link(onMouseWheel,8038962:onMouseWheel,[(446,125)(446,55)])
}
Add(Label,15720799,287,63)
{
Left=15
Top=55
link(Text,8038962:Text,[(293,53)(195,53)])
}
Add(DoData,6806243,287,112)
{
link(onEventData,8038962:onClick,[(351,118)(351,48)])
link(Data,15720799:Caption,[])
}
Add(Button,6756008,217,112)
{
Left=220
Top=90
Caption="del"
link(onClick,6806243:doData,[])
}
Add(Label,1986715,217,182)
{
Left=15
Top=90
}
END_SDK
Add(DeferredEvent,5664572,350,84)
{
InData=0
link(onDeferredEvent,12820836:##hdelete,[(396,90)(396,65)(275,65)(275,97)])
}
Add(Hub,14088804,189,84)
{
link(onEvent1,12820836:##Add,[])
link(onEvent2,9287149:doDeferredEvent,[(227,97)(227,160)])
}
Add(DeferredEvent,9287149,294,154)
{
InData=0
Point(Data)
link(onDeferredEvent,3575537:doVScroll,[])
link(Data,12820836:Top,[])
}
END_SDK
Add(MainForm,314817,462,168)
{
Width=334
Height=261
Caption=""
}
карма: 10

0
Редактировалось 1 раз(а), последний 2022-10-15 18:30:25