pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:fix show last row in RxDBGrid

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6040 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2017-10-24 12:38:03 +00:00
parent 3b066e0ae0
commit c460bc96be
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/rx/trunk/rxdb/rxdbgrid.pas
View File

@ -5229,13 +5229,15 @@ begin
if FFooterOptions.Active then if FFooterOptions.Active then
H:=H - GetDefaultRowHeight * FFooterOptions.RowCount; H:=H - GetDefaultRowHeight * FFooterOptions.RowCount;
Result := H div GetDefaultRowHeight; Result := H div GetDefaultRowHeight;
if rdgFilter in OptionsRx then if rdgFilter in OptionsRx then
Dec(Result, 1); Dec(Result, 1);
if dgTitles in Options then if dgTitles in Options then
Dec(Result, 1); //Dec(Result, 1);
Result:=Result - RowHeights[0] div GetDefaultRowHeight;
end end
else else
Result := 1; Result := 1;