FiveTech Support Forums

Hola amigo del foro

Estoy creando un xbrowse una ventana tipo DIALOG resource; pero presenta un error al enlazarla. Sin embargo al crearla con codigo fuente funciona perfecta.

Alguna sugerencia

Saludos,
Erick
fwh8.06 xharbour 1.11 + workshop

Erick,

Que error te aparece ?

Antonio Linares wrote:Erick,

Que error te aparece ?

DEFINE DIALOG oDlg RESOURCE "BROWSE3" OF oWnd;
TITLE _TITULO ;
FONT oFont4

DEFINE BUTTONBAR oBar OF oBrw:oDlg

DEFINE BUTTON OF oBar action msginfo()


oBrw := TXBrowse():New( odlg )

REDEFINE XBROWSE oBrw ID 101 OF oDlg FONT oFont3
.......

******** El error que presenta es el siguiente******************

Error description: Error BASE/1004 Class: 'NIL' has no exported method: ODLG
Args:
[ 1] = U

Stack Calls
===========
Called from: => ODLG(0)
Called from: BANCOPRG.prg => BANCO1(72)
Called from: TEST2007.prg => (b)BUILDMENU(191)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from: WINDOW.PRG => TWINDOW:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
Called from: TEST2007.prg => MAIN(152)

Me parece que es la forma de definir la ventana pero no

Gracias,
Por responder.

Erick Almanza wrote:Hola amigo del foro

Estoy creando un xbrowse una ventana tipo DIALOG resource; pero presenta un error al enlazarla. Sin embargo al crearla con codigo fuente funciona perfecta.

Alguna sugerencia


Saludos,
Erick
fwh8.06 xharbour 1.11 + workshop

//---------------------------------
Function PRUEBA()
local oDlg,oBrw

DEFINE DIALOG oDlg RESOURCE "PRUEBA" OF oWnd ;
TITLE "PRUEBA"

ACTIVATE DIALOG oDlg ;
ON INIT CreaButtonBar(oDlg)

oDlg:End()
Return nil
//--------------------------
Function CreaButtonBar(oDlg)
local oBar
DEFINE BUTTONBAR oBar SIZE 40,40 OF oDlg
DEFINE BUTTON RESOURCE "PRINTER" OF oBar action msginfo()
return nil

Recuerda dejar en tu recurso, el espacio suficiente para que quepa la barra de botones.

Saludos.
Francisco J. Alegría P.