BUG: Disabled ListBox items can be accessed by using the keyboard in Visual FoxPro for Windows (156737)

MORE INFORMATION

Steps to reproduce the behavior

1. Open Visual FoxPro and create a new program.
2. Paste the code below into the program.
3. Save and run the program.
4. When the form appears, try to select disabled items in the list by using the mouse and keyboard. You should find that you cannot select disabled items with the mouse (which is the desired behavior), but you can select them with the keyboard (the bug).
5. To see the AddItem() workaround, close the form and edit the program.
6. Uncomment out the first line of code ( *#DEFINE UseAddItem ) and run the program again. This time you should be unable to select disabled items in the list with either the mouse or keyboard.

*#DEFINE UseAddItem

LOCAL i
PUBLIC oForm
oForm = NEWOBJECT('Form')

WITH oForm
	.ADDOBJECT([LST], [ListBox])
	.LST.VISIBLE = .T.

	#IFDEF UseAddItem

		*-- Add items to the list, and 
		*-- disable some of them.
		FOR i = 1 TO 9
			.LST.ADDITEM( ;
				IIF(MOD(9, i) = 0, ;
				'\]' + SYS(2015), ;
				SYS(2015)))
		ENDFOR

	#ELSE

		.ADDPROPERTY('aMyArray[9]')
		FOR i = 1 TO 9
			STORE IIF(MOD(9, i) = 0, ;
				'\' + SYS(2015), ;
				SYS(2015) ) TO oForm.aMyArray[i]
		ENDFOR
		.LST.ROWSOURCE = [THISFORM.aMyArray]
		.LST.ROWSOURCETYPE = 5 &&Array

	#ENDIF

.SHOW()
ENDWITH