anchor.diff:      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;
   
   
  
positive.code:   HandleHide;
  end;
  
  procedure TfpgPopupWindow.ProcessPopupFrame;
  var
    i: integer;
  
negative.code: begin
    if Assigned(OnClose) then
      OnClose(self);
  end;
  
  procedure TfpgPopupWindow.DoOnShow;
  begin
    if Assigned(FOnShow) then
      FOnShow(self);
  end;
  
  constructor TfpgPopupWindow.Create(AOwner: TComponent);
  