Fix #1187: wrong height of Header in empty TColumnsFileView

This commit is contained in:
rich2014 2023-08-05 21:42:52 +08:00
commit 623358eb14

View file

@ -661,7 +661,8 @@ begin
FUpdatingActiveFile := True;
dgPanel.RowCount := dgPanel.FixedRows + Count;
// to add fake bottom padding for last row
dgPanel.RowHeights[dgPanel.RowCount - 1] := dgPanel.DefaultRowHeight + CELL_PADDING;
if Count>0 then
dgPanel.RowHeights[dgPanel.RowCount - 1] := dgPanel.DefaultRowHeight + CELL_PADDING;
FUpdatingActiveFile := False;
end;