fix draw footer rows in rxdbgrid with scrolbars - thx vicvala from freepascal.ru

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2260 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2012-01-22 21:59:39 +00:00 · 2012-01-22 21:59:39 +00:00 · ba32690bfa
commit ba32690bfa
parent 880197feae
1 changed files with 8 additions and 1 deletions
--- a/components/rx/rxdbgrid.pas
+++ b/components/rx/rxdbgrid.pas
@ -2136,7 +2136,14 @@ var
  TxS: TTextStyle;
 begin
  TotalWidth := GetClientRect.Right;
-  TotalYOffs := GCache.ClientHeight;
+  // от сель --------------
+    if ScrollBarIsVisible(SB_HORZ) then
+      TotalYOffs := GCache.ClientHeight - (GetSystemMetrics(SM_CYHSCROLL) +
+        GetSystemMetrics(SM_SWSCROLLBARSPACING))
+    else
+      TotalYOffs := GCache.ClientHeight;
+  // до сель --------------
+//  TotalYOffs := GCache.ClientHeight;
  FooterRect := Rect(0, TotalYOffs, TotalWidth, TotalYOffs +
    DefaultRowHeight * FooterRowCount + 2);