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