anchor.diff:    DoOnShow;
   end;
   
  +procedure TfpgPopupWindow.HandlePaint;
  +begin
  +  inherited HandlePaint;
  +  if PopupFrame then
  +    DoPaintPopupFrame;
  +end;
  +
   procedure TfpgPopupWindow.ProcessPopupFrame;
   var
     i: integer;
  
positive.code:     procedure   MsgClose(var msg: TfpgMessageRec); message FPGM_CLOSE;
      procedure   HandleClose; virtual;
      procedure   HandleShow; override;
      procedure   ProcessPopupFrame; virtual;
      procedure   DoPaintPopupFrame; virtual;
      procedure   DoOnClose; virtual;
  
negative.code:     end;
      HandleResize(Width+2, Height+2);
      UpdateWindowPosition;
      Repaint;
    end;
  end;
  
  