Bmp en ListBox

Bmp en ListBox

Postby Oserrano » Mon May 05, 2008 9:53 pm

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??
User avatar
Oserrano
 
Posts: 9
Joined: Mon Nov 19, 2007 4:37 pm

Postby Antonio Linares » Wed May 07, 2008 8:59 am

Oscar,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Oserrano » Thu May 08, 2008 11:10 am

Antonio Linares wrote: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.
User avatar
Oserrano
 
Posts: 9
Joined: Mon Nov 19, 2007 4:37 pm

Postby Antonio Linares » Thu May 08, 2008 12:48 pm

Oscar,

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

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Oserrano » Thu May 08, 2008 7:01 pm

Antonio Linares wrote: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
User avatar
Oserrano
 
Posts: 9
Joined: Mon Nov 19, 2007 4:37 pm

Postby mmercado » Fri May 09, 2008 6:27 am

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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 29 guests