Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Troublesome listbox
Message
From
25/10/2004 05:22:09
 
 
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows NT
Network:
Windows NT
Miscellaneous
Thread ID:
00953858
Message ID:
00954195
Views:
24
For some reason nobody replied. Anyway, I've done some additional research and have discovered that it happens in VFP7/WinNT and VFP7/WinXP, so in VFP7 (SP1), but no longer in VFP8 and VFP9.

Hope this is a useful addition to this 'knowledgebase'.

>I (think I) have a normal listbox. At first the selected item is beautifully refreshed when I choose another one from the dropped down list. But after some other action, that no longer happens, at least not without leaving the control. I can still select from the dropped down list, but the selected item won't immediately refresh.
>
>The code hereunder should demonstrate this. If the INKEY line is commented, then all continues to work fine.
>
>Is this a bug?
>
>
lox = createobject( 'form1' )
>lox.show()
>read events
>
>DEFINE CLASS form1 AS form
>
>	DoCreate = .T.
>	Caption = "Form1"
>	Name = "Form1"
>
>	ADD OBJECT cboText AS combobox WITH ;
>		FontBold = .T., ;
>		Height = 24, ;
>		Left = 78, ;
>		Style = 2, ;
>		Top = 42, ;
>		Width = 79, ;
>		Name = "cboText"
>
>	ADD OBJECT command1 AS commandbutton WITH ;
>		Top = 60, ;
>		Left = 234, ;
>		Height = 27, ;
>		Width = 84, ;
>		Cancel = .T., ;
>		Caption = "Exit", ;
>		Name = "Command1"
>
>
>	ADD OBJECT command2 AS commandbutton WITH ;
>		Top = 138, ;
>		Left = 132, ;
>		Height = 27, ;
>		Width = 84, ;
>		Caption = "Trouble", ;
>		Name = "Command2"
>
>
>	PROCEDURE cboText.Init
>		select text from _samples + 'solution\solution' into cursor c_sol
>
>		with this
>			.rowsourcetype = 2	&& alias
>			.rowsource     = 'c_sol'
>		endwith
>	ENDPROC
>
>	PROCEDURE command1.Click
>		thisform.release()
>		clear events
>	ENDPROC
>
>	PROCEDURE Destroy
>		use in select( 'c_sol' )
>	ENDPROC
>
>	PROCEDURE command2.Click
>		DEFINE Window Therm from 1,1 to 10,10
>		acti wind therm
>		=INKEY( 2 ), 'H' )	&& THIS IS THE (MOST) TROUBLESOME LINE
>		rele wind therm
>	ENDPROC
>
>ENDDEFINE
Groet,
Peter de Valença

Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform