Re: bDragBegin and bDropOver problem
Posted: Wed Sep 20, 2023 5:38 pm
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,
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,
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
#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