topic-21092

Board index FiveWin para Harbour/xHarbour copy & paste con Xbrowse (Solucionado)

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

copy & paste con Xbrowse (Solucionado)
Posted: Thu Mar 10, 2011 09:30 PM

Hola amigos del foro, tengo este problema:

en un recurso tengo definido un xbrowse, el cual selecciono registros, todo va bien hasta que le coloco un CRTL-C (copy) o boton derecho al mouse para que muestre el menu y el sistema me arroja un lindo GPF...

que me faltará para solucionar esto???

este es el código

Code (fw): Select all Collapse

            REDEFINE XBROWSE oBrw ID 101 OF oFld:aDialogs[1] COLUMNS "CODE","SIGL","USER","NOMB","CONE" ;
                         ALIAS "PA01" AUTOSORT FOOTERS BACKGROUND aColor HORIZONTAL

                     oBrw:aCols[1]:cHeader     := 'Centro'
                     oBrw:aCols[2]:cHeader     := 'Sigla'
                     oBrw:aCols[3]:cHeader     := 'Usuario'
                     oBrw:aCols[3]:cFooter     := 'Total : '+TRANSFORM( oBrw:nLen,"@E 9,999" )
                     oBrw:aCols[4]:cHeader     := 'Nombre completo'
                     oBrw:aCols[4]:nWidth      := 340
                     oBrw:aCols[5]:cHeader     := 'Conect'
                     oBrw:bRClicked        := { | nRow, nCol | ShowPopup( nRow, nCol, oBrw ) }
                     oBrw:nMarqueeStyle    := 6
                     oBrw:nHeaderLines     := 2
                     oBrw:nFooterLines     := 2
                     oBrw:nDataLines       := 1
                     oBrw:lVScroll         := .T.
                     oBrw:Conect:SetCheck()
                     oBrw:l2007    := .T.

//-------------------------------------------------------------------------

STATIC FUNCTION ShowPopup( nRow, nCol, oBrw )
LOCAL oPopup

   MENU oPopup POPUP 2007
      MENUITEM "Copiar..." ACTION oBrw:Copy()        <== aqui se me produce el GPF
   ENDMENU

   ACTIVATE POPUP oPopup OF oBrw AT nRow, nCol

RETURN Nil

//-------------------------------------------------------------------------

saludos

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

Daniel Garcia-Gil

Posts: 2365