Вверх ↑
Ответов: 263
Рейтинг: 18
#1: 2021-08-03 06:16:31 ЛС | профиль | цитата
Вариант попроще

Add(MainForm,6407720,105,161)
{
Width=565
}
Add(DatePicker,721072,413,224)
{
Left=115
Top=30
Width=130
Height=21
TabOrder=-1
Ctl3D=0
WinStyle=1
Hint="Открыть календарь"
Point(doWidth)
link(onChange,13420483:doConvert,[])
}
Add(Edit,261028,420,147)
{
Left=115
Top=30
Width=100
Height=21
Ctl3D=1
Hint="Ввод даты"
Text=""
MaxLenField=10
ClearAfterEnter=1
link(onChange,4261495:doWork2,[])
link(onEnter,4261495:doWork3,[(466,160)])
}
Add(HubEx,4261495,462,147)
{
link(onEvent,2339969:doInput,[])
}
Add(Hub,4435396,294,154)
{
InCount=3
link(onEvent1,261028:doText2,[])
link(onEvent2,7547933:doWork2,[])
}
Add(DateConvertor,12555827,343,161)
{
Mode=8
Format="dd.MM.yyyy"
link(onResult,721072:doSetDate,[(388,167)(388,230)])
}
Add(DateConvertor,13420483,455,224)
{
Mode=9
Format="dd.MM.yyyy"
link(onResult,6219271:doCompare,[])
}
Add(If_else,6219271,497,224)
{
Type=5
Op2=String()
link(onTrue,261028:doText,[(555,230)(555,137)(409,137)(409,153)])
}
Add(Hub,9285077,567,154)
{
link(onEvent1,14165998:doText,[])
link(onEvent2,7547933:doWork3,[(596,167)(596,265)(326,265)])
}
Add(HubEx,7547933,322,161)
{
link(onEvent,12555827:doConvert,[])
}
Add(MultiElementEx,2339969,497,147)
{
@Hint=#16:маска ввода даты|
link(onText2,4435396:doEvent1,[(541,153)(541,125)(283,125)(283,160)])
link(onGutRezult,9285077:doEvent1,[])
}
BEGIN_SDK
Add(EditMultiEx,1081633,14,21)
{
WorkCount=#7:doInput|
EventCount=#7:onText2|11:onGutRezult|
Width=643
Height=144
link(doInput,12803965:doEvent1,[(49,27)(49,55)])
}
Add(Hub,12803965,56,49)
{
link(onEvent1,233965:doClear,[])
link(onEvent2,1316364:doReplace,[])
}
Add(Str_Enum,4062207,175,56)
{
Delimiter=""
OnlyDivGroup=1
link(onEnum,14752671:doCompare,[])
link(onEndEnum,7720005:doData,[(226,69)(226,111)])
}
Add(StrMask,14752671,238,56)
{
Mask="#"
link(onFalse,9759799:doCompare,[])
link(onTrue,10947442:doEvent2,[(310,69)(310,76)])
}
Add(StrCat,233965,399,42)
{
Point(doClear)
link(Str1,14346636:Var1,[(405,30)(396,30)(396,89)])
}
Add(GetDataEx,3409719,560,112)
{
Angle=3
}
Add(DateConvertor,5461464,490,112)
{
Mode=8
Format="dd.MM.yyyy"
Point(Data)
link(onResult,5372633:doConvert,[])
}
Add(DateConvertor,5372633,539,112)
{
Mode=9
Format="dd.MM.yyyy"
Point(Data)
link(onResult,3555773:doCompare,[])
}
Add(If_else,3555773,588,112)
{
Type=5
Op2=String()
link(onTrue,1081633:onGutRezult,[(638,118)(638,34)])
}
Add(DoData,7720005,399,105)
{
link(onEventData,559931:doEvent1,[])
link(Data,14346636:Var2,[])
}
Add(Hub,559931,448,105)
{
link(onEvent1,1081633:onText2,[(560,111)(560,27)])
link(onEvent2,5461464:doConvert,[])
}
Add(Replace,1316364,119,56)
{
SubStr=","
DestStr="."
link(onReplace,4062207:doEnum,[])
}
Add(StrMask,9759799,287,56)
{
Mask="."
link(onTrue,10947442:doEvent1,[])
}
Add(Hub,10947442,350,63)
{
InCount=2
OutCount=1
link(onEvent1,233965:doStrCat,[(382,69)(382,48)])
}
Add(GetDataEx,14346636,399,84)
{
link(Data,233965:Result,[])
}
END_SDK
Add(Button,16323730,161,161)
{
Left=15
Top=5
Width=80
Caption="Установить"
link(onClick,14108317:doData,[])
}
Add(Button,9220958,161,210)
{
Left=15
Top=30
Width=80
Caption="Очистить"
link(onClick,4435396:doEvent3,[(267,216)(267,174)])
}
Add(Label,14165998,630,154)
{
Left=280
Top=35
Width=56
Height=17
Caption="Результат"
}
Add(Edit,11830178,217,98)
{
Left=115
Top=5
Width=100
Text="01.06.1974"
}
Add(DoData,14108317,217,161)
{
link(onEventData,4435396:doEvent2,[])
link(Data,11830178:Text,[])
}
Add(StyleXP,6930373,105,210)
{
}
карма: 3

0