topic-12155

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Error con XBrowse y nEditType

Posted: Mon Aug 04, 2008 11:58 AM

Hola a todos,

Tengo dos XBrowse que los invoco a traves de un Folder, es decir:

REDEFINE FOLDER oTab ID ID_TAB OF oDlg ;
   PROMPTS "XBRW1", "XBRW2" ;
   DIALOGS "BROWSE_DLG", "BROWSE_DLG2" OPTION 1

Al carga la siguiente linea en el segundo browse...

Code: Select all Collapse

oBrw1:aCols[1]:nEditType   := EDIT_BUTTON
oBrw2:aCols[1]:nEditType   := EDIT_BUTTON

Me da un error diciendo que no existe el metodo Eval... error que no aparece cuando hice lo mismo con oBrw1.

Al parecer, si hago focus sobre el folder 2, como sigue....

Code: Select all Collapse

oBrw1:aCols[1]:nEditType   := EDIT_BUTTON
oTab:SetOption( 2 )
oBrw2:aCols[1]:nEditType   := EDIT_BUTTON

... ya no se produce el error. Es como si el browse que estás tratando, tuviese que estar activo en la pantalla.

Mi pregunta es, ¿hay algún modo de asignar el EDIT_BUTTON, sin tener que verse como se cambia solo de Folder1 a Folder2 ?

[/code]

Javier,

FWH 8.04 2008

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Error con XBrowse y nEditType

Posted: Mon Aug 04, 2008 01:36 PM

Javier,

Puedes mostrar el código que has usado para crear los browses ( REDEFINE XBROWSE ... ) ? gracias

regards, saludos

Antonio Linares
www.fivetechsoft.com

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Error con XBrowse y nEditType

Posted: Mon Aug 04, 2008 09:18 PM

Aquí está:

Code: Select all Collapse

REDEFINE XBROWSE oBrw  ARRAY aDatos  ID ID_BRW  
OF oTab:aDialogs[1]
REDEFINE XBROWSE oBrw2 ARRAY aDatos2 ID ID_BRW2 
OF oTab:aDialogs[2]

Javier,

FWH 8.04 2008

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Error con XBrowse y nEditType

Posted: Tue Aug 05, 2008 04:00 AM

Javier,

Añade esta cláusula a cada uno de ellos:

REDEFINE XBROWSE oBrw ARRAY aDatos ID ID_BRW
OF oTab:aDialogs[1] AUTOCOLS

REDEFINE XBROWSE oBrw2 ARRAY aDatos2 ID ID_BRW2
OF oTab:aDialogs[2] AUTOCOLS

regards, saludos

Antonio Linares
www.fivetechsoft.com

jfafive

Posts: 396

Joined: Tue Mar 18, 2008 09:41 PM

Error con XBrowse y nEditType

Posted: Tue Aug 05, 2008 08:51 AM

Ya lo he puesto,
pero no noto ningún cambio.

Lo he probado quitando el oTab:SetOption(1), y vuelve a dar el error.

Javier,

FWH 8.04 2008

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Error con XBrowse y nEditType

Posted: Wed Aug 06, 2008 08:14 AM

Javier,

A ver si te sirve este ejemplo

Test.prg

Code: Select all Collapse

#include "FiveWin.ch"
#include "XBrowse.ch"

function Main()

   local oDlg, oFld, oBrw1, oBrw2
   local aDat1, aDat2

   aDat1:={{"Row1-Col1","Row1-Col2","Row1-Col3"},;
                 {"Row2-Col1","Row2-Col2","Row2-Col3"},;
                 {"Row3-Col1","Row3-Col2","Row3-Col3"},;
                 {"Row4-Col1","Row4-Col2","Row4-Col3"}}

   aDat2:={{"ROW1-COL1","ROW1-COL2","ROW1-COL3"},;
                 {"ROW2-COL1","ROW2-COL2","ROW2-COL3"},;
                 {"ROW3-COL1","ROW3-COL2","ROW3-COL3"},;
                 {"ROW4-COL1","ROW4-COL2","ROW4-COL3"}}

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE FOLDER oFld ;
      PROMPTS "One", "Two" ;
      DIALOGS "One", "Two" ;
      ID 100 OF oDlg

   REDEFINE XBROWSE oBrw1 ID 10 OF oFld:aDialogs[ 1 ] ARRAY aDat1 AUTOCOLS

   REDEFINE XBROWSE oBrw2 ID 10 OF oFld:aDialogs[ 2 ] ARRAY aDat2 AUTOCOLS

   oBrw1:aCols[ 2 ]:nEdittype := EDIT_GET
   oBrw2:aCols[ 2 ]:nEdittype := EDIT_GET

   ACTIVATE DIALOG oDlg CENTERED

return nil

test.rc

Code: Select all Collapse

#ifdef _FLAT_
1 24 "WindowsXP.Manifest"
#endif

test DIALOG 17, 36, 185, 147
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 8, "MS Sans Serif"
{
CONTROL "", 100, "SysTabControl32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 5, 6, 175, 117
DEFPUSHBUTTON "OK", 1, 67, 128, 50, 14
}

one DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
CONTROL "", 10, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_HSCROLL, 4, 4, 168, 110
}

two DIALOG 6, 15, 175, 117
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
CONTROL "", 10, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_HSCROLL, 4, 4, 168, 110
}

Si cambias de EDIT_GET a EDIT_BUTTON debe funcionar bien. Pero si quitas AUTOCOLS entonces no funcionará

regards, saludos

Antonio Linares
www.fivetechsoft.com

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Error con XBrowse y nEditType

Posted: Wed Aug 06, 2008 08:32 AM

Javier,

Tambien hemos hecho unos cambios en la clase TXBrowse para que si estas en modo edición y pulsas ESC, la edición se cancele, pero no se salga del diálogo.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Error con XBrowse y nEditType

Error con XBrowse y nEditType

Error con XBrowse y nEditType

Error con XBrowse y nEditType

Error con XBrowse y nEditType

Error con XBrowse y nEditType

Error con XBrowse y nEditType

Continue the discussion