Вверх ↑
Ответов: 1536
Рейтинг: 176
#1: 2013-11-03 23:05:00 ЛС | профиль | цитата
Здесь я показал возможный принцип обмена данными между страницами. Остальное додумывай сам.
Add(MainForm,13980527,329,84)
{
Width=579
Height=411
Caption="пример"
BorderStyle=1
link(onCreate,11309614:doWork1,[(375,104)])
}
Add(PageControl,4308097,441,133)
{
Width=500
Height=350
Selected="base"
link(Data,4308097:##count,[(447,121)(435,121)(435,177)(447,177)])
link(Data1,9541818:Array,[])
}
BEGIN_SDK
Add(EditPolyMulti,12666644,21,21)
{
WorkCount=#5:##add|
VarCount=#7:##count|
DataCount=#4:Data|5:Data1|
Width=671
Height=291
Point(##add)
Point(##count)
link(##add,1785375:doEvent1,[(59,27)(59,97)])
}
Add(PagePanel,2532275,182,98)
{
Left=5
Top=5
Width=498
Height=365
Point(onChange)
Point(doCaption)
}
Add(Button,8392629,238,238)
{
@Color=16776960
Left=30
Top=165
Width=360
Height=30
Caption="Сохранить значения страницы (Указать индекс страницы) "
link(onClick,15903927:doWrite,[])
}
Add(Hub,6469075,252,168)
{
@Color=16755455
link(onEvent1,10080138:doEvent1,[(407,174)(407,55)])
link(onEvent2,15903927:doRead,[(280,181)(280,237)])
}
Add(ArrayRW,15903927,287,231)
{
@Color=16776960
link(onRead,15942628:doSplit,[(426,237)(426,104)])
link(Array,12666644:Data1,[(293,45)(34,45)])
link(Index,6550587:Position,[(300,163)(307,163)])
link(Value,7561838:GetData,[(307,195)(496,195)])
}
Add(Edit,12002372,574,63)
{
Left=35
Top=15
Width=110
Text=""
}
Add(Button,8379422,210,168)
{
@Color=16755455
Left=30
Top=135
Width=360
Height=30
Caption="Получить значения из страницы (Указать индекс страницы) "
link(onClick,6469075:doEvent1,[])
}
Add(UpDown,6550587,301,91)
{
@Hint=#15:индекс страницы|
@Color=16776960
Left=30
Top=115
link(onPosition,16147591:doText,[])
AddHint(167,198,103,13,@Hint)
}
Add(Label,16147591,350,91)
{
@Color=16776960
Left=50
Top=120
Caption="0"
}
Add(EventFromData,7561838,490,154)
{
link(onEvent,6560345:doReplace,[])
}
Add(FormatStr,724021,574,154)
{
Mask="%1;%2"
link(onFString,7561838:doData,[(618,160)(618,148)(478,148)(478,160)])
link(Str1,12002372:Text,[])
}
Add(Memo,2631113,532,84)
{
Left=155
Top=15
Width=220
Height=120
}
Add(MultiStrData,15942628,434,98)
{
@Hint=#35:Выбираем нужное значение переменной|
link(onPart1,622030:doWork2,[(478,104)(478,76)])
link(onPart2,14328114:doReplace,[])
AddHint(50,154,161,26,@Hint)
}
Add(Replace,14328114,483,105)
{
SubStr="^"
DestStr="
"
link(onReplace,2631113:doText,[])
}
Add(Replace,6560345,532,154)
{
@Hint=#43:Это для того, чтобы обойти мультистрочность|
SubStr="
"
DestStr="^"
link(onReplace,724021:doString,[])
link(Str,2631113:Text,[])
AddHint(-49,63,156,26,@Hint)
}
Add(Hub,10080138,490,49)
{
link(onEvent1,622030:doWork1,[(557,55)])
link(onEvent2,2631113:doClear,[(518,62)(518,97)])
}
Add(HubEx,622030,553,70)
{
link(onEvent,12002372:doText2,[])
}
Add(InfoTip,8047481,182,336)
{
Info=#91:Здесь я показал возможный принцип обмена данными между страницами. Остальное додумывай сам.|
Font=[MS Sans Serif,12,1,8421376,1]
Width=456
Height=46
}
Add(Math,5785003,224,91)
{
OpType=1
Op2=1
ResultType=0
link(onResult,6550587:doPosition,[])
link(Op1,12666644:Data,[(230,56)(27,56)])
}
Add(StrCat,264699,126,98)
{
Str1="Page "
link(onStrCat,2532275:doCaption,[])
link(Str2,5785003:Result,[(139,86)(169,86)(169,135)(230,135)])
}
Add(Hub,1785375,70,91)
{
OutCount=3
link(onEvent1,5785003:doOperation,[])
link(onEvent2,264699:doStrCat,[])
link(onEvent3,15903927:doAdd,[(105,111)(105,251)])
}
END_SDK
Add(Button,4890565,329,133)
{
Left=505
Top=5
Hint="Добавить страницу"
Caption="+"
link(onClick,11309614:doWork2,[])
}
Add(DoData,15970965,392,133)
{
Data=String(base)
link(onEventData,4308097:##add,[])
}
Add(HubEx,11309614,371,133)
{
link(onEvent,15970965:doData,[])
}
Add(StrList,9541818,434,63)
{
@Color=16755455
}
Оптимизировал, перезалил.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0