bDragBegin and bDropOver problem *Unresolve*

[dutch]

Dear Master Rao and Antonio,

Thank you so much for yr example code. I can fixed it now. The problem is XBROWSE command, I use FIELDS instead of COLUMNS. It works fine, when I change from FIELDS to COLUMNS.

Thanks once again both of you,

Say control does not accept drop unless oSay:lWantClick is set to .T.
The behavior is consistent in all versions of FWH and in particular this is the same behavior both in 1901 and 2304.

Here is a small test:

Code: Select all  Expand view

#include "fivewin.ch"


function Main()

   local oDlg, oBrw, oChk, oSay, cSay := "This is Say Control"
   local oCur, oFont

   DEFINE CURSOR oCur DRAG
   DEFINE FONT oFont NAME "VERDANA" SIZE 0,-20

   DEFINE DIALOG oDlg SIZE 600,250 PIXEL TRUEPIXEL ;
      FONT oFont TITLE FWVERSION

   @ 20,20 XBROWSE oBrw SIZE 200,-20 PIXEL OF oDlg ;
      DATASOURCE { "One", "Two", "Three" } ;
      CELL LINES NOBORDER

   WITH OBJECT oBrw
      :nStretchCol := 1
      :oDragCursor := oCur
      :bDragBegin  := { || SetDropInfo( oBrw:aCols[ 1 ]:Value ) }
      :CreateFromCode()
   END

   @ 20, 250 SAY oSay PROMPT cSay SIZE 250,30 PIXEL OF oDlg ;
      COLOR CLR_BLACK,CLR_WHITE
   oSay:lWantClick := .t.
   oSay:bDropOver := { |u,r,c,f| cSay := u, oSay:Refresh() }

   @ 90,250 CHECKBOX oChk VAR oSay:lWantClick ;
      PROMPT "oSay:lWantClick" ;
      SIZE 250,30 PIXEL OF oDlg

//   oDlg:bDropOver := { |u,r,c,f| MsgInfo( "no drop here" ) }

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil

[FranciscoA]

Dutch.
Excelente!

[dutch]

Dear Francisco,

I confuse the FWH version. It works on FWH1901 but still problem with FWH2304. I found something that the GET or SAY Object will allow ::bDropOver, if the object is below the TFOLDER. If SAY or GET will disallow when OBJECT is above the TFOLDER (Resource). I'm still find out the problem. I will update, if found.

Dutch.
Excelente!

[dutch]

Any update.

[Antonio Linares]

Dear Dutch,

checking it with Mr. Rao

[dutch]

Dear Antonio,

Thanks so much.

Dear Dutch,

checking it with Mr. Rao

[dutch]

Dear Master Rao,

I'm still waiting. I cannot go forward the new version, if Drag&Drop is still problem.

Thanks in advance,

[dutch]

Any update?

Dear Master Rao,

I'm still waiting. I cannot go forward the new version, if Drag&Drop is still problem.

Thanks in advance,

[nageswaragunupudi]

We will attend to this very soon and get back to you

[dutch]

Thank you so much, Master.

[dutch]

I'm still waiting, Master.

[dutch]

I'm still wait.

[nageswaragunupudi]

Please respond to my message