DOCUMENT:Q136796  15-FEB-2000  [foxpro]
TITLE   :PRB: Graphics Do Not Display When Using List Box with Pictures
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS:3.0
OPER/SYS:
KEYWORDS:

======================================================================
-------------------------------------------------------------------------------
The information in this article applies to:

 - Microsoft Visual FoxPro for Windows, version 3.0 
-------------------------------------------------------------------------------

SYMPTOMS
========

Using the code example on page 289 of the Visual FoxPro Developer's Guide to
display graphics next to list box items causes inconsistent results. Sometimes
the graphics show and other times they do not. Occasionally, when you click an
item in the list, the graphics show only momentarily; then they vanish. You may
also discover some of the graphics are present as you scroll down in the list of
file names and still others that are not.

CAUSE
=====

There seems to be a limit to the number of graphics Visual FoxPro can display
using this example. If you select a directory that has fewer files, resulting in
a smaller number of items in the list box, the graphics tend to display more
consistently.

STATUS
======

Microsoft is researching this behavior and will post new information here in the
Microsoft Knowledge Base as it becomes available.

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.


Additional query words: VFoxWin

======================================================================
Keywords          :  
Technology        : kbVFPsearch kbAudDeveloper kbVFP300
Version           : WINDOWS:3.0

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 2000.