XBrowse editar contenido celda con MsgInfo

[jfafive]

Hola a todos,

Quisiera saber si alguien me puede decir que hay que hacer para que al pulsar click o dobleclick sobre una determinada celda de un XBrowse, me muestre el contenido de este en un MsgInfo.

Gracias.

[AIDA]

Hola

aqui los chicos del foro me enseñaron como se hace

a si te pone un botonsito en la celda y en lugar de usar la funcion de campo memo03, pones lo que tu quieres

oBrw:lFastEdit := .T.


oCol:nEditType := EDIT_GET_BUTTON
oCol:bEditBlock := {|| Memo03()}


y dependiendo del fivewin que tengas

puedes usar

DBLCLICK y ON RIGHT CLICK

te recomiendo que habras el xbrowse.ch ahi podras ver como funciona


Saluditos

Aida

[jfafive]

Gracias Aida,

Pero lo que necesito saber es si cambio la funcion Memo() de tu ejemplo por una MsgInfo( "????" ) que valor le paso a la funcion para que muestre el contenido de la celda donde he pulsado?

[AIDA]

NO SE INTENTA CON


oCol:bEditBlock := {||MsgInfo(DBF->campo)}



mi memo03

//----------------------------------------------------------------------
function Memo03()
local oDlg, oGet, n:=0
local cText01,cText02
//SOS
SET _3DLOOK ON

DEFINE DIALOG oDlg RESOURCE "MemoEdit" TITLE "REPORTE DEL TURNO"

cText02:=BITACORA->REPORTE

REDEFINE Get cText01 VAR cText02 MEMO ID ID_MEMO OF oDlg

REDEFINE BUTTON ID 2 OF oDlg ;
ACTION oDlg:End()

ACTIVATE DIALOG oDlg CENTERED

//VALID (ALERT("Info : "+STR(n++)),!EMPTY(hDatos[cText02]))

return nil

[jfafive]

Gracias de todas formas Aida.

[Mauricio]

JFAFive.


oCol := oBrw:AddCol()
oCol:bStrData := { || (cFamilias)->Imagen}
oCol:cHeader := "Imagen"
oCol:lAllowSizing := .f.
oCol:bLDClickData := {|| msginfo( (cFamilias)->Nombre)}
oCol:bLClickHeader := { || Orden( 2, oBrw, cFamilias )}
oCol:oDataFont := oFont2


Utiliza en la definicion de las columnas
blDClickData como se muestra


Saludos,
Mauricio

[jfafive]

Aida, Mauricio;

Gracias por vuestra ayuda.
Ya lo tengo solucionado. Al menos hasta este punto.

Un saludo.

[jfafive]

Por cierto,

Si quereis darle un aspecto mejor al botón EDIT_GET_BUTTON que sale al final de la celda, podeis hacerlo de la siguiente manera:

Code: Select all  Expand view  RUN

oCol:oBtnElip:LoadBitmaps( ,, cBmpFileName )

METHOD LoadBitmaps( cResName1, cResName2, cBmpFile1, cBmpFile2,
cResName3, cBmpFile3 )

El bitmap lo puedes coger desde un fichero en disco ó desde recursos.

Agradecimientos a AntonioLinares.