If you click inside the left and then in the right xBrowse xBrowse the drag mode starts although you don’t hold down the mouse key.
When the twin browses are on a dialog there is no problem.
But the problem is when the browses are on a window.
Thanks in advance
Otto
- Code: Select all Expand view
#include "fivewin.ch"
#include "xbrowse.ch"
//#define USEDLG
function main()
local oWnd, oPanel, oState, oCust, oFont, oCur
local nWidth
SetKinetic( .f. )
DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12
DEFINE CURSOR oCur DRAG
#ifdef USEDLG
DEFINE DIALOG oWnd SIZE 600,400 PIXEL FONT oFont
nWidth := 100
oPanel := oWnd
#else
DEFINE WINDOW oWnd
oWnd:SetFont( oFont )
nWidth := 200
oPanel := oWnd
#endif
USE STATES NEW
USE CUSTOMER NEW
@ 10,10 XBROWSE oState SIZE nWidth,-10 PIXEL OF oPanel ;
COLUMNS 'NAME' ALIAS 'STATES' CELL LINES NOBORDER
@ 10,nWidth XBROWSE oCust SIZE -10,-10 PIXEL OF oPanel ;
AUTOCOLS ALIAS 'CUSTOMER' CELL LINES NOBORDER
WITH OBJECT oCust
:oDragCursor := oCur
:bDragBegin := { || nil }
:bGotFocus := { || nil }
:lAllowRowSizing := .f.
END
oState:CreateFromCode()
oCust:CreateFromCode()
#ifdef USEDLG
ACTIVATE DIALOG oWnd CENTERED
#else
ACTIVATE WINDOW oWnd MAXIMIZED
#endif
RELEASE FONT oFont
RELEASE CURSOR oCur
return nil
//------------------------------------
