anchor.diff:  
   uses
     fpgfx,
  +  gfx_popupwindow,
     gui_menu;
     
   type
  
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:   inherited HandleShow;
    if Assigned(FOnShow) then
      FOnShow(self);
  end;
  
  procedure TfpgForm.HandleMove(x, y: TfpgCoord);
  begin
    ClosePopups;
    inherited HandleMove(x, y);
  end;
  
  procedure TfpgForm.HandleResize(awidth, aheight: TfpgCoord);
  begin
    ClosePopups;
    inherited HandleResize(awidth, aheight);
  end;
  
  procedure TfpgForm.HandleKeyPress(var keycode: word;
  