bb.donnay-software.com

Roger,
whether it should the addition of here or I'm wrong ?


\Samples\Rmchart\DCCHART.PRG
---------------------------------------

STATIC FUNCTION BrowseCallbackData( nWhich, aData, oRMChart )

LOCAL GetList[0], oBrowse, nRegion
//-------------------------------------------------------------
// addition
IF Valtype(aData) == 'O' .AND. aData:isDerivedFrom('VtRecord')
aData := aData:value
ENDIF
// addition
//-------------------------------------------------------------
IF nWhich == 1 // left mouse button

@ 0,0 DCBROWSE oBrowse DATA aData SIZE 30,37 NOHSCROLL FIT ;
PRESENTATION DC_BrowPres() FONT '10.Lucida Console'

DCBROWSECOL DATA {||oBrowse:arrayElement} HEADER 'Element' WIDTH 5 PICTURE '99' PARENT oBrowse
DCBROWSECOL ELEMENT 1 HEADER 'Desc' WIDTH 20 PARENT oBrowse
DCBROWSECOL ELEMENT 2 HEADER 'Data' WIDTH 15 PARENT oBrowse PICTURE '999999999.99'

DCREAD GUI FIT ADDBUTTONS TITLE 'RMChart Mouse Data'

ELSEIF nWhich == 2 // right mouse button

nRegion := aData[5,2]
IF nRegion > 0
DC_InspectObject( oRMChart:regions[nRegion] )
ENDIF

ENDIF

RETURN nil