PRB: Scrolling a List Box with DELETED Off Moves Record Pointer (237569)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new program in Visual FoxPro 6.0.
2. Add the following code to the program, save it as LISTBOX.PRG and run it:

   *~~~~~~~~~~~~~~~~~~~
   *~~Code starts here
   *
   PUBLIC oLstForm
   oLstForm = CREATEOBJECT('FORM1')
   
   DEFINE CLASS form1 AS FORM
   
   	HEIGHT = 285
   	WIDTH = 184
   	DOCREATE = .T.
   	AUTOCENTER = .T.
   	BORDERSTYLE = 1
   	CAPTION = "List Box Problem"
   	MAXBUTTON = .F.
   	MINBUTTON = .F.
   	NAME = "form1"
   
   	ADD OBJECT list1 AS LISTBOX WITH ;
   		ROWSOURCETYPE = 6, ;
   		ROWSOURCE = "lst_test.id", ;
   		HEIGHT = 204, ;
   		LEFT = 17, ;
   		TOP = 8, ;
   		WIDTH = 150, ;
   		NAME = "List1"
   
   	ADD OBJECT command1 AS COMMANDBUTTON WITH ;
   		TOP = 219, ;
   		LEFT = 17, ;
   		HEIGHT = 27, ;
   		WIDTH = 150, ;
   		CAPTION = "Toggle SET DELETED", ;
   		NAME = "Command1"
   
   	ADD OBJECT text1 AS TEXTBOX WITH ;
   		ALIGNMENT = 2, ;
   		HEIGHT = 23, ;
   		LEFT = 17, ;
   		READONLY = .T., ;
   		TOP = 254, ;
   		WIDTH = 150, ;
   		NAME = "Text1"
   
   	PROCEDURE DESTROY
   		SET DELETED &cOldDel
   		SET STATUS BAR &cOldStatBar
   		USE IN LST_TEST
   	ENDPROC
   
   	PROCEDURE LOAD
   		THIS.VISIBLE = .T.
   		PUBLIC cOldDel, cOldStatBar
   		STORE SET('DELETED') TO cOldDel
   		STORE SET ('status bar') TO cOldStatBar
   		SET DELETED OFF
   		SET STATUS BAR ON
   
   		CREATE CURSOR LST_TEST (ID N(2))
   		FOR i = 1 TO 50
   			INSERT INTO LST_TEST (ID) VALUES (i)
   		ENDFOR
   	ENDPROC
   
   	PROCEDURE command1.CLICK
   		LOCAL cDelSet
   		cDelSet = SET('DELETED')
   		IF cDelSet = 'ON'
   			SET DELETED OFF
   		ELSE
   			SET DELETED ON
   		ENDIF
   		THISFORM.text1.VALUE = "DELETED IS " + SET('DELETED')
   	ENDPROC
   
   	PROCEDURE text1.INIT
   		THIS.VALUE = "DELETED IS " + SET('DELETED')
   	ENDPROC
   
   ENDDEFINE
   *
   *~~End Code
   *~~~~~~~~~~~~~~~~~~~~~
   					

   The list box is populated by a field in a temporary cursor. The field contains numbers 1 through 50 (which correspond to the record number). When the form initially starts, DELETED is OFF.
   
   Scroll the list box using the thumb (not the ARROW keys) and watch the record number in the STATUS BAR. Notice that the record pointer moves as the list box is scrolled.
   
   Click the command button to SET DELETED ON. Scroll the list box using the thumb again. Watch the status bar and notice that the record pointer does not move.