Commit 26b4327f authored by Benoît Minisini's avatar Benoît Minisini

DataView: Add SelectAll() and UnselectAll() methods.

[GB.DB.FORM]
* NEW: DataView: Add SelectAll() and UnselectAll() methods.
parent 0f3277cb
[Component]
Key=gb.db.form
Version=3.13.90
Version=3.14.90
Authors=Benoît Minisini
Needs=Form
Requires=gb.db,gb.form
......@@ -2,7 +2,7 @@
Title=Data bound controls
Startup=FMain2
Icon=.hidden/control/datasource.png
Version=3.13.90
Version=3.14.90
VersionFile=1
Component=gb.image
Component=gb.gui
......
......@@ -1277,3 +1277,22 @@ Public Sub ButtonBox_DblClick()
ButtonBox_Click
End
Public Sub SelectAll()
Dim N As Integer
N = $hCtrl.Rows.Count
If HasNewRecord() Then
Dec N
SetCreate(False)
Endif
If N >= 1 Then $hCtrl.Select(0, N)
End
Public Sub UnselectAll()
$hCtrl.UnSelectAll
End
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment