anchor.diff:  
   procedure TfpgClipboardImpl.InitClipboard;
   begin
  +  {$WARNING This does not work! 'FPGUI' window class was not registered,
  +  so CreateWindowEx always returns 0}
     FClipboardWndHandle := Windows.CreateWindowEx(
  -      0,			  // extended window style
  -      'FPGUI',  // registered class name
  -      nil,			// window name
  -      0,			  // window style
  -      0,			  // horizontal position of window
  -      0,			  // vertical position of window
  -      10,			  // window width
  -      10,       // window height
  -      0,        // handle to parent or owner window
  -      0,        // menu handle or child identifier
  +      0,            // extended window style
  +      'FPGUI',      // registered class name
  +      nil,          // window name
  +      0,            // window style
  +      0,            // horizontal position of window
  +      0,            // vertical position of window
  +      10,           // window width
  +      10,           // window height
  +      0,            // handle to parent or owner window
  +      0,            // menu handle or child identifier
         MainInstance, // handle to application instance
  -      nil       // window-creation data
  +      nil           // window-creation data
         );
   end;
   
  
positive.code:   end;
  
  
    TfpgApplicationImpl = class(TfpgApplicationBase)
    protected
      FDisplay: HDC;
  
negative.code:     hcr_wait: HCURSOR;
      hcr_hand: HCURSOR;
      FFocusedWindow: THANDLE;
      { FHiddenWindow serves as parent for modal forms,
        ensuring they don't have taskbar button. It is created
        on-demand and should be accessed via GetHiddenWindow. }
      FHiddenWindow: HWND;
      { To avoid problems, window classes should be accessible
        from RegisterClass call till the program is terminated. }
      HiddenWndClass: TWndClass;
      function    GetHiddenWindow: HWND;
      function    DoGetFontFaceList: TStringList; override;
    public
      constructor Create(const AParams: string); override;
  