O.T. - ResEdit problema con Splitter

[MarioG]

Estimados;
Estoy pasando una aplicación, en la que usaba .dll hecho con WS (compilando el .rc); a incrustar el .rc hecho con ResEdit
Ahora me da el siguiente error al ejecutar la app

Descripción de Error generado:
___________________________________________________
Error BASE/1066 Error de argumento: conditional
Args:
[ 1] = U

Llamadas al Stack:
___________________________________________________

Llamado desde: .\source\classes\SPLITTER.PRG TSPLITTER:PAINT(239)
Llamado desde: .\source\classes\SPLITTER.PRG TSPLITTER:HANDLEEVENT(218)
Llamado desde: .\source\classes\WINDOW.PRG _FWH(3153)
Llamado desde: DIALOGBOX(0)
Llamado desde: .\source\classes\DIALOG.PRG TDIALOG:ACTIVATE(270)
Llamado desde: D:\Fuen32\SiGeCoD\fac32\Source\cs_t02.prg TCLIENTES:CAPTUPPTO(448)

El codigo en el .rc hecho con WS es:

Code: Select all  Expand view

CONTROL "TSplitter", 202, "TSplitter", WS_CHILD | WS_VISIBLE, 337, 4, 1, 250

En el .rc (que previamente había hecho copiar y pegar) quedó:

Code: Select all  Expand view

CONTROL         "TSplitter", 202, "TSplitter", 0x50000000, 337, 4, 8, 250, 0x00000000

Repito que el código no daba error:

Code: Select all  Expand view

  // Splitter
   REDEFINE SPLITTER oSplit ;
            VERTICAL ;
            PREVIOUS CONTROLS oLst1 ;
            HINDS    CONTROLS oLst2 ;
            ID 202   OF oDlg ;
            _3DLOOK
 

Ha que se debe el error?

[Antonio Linares]

Mario,

Despues de hacer el REDEFINE haz esto:

oSplit:lStyle = .T.

[MarioG]

Antonio, muchas gracias por responder
No le gusta el cambio.
El ppo me muestra esta linea (por si sirve)

Code: Select all  Expand view

TSplitter():ReDefine( 202, (!.F.) .OR. .T., {oLst1}, !.F., {oLst2}, !.F.,,, oDlg,, .T.,, .F. )
oSplit:lStyle= .T.

El error es al evaluar ::lMOver

Descripción de Error generado:
___________________________________________________

Error BASE/1066 Error de argumento: conditional
Args:
[ 1] = U

Llamadas al Stack:
___________________________________________________

Llamado desde: .\source\classes\SPLITTER.PRG TSPLITTER:PAINT(241)
Llamado desde: .\source\classes\SPLITTER.PRG TSPLITTER:HANDLEEVENT(218)
Llamado desde: .\source\classes\WINDOW.PRG _FWH(3153)
Llamado desde: DIALOGBOX(0)

[Antonio Linares]

Mario,

Añade esto:

oSplit:lMover = .F.

[Antonio Linares]

Supongo que en la versión de FWH que usas, esos valores por defecto no estaban definidos

[MarioG]

Antonio:
En principio el error se dispara para otra DATA ::lVertical

Descripción de Error generado:
___________________________________________________

Error BASE/1111 Error de argumento: LEN
Args:
[ 1] = U

Llamadas al Stack:
___________________________________________________

Llamado desde: LEN(0)
Llamado desde: .\source\classes\BAR.PRG GRADIENTFILL(926)
Llamado desde: .\source\classes\SPLITTER.PRG TSPLITTER:PAINT(247)
Llamado desde: .\source\classes\SPLITTER.PRG TSPLITTER:HANDLEEVENT(218)
Ll

Ahora lo curioso es que donde sigue andando sin problemas la app se compila con:
xHarbour 1.00 y FWH27!!, y enlazado con BCC 5.5. El .rc hecho con WS y compilado a .dll

Ahora lo que estoy usando es xHarbour 1.2.1 con FWH 12.04 y enlazando con BCC 5.82, y como comente, el .rc, incrustado, con ResEdit

A raiz de que introducir un cambio en el proyecto, pretendo comenzar a usar ResEdit

[Antonio Linares]

Prueba con

oSplit:lStyle= .F.