paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2260 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75 2012-01-22 21:59:39 +00:00
parent 880197feae
commit ba32690bfa
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/rx/rxdbgrid.pas
View File

@ -2136,7 +2136,14 @@ var
TxS: TTextStyle; TxS: TTextStyle;
begin begin
TotalWidth := GetClientRect.Right; 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 + FooterRect := Rect(0, TotalYOffs, TotalWidth, TotalYOffs +
DefaultRowHeight * FooterRowCount + 2); DefaultRowHeight * FooterRowCount + 2);