а как дальше не знаю
Add(MainForm,2953706,406,42)
{
Width=933
Height=593
PColor(onDeactivate,22015)
link(onDeactivate,15636224:doWork1,[(492,55)])
}
Add(Memo,15297897,546,203)
{
Left=135
Top=20
Width=280
Height=75
Name="блок 1"
ScrollBars=2
ReadOnly=0
}
Add(Button,5838427,308,133)
{
Left=5
Top=15
Width=100
Caption="Открыть"
link(onClick,11184954:doExecute,[])
}
Add(Button,10123464,308,168)
{
Left=5
Top=45
Width=100
Caption="Сохранить"
link(onClick,1155437:doExecute,[])
}
Add(SDialog,1155437,392,168)
{
link(onExecute,15297897:doSave,[(481,174)(481,244)])
}
Add(ODialog,11184954,392,133)
{
link(onExecute,15297897:doLoad,[(485,139)(485,237)])
}
Add(Memo,15099167,693,203)
{
Left=135
Top=105
Width=280
Name="блок 2"
ScrollBars=2
}
Add(Button,16728847,308,98)
{
Left=5
Top=75
Width=100
Caption="Очистить"
PColor(onClick,22015)
link(onClick,15636224:doWork2,[])
}
Add(HubEx,15636224,488,98)
{
Angle=1
PColor(onEvent,22015)
link(onEvent,15297897:doClear,[(492,216)])
}
Add(Button,1393162,308,259)
{
Left=5
Top=130
Width=125
Height=35
Caption="Переместить строку 2"
}