anchor.diff:      { To avoid problems, window classes should be accessible
         from RegisterClass call till the program is terminated. }
       HiddenWndClass: TWndClass;
  +    ActivationHook: HHOOK;
       function    GetHiddenWindow: HWND;
       function    DoGetFontFaceList: TStringList; override;
     public
       constructor Create(const AParams: string); override;
  +    destructor  Destroy; override;
       function    DoMessagesPending: boolean;
       procedure   DoWaitWindowMessage(atimeoutms: integer);
       procedure   DoFlush;
  
positive.code: 
    FHiddenWindow := 0;
  
    FIsInitialized := True;
    wapplication   := TfpgApplication(self);
  end;
  
  function TfpgApplicationImpl.DoMessagesPending: boolean;
  
negative.code:     WM_NCACTIVATE:
          begin
            {$IFDEF DEBUG}
              write(w.ClassName + ': WM_NCACTIVATE ');
              writeln(wParam);
            {$ENDIF}
            if (wParam = 0) then
              fpgSendMessage(nil, w, FPGM_DEACTIVATE)
            else
              fpgSendMessage(nil, w, FPGM_ACTIVATE);
  