anchor.diff:      end;
       HandleResize(Width+2, Height+2);
       UpdateWindowPosition;
  -
  -    Canvas.BeginDraw;
  -    DoPaintPopupFrame;
  -    Canvas.EndDraw;
  +    Repaint;
     end;
   end;
   
  
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:   DoOnShow;
  end;
  
  procedure TfpgPopupWindow.HandlePaint;
  begin
    inherited HandlePaint;
    if PopupFrame then
      DoPaintPopupFrame;
  end;
  
  procedure TfpgPopupWindow.ProcessPopupFrame;
  var
    i: integer;
  