paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 12:02:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

grids: always scale FDefColWidth and FDefRowHeight (without chicking IsDefRowHeightStored).

Browse Source 
git-svn-id: trunk@53992 -
This commit is contained in:
ondrej 2017-01-24 12:07:30 +00:00
parent 14d17cd1e7
commit ae58211303
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/grids.pas
View File

@ -6752,9 +6752,9 @@ begin
for i := RowCount - 1 downto 0 do for i := RowCount - 1 downto 0 do
RowHeights[i] := Round(RowHeights[i] * AYProportion); RowHeights[i] := Round(RowHeights[i] * AYProportion);
DefaultColWidth := Round(DefaultColWidth * AXProportion); FDefColWidth := Round(FDefColWidth * AXProportion);
if IsDefRowHeightStored then FDefRowHeight := Round(FDefRowHeight * AYProportion);
DefaultRowHeight := Round(DefaultRowHeight * AYProportion); Include(FGridFlags, gfDefRowHeightChanged);
finally finally
EndUpdate; EndUpdate;
end; end;