Add(MainForm,6622318,210,266)
{
 Left=20
 Top=105
 Width=117
 Height=91
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 TabOrder=0
 Ctl3D=1
 Hint=""
 HintManager="(empty)"
 AlphaBlendValue=255
 Caption="Form"
 BorderStyle=2
 WindowsState=0
 Icon=[]
 TaskBar=0
 DragForm=1
 KeyPreview=0
 TransparentColor=16777215
 Picture=[]
 SavePosName=""
 MouseCapture=1
 ClientSize=1
 Position=0
}
Add(ChildFormEx,4577981,322,266)
{
 Mode=0
}
BEGIN_SDK
  Add(EditMultiEx,5844011,21,21)
  {
   WorkCount=#8:Показать|
   EventCount=#
   VarCount=#
   DataCount=#
   Width=300
   Height=200
   link(Показать,13784961:doData,[(31,27)(31,174)])
  }
  Add(MainForm,9415539,98,105)
  {
   Left=35
   Top=105
   Width=163
   Height=88
   Align=0
   Color=-16777201
   Font=[MS Sans Serif,8,0,0,1]
   ParentFont=1
   Visible=1
   Enabled=0
   Cursor=0
   TabOrder=0
   Ctl3D=1
   Hint=""
   HintManager="(empty)"
   AlphaBlendValue=255
   Caption="Form"
   BorderStyle=2
   WindowsState=0
   Icon=[]
   TaskBar=0
   DragForm=1
   KeyPreview=0
   TransparentColor=16777215
   Picture=[]
   SavePosName=""
   MouseCapture=1
   ClientSize=1
   Position=0
   Point(doVisible)
   Point(Handle)
  }
  Add(DatePicker,5362789,133,56)
  {
   Left=25
   Top=15
   Width=90
   Height=21
   Align=0
   Color=-16777211
   Font=[MS Sans Serif,8,0,0,1]
   ParentFont=1
   Visible=0
   Enabled=0
   Cursor=0
   TabOrder=0
   Ctl3D=1
   Hint=""
   HintManager="(empty)"
   Style=0
   AlignPicker=0
   DateFormat=0
   DateMode=0
   Time=1
   SetDateOnChange=0
   TitleBkColor=16711680
   TitleTextColor=16777215
   MonthBkColor=16777215
   TrailingColor=16711680
  }
  Add(DoData,13784961,42,168)
  {
   Data=Integer(1)
   link(onEventData,4364937:doVisible,[])
  }
  Add(WinTools,4364937,98,168)
  {
   link(Handle,9415539:Handle,[])
  }
END_SDK
Add(Button,7263651,266,266)
{
 Left=15
 Top=20
 Width=55
 Height=20
 Align=0
 Color=-16777201
 Font=[MS Sans Serif,8,0,0,1]
 ParentFont=1
 Visible=0
 Enabled=0
 Cursor=0
 TabOrder=0
 Ctl3D=1
 Hint=""
 HintManager="(empty)"
 Caption="Push"
 Data=Null()
 Flat=1
 DefaultBtn=1
 link(onClick,4577981:Показать,[])
}

procedure THIMainForm._work_doVisible;
//var i:integer;
begin
  _prop_Visible := ReadBool(Data);
  if not _prop_Visible then begin
    Control.Hide;
    if CurForm <> nil then
      PostMessage(CurForm.Handle,WM_ACTIVATE,WA_ACTIVE,0 );
    CurForm := nil;
  end else begin
    CurForm := Applet.ActiveControl;
    Control.Show;
//    for i := 0 to Control.ChildCount-1 do
//      Control.Children[i].Perform(WM_SIZE,0,0);
    end
end;