Tad писал(а):
и результат на нижней точке желает лучшегоАга, а одну связь переставить не судьба, обязательно надо докопаться, иначе -- это не Tad будет. А получится еще и проще, если подогнать под ваш алгоритм
Add(ChildPanelEx,9299349,399,420)
{
@Hint=#5:nesco|
@Color=65535
AddHint(52,5,44,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,10511601,21,14)
{
WorkCount=#31:doText2=Установить текст в поле|
EventCount=#8:onEvent2|
VarCount=#26:Text=Текущее значение даты|
DataCount=#26:Str=Значение для установки|
Width=370
Height=193
VOffset=21
HOffset=28
link(doText2,2998683:doCompare,[(35,41)(35,62)])
link(Text,1926449:Var,[(55,175)(279,175)])
}
Add(DatePicker,12659837,133,56)
{
Top=-1
Width=79
Height=21
Ctl3D=0
Point(DateTime)
link(onChange,3195826:doReset,[(184,62)(184,83)])
}
Add(Panel,13306313,49,105)
{
Left=214
Top=72
Width=79
Height=20
}
Add(Edit,4358699,329,56)
{
Left=1
Top=1
Width=60
Height=18
WinStyle=1
Text=""
ReadOnly=0
Point(doVisible)
}
Add(If_else,2998683,49,56)
{
Type=5
Op2=Real(0)
link(onTrue,12659837:doSetDate,[])
link(onFalse,3195826:doOn,[(94,69)(94,90)])
link(Op1,10511601:Str,[])
}
Add(Switch,3195826,203,70)
{
DataOn=Integer(1)
DataOff=Integer(0)
Default=0
Point(doOn)
link(onSwitch,1926449:doIndex,[])
}
Add(GetIndexData,1926449,273,70)
{
link(onIndex,4358699:doVisible,[])
link(Data1,12659837:DateTime,[(279,58)(245,58)(245,110)(139,110)])
link(Data2,4919901:Value,[])
}
Add(Memory,4919901,280,21)
{
Default=Real(0)
}
END_SDK