anchor.diff:  procedure TDuiWindowImplBase.DoHandleMessage(var Msg: TMessage; var bHandled: BOOL);
   begin
     // virtual method
  +  case Msg.Msg of
  +    WM_DROPFILES:  DoDropFiles(Msg, bHandled);
  +  else
  +
  +  end;
   end;
   
   procedure TDuiWindowImplBase.DoInitWindow;
  
positive.code: 
  constructor TDuiWindowImplBase.Create;
  begin
    FThis := CDelphi_WindowImplBase.CppCreate;
    FPaintManagerUI := {$IFDEF SupportGeneric}FThis{$ELSE}CDelphi_WindowImplBase(FThis){$ENDIF}.GetPaintManagerUI;
  
  
negative.code:   Result := nil;
  end;
  
  procedure TDuiWindowImplBase.DoDropFiles(var Msg: TMessage;
    var bHandled: BOOL);
  begin
  
  end;
  
  procedure TDuiWindowImplBase.DoFinalMessage(hWd: HWND);
  begin
    // virtual method
  