Help with manipulating ListBox with xBasic

[RobertJWilkins]

I am trying to manipulate the contents
of a list box with xBasic ...

I am adding the contents of a global variable
to the end of the "settings.dynamic_list" for the list box

The FORM is called "Merge_Picker"
The LIST BOX is called "MergePicked"
its properties for "Choices" says "Populated using XBasic"

I have a value in global variable gMergeAvail
that I want to append to the list

The following code on the "On Push" event of a button
runs without error but my new updated dynamic list
does not appear with the gMergeAvail contents of the form

If I display the oPicked.settings.dynamic_list
in the trace window - it is correct

My form just will NOT show the updated list box ???

**********************************

Dim oPicked as P

' Get the Address of the Picked List box
oPicked = :Merge_Picker:MergePicked.This

trace.writeln("Before")
trace.writeln(oPicked.settings.dynamic_list)

oPicked.settings.dynamic_list = oPicked.settings.dynamic_list + gMergeAvail + crlf()

trace.writeln("After")
trace.writeln(oPicked.settings.dynamic_list)

:Merge_Picker.Refresh_Layout() ' Tried this
:Merge_Picker.refresh_fields() ' Also tried this
:Merge_Picker.Show() ' Also tried this

**********************************

Any help please

THANKS
Bob Wilkins
Burlington, Ontario

[Tom Cone Jr]

Here are couple of (untested) ideas for you:

(1) Since the choices must be in a crlf() delimited list, have you tried:

 oPicked.settings.dynamic_list = oPicked.settings.dynamic_list [COLOR=Red]+ crlf() +[/COLOR] gMergeAvail + crlf()

(2) Reconstruct the entire list of choices, add your new entry, and then pass the entire list to the list box.

-- tom

[Tom Cone Jr]

Example script

Bob,

Here's an example script for you. It illustrates how to add (insert) a line into a crlf() delimited list, so it can be passed to the dynamically populated list box.

In this example, the initial list (called "lines") is how the box is initially populated when the form opens. The user then types a name into a form variable called "v_President" and pushes a button. The button runs this script to update the list box with whatever text the user typed:

' in this form the list box is populated in the form's OnInit event

lines = <<%str%
John Adams
Thomas Jefferson
George Washington
%str%

dim lb_ptr as P
lb_ptr = :Form2:listbox2.this   'get pointer to the listbox control

lines = *line_insert(lines, var->v_president, 2)   'insert new line 
lb_ptr.settings.dynamic_list = lines      'update the list box

In this example I opted to insert the new line in the second position in the list box.

Hope this helps.

-- tom

[RobertJWilkins]

The List Works --- BUT No Display Update

Hi Tom

Thanks for your reply and your suggestions, but still no cigar !!!

My problem is not with the list itself but the fact that the updated list does not show in the form on the screen after the button push.

I have changed your code slightly and if I trace.writeline() both "TheList" and the "dynamic_list" for the listbox control they BOTH contain the new entry on its own line as it should be - looks wonderful

But the display of the listbox does not update. It is like I am not updating the view of the form.

If I push the button 3 times, I get my new addition added to the list 3 times and in the trace window it looks perfect - but my screen form has not shown any changes ???

Thanks again

Here is the code I am using:

Dim TheList as C

TheList = :Merge_Picker:MergePicked.settings.dynamic_list + gMergeAvail + crlf()
:Merge_Picker:MergePicked.settings.dynamic_list = TheList

trace.WriteLn(" ")
trace.WriteLn("TheList ")
trace.WriteLn(TheList)

trace.WriteLn(" ")
trace.WriteLn("The Dynamic List ")
trace.WriteLn(:Merge_Picker:MergePicked.settings.dynamic_list)

:Merge_Picker.Refresh_Layout()
:Merge_Picker.Show()

[RobertJWilkins]

The Trace window

Tom - Here is what the trace window looks like

#1
TheList
CITY

The Dynamic List
CITY
SURNAME_1


#2
TheList
CITY
SURNAME_1

The Dynamic List
CITY
SURNAME_1
SURNAME_2


#3
TheList
CITY
SURNAME_1
SURNAME_2

The Dynamic List
CITY
SURNAME_1
SURNAME_2
SURNAME_3


It Looks Just Fine but none of this shows in the form with the list box

The dynamic_list is being updated but NO SHOW ... ???

Thanks again
Bob