anchor.diff:    hcr_crosshair := LoadCursor(0, IDC_CROSS);
     hcr_wait      := LoadCursor(0, IDC_WAIT);
     hcr_hand      := LoadCursor(0, IDC_HAND);
  +
  +  FHiddenWindow := 0;
   
     FIsInitialized := True;
     wapplication   := TfpgApplication(self);
  
positive.code: 
    if FWindowType = wtModalForm then
    begin
      // for modal windows, this is necessary
      FWinStyle   := WS_OVERLAPPEDWINDOW or WS_POPUPWINDOW;
      FWinStyle   := FWinStyle and not (WS_MINIMIZEBOX);
  
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;
  