Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Bug with ListBox under Vista
Message
From
23/10/2006 05:24:17
 
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
01163690
Message ID:
01163882
Views:
8
>>Hello,
>>
>>I don't know if anyone is testing VFP9 applications with Vista RC2.
>>We are, and we found this bug with Listboxes:
>>
>>When you open the Listbox with your mouse, and try to select an item from the listbox list of items, some of the items get selected when you mouse over them.
>>
>>This behavior look very strange to the user.
>>It only happens when the listbox has a control source.
>>It has been tested with VFP9 SP2 CTP October and Vista Ultimate RC2
>>
>>Has anyone seen this behavior or know if it will be addressed in the final SP2 of VFP9 ?
>
>Check http://blogs.msdn.com/calvin_hsia/archive/2006/10/19/is-this-a-vista-bug.aspx


Thanks, but not related. My problem has something to do with the Combobox Visual Refresh. (It's true its Comboboxes and not Listboxes - my fault)
I post the repro code below (just paste the code into a .PRG and run it):
oForm = CreateObject("f2")
oform.Show(1)

**************************************************
*-- Class:        f2 (k:\f2.vcx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   10/23/06 10:12:11 AM
*
DEFINE CLASS f2 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT combo1 AS combobox WITH ;
		Height = 24, ;
		Left = 48, ;
		Top = 60, ;
		Width = 180, ;
		Name = "Combo1"


	ADD OBJECT combo2 AS combobox WITH ;
		ControlSource = "x1.rsource", ;
		Height = 24, ;
		Left = 48, ;
		Top = 96, ;
		Width = 180, ;
		Name = "Combo2"


	ADD OBJECT combo3 AS combobox WITH ;
		RowSourceType = 1, ;
		RowSource = "A,b,c", ;
		ControlSource = "x1.rsource", ;
		Height = 24, ;
		Left = 48, ;
		Top = 133, ;
		Width = 180, ;
		Name = "Combo3"


	PROCEDURE Load
		IF USED("x1")
			SELECT x1
			USE
		endif
		create CURSOr x1 ( rsource c(30))
		SELECT x1
		append blank
	ENDPROC


	PROCEDURE Init
		FOR f=1 TO 100 
		thisform.combo1.AddItem("i"+STR(f))
		thisform.combo2.AddItem("i"+STR(f))
		NEXT f
	ENDPROC


ENDDEFINE
*
*-- EndDefine: f2
**************************************************
Previous
Reply
Map
View

Click here to load this message in the networking platform