anchor.diff:  
   procedure TMainWindow.MsgResize(var msg: TfpgMessageRec);
   begin
  -  FWidth := msg.Params.rect.Width;
  +  FWidth  := msg.Params.rect.Width;
     FHeight := msg.Params.rect.Height;
   end;
   
  
positive.code:   Classes
    ,fpGFX
    ,GFXBase
    ,gfx_widget
    ,gui_form
    ;
  
  const
  
negative.code:   
  type
  
    TMainWindow = class(TfpgWindow)
    private
      procedure   MsgPaint(var msg: TfpgMessageRec); message FPGM_PAINT;
      procedure   MsgClose(var msg: TfpgMessageRec); message FPGM_CLOSE;
      procedure   MsgResize(var msg: TfpgMessageRec); message FPGM_RESIZE;
    public
      constructor Create(AOwner: TComponent); override;
      procedure   Show;
    end;
    
  
  constructor TMainWindow.Create(AOwner: TComponent);
  begin
  