Bmp en ListBox

[Oserrano]

Srs.
Tengo un List Box que muestra los datos de mi tabla de articulos, bien, cuando el usuario elige el articulo que quiere, quiero mostrar la imagen del articulo.

1-List Box
2-Eleccion
3-Mostrar la Imagen
Tengo el List Box y la funcion para Mostrar la Imagen, pero cuando le dan el click sobre el producto, me da error.

de que no puede mostrar el mensaje.
Pueden indicarme como realizar esto??

[Antonio Linares]

Oscar,

Que error te da ? Por favor copia aqui el error, gracias

[Oserrano]

Oscar,

Que error te da ? Por favor copia aqui el error, gracias

El error es el Siguiente:

Message not Found
TDIALOG:INV_SHOW
Arg:
[ 1]=O Object

Stack Calls:
_errt_sbase
TDIALOG ERROR(172)

MAS LAS DESCRIPTIVAS DE ORIGEN.

ESTA FUNCION LA SAQUE Y CREE UNA VENTANA PRINCIPAL Y CORRE PERFECTAMENTE..
Gracias.

[Antonio Linares]

Oscar,

En que parte de tu PRG se llama al método :INV_SHOW() ?

Puedes copiar aqui esa porción de código ? gracias

[Oserrano]

Oscar,

En que parte de tu PRG se llama al método :INV_SHOW() ?

Puedes copiar aqui esa porción de código ? gracias

*---------------------------
STATIC FUNCTION Sel_Invent_dlg()
*---------------------------
LOCAL oFont,oFont2
local oSay, cSearch := ""

DEFINE FONT oFont NAME "Arial" SIZE 0, -12
DEFINE FONT oFont2 NAME "Arial" SIZE 0, -10
DEFINE DIALOG o[ O_DLG_INVE ] RESOURCE "Sel_Invent"

REDEFINE LISTBOX o[ O_LBX_INVE ] ;
FIELDS (aDbf[ DBF_ARTICULOS ])->NOMPROD, (aDbf[ DBF_ARTICULOS ])->REFERENCIA, (aDbf[ DBF_ARTICULOS ])->ingprod ;
HEADERS "NOMBRE", "REFERENCIA", "USO" FONT oFont2;
ID 500 OF o[ O_DLG_INVE ] ALIAS aDbf[ DBF_ARTICULOS ]

o[ O_LBX_INVE ]:aColSizes := { 80, 80, 40 }
o[ O_LBX_INVE ]:blDblClick := {|| ( nRecno := (aDbf[ DBF_ARTICULOS ])->( Recno() ), o[ O_DLG_INVE ]:end()) }
o[ O_LBX_INVE ]:blClicked := {|| ( nRecno := (aDbf[ DBF_ARTICULOS ])->( Recno() ), o[ O_DLG_INVE ]:end()) }

REDEFINE say oSay VAR Csearch ID 600 OF o[ O_DLG_INVE ] readonly

o[ O_LBX_INVE ]:bKeyChar = { | nKey, nFlags | Search_inv( nKey, @cSearch ), o[ O_LBX_INVE ]:Refresh() ,oSay:Refresh(), o[ O_LBX_INVE ]:setfocus() }
oSay:bKeyChar = { | nKey, nFlags | Search_inv( nKey, @cSearch ), o[ O_LBX_INVE ]:Refresh() ,oSay:Refresh(), o[ O_LBX_INVE ]:setfocus() }

REDEFINE BUTTON ID 700 OF o[ O_DLG_INVE ] ACTION o[ O_DLG_INVE ]:End()
REDEFINE BUTTON ID 800 OF o[ O_DLG_INVE ] ACTION o[ O_DLG_INVE ]:inv_show()
*!* ACTIVATE DIALOG o[ O_DLG_INVE ] CENTERED

*!* set filt to
*!* select &cAlias2

RETU nRecno

*---------------------------
STATIC FUNCTION Inv_Show()
*---------------------------
local oBmp
DEFINE WINDOW oWnd TITLE "Presenta Imagen."

*!* // @ 10, 20 BTNBMP RESOURCE "users" SIZE 60, 60 ACTION MsgInfo( "click!" )

@ 5, 5 BITMAP oBmp FILENAME "\fwppc\samples\1KX-82590-01.bmp" NOBORDER

oBmp:lTransparent = .t.

ACTIVATE WINDOW oWnd ;
ON CLICK MsgInfo( "click!" )

return nil

[mmercado]

Hola Oscar:

Creo que tu problema está en esta línea:
REDEFINE BUTTON ID 800 OF o[ O_DLG_INVE ] ACTION o[ O_DLG_INVE ]:inv_show()
Debería quedar así:
REDEFINE BUTTON ID 800 OF o[ O_DLG_INVE ] ACTION inv_show()

Saludos.

Manuel Mercado