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