TWbrowse en dialogos

[fsandoval]

Tengo un dialogo con un twbrowse y unos botones, normales sin imagen el problema es que quito el twbrowse me presenta el dualogo y lo pongo y ya no me lo presenta, cuales son las propiedas que debo cambiar.

uso xhb.

saludos.
fernando sandoval ruiz

[Antonio Linares]

Fernando,

Has redefinido el browse desde el PRG ? Si no lo haces, Windows no encuentra la clase del browse, y no puede crear el diálogo.

[fsandoval]

Efectivamente lo esoy redefiniendo, aqui esta el codigo al que me refiero.
*-----------------------------------------------------------------
FUNCTION BrwEmpresas( oWnd ,oAdo )
LOCAL oDlg,oFontBrw,oParMulti,oBrw,oCol,oEmpresas,oErr
Local oBAltas,oBModificar,oBBorrar, oBSeleccion,obSalir
Local lNEmp

oEMPRESAS := CREATEOBJECT( "ADODB.Recordset" )
oEmpresas:CursorLocation := 3
oEmpresas:CursorType := 3
oEmpresas:LockType := 3
oEmpresas:MaxRecords := 0
TRY
oEMPRESAS:Open( "SELECT * FROM CATCLIE","DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=comandas;UID=root;PWD=root;" )
CATCH oErr
? oErr:Description
RETURN NIL
END TRY
//oInspect( oEmpresas)
oEmpresas:MoveFirst()


DEFINE DIALOG oDlg RESOURCE "DLGMANDB" TITLE "MANTENIMIENTO DE EMPRESAS"

REDEFINE BROWSE oBrw ID 101 OF oDlg

//DEFINE DIALOG oDlg SIZE 300, 300

/* @ 0, 0 BROWSE oBrw;
ON RIGHT CLICK oBrw:Report( "TCBrowse report", .T. )

ADD COLUMN TO oBrw;
DATA oEmpresas:Fields( "NomCli" ):Value;
HEADER "Nombre del Cliente";
COLOR CLR_RED, CLR_GREEN

ADD COLUMN TO oBrw;
DATA oEmpresas:Fields( "DirCli" ):Value;
HEADER "Direccion del Cliente";
COLOR CLR_RED, CLR_GREEN

oBrw:lCellStyle = .T.

oBrw:bLogicLen := { || oEmpresas:RecordCount }
oBrw:bGoTop := { || oEmpresas:MoveFirst() }
oBrw:bGoBottom := { || oEmpresas:MoveLast() }
oBrw:bSkip := { | nSkip | AdoSkip(oEmpresas,nSkip ) }
oBrw:cAlias := "ARRAY"
*/
/*
REDEFINE BUTTON oBAltas ID 202 OF oDlg ;
ACTION (AltasCias( ID_AALT, oEmpresas ) ,SelEmpresa(oWnd, oEmpresas ), oEmpresas:Refresh(.t.) , oBrw:Refresh() , oEmpresas:End() ,oDlg:End() , SysRefresh() )

REDEFINE BUTTON oBModificar ID 203 OF oDlg ;
ACTION AltasCias( ID_AMOD, oEmpresas )

REDEFINE BUTTON oBBorrar ID 204 OF oDlg ;
ACTION ( if( MsgYesNo( OemToAnsi( ;
"¨Seguro que quiere borrar la Empresa " + Empresas:Fields(1):value ) , ;
BorrarRegistro(oAdo , "empresas" , "numemp" , oEmpresas:Fields(1):value ) , "" ) , oEmpresas:refresh() ) )

REDEFINE BUTTON oBSeleccion ID 201 OF oDlg ;
ACTION (SelEmpresa(oWnd , oEmpresas ), SysRefresh() ,oDlg:End())

REDEFINE BUTTON oBSalir ID 206 OF oDlg ;
ACTION ( oEmpresas:Close(), oDlg:End())
*/
ACTIVATE DIALOG oDlg CENTER
oFontBrw:End()


RETURN( NIL )


lo raro es que si lo quito el redefine me presenta el dialogo, o lo mismo si lo hago con dialogo directo si me presenta el browse.

[Antonio Linares]

Fernando,

Déjanos ver el RC de este diálogo.

[fsandoval]

DLGMANDB DIALOG 21, 24, 285, 157
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION
CAPTION "Control de Bases de Datos"
FONT 8, "MS Sans Serif"
{
PUSHBUTTON "&Seleccionar", 201, 224, 8, 50, 40
PUSHBUTTON "&Crear", 202, 224, 61, 50, 14
PUSHBUTTON "&Modificar", 203, 224, 79, 50, 14
PUSHBUTTON "&Eliminar", 204, 224, 97, 50, 14
PUSHBUTTON "&Refrescar", 205, 224, 116, 50, 14
PUSHBUTTON "&No Selecionar", 206, 224, 133, 50, 14
CONTROL "", 101, "TWBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 8, 5, 205, 142
}

[Antonio Linares]

Fernando,

Estás usando "TWBrowse" en el RC, pero usas la clase TCBrowse en el PRG. Cambia en el RC a "TCBrowse".

O estás usando el browse de Hernán ?

[fsandoval]

uso el tcbrowse y tsbrowse de manuel mercado son con los que estube probando, que de echo este dialogo lo tengo trabajndo en otro sistema pero con odbc , hb,fwh. solo que por hacer pruebas y ver lo de la calse tole decidi hacer algo con el xhb, y ahi empezaron los problemas.


gracias inge.
fernando sandoval ruiz

[Antonio Linares]

Fernando,

Si usas el TCBrowse entonces escribe "TCBrowse" en el RC. Si usas TSBrowse, pues "TSBrowse". Así debería funcionar correctamente.

[fsandoval]

Gracias Inge. Antonio, cada dia se aprende algo , o nos corrige viejos errores.


saludos.
fernando sandoval ruiz