anchor.diff:                WM_RBUTTONUP:
                     begin
                       {$IFDEF DEBUG}
  -                    writeln('fpGFX/GDI:', w.ClassName + ': MouseButtonUp event');
  +                    SendDebug('fpGFX/GDI: '+ w.ClassName + ': MouseButtonUp event');
                       {$ENDIF}
                       // This is temporary and we should try and move it to
                       // the UI Designer code instead.
  
positive.code:         begin
            {$IFDEF DEBUG}
            if uMsg <> WM_MOUSEMOVE then
              writeln('fpGFX/GDI: Found a mouse button event');
            {$ENDIF}
  //          msgp.mouse.x := smallint(lParam and $FFFF);
  //          msgp.mouse.y := smallint((lParam and $FFFF0000) shr 16);
  
negative.code:           msgp.rect.Height := smallint((lParam and $FFFF0000) shr 16);
  
            {$IFDEF DEBUG}
              SendDebugFmt('%s: WM_SIZE  w=%d  h=%d', [w.ClassName, msgp.rect.width, msgp.rect.Height]);
            {$ENDIF}
            // skip minimize...
            if lparam <> 0 then
  