控件-TMS-TGridPanel-自动按比例划分界面

grdpnlAdd.ColumnCollection.BeginUpdate;
  grdpnlAdd.ColumnCollection[0].Value := 49.5;
  grdpnlAdd.ColumnCollection[1].Value := 1;
  grdpnlAdd.ColumnCollection[2].Value := 49.5;
  grdpnlAdd.ColumnCollection.EndUpdate;
  grdpnlAdd.RowCollection.BeginUpdate;
  grdpnlAdd.RowCollection[0].Value := 32;
  grdpnlAdd.RowCollection[1].Value := 1;
  grdpnlAdd.RowCollection[2].Value := 32;
  grdpnlAdd.RowCollection[3].Value := 1;
  grdpnlAdd.RowCollection[4].Value := 33;
  grdpnlAdd.RowCollection.EndUpdate;
  
  
object grdpnlAdd: TGridPanel
    Left = 0
    Top = 0
    Width = 894
    Height = 572
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 1
    Color = 16509661
    ColumnCollection = <
      item
        Value = 49.500000000000000000
      end
      item
        Value = 1.000000000000000000
      end
      item
        Value = 49.500000000000000000
      end>
    ControlCollection = <
      item
        Column = 0
        Control = pnlVehicleInfo
        Row = 0
      end
      item
        Column = 0
        Control = pnlTransportInfo
        Row = 2
      end
      item
        Column = 2
        Control = pnlCarrageUnit
        Row = 0
      end
      item
        Column = 2
        Control = pnlConsignUnit
        Row = 2
      end
      item
        Column = 0
        Control = pnl1CargoInfo
        Row = 4
      end
      item
        Column = 2
        Control = pnl1Hint
        Row = 4
      end>
    DoubleBuffered = True
    ExpandStyle = emFixedSize
    Locked = True
    Padding.Left = 1
    Padding.Top = 1
    Padding.Right = 1
    Padding.Bottom = 1
    ParentBackground = False
    ParentDoubleBuffered = False
    RowCollection = <
      item
        Value = 32.000000000000000000
      end
      item
        Value = 1.000000000000000000
      end
      item
        Value = 32.000000000000000000
      end
      item
        Value = 1.000000000000000000
      end
      item
        Value = 34.000000000000000000
      end>
    TabOrder = 0
    VerticalAlignment = taAlignBottom
窗体文件

 

posted @ 2016-06-22 19:53  海蓝7  阅读(274)  评论(0编辑  收藏  举报