Add(MainForm,2953706,266,203)
{
 Height=108
}
Add(DatePicker,1825606,266,245)
{
 Left=15
 Top=15
 Width=130
 Height=21
 Point(DateInt)
 link(onChange,8046800:doAdd,[])
}
Add(Edit,12926443,322,203)
{
 Left=150
 Top=15
 Width=30
 Text="20"
}
Add(InlineCode,8046800,315,245)
{
 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,[(321,233)(309,233)(309,288)(272,288)])
 link(DaysAdd,12926443:Text,[])
}
Add(DatePicker,14103650,364,245)
{
 Left=185
 Top=15
 Width=145
 Height=21
}