anchor.diff:  end;
   
   
  -procedure TFormDummy.DoOnFormClose(Sender: TObject; var CloseAction: TCloseAction);
  -begin
  +procedure TFormDummy.DoClose(var CloseAction: TCloseAction);
  +begin
  +  inherited;
     CloseAction:= caHide; //caFree gives crash on btn clicks on win
     if IsDlgCustom then exit;
   
  
positive.code:     procedure DoHide; override;
      procedure Activate; override;
      procedure Deactivate; override;
    public
      IsDlgCustom: boolean;
      IsDlgModalEmulated: boolean;
  
negative.code:   DoEvent(-1, FEventOnResize, AppVariantNil);
  end;
  
  function TFormDummy.CloseQuery: boolean;
  begin
    inherited;
    Result:= DoEvent(-1, FEventOnCloseQuery, AppVariantNil);
  end;
  
  procedure TFormDummy.DoOnFormWindowStateChange(Sender: TObject);
  