xBrowse - drag - getfocus - error
Posted: Thu Oct 07, 2010 8:16 pm
I have 2 xBrowse on a WINDOW.
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
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
//------------------------------------