Вверх ↑
Ответов: 2059
Рейтинг: 132
#1: 2017-10-21 16:10:55 ЛС | профиль | цитата
А так?

Add(MainForm,12708640,182,98)
{
Height=108
}
Add(DatePicker,1825606,154,154)
{
Left=15
Top=15
Width=130
Height=21
Point(DateInt)
link(onChange,1117363:doWork2,[])
}
Add(Edit,12926443,238,98)
{
Left=150
Top=15
Width=30
Text="20"
link(onChange,1117363:doWork1,[(282,104)(282,130)(207,130)])
}
Add(DatePicker,14103650,287,154)
{
Left=185
Top=15
Width=145
Height=21
}
Add(InlineCode,13591971,231,154)
{
WorkPoints=#5:doAdd|
EventPoints=#5:onRes|
DataPoints=#7:DateInt|7:DaysAdd|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|16: FDT:integer;|9: public|38: DateInt, DaysAdd, onRes :THI_Event;|48: procedure doAdd(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doAdd;|24: var i,Da,Dow,c:integer;|5:begin|10: C:=0;|36: FDT := toIntegerEvent(DateInt);|35: Da := toIntegerEvent(DaysAdd);|38: If (FDT = 0) OR (Da=0) Then Exit;|19: While (c<=Da) do |8: begin|13: inc(FDT);|38: If (DayOfWeek(FDT)<6) then inc(C);|7: end;|27: _hi_onEvent(onRes,FDT);|4:End;|4:end.|
link(onRes,14103650:doSetDate,[])
link(DateInt,1825606:DateInt,[(237,142)(199,142)(199,198)(160,198)])
link(DaysAdd,12926443:Text,[])
}
Add(HubEx,1117363,203,154)
{
link(onEvent,13591971:doAdd,[])
}

карма: 6

0
Редактировалось 6 раз(а), последний 2017-10-21 17:35:04