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,[])
}