anchor.diff:    HandleHide;
   end;
   
  +procedure TfpgPopupWindow.HandleShow;
  +begin
  +  inherited HandleShow;
  +  DoOnShow;
  +end;
  +
   procedure TfpgPopupWindow.ProcessPopupFrame;
   var
     i: integer;
  
positive.code:     property    DontCloseWidget: TfpgWidget read FDontCloseWidget write FDontCloseWidget;
      property    PopupFrame: boolean read FPopupFrame write SetPopupFrame;
      property    OnClose: TNotifyEvent read FOnClose write FOnClose;
    end;
  
  
  
negative.code:   private
      FDontCloseWidget: TfpgWidget;
      FOnClose: TNotifyEvent;
      FOnShow: TNotifyEvent;
      FPopupFrame: boolean;
      procedure   SetPopupFrame(const AValue: boolean);
    protected
      procedure   MsgClose(var msg: TfpgMessageRec); message FPGM_CLOSE;
      procedure   AdjustWindowStyle; override;
      procedure   HandleClose; virtual;
      procedure   HandleShow; override;
      procedure   ProcessPopupFrame; virtual;
      procedure   DoPaintPopupFrame; virtual;
      procedure   DoOnClose; virtual;
      procedure   DoOnShow; virtual;
    public
      constructor Create(AOwner: TComponent); override;
      procedure   ShowAt(AWidget: TfpgWidget; x, y: TfpgCoord); overload;
  