anchor.diff:  
   constructor TDuiWindowImplBase.Create;
   begin
  +  FDropFileFilter := ''; // *.*
     FThis := CDelphi_WindowImplBase.CppCreate;
     FPaintManagerUI := {$IFDEF SupportGeneric}FThis{$ELSE}CDelphi_WindowImplBase(FThis){$ENDIF}.GetPaintManagerUI;
   
  
positive.code:   Result := nil;
  end;
  
  procedure TDuiWindowImplBase.DoFinalMessage(hWd: HWND);
  begin
    // virtual method
  
negative.code: end;
  
  procedure TDuiWindowImplBase.CreateDuiWindow(AParent: HWND; ATitle: string);
  var
    LStyleEx: Cardinal;
  begin
    FParentHandle := AParent;
    FCaption := ATitle;
    LStyleEx := WS_EX_STATICEDGE;
    if FAcceptFiles then
       LStyleEx := LStyleEx or WS_EX_ACCEPTFILES;
    {$IFDEF SupportGeneric}FThis{$ELSE}CDelphi_WindowImplBase(FThis){$ENDIF}.CreateDuiWindow(AParent, ATitle, UI_WNDSTYLE_FRAME, LStyleEx);
  end;
  
  procedure TDuiWindowImplBase.CreateWindow(hwndParent: HWND; ATitle: string;
  