FIX: Drag Icon Property Ignored on Outline Control OCX

MORE INFORMATION

Steps to Reproduce Problem

1. Add an Outline .ocx control to a form.
2. Set the DragIcon property to be a valid cursor file such as:

      C:\Vfp\Samples\Graphics\Cursors\Palette.cur
   						

3. Set the DragMode property to 1 for manual drag. (This is necessary as the outline control doesn't support automatic drag. If it did, you wouldn't be able to access the outline items.)
4. Initiate manual drag in the DblClick or PictureDblClick events using the following line of code:

      THIS.Drag
   						

5. Run the form, and double-click the text or folder icon.
6. Note which drag cursor you see.

PUBLIC oForm1
oForm1=CREATEOBJECT("Form1")
oForm1.Show()

*************************
*-- Form:         form1
*
DEFINE CLASS Form1 AS Form
     DoCreate = .T.
     Caption = "Form1"
     Name = "Form1"

     ADD OBJECT OLEControl1 AS OLEControl WITH ;
          Top = 24, ;
          Left = 72, ;
          Height = 100, ;
          Width = 100, ;
          DragIcon = "SAMPLES\GRAPHICS\CURSORS\PALETTE.CUR", ;
          DragMode = 1, ;
          OLETypeAllowed=-2,;
          OleClass="MSOutl.Outline",;
          OleLCID=1033,;
          Name = "OLEControl1"

     PROCEDURE DragDrop
          LPARAMETERS oSource, nXCoord, nYCoord
          IF oSource.ListIndex>=0
               newvar = 'lbl' + ALLTRIM(STR(nXCoord)) + '_' + ;
                        ALLTRIM(STR(nYCoord))
               THIS.ADDOBJECT(newvar,'label')
               WITH THIS.&newvar.
                    .Top=nycoord
                    .Left=nXCoord
                    .Caption=oSource.List(oSource.ListIndex)
                    .Visible=.T.
               ENDWITH
          ENDIF
     ENDPROC

     PROCEDURE OLEControl1.DblClick
          THIS.Drag
     ENDPROC

     PROCEDURE OLEControl1.PictureDblClick
          LPARAMETERS ListIndex
          THIS.Drag
     ENDPROC

     PROCEDURE OLEControl1.Init
          THIS.AddItem('text1')
          THIS.AddItem('text2')
          THIS.AddItem('text3')
          THIS.AddItem('text4')
     ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
*************************