Trying to make a list box editable without any success.
On the form the array based list box contains 1 column. The list box has the
single-click edit property checked. The llist box method contains…
Case of
: (Form event=On Before Data Entry)
$columnPtr:=LISTBOX GET CELL POSITION(albTimesheets;$col;$row)
If ($col=1)
$0:=-1
End if
End case
On load I am adding a bunch of columns like this…
For ($k;1;Day of($lastDayOfMonth))
$Last:=LISTBOX Get number of columns(albTimesheets)+1
$arrayPtr:=Get pointer("aDay"+String($K))-
LISTBOX INSERT
COLUMN(albTimesheets;$Last;"Day"+String($k);$arrayPtr->;"Day"+String($k)+"Header";$nillPtr->)
LISTBOX SET COLUMN WIDTH(*;"Day"+String($k);$colWidth)
OBJECT SET FORMAT(*;"Day"+String($k);"###,###.00;;")
OBJECT SET FONT SIZE(*;"Day"+String($k);11)
OBJECT SET HORIZONTAL ALIGNMENT(*;"Day"+String($k);Align center)
OBJECT SET TITLE(*;"Day"+String($k)+"Header";Padbeforev_Jut
(String($k);0;1))
End for
When I click column 1 the row is selected, as expected. When I click a column
cell, however, nothing happens. the currently selected row remains selected and
the cell does not go into editing mode.
Do I need to do something in the On Before Data Entry event to get into the
cell?
The docs says that in order for a list box cell to be enterable the cell’s
column must have been set to Enterable. How do you do that? I tried adding an
Object Set Enterable to the for loop adding the columns…
OBJECT SET ENTERABLE(*;"Day"+String($k);True)
Any help is appreciated.
John
John Baughman
Kailua, Hawaii
(808) 262-0328
[email protected]
**********************************************************************
4D Internet Users Group (4D iNUG)
FAQ: http://lists.4d.com/faqnug.html
Archive: http://lists.4d.com/archives.html
Options: http://lists.4d.com/mailman/options/4d_tech
Unsub: mailto:[email protected]
**********************************************************************
