anchor.diff:    end;
   end;
   
  +procedure TfpgPopupMenu.HandleMouseEnter;
  +begin
  +  inherited HandleMouseEnter;
  +  CaptureMouse;
  +end;
  +
   procedure TfpgPopupMenu.HandleMouseExit;
   begin
  +  ReleaseMouse;
     inherited HandleMouseExit;
     FFocusItem := 0;
     Repaint;
  
positive.code:     procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
      procedure   HandlePaint; override;
      procedure   HandleShow; override;
      procedure   DrawItem(mi: TfpgMenuItem; rect: TfpgRect); virtual;
      procedure   DrawRow(line: integer; focus: boolean); virtual;
      function    ItemHeight(mi: TfpgMenuItem): integer; virtual;
  
negative.code:     FSymbolWidth: integer;
      FItems: TList;
      FFocusItem: integer;
      procedure   HandleMouseEnter; override;
      procedure   HandleMouseExit; override;
      procedure   HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
  