[GB.FORM]

* BUG: GridView: allow column width to be set to zero. In that case the 
  actual width is set to one pixel.


git-svn-id: svn://localhost/gambas/trunk@4547 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2012-03-14 00:35:13 +00:00
parent a551594bdc
commit f8dfe7d8de

View file

@ -47,8 +47,8 @@ End
Private Sub Width_Write(Value As Integer)
If Value < 0 Then Value = GetView()._GetPreferredWidth(_Column)
If Value < 1 Or If Value > 1024 Or If Value = $W Then Return
$W = Value
If Value < 0 Or If Value > 1024 Or If Value = $W Then Return
$W = Max(1, Value)
Raise _Refresh
End