Combo followup - ProFox

4 Aug 2024


      Thanks Ted for the input.  I ended up putting together some runnable code
to compare what happens in different scenarios and have attached it if
anyone is interested. I think the behavior when the Quotes are included in
the RowSource of the Combo is probably a bug.  What bothers me is that it
seems to come and go, probably tied to some unknown condition in Foxpro.
 All the code does is display three different Combo boxes.  When you click
for the dropdowns the list of options show up.  To the right  are boxes
showing the type and value of the choice just clicked.
Thanks again,
Joe
Here is the code:
PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN
**************************************************
*-- Form:         form1 (c:\dropbox\joe\stuff\ctest.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   08/03/24 08:33:05 PM
*
DEFINE CLASS form1 AS form
Top = 0
Left = 0
Height = 250
Width = 713
DoCreate = .T.
Caption = "Form1"
Name = "form1"
ADD OBJECT combo1 AS combobox WITH ;
RowSourceType = 1, ;
RowSource = ['"0.1,0.5,1,2,3,4,5"'], ;
ControlSource = "", ;
Height = 49, ;
Left = 36, ;
Top = 48, ;
Width = 133, ;
BoundTo = .T., ;
Name = "Combo1"
ADD OBJECT label1 AS label WITH ;
Alignment = 2, ;
Caption = ['"0.1,0.5,1,2,3,4,5"'], ;
Height = 25, ;
Left = 36, ;
Top = 24, ;
Width = 132, ;
Name = "Label1"
ADD OBJECT text2 AS textbox WITH ;
ControlSource = "", ;
Height = 25, ;
Left = 167, ;
Top = 48, ;
Width = 49, ;
Name = "Text2"
ADD OBJECT text3 AS textbox WITH ;
Comment = "", ;
ControlSource = "", ;
Height = 25, ;
Left = 167, ;
Top = 72, ;
Width = 49, ;
Name = "Text3"
ADD OBJECT combo2 AS combobox WITH ;
RowSourceType = 1, ;
RowSource = "0.1,0.5,1,2,3,4,5", ;
ControlSource = "", ;
Height = 49, ;
Left = 253, ;
Top = 50, ;
Width = 133, ;
BoundTo = .T., ;
Name = "Combo2"
ADD OBJECT label2 AS label WITH ;
Alignment = 2, ;
Caption = "0.1,0.5,1,2,3,4,5", ;
Height = 25, ;
Left = 253, ;
Top = 26, ;
Width = 132, ;
Name = "Label2"
ADD OBJECT text4 AS textbox WITH ;
ControlSource = "", ;
Height = 25, ;
Left = 384, ;
Top = 50, ;
Width = 49, ;
Name = "Text4"
ADD OBJECT text5 AS textbox WITH ;
Comment = "", ;
ControlSource = "", ;
Height = 25, ;
Left = 384, ;
Top = 74, ;
Width = 49, ;
Name = "Text5"
ADD OBJECT combo3 AS combobox WITH ;
RowSourceType = 1, ;
RowSource = "This.RSvalue", ;
ControlSource = "", ;
Height = 49, ;
Left = 475, ;
Top = 51, ;
Width = 133, ;
BoundTo = .T., ;
Name = "Combo3"
ADD OBJECT label3 AS label WITH ;
Alignment = 2, ;
Caption = "Set in Init", ;
Height = 25, ;
Left = 475, ;
Top = 27, ;
Width = 132, ;
Name = "Label3"
ADD OBJECT text1 AS textbox WITH ;
ControlSource = "", ;
Height = 25, ;
Left = 606, ;
Top = 51, ;
Width = 49, ;
Name = "Text1"
ADD OBJECT text6 AS textbox WITH ;
Comment = "", ;
ControlSource = "", ;
Height = 25, ;
Left = 606, ;
Top = 75, ;
Width = 49, ;
Name = "Text6"
PROCEDURE Init
thisform.refresh
ENDPROC
PROCEDURE combo1.Click
LPARAMETERS cItem
LOCAL out, typ
out = this.value
thisform.text2.value = TYPE(out)
thisform.text3.value = out
thisform.refresh
ENDPROC
PROCEDURE combo2.Click
LPARAMETERS cItem
LOCAL out, typ
out = this.value
thisform.text4.value = TYPE(out)
thisform.text5.value = out
thisform.refresh
ENDPROC
PROCEDURE combo3.Click
LPARAMETERS cItem
LOCAL out, typ
out = this.value
thisform.text1.value = TYPE(out)
thisform.text6.value = out
thisform.refresh
ENDPROC
PROCEDURE combo3.Init
 this.RowSource = '0.1,0.5,1,2,3,4,5'
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
**************************************************
--- StripMime Report -- processed MIME parts ---
multipart/alternative
  text/plain (text body -- kept)
  text/html
---