PRB: Graphics Do Not Display When Using List Box with Pictures

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a form.
2. Place a list box on the form.
3. In the click event of the list box, enter the following code (also found on page 289 of the Developer's Guide), ensuring the path to the graphic files is correct:

      FOR iItem = 5 TO THIS.ListCount
         cExtension = UPPER(RIGHT(THIS.List(iItem),3))
         DO CASE
            CASE cExtension = "DBF"
               THIS.Picture(iItem) = "tables.bmp"
            CASE cExtension = "BMP"
               THIS.Picture(iItem) = "other.bmp"
            CASE cExtension = "PRG"
               THIS.Picture(iItem) = "programs.bmp"
            CASE cExtension = "SCX"
               THIS.Picture(iItem) = "forms.bmp"
            OTHERWISE
               THIS.Picture(iItem) = IIF("]" $ cExtension, ;
                  "", "textfile.bmp")
         ENDCASE
      ENDFOR
   						

4. Set the RowSourceType of the list box to 7 - Files.
5. Save and run the form.
6. Use the list box control on your form to find the C:\Vfp\Samples\Graphics\Bmps\FoxPro directory and watch the graphics to the left of the file names. Notice the behavior described above.