Вверх ↑
Разработчик
Ответов: 26061
Рейтинг: 2120
#1: 2009-01-25 16:36:26 ЛС | профиль | цитата
Добавил полиморфные формы ChildFormPoly

Пример для проверки:
code_11577.txt
------------ Дoбавленo:

Еще один пример:

Add(MainForm,12597692,259,154)
{
}
Add(ChildFormPoly,15088817,511,224)
{
Childrens=#5:Form1|5:Form2|
Selected="Form1"
}
BEGIN_SDK
Add(EditPolyMulti,16285341,21,21)
{
WorkCount=#5:##add|7:##clear|
Point(##add)
Point(##clear)
}
Add(MainForm,1712986,84,63)
{
Left=35
Top=105
Visible=1
Point(doVisible)
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,7399779,21,21)
{
WorkCount=#5:##add|7:##clear|
Point(##add)
Point(##clear)
link(##add,12721094:doGet,[(45,27)(45,118)])
}
Add(MainForm,2875765,126,35)
{
Left=35
Top=105
Caption="ChildForm1"
Point(doVisible)
Point(doShowModal)
Point(Handle)
}
Add(Memo,4972588,203,84)
{
Left=200
Top=105
Align=5
}
Add(MT_Get,12721094,70,112)
{
link(onData,4972588:doLoad,[])
}
END_SDK
BEGIN_SDK
Add(EditPolyMulti,7613539,21,21)
{
WorkCount=#5:##add|7:##clear|
Width=405
Point(##add)
Point(##clear)
link(##add,12721094:doGet,[(45,27)(45,104)])
}
Add(MainForm,1648667,126,35)
{
Left=35
Top=105
Caption="ChildForm2"
Point(doVisible)
Point(doShowModal)
Point(Handle)
}
Add(ListBox,7124315,224,70)
{
Left=220
Top=75
Align=5
}
Add(MT_Get,12721094,70,98)
{
link(onData,7124315:doLoad,[])
}
END_SDK
Add(Button,10771391,259,231)
{
Left=25
Top=60
TabOrder=-1
Caption="Memo"
Data=String(Form1)
link(onClick,15852624:doWork2,[])
}
Add(Button,5702506,259,274)
{
Left=25
Top=85
TabOrder=-1
Caption="ListBox"
Data=String(Form2)
link(onClick,15852624:doWork3,[(333,280)])
}
Add(HubEx,15852624,329,224)
{
Angle=3
link(onEvent,8470020:doEvent1,[(333,223)])
}
Add(ODialog,8704879,406,154)
{
link(onExecute,14936555:doValue,[])
}
Add(MT_Add,5205898,455,224)
{
link(onAdd,15088817:##add,[])
link(Data,14936555:Value,[])
}
Add(Hub,8470020,371,217)
{
link(onEvent1,8704879:doExecute,[(395,223)(395,160)])
link(onEvent2,5205898:doAdd,[])
}
Add(Memory,14936555,455,154)
{
}
Add(Button,8672782,455,259)
{
Left=250
Top=40
Caption="Close All"
link(onClick,15088817:##clear,[(499,265)(499,237)])
}

карма: 22

0
файлы: 1code_11577.txt [1.8KB] [793]