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??
Bmp en ListBox
-
Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
El error es el Siguiente:Antonio Linares wrote:_,
Que error te da ? Por favor copia aqui el error, gracias
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
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
*---------------------------Antonio Linares wrote:_,
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
