Page 1 of 1
XBrowse editar contenido celda con MsgInfo
Posted: Mon May 26, 2008 9:14 pm
by 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.
HOLAAAA!!!!
Posted: Mon May 26, 2008 11:20 pm
by 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
Posted: Tue May 27, 2008 6:49 am
by 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?
hola
Posted: Tue May 27, 2008 7:00 am
by 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
Posted: Tue May 27, 2008 7:04 am
by jfafive
Gracias de todas formas Aida.
Posted: Tue May 27, 2008 7:19 am
by 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
Posted: Tue May 27, 2008 2:04 pm
by jfafive
Aida, Mauricio;
Gracias por vuestra ayuda.
Ya lo tengo solucionado. Al menos hasta este punto.
Un saludo.
Dar bitmap a EDIT_GET_BUTTON de TXBrowse
Posted: Tue May 27, 2008 2:36 pm
by 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
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.