XBrowse editar contenido celda con MsgInfo

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

XBrowse editar contenido celda con MsgInfo
Posted: Mon May 26, 2008 09:14 PM

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.

Javier,

FWH 8.04 2008

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

HOLAAAA!!!!
Posted: Mon May 26, 2008 11:20 PM

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 :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

XBrowse editar contenido celda con MsgInfo
Posted: Tue May 27, 2008 06:49 AM

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?

Javier,

FWH 8.04 2008

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

hola
Posted: Tue May 27, 2008 07:00 AM

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-&gt;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

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

XBrowse editar contenido celda con MsgInfo
Posted: Tue May 27, 2008 07:04 AM

Gracias de todas formas Aida.

:wink:

Javier,

FWH 8.04 2008

Mauricio

Posts: 199

Joined: Thu Oct 06, 2005 09:07 PM

XBrowse editar contenido celda con MsgInfo
Posted: Tue May 27, 2008 07:19 AM

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

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

XBrowse editar contenido celda con MsgInfo
Posted: Tue May 27, 2008 02:04 PM

Aida, Mauricio;

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

Un saludo.

:lol:

Javier,

FWH 8.04 2008

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Dar bitmap a EDIT_GET_BUTTON de TXBrowse
Posted: Tue May 27, 2008 02:36 PM

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 Collapse

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.

Javier,

FWH 8.04 2008

FiveTech Support Forums

Continue the discussion