anchor.diff:      procedure   HandleKeyPress(var keycode: word; var shiftstate: TShiftState; var consumed: boolean); override;
       procedure   HandlePaint; override;
       procedure   HandleShow; override;
  +    procedure   HandleClose; override;
       procedure   DrawItem(mi: TfpgMenuItem; rect: TfpgRect); virtual;
       procedure   DrawRow(line: integer; focus: boolean); virtual;
       function    ItemHeight(mi: TfpgMenuItem): integer; virtual;
  
positive.code:   end;
  end;
  
  procedure TfpgPopupMenu.HandleMouseExit;
  begin
    inherited HandleMouseExit;
    FFocusItem := 0;
    Repaint;
  
negative.code: 
  destructor TfpgPopupMenu.Destroy;
  begin
    FItems.Free;
    inherited Destroy;
  end;
  