anchor.diff:  
   procedure TfpgForm.MsgDeActivate(var msg: TfpgMessageRec);
   begin
  +  ClosePopups;
     if ActiveWidget <> nil then
       ActiveWidget.KillFocus;
     if Assigned(FOnDeactivate) then
  
positive.code:     procedure   HandleClose; virtual;
      procedure   HandleHide; override;
      procedure   HandleShow; override;
      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   AfterConstruction; override;
      procedure   BeforeDestruction; override;
  
negative.code: 
  uses
    fpgfx,
    gfx_popupwindow,
    gui_menu;
    
  type
  