More scrolling support

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@10087 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775

diff --git a/src/os2/window.cpp b/src/os2/window.cpp
index 1f9123f388ff1a6877b01780fb0708575a935654..c1f50464dcf536f98ecfb1cd6fcda3c3a60675ef 100644 (file)
--- a/src/os2/window.cpp
+++ b/src/os2/window.cpp
@@ -755,6 +755,7 @@ void wxWindow::SetScrollbar(
                                  );
             }
             ::WinSendMsg(m_hWndScrollBarHorz, SBM_SETSCROLLBAR, (MPARAM)nPos, MPFROM2SHORT(0, (SHORT)nRange1));
+            ::WinSendMsg(m_hWndScrollBarHorz, SBM_SETTHUMBSIZE, MPFROM2SHORT((SHORT)nThumbVisible, (SHORT)nRange1), (MPARAM)0);
         }
     }
     else
@@ -804,6 +805,7 @@ void wxWindow::SetScrollbar(
                                  );
             }
             ::WinSendMsg(m_hWndScrollBarVert, SBM_SETSCROLLBAR, (MPARAM)nPos, MPFROM2SHORT(0, (SHORT)nRange1));
+            ::WinSendMsg(m_hWndScrollBarVert, SBM_SETTHUMBSIZE, MPFROM2SHORT((SHORT)nThumbVisible, (SHORT)nRange1), (MPARAM)0);
         }
         m_nYThumbSize = nThumbVisible;
     }