DOCUMENT:Q247526  14-MAR-2000  [foxpro]
TITLE   :BUG: Hundreds of Icons Cause Icon Property Not to Refresh
PRODUCT :Microsoft FoxPro
PROD/VER:WINDOWS:5.0,5.0a,6.0
OPER/SYS:
KEYWORDS:kbContainer kbCtrl kbOOP kbvfp500 kbvfp500aBUG kbvfp600 kbvfp600bug kbGrpDSFox kbDSuppo

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

 - Microsoft Visual FoxPro for Windows, versions 5.0, 5.0a, 6.0 
-------------------------------------------------------------------------------

SYMPTOMS
========

Under rare circumstances, a Visual FoxPro form that updates the form's Icon
property programmatically might eventually fail to refresh and show the default
Visual FoxPro Icon instead. This behavior normally happens if you set the form's
Icon property to hundreds of different icons within a loop.

STATUS
======

Microsoft has confirmed this to be a bug in the Microsoft products listed at the
beginning of this article.

MORE INFORMATION
================

The behavior shows up after continuously switching icons programmatically. In
some instances, the FoxPro Icon appears intermittently.

Steps to Reproduce Behavior
---------------------------

1. Using Windows Explorer, create a new subfolder.

2. Copy 300 icons or more to that subfolder. On some computers it takes
   approximately 500 to 600 icons to see the problem.

3. Start Visual FoxPro.

4. Set default to folder to the folder where you have the icons.

5. Copy and paste the following code into a new program file, save it, and then
   run it:

   PUBLIC oform1

   oform1=CREATEOBJECT("form1")
   oform1.Show
   RETURN
   *
   DEFINE CLASS form1 AS form

   	Top = 0
   	Left = 0
   	Height = 250
   	Width = 379
   	DoCreate = .T.
   	Caption = "Icon Test Form"
   	TitleBar = 1
   	Name = "Form1"

   	ADD OBJECT command1 AS commandbutton WITH ;
   		AutoSize = .F., ;
   		Top = 63, ;
   		Left = 144, ;
   		Height = 40, ;
   		Width = 90, ;
   		Caption = "Start", ;
   		Name = "Command1"

   	ADD OBJECT command2 AS commandbutton WITH ;
   		Top = 147, ;
   		Left = 144, ;
   		Height = 40, ;
   		Width = 90, ;
   		Caption = "Quit", ;
   		Name = "Command2"

   	PROCEDURE command1.Click
                  *Creates an Array of Icons in the Folder
   	        lnLength=aDir(aMyIcons,"*.ico")

                  *This loops into the Array to display the Icons
   		For lnTimeCounter = 1 to lnLength
   		ThisForm.Caption = aMyIcons(lnTimeCounter,1)
   		ThisForm.Icon = aMyIcons(lnTimeCounter,1)
   		EndFor
   	ENDPROC

   	PROCEDURE command2.Click
   		ThisForm.Release
   	ENDPROC

   ENDDEFINE
   *
   **************************************************

6. A form titled "Icon Test Form" appears. Note that it has the Foxhead icon in
   the top-left corner.

7. Click the Start button on the form and watch the icon on the form's title bar
   change. Eventually the Foxhead appears instead of the icons that are being
   set to the form's Icon property.

Additional query words:

======================================================================
Keywords          : kbContainer kbCtrl kbOOP kbvfp500 kbvfp500aBUG kbvfp600 kbvfp600bug kbGrpDSFox kbDSupport kbCodeSnippet 
Technology        : kbVFPsearch kbAudDeveloper kbVFP500 kbVFP600 kbVFP500a
Version           : WINDOWS:5.0,5.0a,6.0
Issue type        : kbbug
Solution Type     : kbnofix

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

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.