[GB.FORM]

* NEW: Implement Title properties as synonymous of Text for row and column 
  headers.
* BUG: GridView.Rows[].Selected now works correctly when multiple selection 
  is enabled.


git-svn-id: svn://localhost/gambas/trunk@4529 867c0c6c-44f3-4631-809d-bfa615b0a4ec

comp/src/gb.form/.info

@@ -2835,6 +2835,10 @@ Text
 p
 s
 
+Title
+p
+s
+
 Resizable
 p
 b
@@ -2984,6 +2988,10 @@ Text
 p
 s
 
+Title
+p
+s
+
 _Row
 v
 i

comp/src/gb.form/.src/GridView/_GridView_Column.class

@@ -4,7 +4,7 @@ Export
 
 Property Read X As Integer
 Property Width, W As Integer
-Property Text As String
+Property Text, Title As String
 Property Resizable As Boolean
 Property Expand As Boolean
 

comp/src/gb.form/.src/GridView/_GridView_Row.class

@@ -2,20 +2,12 @@
 
 Export
 
-' 	GB_PROPERTY_READ("Top", "i", CGRIDITEM_y),
-' 	GB_PROPERTY("Text", "s", CGRIDROWS_text),
-' 	GB_PROPERTY("Title", "s", CGRIDROWS_text),
-' 	GB_PROPERTY("Selected", "b", CGRIDROWS_selected),
-' 	GB_METHOD("Refresh", NULL, CGRIDROWS_refresh, NULL),
-' 	GB_PROPERTY("Resizable", "b", CGRIDROWS_resizable),
-' 
-
 Event _Refresh
 
 Property Read Y As Integer
 Property Height, H As Integer
 Property Selected As Boolean
-Property Text As String
+Property Text, Title As String
 
 Public _Row As Integer
 
@@ -57,7 +49,17 @@ End
 
 Private Sub Selected_Write(Value As Boolean)
 
-  GetView()._SelectRow(_Row, Value)
+  Dim hView As GridView = GetView()
+  
+  If hView.Mode = Select.Single Then
+    hView._SelectRow(_Row, Value)
+  Else If hView.Mode = Select.Multiple Then
+    If Value Then
+      GetRows().Select(_Row)
+    Else
+      GetRows().UnSelect(_Row)
+    Endif
+  Endif
 
 End