BUG: Cannot Add Pictures into ComboBox in Init Event

RESOLUTION

Several workarounds exist for this behavior. First, you can place the following code in the GotFocus event of the ComboBox object:

   This.Picture(1)=Home()+"samples\graphics\bmps\assorted\balloon.bmp"
   This.Picture(2)=Home()+"samples\graphics\bmps\assorted\cup.bmp"
				

You can also place the following code in the Refresh event of the ComboBox object:

   IF EMPTY(THIS.PICTURE(1))
     THIS.PICTURE(1)=Home()+"samples\graphics\bmps\assorted\balloon.bmp"
     THIS.PICTURE(2)=Home()+"samples\graphics\bmps\assorted\cup.bmp"
   ENDIF
				

Finally, if you need to leave the original code in the Init of the ComboBox, then place this code in the Activate event of the form:

   IF EMPTY(THIS.combo1.PICTURE(1))
      THIS.combo1.Init()
   ENDIF