anchor.diff:  begin
     if Assigned(OnClose) then
       OnClose(self);
  +end;
  +
  +procedure TfpgPopupWindow.DoOnShow;
  +begin
  +  if Assigned(FOnShow) then
  +    FOnShow(self);
   end;
   
   constructor TfpgPopupWindow.Create(AOwner: TComponent);
  
positive.code:   HandleHide;
  end;
  
  procedure TfpgPopupWindow.ProcessPopupFrame;
  var
    i: integer;
  
negative.code:     property    DontCloseWidget: TfpgWidget read FDontCloseWidget write FDontCloseWidget;
      property    PopupFrame: boolean read FPopupFrame write SetPopupFrame;
      property    OnClose: TNotifyEvent read FOnClose write FOnClose;
      property    OnShow: TNotifyEvent read FOnShow write FOnShow;
    end;
  
  
  