anchor.diff:  begin
     FParentHandle := hwndParent;
     FCaption := ATitle;
  +  if FAcceptFiles then
  +  begin
  +    if dwExStyle and WS_EX_ACCEPTFILES = 0 then
  +      dwExStyle := dwExStyle or WS_EX_ACCEPTFILES
  +  end;
     {$IFDEF SupportGeneric}FThis{$ELSE}CDelphi_WindowImplBase(FThis){$ENDIF}.Create(hwndParent, ATitle, dwStyle, dwExStyle, rc, hMenu);
   end;
   
  
positive.code:     FParentHandle: HWND;
      FPaintManagerUI: CPaintManagerUI;
      FCaption: string;
      function GetHandle: HWND;
      function GetInitSize: TSize;
      function GetScreenSize: TSize;
  
negative.code:     procedure ShowMessage(const Msg: string); overload;
      procedure SetBuounds(AX, AY, AWidth, AHeigth: Integer);
    public
      property AcceptFiles: Boolean read FAcceptFiles write FAcceptFiles;
      property Caption: string read FCaption write SetCaption;
      property DropFileFilter: string read FDropFileFilter write FDropFileFilter;
      property Left: Integer read GetLeft write SetLeft;
      property Top: Integer read GetTop write SetTop;
      property Width: Integer read GetWidth write SetWidth;
  