Wrong sizing

[yesilcimenahmet]

Hi,

Thank you for this great project. Please watch the 1-min video in the link below and see what the error is.

Summary: If OneCol2List is False and Autosize is True, the last object is not fully visible.

Can you fix this problem? Thank you.

Video Link

object UFlowGridLayout1: TUFlowGridLayout
  Left = 0
  Top = 0
  Width = 981
  Height = 238
  ParentCustomHint = False
  Align = alTop
  AutoSize = True
  BevelOuter = bvNone
  BiDiMode = bdLeftToRight
  Caption = 'UFlowGridLayout1'
  Color = clPurple
  Ctl3D = True
  DoubleBuffered = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentBiDiMode = False
  ParentBackground = False
  ParentCtl3D = False
  ParentDoubleBuffered = False
  ParentFont = False
  ShowCaption = False
  TabOrder = 0
  OneCol2List = False
  ItemWidth = 235
  ItemHeight = 215
  ListItemHeight = 215
  object Panel1: TPanel
    AlignWithMargins = True
    Left = 118
    Top = 20
    Width = 235
    Height = 215
    Margins.Left = 10
    Margins.Right = 10
    Color = clRed
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentBackground = False
    ParentFont = False
    ShowCaption = False
    TabOrder = 0
  end
  object Panel2: TPanel
    AlignWithMargins = True
    Left = 373
    Top = 20
    Width = 235
    Height = 215
    Margins.Left = 10
    Margins.Right = 10
    Color = clRed
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Tahoma'
    Font.Style = []
    Locked = True
    ParentBackground = False
    ParentFont = False
    ShowCaption = False
    TabOrder = 1
  end
  object Panel3: TPanel
    AlignWithMargins = True
    Left = 628
    Top = 20
    Width = 235
    Height = 215
    Margins.Left = 10
    Margins.Right = 10
    Color = clRed
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentBackground = False
    ParentFont = False
    ShowCaption = False
    TabOrder = 2
    object Edit1: TEdit
      Left = 48
      Top = 184
      Width = 121
      Height = 26
      TabOrder = 0
      Text = 'Edit1'
    end
  end
end