anchor.diff:        const AEventKind: TAppCtlMouseEvent; const AData: TAppVariant);
     public
       IsDlgCustom: boolean;
  +    IsDlgModalEmulated: boolean;
       IdClicked: integer;
       FEventOnClose: string;
       FEventOnCloseQuery: string;
  
positive.code:   TFormDummy = class(TForm)
    private
      IsFormShownAlready: boolean;
      FModalEmulated: boolean;
      procedure DoOnFormActivate(Sender: TObject);
      procedure DoOnFormDeactivate(Sender: TObject);
      procedure DoOnFormShow(Sender: TObject);
  
negative.code: begin
    //this is for https://github.com/Alexey-T/CudaText/issues/3078
    //prevent minimizing the modal-emulated form
    if IsDlgModalEmulated then
      if WindowState=wsMinimized then
      begin
        WindowState:= wsNormal;
  