FiveTech Software tech support forums

nageswaragunupudi wrote: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 wrote:Dutch.
Excelente!

Antonio Linares wrote:Dear Dutch,

checking it with Mr. Rao

dutch wrote:Dear Master Rao,

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

Thanks in advance,