说明:TGridLayout 提供计算容器内控件等分的功能:
- 横式(Orientation=Horizontal)可将 ItemWidth = -1(小于0则自动等分)
- 直式(Orientation=Vertical)可将 ItemHeight = -1(小于0则自动等分)
问题:当 TGridLayout 设定 Padding 边界时,会造成等分计算错误。
适用:XE8 Firemonkey
修复方法:
请将源码 FMX.Layouts.pas 复制到自己的工程目录里,再进行修改。
找到: if CurPos.X + LItemWidth > Self.Width - Self.Padding.Left - 改成: if CurPos.X + LItemWidth - Self.Padding.Left - 0.1 > Self.Width - Self.Padding.Left - 找到: if CurPos.Y + LItemHeight > Self.Height - Self.Padding.Top - 改成: if CurPos.Y + LItemHeight - Self.Padding.Top - 0.1 > Self.Height - Self.Padding.Top -
效果: