anchor.diff:    BorderIcons:= BorderIcons-[biMinimize];
   
     FormStyle:= UiOps.PluginDialogsModalFormStyle;
  +  FModalEmulated:= true;
     Show;
   end;
   
  
positive.code:   OnDeactivate:= @DoOnFormDeactivate;
    OnMouseEnter:= @DoOnFormMouseEnter;
    OnMouseLeave:= @DoOnFormMouseLeave;
  
    PrevBorderStyle:= BorderStyle;
    PrevForms:= TFPList.Create;
  
negative.code:     procedure DoOnFormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
      procedure DoOnFormClose(Sender: TObject; var CloseAction: TCloseAction);
      procedure DoOnFormCloseQuery(Sender: TObject; var CanClose: boolean);
      procedure DoOnFormWindowStateChange(Sender: TObject);
      procedure _HandleClickEvent(Sender: TObject; ADblClick: boolean);
      procedure _HandleMouseEvent(Sender: TObject;
        const AEventKind: TAppCtlMouseEvent; const AData: TAppVariant);
  