Add(MainForm,2953706,119,161)
{
 SavePosName="Ку.iniMain"
}
Add(ChildFormEx,13851392,182,217)
{
}
BEGIN_SDK
  Add(EditMultiEx,2925212,21,21)
  {
   WorkCount=#9:doVisible|
   link(doVisible,5496108:doVisible,[(28,27)(28,139)])
  }
  Add(MainForm,5496108,35,105)
  {
   Left=35
   Top=105
   Visible=1
   SavePosName="Ку.iniChild"
   Point(doVisible)
  }
END_SDK
Add(Button,10828232,119,217)
{
 Left=35
 Top=30
 link(onClick,13851392:doVisible,[])
}

#pas
procedure THIMainForm.Init;
var vsb:boolean;
begin

  vsb:= _prop_Visible;
  _prop_Visible:= false;

  if not isMain then
    FormList.AddObject('', Control.Handle);

  inherited;
  _prop_Position(false);
  if _prop_SavePosName='' then
  else if Pos('.ini\',_prop_SavePosName)=0 then
    _prop_Position := Registry
  else _prop_Position := IniFile;
  _prop_Visible:= vsb;
  SetAlphaBlendValue(_prop_AlphaBlendValue);
  if _prop_ClientSize then
    Control.SetClientSize(_prop_Width,_prop_Height);
  Control.OnPaint := _OnPaint;
  Control.Tag := Longint(Self);
end;