From f8dfe7d8decd0e835f0b52593741886f99414eb7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Wed, 14 Mar 2012 00:35:13 +0000 Subject: [PATCH] [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 --- comp/src/gb.form/.src/GridView/_GridView_Column.class | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/comp/src/gb.form/.src/GridView/_GridView_Column.class b/comp/src/gb.form/.src/GridView/_GridView_Column.class index 34694cf8e..26b289b71 100644 --- a/comp/src/gb.form/.src/GridView/_GridView_Column.class +++ b/comp/src/gb.form/.src/GridView/_GridView_Column.class @@ -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