Add(MainForm,2953706,77,182)
{
 Position=1
}
Add(ChildForm,10521188,196,189)
{
}
BEGIN_SDK
  Add(EditMulti,14877275,21,21)
  {
   WorkCount=1
   link(doWork1,9676308:doVisible,[(28,27)(28,139)])
  }
  Add(MainForm,9676308,35,105)
  {
   Left=35
   Top=105
   Visible=1
   Position=1
   Point(doVisible)
  }
  Add(ChildPanelEx,9299349,140,147)
  {
   @Hint=#6:Tad_IC|
   @Color=65535
   AddHint(8,-27,50,13,@Hint)
  }
  BEGIN_SDK
    Add(EditMultiEx,10511601,21,14)
    {
     WorkCount=#31:doText2=Установить текст в поле|
     VarCount=#26:Text=Текущее значение даты|
     Width=230
     Height=95
     HOffset=119
     link(doText2,3289766:doWork1,[(116,20)])
     link(Text,12065899:ResRD,[])
    }
    Add(DatePicker,12659837,49,35)
    {
     Top=-1
     Width=79
     Height=21
     Ctl3D=0
     AlignPicker=1
     SetDateOnChange=1
     Point(DateTime)
     link(onChange,3289766:doWork2,[])
    }
    Add(Panel,13306313,203,70)
    {
     Left=214
     Top=72
     Width=100
     Height=20
    }
    Add(Button,9700205,49,70)
    {
     Left=79
     Top=-1
     Width=20
     Font=[MS Sans Serif,8,1,0,1]
     TabOrder=-1
     Ctl3D=0
     Caption="X"
     Data=Integer(0)
     link(onClick,3289766:doWork3,[(116,76)])
    }
    Add(HubEx,3289766,112,35)
    {
     link(onEvent,12065899:doWork,[])
    }
    Add(InlineCode,12065899,140,35)
    {
     WorkPoints=#6:doWork|
     EventPoints=#4:Init|6:toBack|7:toFront|0:|
     VarPoints=#5:ResRD|
     Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|14:   Rd:integer;|3:   |9:   public|36:   init, toBack, toFront: THI_Event;|45:   procedure ResRd(var dt:TData; Index:Word);|49:   procedure doWork(var _Data:TData; Index:Word);|3:   |5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.doWork;|5:BEGIN|29:  Rd := Trunc(toReal(_Data));|16:  If Rd<>0 then |8:   begin|44:   _hi_onEvent(init,Rd);  // установить дату|36:   _hi_onEvent(toBack);   // открыть|6:   end|40:  else _hi_onEvent(toFront);   // скрыть|4:END;|0:|28:procedure THiAsmClass.ResRd;|5:BEGIN|19:  dtInteger(dt,Rd);|5:END; |4:end.|
     link(Init,12659837:doSetDate,[(188,41)(188,29)(37,29)(37,41)])
     link(toBack,4720141:doSendToBack,[])
     link(toFront,4720141:doBringToFront,[])
    }
    Add(Edit,4720141,203,28)
    {
     Left=3
     Top=2
     Width=55
     Height=15
     Color=255
     Text=""
     ReadOnly=0
     Point(doSendToBack)
     Point(doBringToFront)
    }
  END_SDK
END_SDK
Add(Button,2246776,147,189)
{
 Left=140
 Top=85
 Width=100
 Caption="Открыть форму"
 link(onClick,10521188:doWork1,[])
}