unit hiMyElement;

interface

uses 
  Windows,
  hiEditMultiEx,
  hiInlineCode_3419D10,
  hiMultiElementEx,hiMultiBase,kol,Share;

type
  THIMyElement = class(ThiMultiElementEx)
   private
  EditMultiEx_342F1B0:THIEditMultiEx;
  InlineCode_3419D10:THIInlineCode_3419D10;
   public
    Child:THIEditMultiEx;

    constructor Create;
    destructor Destroy; override;
    procedure _var_varr(var Data:TData; index:word);
  end;

implementation


constructor THIMyElement.Create;
begin
  inherited Create;
//Init for EditMultiEx;
  EditMultiEx_342F1B0 := THIEditMultiEx.Create;
  with EditMultiEx_342F1B0 do begin
    SetLength(Works,0);
    SetLength(Vars, 1);
  end;
//Init for InlineCode;
  InlineCode_3419D10 := THIInlineCode_3419D10.Create;
 //%multi%
 //Make all connection in scheme
  EditMultiEx_342F1B0.Vars[0]              := _DoEvent(InlineCode_3419D10.varr,0);

  Child := EditMultiEx_342F1B0;
  Child.MainClass := TClassMultiBase(Self); // work but not correct... :(
  Child.Parent := Self;
  SetLength(Events, 0);
  SetLength(Datas, 0);
end;

destructor THIMyElement.Destroy;
begin
  InlineCode_3419D10.Destroy;
  EditMultiEx_342F1B0.Destroy;
  inherited;
end;

procedure THIMyElement._var_varr(var Data:TData; index:word);
begin
  _ReadData(Data, Child.Vars[0]);
end;



end.