anchor.diff:            msgp.rect.Height := smallint((lParam and $FFFF0000) shr 16);
   
             {$IFDEF DEBUG}
  -            write(w.ClassName + ': ');
  -            writeln('WM_SIZE: width=',msgp.rect.width, ' height=',msgp.rect.height);
  +            SendDebugFmt('%s: WM_SIZE  w=%d  h=%d', [w.ClassName, msgp.rect.width, msgp.rect.Height]);
             {$ENDIF}
             // skip minimize...
             if lparam <> 0 then
  
positive.code:     WM_MOUSEWHEEL:
          begin
            {$IFDEF DEBUG}
              write(w.ClassName + ': ');
              writeln('WM_MOUSEWHEEL: wp=',IntToHex(wparam,8), ' lp=',IntToHex(lparam,8));
            {$ENDIF}
            pt.x := GET_X_LPARAM(lParam);
            pt.y := GET_Y_LPARAM(lParam);
  
negative.code:           if (PopupListFirst <> nil) and (PopupListFirst.Visible) then
            begin
              {$IFDEF DEBUG}
              SendDebug(' Blockmsg = True (part 1) : ' + PopupListFirst.ClassName);
              {$ENDIF}
              // This is ugly but needed for now to get TfpgCombobox to work
              if (PopupListFirst.ClassName <> 'TDropDownWindow') then
  