anchor.diff:  begin
     if BlockedOnUnfold then exit;
   
  +  Props:= TAppControlProps((Sender as TControl).Tag);
  +  IdControl:= FindControlIndexByOurObject(Sender);
     Data:= AppVariant(PtrInt(Node));
  -
  -  Props:= TAppControlProps((Sender as TControl).Tag);
  -  IdControl:= FindControlIndexByOurObject(Sender);
     DoEvent(IdControl, Props.FEventOnUnfold, Data);
   end;
   
  
positive.code:   IdControl: integer;
    Data: TAppVariant;
  begin
    Data:= AppVariant(PtrInt(Node));
  
    Props:= TAppControlProps((Sender as TControl).Tag);
    IdControl:= FindControlIndexByOurObject(Sender);
    DoEvent(IdControl, Props.FEventOnChange, Data);
  end;
  
  
negative.code: begin
    if BlockedOnFold then exit;
  
    Props:= TAppControlProps((Sender as TControl).Tag);
    IdControl:= FindControlIndexByOurObject(Sender);
    Data:= AppVariant(PtrInt(Node));
    DoEvent(IdControl, Props.FEventOnFold, Data);
  end;
  
  