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
.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' )
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.
