anchor.diff:      FParentHandle: HWND;
       FPaintManagerUI: CPaintManagerUI;
       FCaption: string;
  +    FAcceptFiles: Boolean;
  +    FDropFileFilter: string;
       function GetHandle: HWND;
       function GetInitSize: TSize;
       function GetScreenSize: TSize;
  
positive.code: procedure TDuiWindowImplBase.DoHandleMessage(var Msg: TMessage; var bHandled: BOOL);
  begin
    // virtual method
  end;
  
  procedure TDuiWindowImplBase.DoInitWindow;
  
negative.code: 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;
  
  