anchor.diff:      FNonFullscreenRect: TfpgRect;
       FNonFullscreenStyle: longword;
       FFullscreenIsSet: boolean;
  +    FSkipResizeMessage: boolean;
       function    DoMouseEnterLeaveCheck(AWindow: TfpgWindowImpl; uMsg, wParam, lParam: Cardinal): Boolean;
       procedure   WindowSetFullscreen(aFullScreen, aUpdate: boolean);
     protected
  
positive.code: begin
    if FWinHandle > 0 then
      Exit; //==>
  
    FWinStyle   := WS_OVERLAPPEDWINDOW;
    FWinStyleEx := WS_EX_APPWINDOW;
  
negative.code: var
    bx, by: integer;
  begin
    FSkipResizeMessage := True;
    GetWindowBorderDimensions(Self, bx, by);
    Windows.SetWindowPos(
      WinHandle, HWND_TOP,
      aleft, atop, awidth + bx, aheight + by,
      SWP_NOZORDER);// or SWP_NOREDRAW);
    FSkipResizeMessage := False;
  end;
  
  { TfpgCanvasImpl }
  