[Gambas-user] GridView.ClientWidth yields incorrect size on Form_Open

Gianluigi bagonergi at gmail.com
Sat Feb 2 23:05:59 CET 2019


Il giorno sab 2 feb 2019 alle ore 20:54 T Lee Davidson <
t.lee.davidson at gmail.com> ha scritto:

> ...
> Charlie, thank you for that code. Setting the column width to -1 does
> automatically resize the column to fit the data. However,
> I am trying to achieve the behavior that the Expand property is supposed
> to give: "Return or set if a GridView column
> automatically expands to fit the GridView width." Meaning, as I understand
> it, similar to AutoResize but for a column other than
> the last column.
>
> I have actually accomplished this by capturing the sum of the column
> widths within the For loop and then resizing the first
> column mathematically within the Arrange event. It would seem, though,
> that using the Expand property would be much simpler and
> more sensible.
>
>
> ___
> Lee
>

If with "Charlie" you're referring to me, also me can not get Expand to
work.
But I think you can easily replace it with Width = -1:
'-------------------------------
Public Sub Form_Open()

  Dim Headers As String[] = ["0123456789", "0123456789", "0123456789",
"0123456789"]

  With GridView1
    .AutoResize = False
    .Header = GridView.Horizontal
  End With

  GridView1.Rows.Count = 1
  GridView1.Columns.Count = Headers.Count
  For i As Integer = 0 To Headers.Max
    GridView1.Columns[i].Title = Headers[i]
    GridView1[0, i].Text = String(30, "*")
  Next
   GridView1.Columns[0].Width = -1

End
'-------------------------------
But also I would be curious to know how to set Expand ;-)

Regards
Gianluigi
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.gambas-basic.org/pipermail/user/attachments/20190202/7c1f9723/attachment.html>


More information about the User mailing list