Fix for TOvcVirtualListBox in form designer when IntegralHeight=True and Laz 0.9.29/30.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1474 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/orpheus/ovcvlb.pas

@@ -2487,7 +2487,7 @@ begin
   if (csDesigning in ComponentState) and
      not (csLoading in ComponentState) then
     if FIntegralHeight then
-      Msg.Height := ClientHeight;
+      Msg.Height := Height;  //was ClientHeight, but no longer works on Windows
 {$ENDIF}
     vlbCalcFontFields;
     vlbInitScrollInfo;