FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour O.T. - ResEdit problema con Splitter
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
O.T. - ResEdit problema con Splitter
Posted: Fri Jul 03, 2015 10:27 PM
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 (fw): Select all Collapse
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 (fw): Select all Collapse
CONTROL 聽 聽 聽 聽 "TSplitter", 202, "TSplitter", 0x50000000, 337, 4, 8, 250, 0x00000000

Repito que el c贸digo no daba error:
Code (fw): Select all Collapse
 聽 // Splitter
聽 聽REDEFINE SPLITTER oSplit ;
聽 聽 聽 聽 聽 聽 VERTICAL ;
聽 聽 聽 聽 聽 聽 PREVIOUS CONTROLS oLst1 ;
聽 聽 聽 聽 聽 聽 HINDS 聽 聽CONTROLS oLst2 ;
聽 聽 聽 聽 聽 聽 ID 202 聽 OF oDlg ;
聽 聽 聽 聽 聽 聽 _3DLOOK

Ha que se debe el error?
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: O.T. - ResEdit problema con Splitter
Posted: Sat Jul 04, 2015 10:02 AM

Mario,

Despues de hacer el REDEFINE haz esto:

oSplit:lStyle = .T.

regards, saludos

Antonio Linares
www.fivetechsoft.com
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: O.T. - ResEdit problema con Splitter
Posted: Sat Jul 04, 2015 12:41 PM
Antonio, muchas gracias por responder
No le gusta el cambio.
El ppo me muestra esta linea (por si sirve)
Code (fw): Select all Collapse
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)
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: O.T. - ResEdit problema con Splitter
Posted: Sat Jul 04, 2015 03:14 PM

Mario,

A帽ade esto:

oSplit:lMover = .F.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: O.T. - ResEdit problema con Splitter
Posted: Sat Jul 04, 2015 03:14 PM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
MarioG
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: O.T. - ResEdit problema con Splitter
Posted: Sat Jul 04, 2015 04:55 PM
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
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: O.T. - ResEdit problema con Splitter
Posted: Sat Jul 04, 2015 05:05 PM

Prueba con

oSplit:lStyle= .F.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions