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
---
_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: https://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: https://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: https://leafe.com/archives
This message:
https://leafe.com/archives/byMID/cabqednugaurwjyebtv1hn+8wfrwaloyzyqnoyjg-haauanm...@mail.gmail.com
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
