Estimado usuario de Xailer,
Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
directamente desde los siguientes enlaces:
http://www.xailer.info/files/public/xailer11.exe
http://www.xailer.com/files/xailer11.exe
Un cordial saludo,
[El equipo de Xailer]
http://www.xailer.com
--------------------------------------------
Dear Xailer user,
The new Xailer 1.1a is ready. You can download it from this
links:
http://www.xailer.info/files/public/xailer11.exe
http://www.xailer.com/files/xailer11.exe
Best regards,
[Xailer team]
http://www.xailer.com
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Nueva versi
Nueva versi
Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
DBBrowse
***************************** Registro de errores
*****************************
Fecha: 25/10/2006
Hora: 09:14:02
Memoria libre: 587548
Area actual: 3
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Scope Violation <HIDDEN>
Operación: _LKEYBOARD
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
(b)XDBBROWSE:XDBBROWSE (49)
TDBBROWSE:GODOWN (0)
XBROWSE:WMKEYDOWN (2263)
TDBBROWSE:WMKEYDOWN (55)
RUNFORM (0)
TAPPLICATION:RUN (206)
MAIN (24)
------------------ Información detallada de áreas de
trabajo ------------------
Area: 1
Alias: LINIESCOMPRES1
Registro: 2086
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 2
Alias: COMPR
Registro: 848
Filtro:
Relación:
Orden del índice: 5
Clave activa: 5
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup
de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Estimado usuario de Xailer,
>
> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
> directamente desde los siguientes enlaces:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Un cordial saludo,
>
> [El equipo de Xailer]
>
> http://www.xailer.com
>
> --------------------------------------------
>
> Dear Xailer user,
>
> The new Xailer 1.1a is ready. You can download it from this
> links:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Best regards,
>
> [Xailer team]
> http://www.xailer.com
>
>
DBBrowse
***************************** Registro de errores
*****************************
Fecha: 25/10/2006
Hora: 09:14:02
Memoria libre: 587548
Area actual: 3
------------------------- Información del
compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
----------------------- Información detallada del
error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Scope Violation <HIDDEN>
Operación: _LKEYBOARD
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
(b)XDBBROWSE:XDBBROWSE (49)
TDBBROWSE:GODOWN (0)
XBROWSE:WMKEYDOWN (2263)
TDBBROWSE:WMKEYDOWN (55)
RUNFORM (0)
TAPPLICATION:RUN (206)
MAIN (24)
------------------ Información detallada de áreas de
trabajo ------------------
Area: 1
Alias: LINIESCOMPRES1
Registro: 2086
Filtro:
Relación:
Orden del índice: 1
Clave activa: 1
Area: 2
Alias: COMPR
Registro: 848
Filtro:
Relación:
Orden del índice: 5
Clave activa: 5
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup
de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Estimado usuario de Xailer,
>
> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
> directamente desde los siguientes enlaces:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Un cordial saludo,
>
> [El equipo de Xailer]
>
> http://www.xailer.com
>
> --------------------------------------------
>
> Dear Xailer user,
>
> The new Xailer 1.1a is ready. You can download it from this
> links:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Best regards,
>
> [Xailer team]
> http://www.xailer.com
>
>
-
ignacio
- Site Admin
- Mensajes: 9252
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Nueva versi
Xevi,
Me puedes decir si el error lo puedes reproducir en algún ejemplo de los
DataControls.
Muchas gracias.
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
> Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
> DBBrowse
>
> ***************************** Registro de errores
> *****************************
>
> Fecha: 25/10/2006
> Hora: 09:14:02
> Memoria libre: 587548
> Area actual: 3
>
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.1.1 Version 1.1a
> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
> Compilador C/C++: Borland C++ 5.5.1
> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1004
> Estado: .F.
> Descripción: Scope Violation <HIDDEN>
> Operación: _LKEYBOARD
> Argumentos:
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> (b)XDBBROWSE:XDBBROWSE (49)
> TDBBROWSE:GODOWN (0)
> XBROWSE:WMKEYDOWN (2263)
> TDBBROWSE:WMKEYDOWN (55)
> RUNFORM (0)
> TAPPLICATION:RUN (206)
> MAIN (24)
>
> ------------------ Información detallada de áreas de
> trabajo ------------------
>
> Area: 1
> Alias: LINIESCOMPRES1
> Registro: 2086
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 2
> Alias: COMPR
> Registro: 848
> Filtro:
> Relación:
> Orden del índice: 5
> Clave activa: 5
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
> grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Estimado usuario de Xailer,
>>
>> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
>> directamente desde los siguientes enlaces:
>>
>> http://www.xailer.info/files/public/xailer11.exe
>> http://www.xailer.com/files/xailer11.exe
>>
>> Un cordial saludo,
>>
>> [El equipo de Xailer]
>>
>> http://www.xailer.com
>>
>> --------------------------------------------
>>
>> Dear Xailer user,
>>
>> The new Xailer 1.1a is ready. You can download it from this
>> links:
>>
>> http://www.xailer.info/files/public/xailer11.exe
>> http://www.xailer.com/files/xailer11.exe
>>
>> Best regards,
>>
>> [Xailer team]
>> http://www.xailer.com
>>
>>
>
>
Me puedes decir si el error lo puedes reproducir en algún ejemplo de los
DataControls.
Muchas gracias.
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje
news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
> Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
> DBBrowse
>
> ***************************** Registro de errores
> *****************************
>
> Fecha: 25/10/2006
> Hora: 09:14:02
> Memoria libre: 587548
> Area actual: 3
>
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.1.1 Version 1.1a
> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
> Compilador C/C++: Borland C++ 5.5.1
> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1004
> Estado: .F.
> Descripción: Scope Violation <HIDDEN>
> Operación: _LKEYBOARD
> Argumentos:
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> (b)XDBBROWSE:XDBBROWSE (49)
> TDBBROWSE:GODOWN (0)
> XBROWSE:WMKEYDOWN (2263)
> TDBBROWSE:WMKEYDOWN (55)
> RUNFORM (0)
> TAPPLICATION:RUN (206)
> MAIN (24)
>
> ------------------ Información detallada de áreas de
> trabajo ------------------
>
> Area: 1
> Alias: LINIESCOMPRES1
> Registro: 2086
> Filtro:
> Relación:
> Orden del índice: 1
> Clave activa: 1
>
> Area: 2
> Alias: COMPR
> Registro: 848
> Filtro:
> Relación:
> Orden del índice: 5
> Clave activa: 5
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
> grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>> Estimado usuario de Xailer,
>>
>> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
>> directamente desde los siguientes enlaces:
>>
>> http://www.xailer.info/files/public/xailer11.exe
>> http://www.xailer.com/files/xailer11.exe
>>
>> Un cordial saludo,
>>
>> [El equipo de Xailer]
>>
>> http://www.xailer.com
>>
>> --------------------------------------------
>>
>> Dear Xailer user,
>>
>> The new Xailer 1.1a is ready. You can download it from this
>> links:
>>
>> http://www.xailer.info/files/public/xailer11.exe
>> http://www.xailer.com/files/xailer11.exe
>>
>> Best regards,
>>
>> [Xailer team]
>> http://www.xailer.com
>>
>>
>
>
Nueva versi
Ignacio,
Si cojes el Sample DbfData1, y le añades...
*
**
//---------------------------------------------------------- --------------------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO Mostrar/Ocultar Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de Tamany Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX := LoWord( nLParam )
nPosY := HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey == VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey == VK_HOME
Super:GoLeftMost()
ElseIF nKey == VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalización del Browse... YA lanza ese error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Me puedes decir si el error lo puedes reproducir en algún ejemplo de los
> DataControls.
>
> Muchas gracias.
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
>> DBBrowse
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1004
>> Estado: .F.
>> Descripción: Scope Violation <HIDDEN>
>> Operación: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relación:
>> Orden del índice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relación:
>> Orden del índice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>
>
>
--
Si cojes el Sample DbfData1, y le añades...
*
**
//---------------------------------------------------------- --------------------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO Mostrar/Ocultar Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de Tamany Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX := LoWord( nLParam )
nPosY := HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey == VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey == VK_HOME
Super:GoLeftMost()
ElseIF nKey == VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalización del Browse... YA lanza ese error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Me puedes decir si el error lo puedes reproducir en algún ejemplo de los
> DataControls.
>
> Muchas gracias.
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
>> DBBrowse
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1004
>> Estado: .F.
>> Descripción: Scope Violation <HIDDEN>
>> Operación: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relación:
>> Orden del índice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relación:
>> Orden del índice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>
>
>
--
Nueva versi
Ignacio,
Por lo que he visto, con sólo reescribir el método WMKeyDown ya salta el error
//---------------------------------------------------------- --------------------
CLASS TBrowse FROM xBrowse
PUBLISHED:
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
RETURN Super:WMKeyDown( nKey, nFlags )
RETURN 0
Si añadimos este código a cualquier aplicación que utilizemos TDBBrowse, salta el error
Descripción: Scope Violation <HIDDEN>
Operación: _LKEYBOARD
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Me puedes decir si el error lo puedes reproducir en algún ejemplo de los
> DataControls.
>
> Muchas gracias.
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
>> DBBrowse
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1004
>> Estado: .F.
>> Descripción: Scope Violation <HIDDEN>
>> Operación: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relación:
>> Orden del índice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relación:
>> Orden del índice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>
>
>
--
Por lo que he visto, con sólo reescribir el método WMKeyDown ya salta el error
//---------------------------------------------------------- --------------------
CLASS TBrowse FROM xBrowse
PUBLISHED:
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
RETURN Super:WMKeyDown( nKey, nFlags )
RETURN 0
Si añadimos este código a cualquier aplicación que utilizemos TDBBrowse, salta el error
Descripción: Scope Violation <HIDDEN>
Operación: _LKEYBOARD
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Me puedes decir si el error lo puedes reproducir en algún ejemplo de los
> DataControls.
>
> Muchas gracias.
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
>> DBBrowse
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1004
>> Estado: .F.
>> Descripción: Scope Violation <HIDDEN>
>> Operación: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relación:
>> Orden del índice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relación:
>> Orden del índice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>
>
>
--
-
ignacio
- Site Admin
- Mensajes: 9252
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Nueva versi
This is a multi-part message in MIME format.
------=_NextPart_000_005A_01C6F81E.102C8BE0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_005B_01C6F81E.102C8BE0"
------=_NextPart_001_005B_01C6F81E.102C8BE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Xevi,=20
Me temo que tenemos un peque=F1o problema en el control del =E1mbito del =
motor OOP de XHarbour, ya que reporta errores de =E1mbito donde no =
deber=EDa haberlos. En tu caso reporta un mal uso de la propiedad =
lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo reproduzco =
aqu=ED mismo:
METHOD GoDown( lKeyBoard ) INLINE iif( lKeyBoard !=3D nil, ::lKeyBoard =
:=3D lKeyBoard, ), ::oDataSet:nSkip( 1 )
La data lKeyBoard est=E1 declarada en esa MISMA clase con =E1mbito =
PRIVATE, y por lo tanto es perfectamente v=E1lido acceder a ella desde =
la propia clase (faltar=EDa m=E1s).=20
Si te fijas el m=E9todo GoDown() es un code-block y es ah=ED donde =
xHarbour falla, ya que no es capaz de resolver el =E1mbito cuando se =
encuentra dentro de un code-block. Este problema ha sido resuelto en =
Harbour recientemente, pero no as=ED en xHarbour. Hasta ahora hemos =
estado modificando los =E1mbitos de PRIVATE a PROTECTED cada vez que un =
usuario nos reportaba un problema como este y saliamos del paso. De =
hecho te mando un OBJ modificado con esa misma modificaci=F3n que espero =
que te funcione.=20
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje =
news:[email=453f15f6@news.xailer.com...]453f15f6@news.xailer.com...[/email]
Ignacio,
Si cojes el Sample DbfData1, y le a=F1ades...
*
**
=
//---------------------------------------------------------- -------------=
-------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO Mostrar/Ocultar =
Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de Tamany =
Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX :=3D LoWord( nLParam )
nPosY :=3D HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey =3D=3D VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey =3D=3D VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey =3D=3D VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey =3D=3D VK_HOME
Super:GoLeftMost()
ElseIF nKey =3D=3D VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalizaci=F3n del Browse... YA lanza ese =
error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del grup de discussi=F3: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>=20
> Me puedes decir si el error lo puedes reproducir en alg=FAn ejemplo =
de los=20
> DataControls.
>=20
> Muchas gracias.
>=20
> --=20
> Ignacio Ortiz de Z=FA=F1iga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje=20
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicaci=F3n, y me marca error al pulsar flecha =
abajo en un=20
>> DBBrowse
>>
>> ***************************** Registro de errores=20
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Informaci=F3n del=20
>> compilador --------------------------
>>
>> Versi=F3n Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode =
Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Informaci=F3n detallada del=20
>> error -----------------------
>>
>> Subsistema: BASE
>> C=F3digo de error: 1004
>> Estado: .F.
>> Descripci=F3n: Scope Violation <HIDDEN>
>> Operaci=F3n: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> C=F3digo error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Informaci=F3n detallada de =E1reas de=20
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del=20
>> grup de discussi=F3: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya est=E1 disponible la nueva versi=F3n de Xailer 1.1a. Puede =
descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>=20
>=20
>
------=_NextPart_001_005B_01C6F81E.102C8BE0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#c0c0c0>
<DIV><FONT face=3DArial size=3D2>Xevi, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Me temo que tenemos un peque=F1o =
problema en el=20
control del =E1mbito del motor OOP de XHarbour, ya que =
reportaÂerrores=20
deÂ=E1mbito donde no deber=EDa haberlos. En tu caso reporta un mal =
uso de la=20
propiedad lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo=20
reproduzco aqu=ED mismo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD GoDown( lKeyBoard )Â INLINE =
iif(=20
lKeyBoard !=3D nil, ::lKeyBoard :=3D lKeyBoard, ), ::oDataSet:nSkip( 1=20
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La data lKeyBoard est=E1 declarada en =
esa MISMA clase=20
con =E1mbito PRIVATE, y por lo tanto es perfectamente v=E1lido acceder a =
ella desde=20
la propia clase (faltar=EDa m=E1s). </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si te fijas el m=E9todo GoDown() es un =
code-block y=20
es ah=ED donde xHarbour falla, ya que no es capaz de resolver el =
=E1mbito cuando se=20
encuentra dentro de un code-block. Este problema ha sido resuelto en =
Harbour=20
recientemente, pero no as=ED en xHarbour. Hasta ahora hemos estado =
modificando los=20
=E1mbitos de PRIVATEÂa PROTECTED cada vez que un usuario nos =
reportaba un=20
problema como este y saliamos del paso. De hecho te mando un OBJ =
modificado con=20
esa misma modificaci=F3n que espero que te funcione. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@gmail.com">xevicomas@gmail.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:453f15f6@news.xailer.com">news:453f15f6@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si cojes el Sample DbfData1, y le=20
a=F1ades...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
=
size=3D1>*<BR>**<BR>//---------------------------------------------------=
---------------------------<BR>CLASS=20
TBrowse FROM xBrowse<BR>PUBLISHED:<BR>ÂÂ PROPERTY=20
lAllowColHidingÂÂÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO =
Mostrar/Ocultar=20
Columnes<BR>ÂÂ PROPERTY =
lAllowColSizingÂÂÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO Canvi de =
Tamany=20
Columnes<BR>ÂÂ PROPERTY lAllowColSwappingÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO Moure=20
Columnes<BR>ÂÂ PROPERTY =
lRecordSelectorÂÂÂÂ INIT=20
.F.<BR>ÂÂ PROPERTY nColDividerStyleÂÂÂ INIT=20
blLIGHTGRAY<BR>ÂÂ PROPERTY =
nRowDividerStyleÂÂÂ INIT=20
blLIGHTGRAY<BR>ÂÂ PROPERTY=20
nHeaderHeightÂÂÂÂ&nb sp;Â INIT =
19<BR>ÂÂ=20
PROPERTY =
nRowHeightÂÂÂÂÂ ÂÂÂÂ INIT=20
18<BR>ÂÂ PROPERTY =
nMarqueeStyleÂÂÂÂ&nb sp;Â=20
INIT bmHIGHLROW<BR>ÂÂ PROPERTY =
nClrSelFocusPaneÂÂÂ=20
INIT clActiveCaption<BR>ÂÂ PROPERTY lColDividerComplete INIT =
.F.<BR>ÂÂ PROPERTY=20
nClrSelPane  ; INIT=20
clInactiveCaption<BR>ÂÂ PROPERTY=20
nClrSelText  ; INIT=20
clInactiveCaptionText<BR>ÂÂ PROPERTY=20
=
lVScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsYES<BR>ÂÂ PROPERTY=20
=
lHScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsNO<BR>ÂÂ PROPERTY=20
nBorderStyleÂÂÂÂ&nbs p;ÂÂ INIT=20
bvSUNKEN</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ METHOD =
WMRButtonDown(=20
nWParam, nLParam )<BR>ÂÂ METHOD WMKeyDown( nKey, nFlags=20
)<BR>ENDCLASS<BR>*<BR>**<BR>METHOD WMRButtonDown( nWParam, nLParam ) =
CLASS=20
TBrowse<BR>ÂÂ local nPosX, nPosY</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ nPosX =
:=3D LoWord(=20
nLParam )<BR>ÂÂ nPosY :=3D HiWord( nLParam )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ =
::SelectCellFromPoint(=20
nPosX, nPosY )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
Super:WMRButtonDown(=20
nWParam, nLParam )<BR>*<BR>**<BR>METHOD WMKeyDown( nKey, nFlags ) =
CLASS=20
TBrowse</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ IF nKey =
=3D=3D VK_HOME=20
.and. GetKeyState( VK_CONTROL ) < =
0<BR>ÂÂÂÂÂ=20
RETURN Super:WMKeyDown( VK_HOME, nFlags )<BR>ÂÂ ElseIF nKey =
=3D=3D=20
VK_END .and. GetKeyState( VK_CONTROL ) <=20
0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( VK_END, =
nFlags=20
)<BR>ÂÂ ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( =
VK_CONTROL ) <=20
0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( 5000, =
nFlags=20
)<BR>ÂÂ ElseIF nKey =3D=3D VK_NEXT .and. GetKeyState( =
VK_CONTROL ) <=20
0<BR>ÂÂ ElseIF nKey =3D=3D =
VK_HOME<BR>ÂÂÂÂÂ=20
Super:GoLeftMost()<BR>ÂÂ ElseIF nKey =3D=3D=20
VK_END<BR>ÂÂÂÂÂ =
Super:GoRightMost()<BR>ÂÂ=20
ELSE<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( nKey, =
nFlags=20
)<BR>ÂÂ ENDIF</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
0<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Que lo utilizo para mi =
personalizaci=F3n del=20
Browse... YA lanza ese error</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Ignacio Ortiz de Z=FA=F1iga" =
<</FONT><A=20
href=3D"mailto:NoName@xailer.com"><FONT face=3DArial=20
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial size=3D2>> =
ha escrit al=20
missatge del grup de discussi=F3: </FONT><A=20
href=3D"mailto:453f11c8$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453f11c8$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Xevi,<BR>> <BR>> Me=20
puedes decir si el error lo puedes reproducir en alg=FAn ejemplo de =
los <BR>>=20
DataControls.<BR>> <BR>> Muchas gracias.<BR>> <BR>> -- =
<BR>>=20
Ignacio Ortiz de Z=FA=F1iga<BR>> </FONT><A =
href=3D"http://www.xailer.com"><FONT=20
face=3DArial size=3D2>http://www.xailer.com</FONT></A><BR><FONT =
face=3DArial=20
size=3D2>> "Xevi" <</FONT><A =
href=3D"mailto:xevicomas@gmail.com"><FONT=20
face=3DArial size=3D2>xevicomas@gmail.com</FONT></A><FONT face=3DArial =
size=3D2>>=20
escribi=F3 en el mensaje <BR>> </FONT><A=20
href=3D"news:453f0f30@news.xailer.com"><FONT face=3DArial=20
size=3D2>news:453f0f30@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>> Reconstruida mi aplicaci=F3n, y me marca =
error al pulsar=20
flecha abajo en un <BR>>> DBBrowse<BR>>><BR>>>=20
***************************** Registro de errores <BR>>>=20
=
*****************************<BR>>><BR>>>ÂÂÂ&n=
bsp;ÂÂÂÂÂ&n bsp;=20
Fecha:=20
=
25/10/2006<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ&nb=
sp;ÂÂ=20
Hora: 09:14:02<BR>>>ÂÂ Memoria libre:=20
587548<BR>>>ÂÂÂÂ Area actual:=20
3<BR>>><BR>>> ------------------------- Informaci=F3n del=20
<BR>>> compilador=20
--------------------------<BR>>><BR>>>Â Versi=F3n =
Xailer:=20
Xailer 1.1.1 Version 1.1a<BR> >>ÂÂÂÂ& ;nbsp;=20
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version:=20
7<BR>>> Compilador C/C++: Borland C++=20
5.5.1<BR> >>ÂÂÂÂ& ;nbsp; Plataforma: Windows XP =
Home=20
Edition 5.01.2600 Service Pack 2<BR>>><BR>>>=20
----------------------- Informaci=F3n detallada del <BR>>> error =
=
-----------------------<BR>>><BR> >>ÂÂÂÂ& ;n=
bsp;=20
Subsistema: BASE<BR>>> C=F3digo de error:=20
1004<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ =
Estado:=20
.F.<BR>>>ÂÂÂÂ Descripci=F3n: Scope Violation =
<HIDDEN><BR> >>ÂÂÂÂ& ;nbsp;Â =
Operaci=F3n:=20
_LKEYBOARD<BR> >>ÂÂÂÂ& ;nbsp;=20
=
Argumentos:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=20
Fichero:<BR>>> C=F3digo error SO: 0<BR>>><BR>>> Pila =
de=20
llamadas:<BR>>>Â (b)XDBBROWSE:XDBBROWSE =
(49)<BR>>>Â=20
TDBBROWSE:GODOWN (0)<BR>>>Â XBROWSE:WMKEYDOWN=20
(2263)<BR>>>Â TDBBROWSE:WMKEYDOWN (55)<BR>>>Â =
RUNFORM=20
(0)<BR>>>Â TAPPLICATION:RUN (206)<BR>>>Â MAIN=20
(24)<BR>>><BR>>> ------------------ Informaci=F3n =
detallada de =E1reas=20
de <BR>>> trabajo=20
=
------------------<BR>>><BR> >>ÂÂÂÂ& ;nbsp;&=
nbsp;ÂÂÂÂÂ=20
Area:=20
=
1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias: =
LINIESCOMPRES1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Registro:=20
2086<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ =
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
1<BR>>>ÂÂÂ Clave=20
activa:=20
=
1<BR>>><BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=
ÂÂÂ=20
Area:=20
=
2<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias: COMPR<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ =
Registro:=20
848<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
5<BR>>>ÂÂÂ Clave=20
activa: 5<BR>>><BR>>> "Ignacio Ortiz de Z=FA=F1iga" =
<</FONT><A=20
href=3D"mailto:NoName@xailer.com"><FONT face=3DArial=20
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial size=3D2>> =
ha escrit al=20
missatge del <BR>>> grup de discussi=F3: </FONT><A=20
href=3D"mailto:453e2ab2$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453e2ab2$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>>> Estimado usuario de=20
Xailer,<BR>>>><BR>>>> Ya est=E1 disponible la nueva =
versi=F3n de=20
Xailer 1.1a. Puede descargarla<BR>>>> directamente desde los=20
siguientes enlaces:<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT face=3DArial=20
size=3D2>http://www.xailer.com/files/xailer11.ex ... ><BR><FONT =
face=3DArial=20
size=3D2>>>><BR>>>> Un cordial=20
saludo,<BR>>>><BR>>>> [El equipo de=20
Xailer]<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>>=20
=
--------------------------------------------<BR>>>> <BR>>>&=
gt;=20
Dear Xailer user,<BR>>>><BR>>>> The new Xailer =
1.1a is=20
ready. You can download it from this<BR>>>>=20
links:<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT face=3DArial=20
size=3D2>http://www.xailer.com/files/xailer11.ex ... ><BR><FONT =
face=3DArial=20
size=3D2>>>><BR>>>> Best=20
regards,<BR>>>><BR>>>> [Xailer team]<BR>>>> =
</FONT><A href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>> <BR>>><BR>>> <BR>> =
<BR>></FONT> </BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_005B_01C6F81E.102C8BE0--
------=_NextPart_000_005A_01C6F81E.102C8BE0
Content-Type: application/octet-stream;
name="DBBrowse.rar"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="DBBrowse.rar"
UmFyIRoHAM+QcwAADQAAAAAAAAAOanQgkDEAYBkAAN1AAAACJXeiNwZQWTUd MwwAIAAAAERCQnJv
d3NlLm9iagDwdPBRFCGVUQyM0YAV2ir6ldroEgEgVp2gR0MEAgKQwY2MGFq7 sRYrSu4laSBxZLaF
aBIditNdDaCMGONlNgONjj6ZHG5B9Ej6vfY3H0Rxx/ByNyPMmPJHk1jjkzJM jk0JDeOTJM1j1JMm
PWGa3urSFfTvnKqrq1cJ7Pl78x6Squc5vt55zlcT5/ld/gmvP7e+ecvdeVXL q7+/Fz6FRhxsXCvL
26jbzf3TywsMKN1+He6zGQ7aoQyjN2EbCi3eBErHeq1VZsNZlNfIfQB7/9A0 oIO72EkGrD4N71vk
67o7zZXWNfXeFvCKl/S/wLyLixJOb7eZZv8TWX0l+sEuPSi9Jph9cTCu5WJj DWiepr/ZR04+stLE
xcHWXhGOhBCt2tbnw3l5ebDYTSWHFv+AZJ6JUhcD3Iglz4azUVTGMPuot748 KvgrEaDUZ7+ZKcC9
4Gs/qMvGvAkgu4t6shTKZPxw8TCH0jmWt9/UI72ZFeXyezKnoKHiRb/eD6Q8 De36jY1mS6mP5X8b
/9kUobFixU/XK96eWWjjuq6DBqIRL/Vg7EmdJ2atR11e914+yy4TrY6Xrh9+ u4GDinhtViGyf/0c
xzIzSd90yDSHCe7qEzdwHj0vd46hOmZv01eWNrAt4LOHYW1syL8aw31o+hQ2 xv2bHQ+fQIeT1rFg
xQP6+NrmbQdR1QNk7fNUG9CK8DnzXnMudJP2+dY0sPcWEPb29pD3Tp2/dSlE M6tcZQmraHBdWrqz
QmksKwlhXNtLWzcfrLBtoSGaWuoMvjnuX84Oy8OjoaU5SDt7ZwYW7Qp5qWKA 1rcybv7eztF02Xh9
bWlu/foUSe372R9NNQlrLMtbR7crpZ/CtX1muWy1bVDOJ9bB/Ad2SGdzChIl mAWK7xun6iGmqeFA
VIsybwLDcvXcIcTH7GwevYOYuJNdvAXY+zdbpCnzCDlnSRO5WCeHVhbTjfvZ yIzu3tZWVrcun0KP
hS7dE7NzPJi0t7OZhKanF3LKTL7eQ+u4EHCjXl7h4dtweBvI0XDQpFL17jXt 5i4l6ghyqnK2E2Qm
6eWCk83OSkOXisWHPd/QX3f67n199krm+yQtCwv92fsU3r8rlb/J1fcqim31 GJNv+5zg8PwjxiZ0
eHfjx9oK2nHh2g8ccHlQPDxR49Lnh4fjHi6z48LyqD6o8fdDPVY8Ov0Ify0w bzTh3taH8NQHV6kO
k1Q5Q8Lp2HMZQmPMpMr8bOXFXzNCXvpQ1FxoOZsQ2YOggBCDdhvgih1odiHa Bxw78PBDww+sHoB9
kPZD2g/xD9AcwPgD+AfGmvqME1j0oY9OI4DThXBXhtQeA+C5C6C7CMGIHBDt Q7cO6D6YeMHkh9gP
VD7YfhD/IPyhzQ/WH/Ac4VkM019VumsjPiOQ0Qa0NeHThYg/D5AQwiBfikOW zZloI9OUT2heXKCn
+dlb+2gnixTGA5gDPyZ4v3yYxJHwlSTsE548ee7yXr034wPw88IgewHYB7ke f0Jzjh/uH8E38arX
ta4YpY81AVgidegqf62O/zJvapv4ggBRql+8TelDCDZhxp5X9wL7xN8sPMD0 Q9gPYCKm/dTfaB8I
e0CGrHXMF5wTMPenNbkunYp6dC/ByXbpuuVx4qbeB8ueR/zE544k7Tf3ac+B PF/lB6Kc/aTn7qc+
2H4w/SHvh+yeV/8gYaxOGwzTBUhpA1gbANkG2BDwuyYcxAgym0Ln9MJWF+Vt xltGOdNcR1tkyCmb
osfq45gxzih2xW+VHPnhyw8gPND0w9YPbjnvB+4VjoCEn8cMcMdFM2wbgrsk 3jhjhj3xeST+PjJn
FAlHjhjhjhjxzHDHDH/tjkcx/yJnvB74GVf8U1kEr8gMgMipTKwCWeRMPZZG 2jhLfIDIDIDIDIDI
DIDIyTI5cc8i4Z5CZkencNMgMglfkfkuGuQGR79xQZAc0lXzabJKwCUfN2yZ BDdXDbmkm+aSX5vF
jhJPmhzfNTPWAkXzfeTCQagxTN5PSa3M9bghCDqgvQ6wMEOCHZBxw7kO/DxA 8sPOD1A+6Hth+MP9
Q/YH/Qk7maZa0Ybpk7j0gzUJzoA1QbENoD8LeeX/yo838ecMOKHJnkf3Sc96 nPgR5+oHmh6oevHn
78efxJz/pkz+lOf9g+IOcGaRGM+M6MNWJOsf089jvI8/Ini/dpzdpzwE54Qd sCHhV6gxSwwyMJcX
6dF6MLsYXIwt3QRap8WaCmHFeuG4HFauKEFhVjCpGFOMKUSHUFCuKIbWE+MJ 0cTa4ox1cUg2YTKU
fmo+aUbj4phebH7rCXY1xnE+uSs7k36dxT9DE6bdxPRK76et+EHih5QecHqB 9sPvh7gfpD4Q/5D4
wbV4xmxlyGlDVB0odQG2DciR+lpPY+6jzvJ4vjR5xI89iHah3QfSDyw9KeX/ qR5+4H3g9yPP58mf
fTn4gYa6elenLgNMFcGvEnU/0wzYJzuQuQ3odYGEGMHzA7YSpC6V36tIx52J 6aHELiFN9lURtV+u
1R5/FYxKNDf0O6W5NqQDKJv20JWxRsMFjasCM5QXGlFIszHO/bxnl3iXdte4 koTLcIdw2LeJFaZq
QVJBew3cbgYMZDwm///ROqgfh90jcZ5P7n3PNxnxzUzRPo+nA3jXFUm+iH4n 0UE2cj+ZhMi3mKgi
VHgXuAUNcGhfJMFYmNbt2bj1okQ0Pzf42IxF0l5Z4e+tI23v4uJe4WXmCGYJ WQuiiusXEjQMKIRG
3OQycFJFe8VL2hp9JNUWp5/kUSc3kkG+VTrMU3b4LWSZsDMG4tuJQxYGBPkt DmMeyveDYRruVYni
iHLYj+Whe9Yvi0h2KzSNAdwKB3hXt2XJmRW2akt4tNJHgs5IqVXEabcUWE3A 9/TLGjqYEUOo6oVs
HNg+wMMboh3nUaMba2MaFGwUN3Tnzbo0mVZpCGwkBlLVUppwbipiGJiRuBNL KUfCoWaJNZKjqmHe
eXQkG7317bksdUgbMJI+I2czNc2dD1EFi4ZRHyOcWTEjbDBYLJvPqoOiHTyN 1+BKF1I/muhKkWTQ
GYTPKOTNKrrnDhwLoBSirrR29c0iOdEMmMyquEufVS0Cjzni06e+iVv2r7De xt7IioHbkcWA1nh3
Vi28ho3WWd3hEjc+O9ABU32hRxqR3oVjQsB3GxSyyRXEdnpp0aNUDaBgKUBG qVjS68A2R7BZSgNI
qQUQ0rPmfI9KLoBVt1l+dB5oXXKXJiXoxbUUZ2MyhFABqbJWmHD0e8daddr1 HqTKSaq4MbDOS1q7
aTX3T7ahcjmxQ6EjNTOO6aYafS8Pcp1XKxobWcbrr00SIvRLSD1YuiNhKxCi uVsXWTaIDQoi1ae9
aLbm0R4V7jFLnQLYaIuhGri7i4pAD6Ed16yueW1pd9df744IFYnvXLNPc2cG 7vzUH6JPevVrpzUi
n9hik02ApXhVoNBEdHlWkVykQ2UNnDaZKaLVy7AXSuom/xcPEIGS5v4mJfSn NKLOJ10yzbEMIqJt
F6OPvZAWItqdRWi2L1AvMjfxdMtj7ObEWNhEb6cWjWmvZeWWNQOu/i6mIt70 bCCwi6oteXg0rnOo
1xryY9F1ZXGCxwKDLWV0jBhvYLHjXSCNad/GIjDBYFpDxdZKG1p7iUK8k9LR yRKyrdGISgyY/QFM
ONfLALkBlhlpwV64mLm5UReuPbTpyJ0ixArfloNsnziuSZmKpuIoX55JoON+ wUK0mxmPYRMtsTaO
OvWl1lJmUYimXG4Jsds5ziTA2zs2AkNlL4l2ypEelOXMsFQNs7jshTPjdmYP XMmTMRiGxG2Y6I6Z
EaMTv53Irphsidic/2syFuvBClfTsDzgDU6BRRZzukLM8zcdI9Ou4xas8Sao vDQR2Q/wdN0o9uoH
wPPvz1ITNeIwIS1ijszV+lQFBZShJkxYGwKP2aPPUlRnkmqugIVtQmcU5SL2 k7R6R1RipreeyK6k
YdD9qcTajgtOTOEtNsu3pIahhsZqe/Kgi6H/bAe7sfI8HvhQReLwSYjeGqoG IwxG9WI9XtkaNIbA
ibOkptvOw6fONUW1rsTrlYqTSeqJGxzOY+mhsprJMmCO4Ht8oftrRR0vUFMp 9mWCmeUCO5XKjzOo
UdyM5o59TFtmbJVcSc5pLNqWWRmfp5yeGhYIvx/2zHvZjCNofLwZVUZ5Otz5 4+lYHT7TGyaRgHzp
vHPRkDDBL3O1BJ35CCOtPhKNW0Gkmx69rJJurhkzErehXK4h1WdDn9qRG1Pf 5ZIXpzSFAu2K3jGw
s2dIU66IrkqiU6rabSz6tLPTTzPjagA1TUroOrnGx0A9qxGvPAuUVpEtESAz 5bNaEqkNIug+jOw9
ajbiKiZERKDXamLcREbk9xRsKvvEEtVF3QrdqjKwW6VdxKEtB6hht9GVb+rV wcvsO1S1mYE/Zlrc
dUQhKPyZlPHOmkUbo1v+wN+xtJmLlrdFumuCbDr0flBNRpxr9cjWnFKfchLX 8Mlq45FVWsEulUYC
Lul2n0dXTSH2Kto7F9MjDL6e6QUX1adeWsLi8DAQ47B5V+fMQ6eL1ZNHBaFq 0XcljTf5zdOnz97a
7Kc1bjMj1CO8LFuj0lbNG8MU7Z9gXkbCwr28xKxT6/axRM1mJMDva6sw76Ni xYlZvJDWV/gRIG9r
dPOr7T6isOl9ojEMi26l7spCRb2JF3sSXrMGyncGIepR30hL40R2hrW2RvzQ xKi7RJOou/iR9SVl
UNYFDVW2347EoTbcaquZ/4k+mz3si+V9zTPjamHWKwueFSy/XoOgDSumz27B GKtl/0CTCLwJbcwp
GMgjfzdWkqBWLilSZdiX/kdpM+IyL90E4IT9GcQTgUjgrAbK3y2hmRgzG/JY KkERtUaGhR60/vt3
NBJ2Wj6WZbXK4jmpSaGqzYi2I7bI4R7MxfpUm+ThU4xj7AeUvhrBJRwn7Yjd GZRUpQckSaC8xamR
xFxM86qgirMp25UY1COKscZ+GyJ3+wL5QOuUBNl9VjeL15pGrRkpTx0xhcxC Ak4NccFXaWuaJKqi
8KJToOKZJzF+WtgU7As6/YKy80KjaqADOTt5WHYNuNaJOujR4c0aoqrPHZ+J vykhWmdJmFWW/g6S
aQs8ZvL+ZhqcaYc4r0q5fajsRZPNq+gRDOa61eIni7sv7+hbw0s0p3ES6Q8E HaWvWbzxJQkhel6E
oNiPHxWZGWzhtCbTaK7PVMO9fUryzdLwBdiUlAekXjMUeIJN+J2RzybSEccL sEmjczG9jN3VtE+R
4qtHHVFoldkY+YHpRoEfmLake2Kl6Ggrb37XdPYl+YCAtnE3R7ObfnNo5RI9 pmbtKlMwOcR4yze0
6NipSmyIe1JWJxtIvPo9qVmJjGD5qVIpuEeMs9NUZDVaPbTmsG2Kh7j5iEmi R7KbXJpFlOzL6luQ
p7NUujxoMobTru71KVaPnUJagcKa5GdS1S7uKKPWjamj2ijtC9+EjyT49ea6 13EaENS0htdGWxa6
RVj4bNs5bpa9vLHcVSWxUNJLODIRm4oUtlwyMXH4EtmomGagmHbrQ72sOgLY DbYqCkfmzX1JDWCP
cGLjiXO5yI23R3JybLO4R7kbLaZvkeUXsj3U34oX68RYbY1xaLx2gnpgOI17 zFH5ymkcQandq+rO
GZur9JqbZxs+EoEa7PiVGho0e8P68LSGDNbhILuRshgaRHlLGVMj3C3tmzPa zG84q87MdVX71ABq
xqW1FYcJtV/tQSzx1sqpjGdSjtp5eS3k1M0cGgqzHStJUfSqcjmbPYLM7WQ2 hUU6JGxUuJK9I3ht
eG153O4NKbbJlLFmbiF8rNLPmJaY7eGnMeelac3h0BvfUrqQ7o1yz+55LVja Pent3TFgpSFNfvXD
LCWhr5mkk5aEJbZC6ZTFKv3CBdmxgKL+xGtlPOts0eSo4sn+0XdDaifzuZQp bYzyuP1JOzulF76I
qek7XCoz7Al7OO7YjMo3cq0K2S7kWZ3nO2TkvsKcN0e6mysgTzyOWiVq3IqL JDQPiyLNqviMEoTe
bMg2o6pN7by7JVvfjbneJW6Pz1HZmA3DeL9A+xLlFygaFzt0rk3HMszwL3U9 Bvdo0qrX9VPOT8lH
wBd0aKnVr0N7wtz2xyVwErxSnlRzM+Y0mwsaaQpv3p4hI8mbjuKRKKj9Faub AHEZehTBHXgjfFUF
Tu0sNZ6ZQOInjrlzbr+gUl8HMwI6JLhTXt+XNd3sBrirwh7JfJLVdyyS7NWR jYQqIKv3UEuMn8Kn
FIa454I1fmSL5E7BLNjXJF8Kljnbj0zY1aJd2N3XOMWd4j4Q2j9I/ivR+mp5 Le596jyFMJSQ5wBt
KhpCEL75HlmSnIXkN9BeC/gZiJ3OOpfBXjx9Oce3yGKXhj10lX+YV4s7lf8Z OvHkWVAvkCi0ffKh
tuC0IFvyxz5g19adgRJIfdqedF8OJlqjYG8NBUpDbJfXXD188PQGEvRXEx9I fjjZpfZXMvUGftLw
C9UeijFVXqsEvWncs1LV/nmVfcHp64194b9kP7ugOj/fKDbGrrqE02VkArNy v0bm0S9o7uq4Bi//
BdsPwTkMfwrtZ7fQKx/xGYr3Fzr3Z56/yjj/MfH25jP5yepoK1qX6D5EmQ6Z Fu6/eRtla+S+6X9U
5Qb4EmuOI2FUyXNmklV2chvgEbioKXwqgX9ql+tuj4hviBIJKL4sS6oqNgSa /YQrMThG+JRx7yX7
Udqcgo0v3FmEiSFlF8hL4l15qkv3klqEVLF/ij4ydyEmH/yTKIVSJfGjbKv9 pfeZG1kGR+A/99kv
wFe2SYK2JaDFHtjK4vvqkg48fRfCL9Sc4CguFrNgw2J2JalwJDaex6I/xPsj 8B5/3KG7w+7S4WkX
3KM3gTmqonbJWSEon5yu+8bo92r60SPJGy2xdGjYqezRKki/VNt5M0bQ2ZLc N80Vx5TueLYF7Q+C
j3R7qvU3H1kqWqADVuSs9F8cyHqV0zVN4bObpvshx0XDZjegGmSrKSVHTFYc +U2oejPwPmkR7db6
ItMjyprR1q74Hw9SapHSLwArj7TI8Oa9nF8goylQjrik/5JyNy2SY8NjLGSa RdYph0CTU0U25vl5
IUtMZuJJKIsvzMuFDZlGigV3ovEaUMyenR8pbhP60Uj5crzzEFboswP/wbWt seLQmgfUo5tSDTVJ
xxKAuS/quFF/+xFn/a0bGvLPG5VdTtUqtWkBuloB3yC4U9twZWLlLRninPn6 nCrUBt3VqktMWw5K
ZH1jsVIwmA05zTBQV3c2p4dAJ7ZbQTaTkh6Ab1q8XoZ4n1/DM+vSI+afaymu dgvyyuAzR86bv8mP
VspOrk+7I5Pbm40yQxcBnJD9ckbu86gwL/mMkHnhzjF7U2XqpKr/663FdUCP oCH4Y9u49b5pSCYT
fuk7NmOaZX66FOepnPuq9E92T4NTfLT6SxCQCFArZKbecKdX2F+BRNkUmL8H RlU/SG+DAvlFpefl
RBTb9rWPHts7Q8eSHOo+ev9YZcQ456ZKnzD25tKoXb3POP3Cs+a2wUhifjQD /AR0RNRi+mUCaBbp
hKBdRzV6pfOdUmdPHkGSGC9tYW7QmlpdPFLqzxeDEFnbv4T41s9iQe4gPJwr d2r2RT2cuNuKnbRG
buA/j5fWlsNFf5Zf5VJXYwIUsFCAsscvWEgJA2a5koANXQzFCGSH6tbKGsnx chQ/snu7kwmGPMw3
72ynVjlcDb5i3YBl2BZWcoGdMiSlpAzNtRak2z24e2kKcw7OBcJqBBnrmfcS Gdrl7RnuLrmk9dXD
p/bvZ27trQU+sczGIv557p8TBm/neW5Ka0eSGtEFet0zse9zb20Io23L55C3 GZnBt3z+Una5m7dS
jIEC1eZm+kBKoVnJuJykA3XQVOucc9Kxa27uT21dy/36C/XPz9c2282bs5S0 /Kne0I7tbFVi1vBq
QJ3rr6tIatHMqxSjFaO5rasbZyPEBSh8/6y2agA34pQVl/JrJrJ1k0rQFK7d lPg9NM27kcpQdkh8
BSzDVvT4qkB5vpIsuv7P1IbF/E0Xf+HAm1qyMNcc9J77bcSsigxLNgv3RIJ+ UY5yC83sKro+GZNu
k09fvDE+4lRmli7VPbR1ZvSX7p++sbTLJpOQt3BkCeeJGKnYApK7J9aPDQUV 7EjDtrewtt3bSr7M
vYq4rV8Ut4ZgnMswYT6ZKhDMBO6P7H7DcXYrJKZVKC/YqDvRHtCc7FVuHUq2 XshaEtHu6QV7Fet2
KZSvU5tYnoZtFX6fqebB1lqAhy/IYkO4rhOySUlZUfTM4UGUOhDnDR26tJ2H WS1Lo7YO7O2sbSAq
Rq9kFV7H47l0SrlcOxWyUS9ZID5+CyAFFkpqOzgyktT+YalqApYUc+QZ88EN YjV8PLV1cnD4jqC8
L0sjUQznvaGiEaiLLJv29NXiq9sK5kiLLZCkOX8lZbFJo7i2dldZathDQMVq aKA7uSCUk+hIHXJ6
lTF1qdGl2dxcT6UtBmNy8CoTnezznPTMiqorECzO7h6+sdwUV4EAFrD61toS rgIQ13KLtErwmLNk
OnK9ndva8+OGSoGiv2jKc7RTO9ogflmjIKUn6KauWJfCuQEmZNG9QOuYNAMj lcIu0lGYpTDlrK+d
u/XDxhyXqFjt/KjskDh7SUH8Kft2NKUenyx1pu5mTLCyIyK1CC3dFsHC3yCH LoUC5ehTrDfhNEOY
xhMEOSX/omf+oMQ9ewBABwA=
------=_NextPart_000_005A_01C6F81E.102C8BE0--
Attached files DBBrowse.rar (6.4 KB)Â
------=_NextPart_000_005A_01C6F81E.102C8BE0
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_005B_01C6F81E.102C8BE0"
------=_NextPart_001_005B_01C6F81E.102C8BE0
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Xevi,=20
Me temo que tenemos un peque=F1o problema en el control del =E1mbito del =
motor OOP de XHarbour, ya que reporta errores de =E1mbito donde no =
deber=EDa haberlos. En tu caso reporta un mal uso de la propiedad =
lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo reproduzco =
aqu=ED mismo:
METHOD GoDown( lKeyBoard ) INLINE iif( lKeyBoard !=3D nil, ::lKeyBoard =
:=3D lKeyBoard, ), ::oDataSet:nSkip( 1 )
La data lKeyBoard est=E1 declarada en esa MISMA clase con =E1mbito =
PRIVATE, y por lo tanto es perfectamente v=E1lido acceder a ella desde =
la propia clase (faltar=EDa m=E1s).=20
Si te fijas el m=E9todo GoDown() es un code-block y es ah=ED donde =
xHarbour falla, ya que no es capaz de resolver el =E1mbito cuando se =
encuentra dentro de un code-block. Este problema ha sido resuelto en =
Harbour recientemente, pero no as=ED en xHarbour. Hasta ahora hemos =
estado modificando los =E1mbitos de PRIVATE a PROTECTED cada vez que un =
usuario nos reportaba un problema como este y saliamos del paso. De =
hecho te mando un OBJ modificado con esa misma modificaci=F3n que espero =
que te funcione.=20
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje =
news:[email=453f15f6@news.xailer.com...]453f15f6@news.xailer.com...[/email]
Ignacio,
Si cojes el Sample DbfData1, y le a=F1ades...
*
**
=
//---------------------------------------------------------- -------------=
-------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO Mostrar/Ocultar =
Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de Tamany =
Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX :=3D LoWord( nLParam )
nPosY :=3D HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey =3D=3D VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey =3D=3D VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey =3D=3D VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey =3D=3D VK_HOME
Super:GoLeftMost()
ElseIF nKey =3D=3D VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalizaci=F3n del Browse... YA lanza ese =
error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del grup de discussi=F3: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>=20
> Me puedes decir si el error lo puedes reproducir en alg=FAn ejemplo =
de los=20
> DataControls.
>=20
> Muchas gracias.
>=20
> --=20
> Ignacio Ortiz de Z=FA=F1iga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje=20
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicaci=F3n, y me marca error al pulsar flecha =
abajo en un=20
>> DBBrowse
>>
>> ***************************** Registro de errores=20
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Informaci=F3n del=20
>> compilador --------------------------
>>
>> Versi=F3n Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode =
Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Informaci=F3n detallada del=20
>> error -----------------------
>>
>> Subsistema: BASE
>> C=F3digo de error: 1004
>> Estado: .F.
>> Descripci=F3n: Scope Violation <HIDDEN>
>> Operaci=F3n: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> C=F3digo error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Informaci=F3n detallada de =E1reas de=20
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del=20
>> grup de discussi=F3: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya est=E1 disponible la nueva versi=F3n de Xailer 1.1a. Puede =
descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>=20
>=20
>
------=_NextPart_001_005B_01C6F81E.102C8BE0
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#c0c0c0>
<DIV><FONT face=3DArial size=3D2>Xevi, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Me temo que tenemos un peque=F1o =
problema en el=20
control del =E1mbito del motor OOP de XHarbour, ya que =
reportaÂerrores=20
deÂ=E1mbito donde no deber=EDa haberlos. En tu caso reporta un mal =
uso de la=20
propiedad lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo=20
reproduzco aqu=ED mismo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD GoDown( lKeyBoard )Â INLINE =
iif(=20
lKeyBoard !=3D nil, ::lKeyBoard :=3D lKeyBoard, ), ::oDataSet:nSkip( 1=20
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La data lKeyBoard est=E1 declarada en =
esa MISMA clase=20
con =E1mbito PRIVATE, y por lo tanto es perfectamente v=E1lido acceder a =
ella desde=20
la propia clase (faltar=EDa m=E1s). </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si te fijas el m=E9todo GoDown() es un =
code-block y=20
es ah=ED donde xHarbour falla, ya que no es capaz de resolver el =
=E1mbito cuando se=20
encuentra dentro de un code-block. Este problema ha sido resuelto en =
Harbour=20
recientemente, pero no as=ED en xHarbour. Hasta ahora hemos estado =
modificando los=20
=E1mbitos de PRIVATEÂa PROTECTED cada vez que un usuario nos =
reportaba un=20
problema como este y saliamos del paso. De hecho te mando un OBJ =
modificado con=20
esa misma modificaci=F3n que espero que te funcione. </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@gmail.com">xevicomas@gmail.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:453f15f6@news.xailer.com">news:453f15f6@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si cojes el Sample DbfData1, y le=20
a=F1ades...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
=
size=3D1>*<BR>**<BR>//---------------------------------------------------=
---------------------------<BR>CLASS=20
TBrowse FROM xBrowse<BR>PUBLISHED:<BR>ÂÂ PROPERTY=20
lAllowColHidingÂÂÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO =
Mostrar/Ocultar=20
Columnes<BR>ÂÂ PROPERTY =
lAllowColSizingÂÂÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO Canvi de =
Tamany=20
Columnes<BR>ÂÂ PROPERTY lAllowColSwappingÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO Moure=20
Columnes<BR>ÂÂ PROPERTY =
lRecordSelectorÂÂÂÂ INIT=20
.F.<BR>ÂÂ PROPERTY nColDividerStyleÂÂÂ INIT=20
blLIGHTGRAY<BR>ÂÂ PROPERTY =
nRowDividerStyleÂÂÂ INIT=20
blLIGHTGRAY<BR>ÂÂ PROPERTY=20
nHeaderHeightÂÂÂÂ&nb sp;Â INIT =
19<BR>ÂÂ=20
PROPERTY =
nRowHeightÂÂÂÂÂ ÂÂÂÂ INIT=20
18<BR>ÂÂ PROPERTY =
nMarqueeStyleÂÂÂÂ&nb sp;Â=20
INIT bmHIGHLROW<BR>ÂÂ PROPERTY =
nClrSelFocusPaneÂÂÂ=20
INIT clActiveCaption<BR>ÂÂ PROPERTY lColDividerComplete INIT =
.F.<BR>ÂÂ PROPERTY=20
nClrSelPane  ; INIT=20
clInactiveCaption<BR>ÂÂ PROPERTY=20
nClrSelText  ; INIT=20
clInactiveCaptionText<BR>ÂÂ PROPERTY=20
=
lVScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsYES<BR>ÂÂ PROPERTY=20
=
lHScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsNO<BR>ÂÂ PROPERTY=20
nBorderStyleÂÂÂÂ&nbs p;ÂÂ INIT=20
bvSUNKEN</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ METHOD =
WMRButtonDown(=20
nWParam, nLParam )<BR>ÂÂ METHOD WMKeyDown( nKey, nFlags=20
)<BR>ENDCLASS<BR>*<BR>**<BR>METHOD WMRButtonDown( nWParam, nLParam ) =
CLASS=20
TBrowse<BR>ÂÂ local nPosX, nPosY</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ nPosX =
:=3D LoWord(=20
nLParam )<BR>ÂÂ nPosY :=3D HiWord( nLParam )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ =
::SelectCellFromPoint(=20
nPosX, nPosY )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
Super:WMRButtonDown(=20
nWParam, nLParam )<BR>*<BR>**<BR>METHOD WMKeyDown( nKey, nFlags ) =
CLASS=20
TBrowse</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ IF nKey =
=3D=3D VK_HOME=20
.and. GetKeyState( VK_CONTROL ) < =
0<BR>ÂÂÂÂÂ=20
RETURN Super:WMKeyDown( VK_HOME, nFlags )<BR>ÂÂ ElseIF nKey =
=3D=3D=20
VK_END .and. GetKeyState( VK_CONTROL ) <=20
0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( VK_END, =
nFlags=20
)<BR>ÂÂ ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( =
VK_CONTROL ) <=20
0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( 5000, =
nFlags=20
)<BR>ÂÂ ElseIF nKey =3D=3D VK_NEXT .and. GetKeyState( =
VK_CONTROL ) <=20
0<BR>ÂÂ ElseIF nKey =3D=3D =
VK_HOME<BR>ÂÂÂÂÂ=20
Super:GoLeftMost()<BR>ÂÂ ElseIF nKey =3D=3D=20
VK_END<BR>ÂÂÂÂÂ =
Super:GoRightMost()<BR>ÂÂ=20
ELSE<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( nKey, =
nFlags=20
)<BR>ÂÂ ENDIF</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
0<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Que lo utilizo para mi =
personalizaci=F3n del=20
Browse... YA lanza ese error</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Ignacio Ortiz de Z=FA=F1iga" =
<</FONT><A=20
href=3D"mailto:NoName@xailer.com"><FONT face=3DArial=20
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial size=3D2>> =
ha escrit al=20
missatge del grup de discussi=F3: </FONT><A=20
href=3D"mailto:453f11c8$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453f11c8$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Xevi,<BR>> <BR>> Me=20
puedes decir si el error lo puedes reproducir en alg=FAn ejemplo de =
los <BR>>=20
DataControls.<BR>> <BR>> Muchas gracias.<BR>> <BR>> -- =
<BR>>=20
Ignacio Ortiz de Z=FA=F1iga<BR>> </FONT><A =
href=3D"http://www.xailer.com"><FONT=20
face=3DArial size=3D2>http://www.xailer.com</FONT></A><BR><FONT =
face=3DArial=20
size=3D2>> "Xevi" <</FONT><A =
href=3D"mailto:xevicomas@gmail.com"><FONT=20
face=3DArial size=3D2>xevicomas@gmail.com</FONT></A><FONT face=3DArial =
size=3D2>>=20
escribi=F3 en el mensaje <BR>> </FONT><A=20
href=3D"news:453f0f30@news.xailer.com"><FONT face=3DArial=20
size=3D2>news:453f0f30@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>> Reconstruida mi aplicaci=F3n, y me marca =
error al pulsar=20
flecha abajo en un <BR>>> DBBrowse<BR>>><BR>>>=20
***************************** Registro de errores <BR>>>=20
=
*****************************<BR>>><BR>>>ÂÂÂ&n=
bsp;ÂÂÂÂÂ&n bsp;=20
Fecha:=20
=
25/10/2006<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ&nb=
sp;ÂÂ=20
Hora: 09:14:02<BR>>>ÂÂ Memoria libre:=20
587548<BR>>>ÂÂÂÂ Area actual:=20
3<BR>>><BR>>> ------------------------- Informaci=F3n del=20
<BR>>> compilador=20
--------------------------<BR>>><BR>>>Â Versi=F3n =
Xailer:=20
Xailer 1.1.1 Version 1.1a<BR> >>ÂÂÂÂ& ;nbsp;=20
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version:=20
7<BR>>> Compilador C/C++: Borland C++=20
5.5.1<BR> >>ÂÂÂÂ& ;nbsp; Plataforma: Windows XP =
Home=20
Edition 5.01.2600 Service Pack 2<BR>>><BR>>>=20
----------------------- Informaci=F3n detallada del <BR>>> error =
=
-----------------------<BR>>><BR> >>ÂÂÂÂ& ;n=
bsp;=20
Subsistema: BASE<BR>>> C=F3digo de error:=20
1004<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ =
Estado:=20
.F.<BR>>>ÂÂÂÂ Descripci=F3n: Scope Violation =
<HIDDEN><BR> >>ÂÂÂÂ& ;nbsp;Â =
Operaci=F3n:=20
_LKEYBOARD<BR> >>ÂÂÂÂ& ;nbsp;=20
=
Argumentos:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=20
Fichero:<BR>>> C=F3digo error SO: 0<BR>>><BR>>> Pila =
de=20
llamadas:<BR>>>Â (b)XDBBROWSE:XDBBROWSE =
(49)<BR>>>Â=20
TDBBROWSE:GODOWN (0)<BR>>>Â XBROWSE:WMKEYDOWN=20
(2263)<BR>>>Â TDBBROWSE:WMKEYDOWN (55)<BR>>>Â =
RUNFORM=20
(0)<BR>>>Â TAPPLICATION:RUN (206)<BR>>>Â MAIN=20
(24)<BR>>><BR>>> ------------------ Informaci=F3n =
detallada de =E1reas=20
de <BR>>> trabajo=20
=
------------------<BR>>><BR> >>ÂÂÂÂ& ;nbsp;&=
nbsp;ÂÂÂÂÂ=20
Area:=20
=
1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias: =
LINIESCOMPRES1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Registro:=20
2086<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ =
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
1<BR>>>ÂÂÂ Clave=20
activa:=20
=
1<BR>>><BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=
ÂÂÂ=20
Area:=20
=
2<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias: COMPR<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ =
Registro:=20
848<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
5<BR>>>ÂÂÂ Clave=20
activa: 5<BR>>><BR>>> "Ignacio Ortiz de Z=FA=F1iga" =
<</FONT><A=20
href=3D"mailto:NoName@xailer.com"><FONT face=3DArial=20
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial size=3D2>> =
ha escrit al=20
missatge del <BR>>> grup de discussi=F3: </FONT><A=20
href=3D"mailto:453e2ab2$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453e2ab2$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>>> Estimado usuario de=20
Xailer,<BR>>>><BR>>>> Ya est=E1 disponible la nueva =
versi=F3n de=20
Xailer 1.1a. Puede descargarla<BR>>>> directamente desde los=20
siguientes enlaces:<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT face=3DArial=20
size=3D2>http://www.xailer.com/files/xailer11.ex ... ><BR><FONT =
face=3DArial=20
size=3D2>>>><BR>>>> Un cordial=20
saludo,<BR>>>><BR>>>> [El equipo de=20
Xailer]<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>>=20
=
--------------------------------------------<BR>>>> <BR>>>&=
gt;=20
Dear Xailer user,<BR>>>><BR>>>> The new Xailer =
1.1a is=20
ready. You can download it from this<BR>>>>=20
links:<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT face=3DArial=20
size=3D2>http://www.xailer.com/files/xailer11.ex ... ><BR><FONT =
face=3DArial=20
size=3D2>>>><BR>>>> Best=20
regards,<BR>>>><BR>>>> [Xailer team]<BR>>>> =
</FONT><A href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>> <BR>>><BR>>> <BR>> =
<BR>></FONT> </BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_005B_01C6F81E.102C8BE0--
------=_NextPart_000_005A_01C6F81E.102C8BE0
Content-Type: application/octet-stream;
name="DBBrowse.rar"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="DBBrowse.rar"
UmFyIRoHAM+QcwAADQAAAAAAAAAOanQgkDEAYBkAAN1AAAACJXeiNwZQWTUd MwwAIAAAAERCQnJv
d3NlLm9iagDwdPBRFCGVUQyM0YAV2ir6ldroEgEgVp2gR0MEAgKQwY2MGFq7 sRYrSu4laSBxZLaF
aBIditNdDaCMGONlNgONjj6ZHG5B9Ej6vfY3H0Rxx/ByNyPMmPJHk1jjkzJM jk0JDeOTJM1j1JMm
PWGa3urSFfTvnKqrq1cJ7Pl78x6Squc5vt55zlcT5/ld/gmvP7e+ecvdeVXL q7+/Fz6FRhxsXCvL
26jbzf3TywsMKN1+He6zGQ7aoQyjN2EbCi3eBErHeq1VZsNZlNfIfQB7/9A0 oIO72EkGrD4N71vk
67o7zZXWNfXeFvCKl/S/wLyLixJOb7eZZv8TWX0l+sEuPSi9Jph9cTCu5WJj DWiepr/ZR04+stLE
xcHWXhGOhBCt2tbnw3l5ebDYTSWHFv+AZJ6JUhcD3Iglz4azUVTGMPuot748 KvgrEaDUZ7+ZKcC9
4Gs/qMvGvAkgu4t6shTKZPxw8TCH0jmWt9/UI72ZFeXyezKnoKHiRb/eD6Q8 De36jY1mS6mP5X8b
/9kUobFixU/XK96eWWjjuq6DBqIRL/Vg7EmdJ2atR11e914+yy4TrY6Xrh9+ u4GDinhtViGyf/0c
xzIzSd90yDSHCe7qEzdwHj0vd46hOmZv01eWNrAt4LOHYW1syL8aw31o+hQ2 xv2bHQ+fQIeT1rFg
xQP6+NrmbQdR1QNk7fNUG9CK8DnzXnMudJP2+dY0sPcWEPb29pD3Tp2/dSlE M6tcZQmraHBdWrqz
QmksKwlhXNtLWzcfrLBtoSGaWuoMvjnuX84Oy8OjoaU5SDt7ZwYW7Qp5qWKA 1rcybv7eztF02Xh9
bWlu/foUSe372R9NNQlrLMtbR7crpZ/CtX1muWy1bVDOJ9bB/Ad2SGdzChIl mAWK7xun6iGmqeFA
VIsybwLDcvXcIcTH7GwevYOYuJNdvAXY+zdbpCnzCDlnSRO5WCeHVhbTjfvZ yIzu3tZWVrcun0KP
hS7dE7NzPJi0t7OZhKanF3LKTL7eQ+u4EHCjXl7h4dtweBvI0XDQpFL17jXt 5i4l6ghyqnK2E2Qm
6eWCk83OSkOXisWHPd/QX3f67n199krm+yQtCwv92fsU3r8rlb/J1fcqim31 GJNv+5zg8PwjxiZ0
eHfjx9oK2nHh2g8ccHlQPDxR49Lnh4fjHi6z48LyqD6o8fdDPVY8Ov0Ify0w bzTh3taH8NQHV6kO
k1Q5Q8Lp2HMZQmPMpMr8bOXFXzNCXvpQ1FxoOZsQ2YOggBCDdhvgih1odiHa Bxw78PBDww+sHoB9
kPZD2g/xD9AcwPgD+AfGmvqME1j0oY9OI4DThXBXhtQeA+C5C6C7CMGIHBDt Q7cO6D6YeMHkh9gP
VD7YfhD/IPyhzQ/WH/Ac4VkM019VumsjPiOQ0Qa0NeHThYg/D5AQwiBfikOW zZloI9OUT2heXKCn
+dlb+2gnixTGA5gDPyZ4v3yYxJHwlSTsE548ee7yXr034wPw88IgewHYB7ke f0Jzjh/uH8E38arX
ta4YpY81AVgidegqf62O/zJvapv4ggBRql+8TelDCDZhxp5X9wL7xN8sPMD0 Q9gPYCKm/dTfaB8I
e0CGrHXMF5wTMPenNbkunYp6dC/ByXbpuuVx4qbeB8ueR/zE544k7Tf3ac+B PF/lB6Kc/aTn7qc+
2H4w/SHvh+yeV/8gYaxOGwzTBUhpA1gbANkG2BDwuyYcxAgym0Ln9MJWF+Vt xltGOdNcR1tkyCmb
osfq45gxzih2xW+VHPnhyw8gPND0w9YPbjnvB+4VjoCEn8cMcMdFM2wbgrsk 3jhjhj3xeST+PjJn
FAlHjhjhjhjxzHDHDH/tjkcx/yJnvB74GVf8U1kEr8gMgMipTKwCWeRMPZZG 2jhLfIDIDIDIDIDI
DIDIyTI5cc8i4Z5CZkencNMgMglfkfkuGuQGR79xQZAc0lXzabJKwCUfN2yZ BDdXDbmkm+aSX5vF
jhJPmhzfNTPWAkXzfeTCQagxTN5PSa3M9bghCDqgvQ6wMEOCHZBxw7kO/DxA 8sPOD1A+6Hth+MP9
Q/YH/Qk7maZa0Ybpk7j0gzUJzoA1QbENoD8LeeX/yo838ecMOKHJnkf3Sc96 nPgR5+oHmh6oevHn
78efxJz/pkz+lOf9g+IOcGaRGM+M6MNWJOsf089jvI8/Ini/dpzdpzwE54Qd sCHhV6gxSwwyMJcX
6dF6MLsYXIwt3QRap8WaCmHFeuG4HFauKEFhVjCpGFOMKUSHUFCuKIbWE+MJ 0cTa4ox1cUg2YTKU
fmo+aUbj4phebH7rCXY1xnE+uSs7k36dxT9DE6bdxPRK76et+EHih5QecHqB 9sPvh7gfpD4Q/5D4
wbV4xmxlyGlDVB0odQG2DciR+lpPY+6jzvJ4vjR5xI89iHah3QfSDyw9KeX/ qR5+4H3g9yPP58mf
fTn4gYa6elenLgNMFcGvEnU/0wzYJzuQuQ3odYGEGMHzA7YSpC6V36tIx52J 6aHELiFN9lURtV+u
1R5/FYxKNDf0O6W5NqQDKJv20JWxRsMFjasCM5QXGlFIszHO/bxnl3iXdte4 koTLcIdw2LeJFaZq
QVJBew3cbgYMZDwm///ROqgfh90jcZ5P7n3PNxnxzUzRPo+nA3jXFUm+iH4n 0UE2cj+ZhMi3mKgi
VHgXuAUNcGhfJMFYmNbt2bj1okQ0Pzf42IxF0l5Z4e+tI23v4uJe4WXmCGYJ WQuiiusXEjQMKIRG
3OQycFJFe8VL2hp9JNUWp5/kUSc3kkG+VTrMU3b4LWSZsDMG4tuJQxYGBPkt DmMeyveDYRruVYni
iHLYj+Whe9Yvi0h2KzSNAdwKB3hXt2XJmRW2akt4tNJHgs5IqVXEabcUWE3A 9/TLGjqYEUOo6oVs
HNg+wMMboh3nUaMba2MaFGwUN3Tnzbo0mVZpCGwkBlLVUppwbipiGJiRuBNL KUfCoWaJNZKjqmHe
eXQkG7317bksdUgbMJI+I2czNc2dD1EFi4ZRHyOcWTEjbDBYLJvPqoOiHTyN 1+BKF1I/muhKkWTQ
GYTPKOTNKrrnDhwLoBSirrR29c0iOdEMmMyquEufVS0Cjzni06e+iVv2r7De xt7IioHbkcWA1nh3
Vi28ho3WWd3hEjc+O9ABU32hRxqR3oVjQsB3GxSyyRXEdnpp0aNUDaBgKUBG qVjS68A2R7BZSgNI
qQUQ0rPmfI9KLoBVt1l+dB5oXXKXJiXoxbUUZ2MyhFABqbJWmHD0e8daddr1 HqTKSaq4MbDOS1q7
aTX3T7ahcjmxQ6EjNTOO6aYafS8Pcp1XKxobWcbrr00SIvRLSD1YuiNhKxCi uVsXWTaIDQoi1ae9
aLbm0R4V7jFLnQLYaIuhGri7i4pAD6Ed16yueW1pd9df744IFYnvXLNPc2cG 7vzUH6JPevVrpzUi
n9hik02ApXhVoNBEdHlWkVykQ2UNnDaZKaLVy7AXSuom/xcPEIGS5v4mJfSn NKLOJ10yzbEMIqJt
F6OPvZAWItqdRWi2L1AvMjfxdMtj7ObEWNhEb6cWjWmvZeWWNQOu/i6mIt70 bCCwi6oteXg0rnOo
1xryY9F1ZXGCxwKDLWV0jBhvYLHjXSCNad/GIjDBYFpDxdZKG1p7iUK8k9LR yRKyrdGISgyY/QFM
ONfLALkBlhlpwV64mLm5UReuPbTpyJ0ixArfloNsnziuSZmKpuIoX55JoON+ wUK0mxmPYRMtsTaO
OvWl1lJmUYimXG4Jsds5ziTA2zs2AkNlL4l2ypEelOXMsFQNs7jshTPjdmYP XMmTMRiGxG2Y6I6Z
EaMTv53Irphsidic/2syFuvBClfTsDzgDU6BRRZzukLM8zcdI9Ou4xas8Sao vDQR2Q/wdN0o9uoH
wPPvz1ITNeIwIS1ijszV+lQFBZShJkxYGwKP2aPPUlRnkmqugIVtQmcU5SL2 k7R6R1RipreeyK6k
YdD9qcTajgtOTOEtNsu3pIahhsZqe/Kgi6H/bAe7sfI8HvhQReLwSYjeGqoG IwxG9WI9XtkaNIbA
ibOkptvOw6fONUW1rsTrlYqTSeqJGxzOY+mhsprJMmCO4Ht8oftrRR0vUFMp 9mWCmeUCO5XKjzOo
UdyM5o59TFtmbJVcSc5pLNqWWRmfp5yeGhYIvx/2zHvZjCNofLwZVUZ5Otz5 4+lYHT7TGyaRgHzp
vHPRkDDBL3O1BJ35CCOtPhKNW0Gkmx69rJJurhkzErehXK4h1WdDn9qRG1Pf 5ZIXpzSFAu2K3jGw
s2dIU66IrkqiU6rabSz6tLPTTzPjagA1TUroOrnGx0A9qxGvPAuUVpEtESAz 5bNaEqkNIug+jOw9
ajbiKiZERKDXamLcREbk9xRsKvvEEtVF3QrdqjKwW6VdxKEtB6hht9GVb+rV wcvsO1S1mYE/Zlrc
dUQhKPyZlPHOmkUbo1v+wN+xtJmLlrdFumuCbDr0flBNRpxr9cjWnFKfchLX 8Mlq45FVWsEulUYC
Lul2n0dXTSH2Kto7F9MjDL6e6QUX1adeWsLi8DAQ47B5V+fMQ6eL1ZNHBaFq 0XcljTf5zdOnz97a
7Kc1bjMj1CO8LFuj0lbNG8MU7Z9gXkbCwr28xKxT6/axRM1mJMDva6sw76Ni xYlZvJDWV/gRIG9r
dPOr7T6isOl9ojEMi26l7spCRb2JF3sSXrMGyncGIepR30hL40R2hrW2RvzQ xKi7RJOou/iR9SVl
UNYFDVW2347EoTbcaquZ/4k+mz3si+V9zTPjamHWKwueFSy/XoOgDSumz27B GKtl/0CTCLwJbcwp
GMgjfzdWkqBWLilSZdiX/kdpM+IyL90E4IT9GcQTgUjgrAbK3y2hmRgzG/JY KkERtUaGhR60/vt3
NBJ2Wj6WZbXK4jmpSaGqzYi2I7bI4R7MxfpUm+ThU4xj7AeUvhrBJRwn7Yjd GZRUpQckSaC8xamR
xFxM86qgirMp25UY1COKscZ+GyJ3+wL5QOuUBNl9VjeL15pGrRkpTx0xhcxC Ak4NccFXaWuaJKqi
8KJToOKZJzF+WtgU7As6/YKy80KjaqADOTt5WHYNuNaJOujR4c0aoqrPHZ+J vykhWmdJmFWW/g6S
aQs8ZvL+ZhqcaYc4r0q5fajsRZPNq+gRDOa61eIni7sv7+hbw0s0p3ES6Q8E HaWvWbzxJQkhel6E
oNiPHxWZGWzhtCbTaK7PVMO9fUryzdLwBdiUlAekXjMUeIJN+J2RzybSEccL sEmjczG9jN3VtE+R
4qtHHVFoldkY+YHpRoEfmLake2Kl6Ggrb37XdPYl+YCAtnE3R7ObfnNo5RI9 pmbtKlMwOcR4yze0
6NipSmyIe1JWJxtIvPo9qVmJjGD5qVIpuEeMs9NUZDVaPbTmsG2Kh7j5iEmi R7KbXJpFlOzL6luQ
p7NUujxoMobTru71KVaPnUJagcKa5GdS1S7uKKPWjamj2ijtC9+EjyT49ea6 13EaENS0htdGWxa6
RVj4bNs5bpa9vLHcVSWxUNJLODIRm4oUtlwyMXH4EtmomGagmHbrQ72sOgLY DbYqCkfmzX1JDWCP
cGLjiXO5yI23R3JybLO4R7kbLaZvkeUXsj3U34oX68RYbY1xaLx2gnpgOI17 zFH5ymkcQandq+rO
GZur9JqbZxs+EoEa7PiVGho0e8P68LSGDNbhILuRshgaRHlLGVMj3C3tmzPa zG84q87MdVX71ABq
xqW1FYcJtV/tQSzx1sqpjGdSjtp5eS3k1M0cGgqzHStJUfSqcjmbPYLM7WQ2 hUU6JGxUuJK9I3ht
eG153O4NKbbJlLFmbiF8rNLPmJaY7eGnMeelac3h0BvfUrqQ7o1yz+55LVja Pent3TFgpSFNfvXD
LCWhr5mkk5aEJbZC6ZTFKv3CBdmxgKL+xGtlPOts0eSo4sn+0XdDaifzuZQp bYzyuP1JOzulF76I
qek7XCoz7Al7OO7YjMo3cq0K2S7kWZ3nO2TkvsKcN0e6mysgTzyOWiVq3IqL JDQPiyLNqviMEoTe
bMg2o6pN7by7JVvfjbneJW6Pz1HZmA3DeL9A+xLlFygaFzt0rk3HMszwL3U9 Bvdo0qrX9VPOT8lH
wBd0aKnVr0N7wtz2xyVwErxSnlRzM+Y0mwsaaQpv3p4hI8mbjuKRKKj9Faub AHEZehTBHXgjfFUF
Tu0sNZ6ZQOInjrlzbr+gUl8HMwI6JLhTXt+XNd3sBrirwh7JfJLVdyyS7NWR jYQqIKv3UEuMn8Kn
FIa454I1fmSL5E7BLNjXJF8Kljnbj0zY1aJd2N3XOMWd4j4Q2j9I/ivR+mp5 Le596jyFMJSQ5wBt
KhpCEL75HlmSnIXkN9BeC/gZiJ3OOpfBXjx9Oce3yGKXhj10lX+YV4s7lf8Z OvHkWVAvkCi0ffKh
tuC0IFvyxz5g19adgRJIfdqedF8OJlqjYG8NBUpDbJfXXD188PQGEvRXEx9I fjjZpfZXMvUGftLw
C9UeijFVXqsEvWncs1LV/nmVfcHp64194b9kP7ugOj/fKDbGrrqE02VkArNy v0bm0S9o7uq4Bi//
BdsPwTkMfwrtZ7fQKx/xGYr3Fzr3Z56/yjj/MfH25jP5yepoK1qX6D5EmQ6Z Fu6/eRtla+S+6X9U
5Qb4EmuOI2FUyXNmklV2chvgEbioKXwqgX9ql+tuj4hviBIJKL4sS6oqNgSa /YQrMThG+JRx7yX7
Udqcgo0v3FmEiSFlF8hL4l15qkv3klqEVLF/ij4ydyEmH/yTKIVSJfGjbKv9 pfeZG1kGR+A/99kv
wFe2SYK2JaDFHtjK4vvqkg48fRfCL9Sc4CguFrNgw2J2JalwJDaex6I/xPsj 8B5/3KG7w+7S4WkX
3KM3gTmqonbJWSEon5yu+8bo92r60SPJGy2xdGjYqezRKki/VNt5M0bQ2ZLc N80Vx5TueLYF7Q+C
j3R7qvU3H1kqWqADVuSs9F8cyHqV0zVN4bObpvshx0XDZjegGmSrKSVHTFYc +U2oejPwPmkR7db6
ItMjyprR1q74Hw9SapHSLwArj7TI8Oa9nF8goylQjrik/5JyNy2SY8NjLGSa RdYph0CTU0U25vl5
IUtMZuJJKIsvzMuFDZlGigV3ovEaUMyenR8pbhP60Uj5crzzEFboswP/wbWt seLQmgfUo5tSDTVJ
xxKAuS/quFF/+xFn/a0bGvLPG5VdTtUqtWkBuloB3yC4U9twZWLlLRninPn6 nCrUBt3VqktMWw5K
ZH1jsVIwmA05zTBQV3c2p4dAJ7ZbQTaTkh6Ab1q8XoZ4n1/DM+vSI+afaymu dgvyyuAzR86bv8mP
VspOrk+7I5Pbm40yQxcBnJD9ckbu86gwL/mMkHnhzjF7U2XqpKr/663FdUCP oCH4Y9u49b5pSCYT
fuk7NmOaZX66FOepnPuq9E92T4NTfLT6SxCQCFArZKbecKdX2F+BRNkUmL8H RlU/SG+DAvlFpefl
RBTb9rWPHts7Q8eSHOo+ev9YZcQ456ZKnzD25tKoXb3POP3Cs+a2wUhifjQD /AR0RNRi+mUCaBbp
hKBdRzV6pfOdUmdPHkGSGC9tYW7QmlpdPFLqzxeDEFnbv4T41s9iQe4gPJwr d2r2RT2cuNuKnbRG
buA/j5fWlsNFf5Zf5VJXYwIUsFCAsscvWEgJA2a5koANXQzFCGSH6tbKGsnx chQ/snu7kwmGPMw3
72ynVjlcDb5i3YBl2BZWcoGdMiSlpAzNtRak2z24e2kKcw7OBcJqBBnrmfcS Gdrl7RnuLrmk9dXD
p/bvZ27trQU+sczGIv557p8TBm/neW5Ka0eSGtEFet0zse9zb20Io23L55C3 GZnBt3z+Una5m7dS
jIEC1eZm+kBKoVnJuJykA3XQVOucc9Kxa27uT21dy/36C/XPz9c2282bs5S0 /Kne0I7tbFVi1vBq
QJ3rr6tIatHMqxSjFaO5rasbZyPEBSh8/6y2agA34pQVl/JrJrJ1k0rQFK7d lPg9NM27kcpQdkh8
BSzDVvT4qkB5vpIsuv7P1IbF/E0Xf+HAm1qyMNcc9J77bcSsigxLNgv3RIJ+ UY5yC83sKro+GZNu
k09fvDE+4lRmli7VPbR1ZvSX7p++sbTLJpOQt3BkCeeJGKnYApK7J9aPDQUV 7EjDtrewtt3bSr7M
vYq4rV8Ut4ZgnMswYT6ZKhDMBO6P7H7DcXYrJKZVKC/YqDvRHtCc7FVuHUq2 XshaEtHu6QV7Fet2
KZSvU5tYnoZtFX6fqebB1lqAhy/IYkO4rhOySUlZUfTM4UGUOhDnDR26tJ2H WS1Lo7YO7O2sbSAq
Rq9kFV7H47l0SrlcOxWyUS9ZID5+CyAFFkpqOzgyktT+YalqApYUc+QZ88EN YjV8PLV1cnD4jqC8
L0sjUQznvaGiEaiLLJv29NXiq9sK5kiLLZCkOX8lZbFJo7i2dldZathDQMVq aKA7uSCUk+hIHXJ6
lTF1qdGl2dxcT6UtBmNy8CoTnezznPTMiqorECzO7h6+sdwUV4EAFrD61toS rgIQ13KLtErwmLNk
OnK9ndva8+OGSoGiv2jKc7RTO9ogflmjIKUn6KauWJfCuQEmZNG9QOuYNAMj lcIu0lGYpTDlrK+d
u/XDxhyXqFjt/KjskDh7SUH8Kft2NKUenyx1pu5mTLCyIyK1CC3dFsHC3yCH LoUC5ehTrDfhNEOY
xhMEOSX/omf+oMQ9ewBABwA=
------=_NextPart_000_005A_01C6F81E.102C8BE0--
Attached files DBBrowse.rar (6.4 KB)Â
Nueva versi
This is a multi-part message in MIME format.
------=_NextPart_000_001A_01C6F820.511AF180
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_001B_01C6F820.511AF180"
------=_NextPart_001_001B_01C6F820.511AF180
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Ignacio,
He sustituido el m=F3dulo DBBrowse de la LIB..
C:XailerBorlandbcc55bintlib C:XailerLibxailer -+DBBrowse
me temo que sigue fallando.
Te adjnto el proyecto DbfData1 que es con el que estoy probando.
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del grup de discussi=F3: 453f1c66$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,=20
Me temo que tenemos un peque=F1o problema en el control del =E1mbito =
del motor OOP de XHarbour, ya que reporta errores de =E1mbito donde no =
deber=EDa haberlos. En tu caso reporta un mal uso de la propiedad =
lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo reproduzco =
aqu=ED mismo:
METHOD GoDown( lKeyBoard ) INLINE iif( lKeyBoard !=3D nil, =
::lKeyBoard :=3D lKeyBoard, ), ::oDataSet:nSkip( 1 )
La data lKeyBoard est=E1 declarada en esa MISMA clase con =E1mbito =
PRIVATE, y por lo tanto es perfectamente v=E1lido acceder a ella desde =
la propia clase (faltar=EDa m=E1s).=20
Si te fijas el m=E9todo GoDown() es un code-block y es ah=ED donde =
xHarbour falla, ya que no es capaz de resolver el =E1mbito cuando se =
encuentra dentro de un code-block. Este problema ha sido resuelto en =
Harbour recientemente, pero no as=ED en xHarbour. Hasta ahora hemos =
estado modificando los =E1mbitos de PRIVATE a PROTECTED cada vez que un =
usuario nos reportaba un problema como este y saliamos del paso. De =
hecho te mando un OBJ modificado con esa misma modificaci=F3n que espero =
que te funcione.=20
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje =
news:[email=453f15f6@news.xailer.com...]453f15f6@news.xailer.com...[/email]
Ignacio,
Si cojes el Sample DbfData1, y le a=F1ades...
*
**
=
//---------------------------------------------------------- -------------=
-------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO =
Mostrar/Ocultar Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de =
Tamany Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX :=3D LoWord( nLParam )
nPosY :=3D HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey =3D=3D VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey =3D=3D VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey =3D=3D VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey =3D=3D VK_HOME
Super:GoLeftMost()
ElseIF nKey =3D=3D VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalizaci=F3n del Browse... YA lanza ese =
error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del grup de discussi=F3: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>=20
> Me puedes decir si el error lo puedes reproducir en alg=FAn =
ejemplo de los=20
> DataControls.
>=20
> Muchas gracias.
>=20
> --=20
> Ignacio Ortiz de Z=FA=F1iga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje=20
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicaci=F3n, y me marca error al pulsar flecha =
abajo en un=20
>> DBBrowse
>>
>> ***************************** Registro de errores=20
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Informaci=F3n del=20
>> compilador --------------------------
>>
>> Versi=F3n Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode =
Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Informaci=F3n detallada del=20
>> error -----------------------
>>
>> Subsistema: BASE
>> C=F3digo de error: 1004
>> Estado: .F.
>> Descripci=F3n: Scope Violation <HIDDEN>
>> Operaci=F3n: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> C=F3digo error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Informaci=F3n detallada de =E1reas de=20
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del=20
>> grup de discussi=F3: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya est=E1 disponible la nueva versi=F3n de Xailer 1.1a. Puede =
descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>=20
>=20
>
------=_NextPart_001_001B_01C6F820.511AF180
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#c0c0c0>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>He sustituido el m=F3dulo DBBrowse de =
la=20
LIB..</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>C:XailerBorlandbcc55bintlib=20
C:XailerLibxailer -+DBBrowse<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>me temo que sigue =
fallando.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Te adjnto el proyecto DbfData1 que es =
con el que=20
estoy probando.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> ha escrit =
al=20
missatge del grup de discussi=F3: <A=20
=
href=3D"mailto:453f1c66$1@news.xailer.com">453f1c66$1@news.xailer.com</A>=
....</DIV>
<DIV><FONT face=3DArial size=3D2>Xevi, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Me temo que tenemos un peque=F1o =
problema en el=20
control del =E1mbito del motor OOP de XHarbour, ya que =
reportaÂerrores=20
deÂ=E1mbito donde no deber=EDa haberlos. En tu caso reporta un =
mal uso de la=20
propiedad lKeyBoard en el metodo GoDown de la clase TDBBrowse que te =
lo=20
reproduzco aqu=ED mismo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD GoDown( lKeyBoard )Â =
INLINE iif(=20
lKeyBoard !=3D nil, ::lKeyBoard :=3D lKeyBoard, ), ::oDataSet:nSkip( 1 =
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La data lKeyBoard est=E1 declarada en =
esa MISMA=20
clase con =E1mbito PRIVATE, y por lo tanto es perfectamente v=E1lido =
acceder a=20
ella desde la propia clase (faltar=EDa m=E1s). </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si te fijas el m=E9todo GoDown() es =
un code-block y=20
es ah=ED donde xHarbour falla, ya que no es capaz de resolver el =
=E1mbito cuando=20
se encuentra dentro de un code-block. Este problema ha sido resuelto =
en=20
Harbour recientemente, pero no as=ED en xHarbour. Hasta ahora hemos =
estado=20
modificando los =E1mbitos de PRIVATEÂa PROTECTED cada vez que un =
usuario=20
nos reportaba un problema como este y saliamos del paso. De hecho te =
mando un=20
OBJ modificado con esa misma modificaci=F3n que espero que te =
funcione.=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@gmail.com">xevicomas@gmail.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:453f15f6@news.xailer.com">news:453f15f6@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si cojes el Sample DbfData1, y le=20
a=F1ades...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
=
size=3D1>*<BR>**<BR>//---------------------------------------------------=
---------------------------<BR>CLASS=20
TBrowse FROM xBrowse<BR>PUBLISHED:<BR>ÂÂ PROPERTY=20
lAllowColHidingÂÂÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO =
Mostrar/Ocultar=20
Columnes<BR>ÂÂ PROPERTY =
lAllowColSizingÂÂÂÂ=20
INIT .F.ÂÂÂÂÂ&nb sp;ÂÂ //NO Canvi =
de=20
Tamany Columnes<BR>ÂÂ PROPERTY =
lAllowColSwappingÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO Moure=20
Columnes<BR>ÂÂ PROPERTY =
lRecordSelectorÂÂÂÂ=20
INIT .F.<BR>ÂÂ PROPERTY nColDividerStyleÂÂÂ =
INIT=20
blLIGHTGRAY<BR>ÂÂ PROPERTY =
nRowDividerStyleÂÂÂ INIT=20
blLIGHTGRAY<BR>ÂÂ PROPERTY=20
nHeaderHeightÂÂÂÂ&nb sp;Â INIT =
19<BR>ÂÂ=20
PROPERTY =
nRowHeightÂÂÂÂÂ ÂÂÂÂ=20
INIT 18<BR>ÂÂ PROPERTY=20
nMarqueeStyleÂÂÂÂ&nb sp;Â INIT=20
bmHIGHLROW<BR>ÂÂ PROPERTY =
nClrSelFocusPaneÂÂÂ INIT=20
clActiveCaption<BR>ÂÂ PROPERTY lColDividerComplete INIT=20
.F.<BR>ÂÂ PROPERTY=20
nClrSelPane  ; INIT=20
clInactiveCaption<BR>ÂÂ PROPERTY=20
nClrSelText  ; INIT=20
clInactiveCaptionText<BR>ÂÂ PROPERTY=20
=
lVScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsYES<BR>ÂÂ PROPERTY=20
=
lHScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsNO<BR>ÂÂ PROPERTY=20
nBorderStyleÂÂÂÂ&nbs p;ÂÂ INIT=20
bvSUNKEN</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ METHOD =
WMRButtonDown( nWParam, nLParam )<BR>ÂÂ METHOD WMKeyDown( =
nKey,=20
nFlags )<BR>ENDCLASS<BR>*<BR>**<BR>METHOD WMRButtonDown( nWParam, =
nLParam )=20
CLASS TBrowse<BR>ÂÂ local nPosX, nPosY</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ nPosX =
:=3D LoWord(=20
nLParam )<BR>ÂÂ nPosY :=3D HiWord( nLParam )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ=20
::SelectCellFromPoint( nPosX, nPosY )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
Super:WMRButtonDown(=20
nWParam, nLParam )<BR>*<BR>**<BR>METHOD WMKeyDown( nKey, nFlags ) =
CLASS=20
TBrowse</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ IF =
nKey =3D=3D VK_HOME=20
.and. GetKeyState( VK_CONTROL ) < =
0<BR>ÂÂÂÂÂ=20
RETURN Super:WMKeyDown( VK_HOME, nFlags )<BR>ÂÂ ElseIF =
nKey =3D=3D=20
VK_END .and. GetKeyState( VK_CONTROL ) <=20
0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( VK_END, =
nFlags=20
)<BR>ÂÂ ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( =
VK_CONTROL )=20
< 0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( =
5000,=20
nFlags )<BR>ÂÂ ElseIF nKey =3D=3D VK_NEXT .and. =
GetKeyState(=20
VK_CONTROL ) < 0<BR>ÂÂ ElseIF nKey =3D=3D=20
VK_HOME<BR>ÂÂÂÂÂ =
Super:GoLeftMost()<BR>ÂÂ=20
ElseIF nKey =3D=3D VK_END<BR>ÂÂÂÂÂ=20
Super:GoRightMost()<BR>ÂÂ =
ELSE<BR>ÂÂÂÂÂ=20
RETURN Super:WMKeyDown( nKey, nFlags )<BR>ÂÂ =
ENDIF</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
0<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Que lo utilizo para mi =
personalizaci=F3n del=20
Browse... YA lanza ese error</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Ignacio Ortiz de Z=FA=F1iga" =
<</FONT><A=20
href=3D"mailto:NoName@xailer.com"><FONT face=3DArial=20
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial =
size=3D2>> ha escrit al=20
missatge del grup de discussi=F3: </FONT><A=20
href=3D"mailto:453f11c8$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453f11c8$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Xevi,<BR>> <BR>>=20
Me puedes decir si el error lo puedes reproducir en alg=FAn ejemplo =
de los=20
<BR>> DataControls.<BR>> <BR>> Muchas gracias.<BR>> =
<BR>> --=20
<BR>> Ignacio Ortiz de Z=FA=F1iga<BR>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial =
size=3D2>>=20
"Xevi" <</FONT><A href=3D"mailto:xevicomas@gmail.com"><FONT =
face=3DArial=20
size=3D2>xevicomas@gmail.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3=20
en el mensaje <BR>> </FONT><A =
href=3D"news:453f0f30@news.xailer.com"><FONT=20
face=3DArial size=3D2>news:453f0f30@news.xailer.com</FONT></A><FONT =
face=3DArial=20
size=3D2>...<BR>>> Reconstruida mi aplicaci=F3n, y me marca =
error al=20
pulsar flecha abajo en un <BR>>> =
DBBrowse<BR>>><BR>>>=20
***************************** Registro de errores <BR>>>=20
=
*****************************<BR>>><BR>>>ÂÂÂ&n=
bsp;ÂÂÂÂÂ&n bsp;=20
Fecha:=20
=
25/10/2006<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ&nb=
sp;ÂÂ=20
Hora: 09:14:02<BR>>>ÂÂ Memoria libre:=20
587548<BR>>>ÂÂÂÂ Area actual:=20
3<BR>>><BR>>> ------------------------- Informaci=F3n =
del=20
<BR>>> compilador=20
--------------------------<BR>>><BR>>>Â Versi=F3n =
Xailer:=20
Xailer 1.1.1 Version 1.1a<BR> >>ÂÂÂÂ& ;nbsp;=20
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version:=20
7<BR>>> Compilador C/C++: Borland C++=20
5.5.1<BR> >>ÂÂÂÂ& ;nbsp; Plataforma: Windows =
XP Home=20
Edition 5.01.2600 Service Pack 2<BR>>><BR>>>=20
----------------------- Informaci=F3n detallada del <BR>>> =
error=20
=
-----------------------<BR>>><BR> >>ÂÂÂÂ& ;n=
bsp;=20
Subsistema: BASE<BR>>> C=F3digo de error:=20
=
1004<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Estado: .F.<BR>>>ÂÂÂÂ Descripci=F3n: Scope =
Violation=20
<HIDDEN><BR> >>ÂÂÂÂ& ;nbsp;Â =
Operaci=F3n:=20
_LKEYBOARD<BR> >>ÂÂÂÂ& ;nbsp;=20
=
Argumentos:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=20
Fichero:<BR>>> C=F3digo error SO: 0<BR>>><BR>>> =
Pila de=20
llamadas:<BR>>>Â (b)XDBBROWSE:XDBBROWSE =
(49)<BR>>>Â=20
TDBBROWSE:GODOWN (0)<BR>>>Â XBROWSE:WMKEYDOWN=20
(2263)<BR>>>Â TDBBROWSE:WMKEYDOWN (55)<BR>>>Â =
RUNFORM=20
(0)<BR>>>Â TAPPLICATION:RUN (206)<BR>>>Â MAIN=20
(24)<BR>>><BR>>> ------------------ Informaci=F3n =
detallada de=20
=E1reas de <BR>>> trabajo=20
=
------------------<BR>>><BR> >>ÂÂÂÂ& ;nbsp;&=
nbsp;ÂÂÂÂÂ=20
Area:=20
=
1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias: =
LINIESCOMPRES1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Registro:=20
=
2086<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
1<BR>>>ÂÂÂ=20
Clave activa:=20
=
1<BR>>><BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=
ÂÂÂ=20
Area:=20
=
2<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias: COMPR<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ =
Registro:=20
=
848<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
5<BR>>>ÂÂÂ=20
Clave activa: 5<BR>>><BR>>> "Ignacio Ortiz de =
Z=FA=F1iga"=20
<</FONT><A href=3D"mailto:NoName@xailer.com"><FONT face=3DArial=20
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial =
size=3D2>> ha escrit al=20
missatge del <BR>>> grup de discussi=F3: </FONT><A=20
href=3D"mailto:453e2ab2$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453e2ab2$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>>> Estimado usuario de=20
Xailer,<BR>>>><BR>>>> Ya est=E1 disponible la =
nueva versi=F3n=20
de Xailer 1.1a. Puede descargarla<BR>>>> directamente desde =
los=20
siguientes enlaces:<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT face=3DArial =
=
size=3D2>http://www.xailer.com/files/xailer11.ex ... R><FONT=20
face=3DArial size=3D2>>>><BR>>>> Un cordial=20
saludo,<BR>>>><BR>>>> [El equipo de=20
Xailer]<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>>=20
=
--------------------------------------------<BR>>>> <BR>>>&=
gt;=20
Dear Xailer user,<BR>>>><BR>>>> The new =
Xailer 1.1a=20
is ready. You can download it from this<BR>>>>=20
links:<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT face=3DArial =
=
size=3D2>http://www.xailer.com/files/xailer11.ex ... R><FONT=20
face=3DArial size=3D2>>>><BR>>>> Best=20
regards,<BR>>>><BR>>>> [Xailer =
team]<BR>>>>=20
</FONT><A href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>> <BR>>><BR>>> =
<BR>>=20
<BR>></FONT> </BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_001B_01C6F820.511AF180--
------=_NextPart_000_001A_01C6F820.511AF180
Content-Type: application/octet-stream;
name="prueba.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="prueba.zip"
UEsDBBQAAgAIAIyE5TSc5g9HxgAAABsBAAARAAAAU291cmNlL3BydWViYS5w cmddjs2KwjAQx++F
vsNQL60H2y2eAnsQxJsi6sFrnA7bgZiEMUF8bl/AJnpYvAzMj/9XOy8LmMNe 3IMwOJW/DeNI4hR4
iXTRCy9/ma/phsIe+WkVbJ9DNA4GArJB9KBBg5mON4w6SbJlFYOTTyrhqBX0 Xdv1bd91y0TbsiiL
GVs0cUqqzpoNyQLHKvFpFdIQhWCr2dZNYgCw8rkjsLMKTxwMgfqF6j22ypLT xsn1p27Uju71fwM0
6ji6e8r6SjrET8OBQpRp/QtQSwMEFAACAAgALlNZNQ+85DARAwAALQsAABAA AABTb3VyY2UvRm9y
bTEucHJnvVZdc5pAFH13xv9wS1+MSdWYpG2Y6YMuMNIqOLJO+rrCGpki6yzQ mDb91f0DXT40KEvy
UoMvePfcc++5H0C33WxAG6acPVI3ZipseEIXJDMavruiXNgMxteXnQ2/z8wa jVzub1z/b6hmhkES
M57fGtRdERX6vW6v3+33eteptdtsNBvv/dANEo+C8p34AeUdd6WkdjQeOA7g LAQYM3uS36dHAIDs
ydS2dAsDQ95WIzFxWMJdenl8OkzimIUVs7ZYZk40rhyNyYIGVYeh7vk14L4c XGO+knJcycHXUrDc
elOlmNA1k+f8sQpGbL1gQ7aVaEcr6v6QH8nLlVk/1cfoSx0+1zvIq3ZbdRBt pVPf/UG5JNkhZw8R
rT9ALEjW1WnJ5C+k8g8c+8V0TnQ8sjVAnIpk0qltnQkvy8GzOcL2rIwp5hMF IuUWMIeGHuVwVoaU
OpMz1uDSQGboxz4J/F91oL0UtCLh/SGq2dAtLdu7w8XM13y7XGeL2e1++K9X yvlyMaD8LChKbC7h
naqW91gN7DBdmVauV1zZedEgNdBDsgioB+oX6Cw7B5hnjgpBkZLqYrqNU19l vvFED5QDguzZoAoG
g7lJVBDQIKI1YXKOVwKlpMrrWuKOFDOjS06jFUo4p2FdUY4y1kPPX6YFnul4 PrPA8oMTd/yl2Za1
vThUiRnTdZTqP6qsQ35SzAack8cWKFGctiqf7dNr2quq3USZJEfHoE9tNAJs w+XtTa+wHwkbeB4i
gWv4NPCEMsOcOViQYeUCfj+xJ/FS5lE8JlEswolAf95KtIMH2ERgzC2ETds6 yCNNPks4T0aIGtto
MIZsxgvLnYlHYA+/6giXHFRWCN+N7X4tMPfXLVCzMC3wIsPUx5oQfAbnoIjf +Q6R51AC5CNuaVnI
UnH22Zxwzusfu7KROFx2ww9iyoeEp/J3CxBkjNR7myaLj8F2+xTUhfhca/6Z t83/NBvT+XBsOiNd
U8svsLvJN/qosYewBaG4u4DQCMh9lLb3+e1V5PuaCxyE341aUU4n2Yg6vxCu wIl9/QdQSwMEFAAC
AAgALlNZNULMMiE1BgAAJSEAABAAAABTb3VyY2UvRm9ybTEueGZt5Vltb+I4 EP6+0v4HK7q7bbUV
giTQUOk+hCS0rHgTyaq39y0NLlg1MQqm0Dvdfz/bScgLEEjQch9OKmpsz9jz PGNPxpOB5TyNTGAE
0KWwS4LFzS0w+rptA4e3Gp8/ff4EALDXSxg8pKVE98ODDWmHrP3p6gYoqnwH Gm3lDjQV9tS810As
5TlwS8HD70ByTJe6BvFpQPAK2O5iiaEUSZEu6+dSDn+4uY3WuwHSwGaiPpOH AXqV7oB2B+p3QK3X
dyv4BkbQp89oSud8iqasZkeeIJrNxexNdTc0QH6i0WilulPiSjvqH/k9H1Hk YvQXFGA4E0lXDCOy
+jai7rnnPIFR55tlOByjMd1yCmyyDjzYEGgzXQz2EG5uGFT8GqHjs3qMMx96 IYm1mrQbSFZjLWto
Hl7VfHkVS0AaLpm0j603dBchSG+9omQBg9r05TVZliQWc6k9YMlE44B4cLUS cz1aQ2ui95Np8GgJ
fT5Uc2olIfXdF4hDNOLxCJDUBm207oCssh/bog01DXa3PbsoWNGH0ux2rCmK me0M3NUbb582qMU2
scx+isotq6eE/IG77UN/Fm5NuZ7jHdKI9JRfsyJdBPE0hNSb2I5UhVy5LLmq FhJ8hNy+W5lbOeL2
fF5V9SfzyoKkUw2MUhpMSzsNRrkEjO1MLKvaLlHK7pI2x9E4uksMRD8q7hK1 NLFt+ScTa/ScH5Vo
VcvSes+hyEdptWkAYfnjJwxolrWlIaLa8TA7gAtSwcdcbRdl2fN5Pm5wi4ST W3JKqrwvhyPHsisR
2CpNoMZDabvAm2zpCgwaZPFCOmQbsxi3z2RS2wXVRvq4mAFZLuF0l0oxkYti ke5YCbSRH4ITYykE
YW9ZCjprSokfwg+fT0NXhUfYT+Pv6+ZBh/CQk7EZI+9NjEQrio4KDptD7y3t sKh9jtVy+OLQxH46
fA7dIEBwKl3grYE+mfQsszyyVP4WNc7ExN8fWj7QlTf8z9640lm+L51ycqOV 1tGzPFy6M3LBWZYr
nWW5rh06y26PwoVI1v8G0siH7LIlORsi/s3ZG4Q/dFmKL/6jd9G20VYC/5wX DnybfmBxlr2VORmN
zdHzsN+znZQ285LzsRQyU9obmtYfl8Tssf44quRnrbSfuY+V5vHE5kI/K9X8 rMj/Bz8blf3cLu1n
Qev9UT+b1V7NXG3M3hEwiINi0nOmq5s8u9byyayBg9g2D3ew671lxgbEp/Ox 6wtH1LemZrUtI6uN
KIaJhKU01Xp9XyJZ5HmOKMwKBC7CyJ/FMvVtu61runGBx596E8vMZArnMt0J yGYFY5bD1pmu52mZ
Ki4wyn2aY9335iQQ58l90/v9eCS9ttMJNhPo2ck+y1izm01MuDtUUR3rEMQM ypBpgk30jqYw2B2/
F9wb2paT8YaOaexODytmn5e6kpJMMgmLNEsMw9Sr1k0KNLjLbvI848lXbk57 MUMIB79hy60X/mlK
ughTGFjvLhbu/z4eW5Mb8OXXL+AW/AKipih2gK+AX87BrZTW956gyzAlZR7w G+AViayQQwimaBnW
KudoBdifCzwXe2vMmJ+CV74BpcO+0trp/kN1mEzRQCxok4DuQAmZr3tC2HD9 EH7OEye3RHW6M3Rl
SkhZzO16pp/vijiqv8DHZOOdrExdCcseuSkoRe7b07uCrbmqTNbaRrNZYO4B 1SsYnKl2ZM29lwus
3dO7gq3ZzDCM4hjN/AUMP0JQd9J7fHIOo2mqBWj2Z74G9ftwEmuVIu7/C2uz d/yctY3CfZ1XvIK1
6ati1tZWEbN5tStYupcU5Q5hEbUHda9gc76CkGO4VWDyIdUrWKw/WlUDh6IV wMnPe42DqPf1yY/K
YbAIzYGprxHWM0Xa3CuzMEHb1yzOtr3BajYkSV4m/SBrsHA/gE8oSxNFN+Up pCdggBXyPcjzyXw2
CdY+RRh8MHWmhpkSBEt2t4YB/QCEkZDKfWug4zyDDQRz9x2CKWFZPEvDX0nA 1Wvg25rltSuWgO/P
kUoiKQEzJsMUNyR4Y9ey1PdkrK8pGQURneU/y4oC5UtcsIxbZ5T2+Ac7mdcr W8frlaH9HTeQUlev
7G7tW10nXYedu/4srB3vLAv7iu+NE8v5PhkKez9/+hdQSwMEFAACAAgA9JXQ NOSkrxtqAAAAgwAA
ABIAAABSZXNvdXJjZS9wcnVlYmEucmOzVggoyq9MTS7Jt1IoKCpNTUrk5bJW cMtMzkgtggvpFSWD
RF1Si5OLMguSMz/nWSmABBxLS/KLrMAaUpMzEq0UDM30Dcz0jQwMzHi5Aooy 80pSiwzNFKDAyTPE
1zFAQQkuoZeUW6DEywUAUEsDBBQAAgAIAGVXiy9ib0ZtiAAAAPYAAAAWAAAA UmVzb3VyY2UvUHJp
bnRlcjE2LmJtcDWNMQ4CMQwEjUC6VIhn8A56/nIV69Id7lzzBV6RggddhejM +nIXZz2rdRTf7l8Z
50Fdqcumg5zW3KjPeWifyT6podlAFU3vnawk1yuZA1UVsQGQ9kRBrYzAGs0M 1zLqULfWHKTbMYCf
0wRyDSLxqheBN9RYAY1lntgjc+K/Si61QLd9iAEo8QdQSwMEFAACAAgAtHLm NBGgXDl/AQAAVwIA
AAoAAABwcnVlYmEueHBqTVLBbtswDL0L0D/kAwZj2c46bHGCeojrwDa6YUUP ssy6WmVJoKSi6V/v
utMoOyl60hP5SD496v7UNj/2u/6Bs/7sQcArcFZCUKh91M4KjwkGyVmTok/x ci0W2s7NXhtA8Xoj
cXAJOaultrUbkwFxcDhvC48TZ79OtbT6EUIURV9wdpIoZ4iAQXBWKZpC/fe1 KA6UrJOJ2huobIjS
KghrzR2xs55t8ZmzFgzIAILg96TNmEFWI+1ZNBj122aEze9/f/UkP2264ljk tD+3enqKNKtHOUIt
8TnPp7oZbMzwvjn1VXPbkRnfUnSzjFrVML9ILEEZEr04sqgsYUhTZR/dqq5L 3iOEcNQWbtM8AOYc
zh8qrpTuyWFUKUZtpzXzU6K1dDvCCxixJQscQrPYn1XV0h/I5pW7o5gzQB5f AplLU5+Jn19QVi1t
s2mrfX5FR0tRUGoUKyK3rTJpXEIXmN0M77wrpoUMf3KADmp7qI5Lw+31Ayx7 /fJxyV+vKVSc/QdQ
SwECFAAUAAIACACMhOU0nOYPR8YAAAAbAQAAEQAAAAAAAAAAACAAtIEAAAAA U291cmNlL3BydWVi
YS5wcmdQSwECFAAUAAIACAAuU1k1D7zkMBEDAAAtCwAAEAAAAAAAAAAAACAA tIH1AAAAU291cmNl
L0Zvcm0xLnByZ1BLAQIUABQAAgAIAC5TWTVCzDIhNQYAACUhAAAQAAAAAAAA AAAAIAC0gTQEAABT
b3VyY2UvRm9ybTEueGZtUEsBAhQAFAACAAgA9JXQNOSkrxtqAAAAgwAAABIA AAAAAAAAAAAgALSB
lwoAAFJlc291cmNlL3BydWViYS5yY1BLAQIUABQAAgAIAGVXiy9ib0ZtiAAA APYAAAAWAAAAAAAA
AAAAIAC0gTELAABSZXNvdXJjZS9QcmludGVyMTYuYm1wUEsBAhQAFAACAAgA tHLmNBGgXDl/AQAA
VwIAAAoAAAAAAAAAAAAgALSB7QsAAHBydWViYS54cGpQSwUGAAAAAAYABgB3 AQAAlA0AAAAA
------=_NextPart_000_001A_01C6F820.511AF180--
Attached files prueba.zip (3.8 KB)Â
------=_NextPart_000_001A_01C6F820.511AF180
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_001B_01C6F820.511AF180"
------=_NextPart_001_001B_01C6F820.511AF180
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Ignacio,
He sustituido el m=F3dulo DBBrowse de la LIB..
C:XailerBorlandbcc55bintlib C:XailerLibxailer -+DBBrowse
me temo que sigue fallando.
Te adjnto el proyecto DbfData1 que es con el que estoy probando.
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del grup de discussi=F3: 453f1c66$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,=20
Me temo que tenemos un peque=F1o problema en el control del =E1mbito =
del motor OOP de XHarbour, ya que reporta errores de =E1mbito donde no =
deber=EDa haberlos. En tu caso reporta un mal uso de la propiedad =
lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo reproduzco =
aqu=ED mismo:
METHOD GoDown( lKeyBoard ) INLINE iif( lKeyBoard !=3D nil, =
::lKeyBoard :=3D lKeyBoard, ), ::oDataSet:nSkip( 1 )
La data lKeyBoard est=E1 declarada en esa MISMA clase con =E1mbito =
PRIVATE, y por lo tanto es perfectamente v=E1lido acceder a ella desde =
la propia clase (faltar=EDa m=E1s).=20
Si te fijas el m=E9todo GoDown() es un code-block y es ah=ED donde =
xHarbour falla, ya que no es capaz de resolver el =E1mbito cuando se =
encuentra dentro de un code-block. Este problema ha sido resuelto en =
Harbour recientemente, pero no as=ED en xHarbour. Hasta ahora hemos =
estado modificando los =E1mbitos de PRIVATE a PROTECTED cada vez que un =
usuario nos reportaba un problema como este y saliamos del paso. De =
hecho te mando un OBJ modificado con esa misma modificaci=F3n que espero =
que te funcione.=20
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje =
news:[email=453f15f6@news.xailer.com...]453f15f6@news.xailer.com...[/email]
Ignacio,
Si cojes el Sample DbfData1, y le a=F1ades...
*
**
=
//---------------------------------------------------------- -------------=
-------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO =
Mostrar/Ocultar Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de =
Tamany Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX :=3D LoWord( nLParam )
nPosY :=3D HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey =3D=3D VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey =3D=3D VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey =3D=3D VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey =3D=3D VK_HOME
Super:GoLeftMost()
ElseIF nKey =3D=3D VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalizaci=F3n del Browse... YA lanza ese =
error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del grup de discussi=F3: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>=20
> Me puedes decir si el error lo puedes reproducir en alg=FAn =
ejemplo de los=20
> DataControls.
>=20
> Muchas gracias.
>=20
> --=20
> Ignacio Ortiz de Z=FA=F1iga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje=20
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicaci=F3n, y me marca error al pulsar flecha =
abajo en un=20
>> DBBrowse
>>
>> ***************************** Registro de errores=20
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Informaci=F3n del=20
>> compilador --------------------------
>>
>> Versi=F3n Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode =
Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Informaci=F3n detallada del=20
>> error -----------------------
>>
>> Subsistema: BASE
>> C=F3digo de error: 1004
>> Estado: .F.
>> Descripci=F3n: Scope Violation <HIDDEN>
>> Operaci=F3n: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> C=F3digo error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Informaci=F3n detallada de =E1reas de=20
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del=20
>> grup de discussi=F3: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya est=E1 disponible la nueva versi=F3n de Xailer 1.1a. Puede =
descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>=20
>=20
>
------=_NextPart_001_001B_01C6F820.511AF180
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#c0c0c0>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>He sustituido el m=F3dulo DBBrowse de =
la=20
LIB..</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>C:XailerBorlandbcc55bintlib=20
C:XailerLibxailer -+DBBrowse<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>me temo que sigue =
fallando.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Te adjnto el proyecto DbfData1 que es =
con el que=20
estoy probando.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> ha escrit =
al=20
missatge del grup de discussi=F3: <A=20
=
href=3D"mailto:453f1c66$1@news.xailer.com">453f1c66$1@news.xailer.com</A>=
....</DIV>
<DIV><FONT face=3DArial size=3D2>Xevi, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Me temo que tenemos un peque=F1o =
problema en el=20
control del =E1mbito del motor OOP de XHarbour, ya que =
reportaÂerrores=20
deÂ=E1mbito donde no deber=EDa haberlos. En tu caso reporta un =
mal uso de la=20
propiedad lKeyBoard en el metodo GoDown de la clase TDBBrowse que te =
lo=20
reproduzco aqu=ED mismo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD GoDown( lKeyBoard )Â =
INLINE iif(=20
lKeyBoard !=3D nil, ::lKeyBoard :=3D lKeyBoard, ), ::oDataSet:nSkip( 1 =
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La data lKeyBoard est=E1 declarada en =
esa MISMA=20
clase con =E1mbito PRIVATE, y por lo tanto es perfectamente v=E1lido =
acceder a=20
ella desde la propia clase (faltar=EDa m=E1s). </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si te fijas el m=E9todo GoDown() es =
un code-block y=20
es ah=ED donde xHarbour falla, ya que no es capaz de resolver el =
=E1mbito cuando=20
se encuentra dentro de un code-block. Este problema ha sido resuelto =
en=20
Harbour recientemente, pero no as=ED en xHarbour. Hasta ahora hemos =
estado=20
modificando los =E1mbitos de PRIVATEÂa PROTECTED cada vez que un =
usuario=20
nos reportaba un problema como este y saliamos del paso. De hecho te =
mando un=20
OBJ modificado con esa misma modificaci=F3n que espero que te =
funcione.=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@gmail.com">xevicomas@gmail.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:453f15f6@news.xailer.com">news:453f15f6@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si cojes el Sample DbfData1, y le=20
a=F1ades...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
=
size=3D1>*<BR>**<BR>//---------------------------------------------------=
---------------------------<BR>CLASS=20
TBrowse FROM xBrowse<BR>PUBLISHED:<BR>ÂÂ PROPERTY=20
lAllowColHidingÂÂÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO =
Mostrar/Ocultar=20
Columnes<BR>ÂÂ PROPERTY =
lAllowColSizingÂÂÂÂ=20
INIT .F.ÂÂÂÂÂ&nb sp;ÂÂ //NO Canvi =
de=20
Tamany Columnes<BR>ÂÂ PROPERTY =
lAllowColSwappingÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO Moure=20
Columnes<BR>ÂÂ PROPERTY =
lRecordSelectorÂÂÂÂ=20
INIT .F.<BR>ÂÂ PROPERTY nColDividerStyleÂÂÂ =
INIT=20
blLIGHTGRAY<BR>ÂÂ PROPERTY =
nRowDividerStyleÂÂÂ INIT=20
blLIGHTGRAY<BR>ÂÂ PROPERTY=20
nHeaderHeightÂÂÂÂ&nb sp;Â INIT =
19<BR>ÂÂ=20
PROPERTY =
nRowHeightÂÂÂÂÂ ÂÂÂÂ=20
INIT 18<BR>ÂÂ PROPERTY=20
nMarqueeStyleÂÂÂÂ&nb sp;Â INIT=20
bmHIGHLROW<BR>ÂÂ PROPERTY =
nClrSelFocusPaneÂÂÂ INIT=20
clActiveCaption<BR>ÂÂ PROPERTY lColDividerComplete INIT=20
.F.<BR>ÂÂ PROPERTY=20
nClrSelPane  ; INIT=20
clInactiveCaption<BR>ÂÂ PROPERTY=20
nClrSelText  ; INIT=20
clInactiveCaptionText<BR>ÂÂ PROPERTY=20
=
lVScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsYES<BR>ÂÂ PROPERTY=20
=
lHScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsNO<BR>ÂÂ PROPERTY=20
nBorderStyleÂÂÂÂ&nbs p;ÂÂ INIT=20
bvSUNKEN</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ METHOD =
WMRButtonDown( nWParam, nLParam )<BR>ÂÂ METHOD WMKeyDown( =
nKey,=20
nFlags )<BR>ENDCLASS<BR>*<BR>**<BR>METHOD WMRButtonDown( nWParam, =
nLParam )=20
CLASS TBrowse<BR>ÂÂ local nPosX, nPosY</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ nPosX =
:=3D LoWord(=20
nLParam )<BR>ÂÂ nPosY :=3D HiWord( nLParam )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ=20
::SelectCellFromPoint( nPosX, nPosY )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
Super:WMRButtonDown(=20
nWParam, nLParam )<BR>*<BR>**<BR>METHOD WMKeyDown( nKey, nFlags ) =
CLASS=20
TBrowse</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ IF =
nKey =3D=3D VK_HOME=20
.and. GetKeyState( VK_CONTROL ) < =
0<BR>ÂÂÂÂÂ=20
RETURN Super:WMKeyDown( VK_HOME, nFlags )<BR>ÂÂ ElseIF =
nKey =3D=3D=20
VK_END .and. GetKeyState( VK_CONTROL ) <=20
0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( VK_END, =
nFlags=20
)<BR>ÂÂ ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( =
VK_CONTROL )=20
< 0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( =
5000,=20
nFlags )<BR>ÂÂ ElseIF nKey =3D=3D VK_NEXT .and. =
GetKeyState(=20
VK_CONTROL ) < 0<BR>ÂÂ ElseIF nKey =3D=3D=20
VK_HOME<BR>ÂÂÂÂÂ =
Super:GoLeftMost()<BR>ÂÂ=20
ElseIF nKey =3D=3D VK_END<BR>ÂÂÂÂÂ=20
Super:GoRightMost()<BR>ÂÂ =
ELSE<BR>ÂÂÂÂÂ=20
RETURN Super:WMKeyDown( nKey, nFlags )<BR>ÂÂ =
ENDIF</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
0<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Que lo utilizo para mi =
personalizaci=F3n del=20
Browse... YA lanza ese error</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Ignacio Ortiz de Z=FA=F1iga" =
<</FONT><A=20
href=3D"mailto:NoName@xailer.com"><FONT face=3DArial=20
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial =
size=3D2>> ha escrit al=20
missatge del grup de discussi=F3: </FONT><A=20
href=3D"mailto:453f11c8$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453f11c8$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Xevi,<BR>> <BR>>=20
Me puedes decir si el error lo puedes reproducir en alg=FAn ejemplo =
de los=20
<BR>> DataControls.<BR>> <BR>> Muchas gracias.<BR>> =
<BR>> --=20
<BR>> Ignacio Ortiz de Z=FA=F1iga<BR>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial =
size=3D2>>=20
"Xevi" <</FONT><A href=3D"mailto:xevicomas@gmail.com"><FONT =
face=3DArial=20
size=3D2>xevicomas@gmail.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3=20
en el mensaje <BR>> </FONT><A =
href=3D"news:453f0f30@news.xailer.com"><FONT=20
face=3DArial size=3D2>news:453f0f30@news.xailer.com</FONT></A><FONT =
face=3DArial=20
size=3D2>...<BR>>> Reconstruida mi aplicaci=F3n, y me marca =
error al=20
pulsar flecha abajo en un <BR>>> =
DBBrowse<BR>>><BR>>>=20
***************************** Registro de errores <BR>>>=20
=
*****************************<BR>>><BR>>>ÂÂÂ&n=
bsp;ÂÂÂÂÂ&n bsp;=20
Fecha:=20
=
25/10/2006<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ&nb=
sp;ÂÂ=20
Hora: 09:14:02<BR>>>ÂÂ Memoria libre:=20
587548<BR>>>ÂÂÂÂ Area actual:=20
3<BR>>><BR>>> ------------------------- Informaci=F3n =
del=20
<BR>>> compilador=20
--------------------------<BR>>><BR>>>Â Versi=F3n =
Xailer:=20
Xailer 1.1.1 Version 1.1a<BR> >>ÂÂÂÂ& ;nbsp;=20
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version:=20
7<BR>>> Compilador C/C++: Borland C++=20
5.5.1<BR> >>ÂÂÂÂ& ;nbsp; Plataforma: Windows =
XP Home=20
Edition 5.01.2600 Service Pack 2<BR>>><BR>>>=20
----------------------- Informaci=F3n detallada del <BR>>> =
error=20
=
-----------------------<BR>>><BR> >>ÂÂÂÂ& ;n=
bsp;=20
Subsistema: BASE<BR>>> C=F3digo de error:=20
=
1004<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Estado: .F.<BR>>>ÂÂÂÂ Descripci=F3n: Scope =
Violation=20
<HIDDEN><BR> >>ÂÂÂÂ& ;nbsp;Â =
Operaci=F3n:=20
_LKEYBOARD<BR> >>ÂÂÂÂ& ;nbsp;=20
=
Argumentos:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=20
Fichero:<BR>>> C=F3digo error SO: 0<BR>>><BR>>> =
Pila de=20
llamadas:<BR>>>Â (b)XDBBROWSE:XDBBROWSE =
(49)<BR>>>Â=20
TDBBROWSE:GODOWN (0)<BR>>>Â XBROWSE:WMKEYDOWN=20
(2263)<BR>>>Â TDBBROWSE:WMKEYDOWN (55)<BR>>>Â =
RUNFORM=20
(0)<BR>>>Â TAPPLICATION:RUN (206)<BR>>>Â MAIN=20
(24)<BR>>><BR>>> ------------------ Informaci=F3n =
detallada de=20
=E1reas de <BR>>> trabajo=20
=
------------------<BR>>><BR> >>ÂÂÂÂ& ;nbsp;&=
nbsp;ÂÂÂÂÂ=20
Area:=20
=
1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias: =
LINIESCOMPRES1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Registro:=20
=
2086<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
1<BR>>>ÂÂÂ=20
Clave activa:=20
=
1<BR>>><BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=
ÂÂÂ=20
Area:=20
=
2<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias: COMPR<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ =
Registro:=20
=
848<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
5<BR>>>ÂÂÂ=20
Clave activa: 5<BR>>><BR>>> "Ignacio Ortiz de =
Z=FA=F1iga"=20
<</FONT><A href=3D"mailto:NoName@xailer.com"><FONT face=3DArial=20
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial =
size=3D2>> ha escrit al=20
missatge del <BR>>> grup de discussi=F3: </FONT><A=20
href=3D"mailto:453e2ab2$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453e2ab2$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>>> Estimado usuario de=20
Xailer,<BR>>>><BR>>>> Ya est=E1 disponible la =
nueva versi=F3n=20
de Xailer 1.1a. Puede descargarla<BR>>>> directamente desde =
los=20
siguientes enlaces:<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT face=3DArial =
=
size=3D2>http://www.xailer.com/files/xailer11.ex ... R><FONT=20
face=3DArial size=3D2>>>><BR>>>> Un cordial=20
saludo,<BR>>>><BR>>>> [El equipo de=20
Xailer]<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>>=20
=
--------------------------------------------<BR>>>> <BR>>>&=
gt;=20
Dear Xailer user,<BR>>>><BR>>>> The new =
Xailer 1.1a=20
is ready. You can download it from this<BR>>>>=20
links:<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT face=3DArial =
=
size=3D2>http://www.xailer.com/files/xailer11.ex ... R><FONT=20
face=3DArial size=3D2>>>><BR>>>> Best=20
regards,<BR>>>><BR>>>> [Xailer =
team]<BR>>>>=20
</FONT><A href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>> <BR>>><BR>>> =
<BR>>=20
<BR>></FONT> </BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_001B_01C6F820.511AF180--
------=_NextPart_000_001A_01C6F820.511AF180
Content-Type: application/octet-stream;
name="prueba.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="prueba.zip"
UEsDBBQAAgAIAIyE5TSc5g9HxgAAABsBAAARAAAAU291cmNlL3BydWViYS5w cmddjs2KwjAQx++F
vsNQL60H2y2eAnsQxJsi6sFrnA7bgZiEMUF8bl/AJnpYvAzMj/9XOy8LmMNe 3IMwOJW/DeNI4hR4
iXTRCy9/ma/phsIe+WkVbJ9DNA4GArJB9KBBg5mON4w6SbJlFYOTTyrhqBX0 Xdv1bd91y0TbsiiL
GVs0cUqqzpoNyQLHKvFpFdIQhWCr2dZNYgCw8rkjsLMKTxwMgfqF6j22ypLT xsn1p27Uju71fwM0
6ji6e8r6SjrET8OBQpRp/QtQSwMEFAACAAgALlNZNQ+85DARAwAALQsAABAA AABTb3VyY2UvRm9y
bTEucHJnvVZdc5pAFH13xv9wS1+MSdWYpG2Y6YMuMNIqOLJO+rrCGpki6yzQ mDb91f0DXT40KEvy
UoMvePfcc++5H0C33WxAG6acPVI3ZipseEIXJDMavruiXNgMxteXnQ2/z8wa jVzub1z/b6hmhkES
M57fGtRdERX6vW6v3+33eteptdtsNBvv/dANEo+C8p34AeUdd6WkdjQeOA7g LAQYM3uS36dHAIDs
ydS2dAsDQ95WIzFxWMJdenl8OkzimIUVs7ZYZk40rhyNyYIGVYeh7vk14L4c XGO+knJcycHXUrDc
elOlmNA1k+f8sQpGbL1gQ7aVaEcr6v6QH8nLlVk/1cfoSx0+1zvIq3ZbdRBt pVPf/UG5JNkhZw8R
rT9ALEjW1WnJ5C+k8g8c+8V0TnQ8sjVAnIpk0qltnQkvy8GzOcL2rIwp5hMF IuUWMIeGHuVwVoaU
OpMz1uDSQGboxz4J/F91oL0UtCLh/SGq2dAtLdu7w8XM13y7XGeL2e1++K9X yvlyMaD8LChKbC7h
naqW91gN7DBdmVauV1zZedEgNdBDsgioB+oX6Cw7B5hnjgpBkZLqYrqNU19l vvFED5QDguzZoAoG
g7lJVBDQIKI1YXKOVwKlpMrrWuKOFDOjS06jFUo4p2FdUY4y1kPPX6YFnul4 PrPA8oMTd/yl2Za1
vThUiRnTdZTqP6qsQ35SzAack8cWKFGctiqf7dNr2quq3USZJEfHoE9tNAJs w+XtTa+wHwkbeB4i
gWv4NPCEMsOcOViQYeUCfj+xJ/FS5lE8JlEswolAf95KtIMH2ERgzC2ETds6 yCNNPks4T0aIGtto
MIZsxgvLnYlHYA+/6giXHFRWCN+N7X4tMPfXLVCzMC3wIsPUx5oQfAbnoIjf +Q6R51AC5CNuaVnI
UnH22Zxwzusfu7KROFx2ww9iyoeEp/J3CxBkjNR7myaLj8F2+xTUhfhca/6Z t83/NBvT+XBsOiNd
U8svsLvJN/qosYewBaG4u4DQCMh9lLb3+e1V5PuaCxyE341aUU4n2Yg6vxCu wIl9/QdQSwMEFAAC
AAgALlNZNULMMiE1BgAAJSEAABAAAABTb3VyY2UvRm9ybTEueGZt5Vltb+I4 EP6+0v4HK7q7bbUV
giTQUOk+hCS0rHgTyaq39y0NLlg1MQqm0Dvdfz/bScgLEEjQch9OKmpsz9jz PGNPxpOB5TyNTGAE
0KWwS4LFzS0w+rptA4e3Gp8/ff4EALDXSxg8pKVE98ODDWmHrP3p6gYoqnwH Gm3lDjQV9tS810As
5TlwS8HD70ByTJe6BvFpQPAK2O5iiaEUSZEu6+dSDn+4uY3WuwHSwGaiPpOH AXqV7oB2B+p3QK3X
dyv4BkbQp89oSud8iqasZkeeIJrNxexNdTc0QH6i0WilulPiSjvqH/k9H1Hk YvQXFGA4E0lXDCOy
+jai7rnnPIFR55tlOByjMd1yCmyyDjzYEGgzXQz2EG5uGFT8GqHjs3qMMx96 IYm1mrQbSFZjLWto
Hl7VfHkVS0AaLpm0j603dBchSG+9omQBg9r05TVZliQWc6k9YMlE44B4cLUS cz1aQ2ui95Np8GgJ
fT5Uc2olIfXdF4hDNOLxCJDUBm207oCssh/bog01DXa3PbsoWNGH0ux2rCmK me0M3NUbb582qMU2
scx+isotq6eE/IG77UN/Fm5NuZ7jHdKI9JRfsyJdBPE0hNSb2I5UhVy5LLmq FhJ8hNy+W5lbOeL2
fF5V9SfzyoKkUw2MUhpMSzsNRrkEjO1MLKvaLlHK7pI2x9E4uksMRD8q7hK1 NLFt+ScTa/ScH5Vo
VcvSes+hyEdptWkAYfnjJwxolrWlIaLa8TA7gAtSwcdcbRdl2fN5Pm5wi4ST W3JKqrwvhyPHsisR
2CpNoMZDabvAm2zpCgwaZPFCOmQbsxi3z2RS2wXVRvq4mAFZLuF0l0oxkYti ke5YCbSRH4ITYykE
YW9ZCjprSokfwg+fT0NXhUfYT+Pv6+ZBh/CQk7EZI+9NjEQrio4KDptD7y3t sKh9jtVy+OLQxH46
fA7dIEBwKl3grYE+mfQsszyyVP4WNc7ExN8fWj7QlTf8z9640lm+L51ycqOV 1tGzPFy6M3LBWZYr
nWW5rh06y26PwoVI1v8G0siH7LIlORsi/s3ZG4Q/dFmKL/6jd9G20VYC/5wX DnybfmBxlr2VORmN
zdHzsN+znZQ285LzsRQyU9obmtYfl8Tssf44quRnrbSfuY+V5vHE5kI/K9X8 rMj/Bz8blf3cLu1n
Qev9UT+b1V7NXG3M3hEwiINi0nOmq5s8u9byyayBg9g2D3ew671lxgbEp/Ox 6wtH1LemZrUtI6uN
KIaJhKU01Xp9XyJZ5HmOKMwKBC7CyJ/FMvVtu61runGBx596E8vMZArnMt0J yGYFY5bD1pmu52mZ
Ki4wyn2aY9335iQQ58l90/v9eCS9ttMJNhPo2ck+y1izm01MuDtUUR3rEMQM ypBpgk30jqYw2B2/
F9wb2paT8YaOaexODytmn5e6kpJMMgmLNEsMw9Sr1k0KNLjLbvI848lXbk57 MUMIB79hy60X/mlK
ughTGFjvLhbu/z4eW5Mb8OXXL+AW/AKipih2gK+AX87BrZTW956gyzAlZR7w G+AViayQQwimaBnW
KudoBdifCzwXe2vMmJ+CV74BpcO+0trp/kN1mEzRQCxok4DuQAmZr3tC2HD9 EH7OEye3RHW6M3Rl
SkhZzO16pp/vijiqv8DHZOOdrExdCcseuSkoRe7b07uCrbmqTNbaRrNZYO4B 1SsYnKl2ZM29lwus
3dO7gq3ZzDCM4hjN/AUMP0JQd9J7fHIOo2mqBWj2Z74G9ftwEmuVIu7/C2uz d/yctY3CfZ1XvIK1
6ati1tZWEbN5tStYupcU5Q5hEbUHda9gc76CkGO4VWDyIdUrWKw/WlUDh6IV wMnPe42DqPf1yY/K
YbAIzYGprxHWM0Xa3CuzMEHb1yzOtr3BajYkSV4m/SBrsHA/gE8oSxNFN+Up pCdggBXyPcjzyXw2
CdY+RRh8MHWmhpkSBEt2t4YB/QCEkZDKfWug4zyDDQRz9x2CKWFZPEvDX0nA 1Wvg25rltSuWgO/P
kUoiKQEzJsMUNyR4Y9ey1PdkrK8pGQURneU/y4oC5UtcsIxbZ5T2+Ac7mdcr W8frlaH9HTeQUlev
7G7tW10nXYedu/4srB3vLAv7iu+NE8v5PhkKez9/+hdQSwMEFAACAAgA9JXQ NOSkrxtqAAAAgwAA
ABIAAABSZXNvdXJjZS9wcnVlYmEucmOzVggoyq9MTS7Jt1IoKCpNTUrk5bJW cMtMzkgtggvpFSWD
RF1Si5OLMguSMz/nWSmABBxLS/KLrMAaUpMzEq0UDM30Dcz0jQwMzHi5Aooy 80pSiwzNFKDAyTPE
1zFAQQkuoZeUW6DEywUAUEsDBBQAAgAIAGVXiy9ib0ZtiAAAAPYAAAAWAAAA UmVzb3VyY2UvUHJp
bnRlcjE2LmJtcDWNMQ4CMQwEjUC6VIhn8A56/nIV69Id7lzzBV6RggddhejM +nIXZz2rdRTf7l8Z
50Fdqcumg5zW3KjPeWifyT6podlAFU3vnawk1yuZA1UVsQGQ9kRBrYzAGs0M 1zLqULfWHKTbMYCf
0wRyDSLxqheBN9RYAY1lntgjc+K/Si61QLd9iAEo8QdQSwMEFAACAAgAtHLm NBGgXDl/AQAAVwIA
AAoAAABwcnVlYmEueHBqTVLBbtswDL0L0D/kAwZj2c46bHGCeojrwDa6YUUP ssy6WmVJoKSi6V/v
utMoOyl60hP5SD496v7UNj/2u/6Bs/7sQcArcFZCUKh91M4KjwkGyVmTok/x ci0W2s7NXhtA8Xoj
cXAJOaultrUbkwFxcDhvC48TZ79OtbT6EUIURV9wdpIoZ4iAQXBWKZpC/fe1 KA6UrJOJ2huobIjS
KghrzR2xs55t8ZmzFgzIAILg96TNmEFWI+1ZNBj122aEze9/f/UkP2264ljk tD+3enqKNKtHOUIt
8TnPp7oZbMzwvjn1VXPbkRnfUnSzjFrVML9ILEEZEr04sqgsYUhTZR/dqq5L 3iOEcNQWbtM8AOYc
zh8qrpTuyWFUKUZtpzXzU6K1dDvCCxixJQscQrPYn1XV0h/I5pW7o5gzQB5f AplLU5+Jn19QVi1t
s2mrfX5FR0tRUGoUKyK3rTJpXEIXmN0M77wrpoUMf3KADmp7qI5Lw+31Ayx7 /fJxyV+vKVSc/QdQ
SwECFAAUAAIACACMhOU0nOYPR8YAAAAbAQAAEQAAAAAAAAAAACAAtIEAAAAA U291cmNlL3BydWVi
YS5wcmdQSwECFAAUAAIACAAuU1k1D7zkMBEDAAAtCwAAEAAAAAAAAAAAACAA tIH1AAAAU291cmNl
L0Zvcm0xLnByZ1BLAQIUABQAAgAIAC5TWTVCzDIhNQYAACUhAAAQAAAAAAAA AAAAIAC0gTQEAABT
b3VyY2UvRm9ybTEueGZtUEsBAhQAFAACAAgA9JXQNOSkrxtqAAAAgwAAABIA AAAAAAAAAAAgALSB
lwoAAFJlc291cmNlL3BydWViYS5yY1BLAQIUABQAAgAIAGVXiy9ib0ZtiAAA APYAAAAWAAAAAAAA
AAAAIAC0gTELAABSZXNvdXJjZS9QcmludGVyMTYuYm1wUEsBAhQAFAACAAgA tHLmNBGgXDl/AQAA
VwIAAAoAAAAAAAAAAAAgALSB7QsAAHBydWViYS54cGpQSwUGAAAAAAYABgB3 AQAAlA0AAAAA
------=_NextPart_000_001A_01C6F820.511AF180--
Attached files prueba.zip (3.8 KB)Â
Nueva versi
Ignacio,
Yo estoy derivando de TBrowse... por lo que digo yo... ¿no sería que este "cambio" hay que hacerlo en la clase TBrowse y no el la DBBrowse???
Gracias.
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> ha escrit al missatge del grup de discussió: [email=453f2033@news.xailer.com...]453f2033@news.xailer.com...[/email]
Ignacio,
He sustituido el módulo DBBrowse de la LIB..
C:XailerBorlandbcc55bintlib C:XailerLibxailer -+DBBrowse
me temo que sigue fallando.
Te adjnto el proyecto DbfData1 que es con el que estoy probando.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f1c66$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,
Me temo que tenemos un pequeño problema en el control del ámbito del motor OOP de XHarbour, ya que reporta errores de ámbito donde no debería haberlos. En tu caso reporta un mal uso de la propiedad lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo reproduzco aquí mismo:
METHOD GoDown( lKeyBoard ) INLINE iif( lKeyBoard != nil, ::lKeyBoard := lKeyBoard, ), ::oDataSet:nSkip( 1 )
La data lKeyBoard está declarada en esa MISMA clase con ámbito PRIVATE, y por lo tanto es perfectamente válido acceder a ella desde la propia clase (faltaría más).
Si te fijas el método GoDown() es un code-block y es ahí donde xHarbour falla, ya que no es capaz de resolver el ámbito cuando se encuentra dentro de un code-block. Este problema ha sido resuelto en Harbour recientemente, pero no así en xHarbour. Hasta ahora hemos estado modificando los ámbitos de PRIVATE a PROTECTED cada vez que un usuario nos reportaba un problema como este y saliamos del paso. De hecho te mando un OBJ modificado con esa misma modificación que espero que te funcione.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:[email=453f15f6@news.xailer.com...]453f15f6@news.xailer.com...[/email]
Ignacio,
Si cojes el Sample DbfData1, y le añades...
*
**
//---------------------------------------------------------- --------------------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO Mostrar/Ocultar Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de Tamany Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX := LoWord( nLParam )
nPosY := HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey == VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey == VK_HOME
Super:GoLeftMost()
ElseIF nKey == VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalización del Browse... YA lanza ese error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Me puedes decir si el error lo puedes reproducir en algún ejemplo de los
> DataControls.
>
> Muchas gracias.
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
>> DBBrowse
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1004
>> Estado: .F.
>> Descripción: Scope Violation <HIDDEN>
>> Operación: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relación:
>> Orden del índice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relación:
>> Orden del índice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>
>
>
--
Yo estoy derivando de TBrowse... por lo que digo yo... ¿no sería que este "cambio" hay que hacerlo en la clase TBrowse y no el la DBBrowse???
Gracias.
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> ha escrit al missatge del grup de discussió: [email=453f2033@news.xailer.com...]453f2033@news.xailer.com...[/email]
Ignacio,
He sustituido el módulo DBBrowse de la LIB..
C:XailerBorlandbcc55bintlib C:XailerLibxailer -+DBBrowse
me temo que sigue fallando.
Te adjnto el proyecto DbfData1 que es con el que estoy probando.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f1c66$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,
Me temo que tenemos un pequeño problema en el control del ámbito del motor OOP de XHarbour, ya que reporta errores de ámbito donde no debería haberlos. En tu caso reporta un mal uso de la propiedad lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo reproduzco aquí mismo:
METHOD GoDown( lKeyBoard ) INLINE iif( lKeyBoard != nil, ::lKeyBoard := lKeyBoard, ), ::oDataSet:nSkip( 1 )
La data lKeyBoard está declarada en esa MISMA clase con ámbito PRIVATE, y por lo tanto es perfectamente válido acceder a ella desde la propia clase (faltaría más).
Si te fijas el método GoDown() es un code-block y es ahí donde xHarbour falla, ya que no es capaz de resolver el ámbito cuando se encuentra dentro de un code-block. Este problema ha sido resuelto en Harbour recientemente, pero no así en xHarbour. Hasta ahora hemos estado modificando los ámbitos de PRIVATE a PROTECTED cada vez que un usuario nos reportaba un problema como este y saliamos del paso. De hecho te mando un OBJ modificado con esa misma modificación que espero que te funcione.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:[email=453f15f6@news.xailer.com...]453f15f6@news.xailer.com...[/email]
Ignacio,
Si cojes el Sample DbfData1, y le añades...
*
**
//---------------------------------------------------------- --------------------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO Mostrar/Ocultar Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de Tamany Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX := LoWord( nLParam )
nPosY := HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey == VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey == VK_HOME
Super:GoLeftMost()
ElseIF nKey == VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalización del Browse... YA lanza ese error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Me puedes decir si el error lo puedes reproducir en algún ejemplo de los
> DataControls.
>
> Muchas gracias.
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
>> DBBrowse
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1004
>> Estado: .F.
>> Descripción: Scope Violation <HIDDEN>
>> Operación: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relación:
>> Orden del índice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relación:
>> Orden del índice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>
>
>
--
-
ignacio
- Site Admin
- Mensajes: 9252
- Registrado: Lun Abr 06, 2015 8:00 pm
- Ubicación: Madrid, Spain
- Contactar:
Nueva versi
This is a multi-part message in MIME format.
------=_NextPart_000_00B4_01C6F822.0814B870
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_00B5_01C6F822.0814B870"
------=_NextPart_001_00B5_01C6F822.0814B870
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Xevi,=20
Entonces no funciona ni siquiera como protected. No ha habido m=E1s =
remedio que desarrollar el m=E9todo sin el INLINE. Te lo adjunto con =
este email.
Esperemos que este problema se solucione pronto en xHarbour.
Un saludo
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje =
news:[email=453f2033@news.xailer.com...]453f2033@news.xailer.com...[/email]
Ignacio,
He sustituido el m=F3dulo DBBrowse de la LIB..
C:XailerBorlandbcc55bintlib C:XailerLibxailer -+DBBrowse
me temo que sigue fallando.
Te adjnto el proyecto DbfData1 que es con el que estoy probando.
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del grup de discussi=F3: 453f1c66$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,=20
Me temo que tenemos un peque=F1o problema en el control del =E1mbito =
del motor OOP de XHarbour, ya que reporta errores de =E1mbito donde no =
deber=EDa haberlos. En tu caso reporta un mal uso de la propiedad =
lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo reproduzco =
aqu=ED mismo:
METHOD GoDown( lKeyBoard ) INLINE iif( lKeyBoard !=3D nil, =
::lKeyBoard :=3D lKeyBoard, ), ::oDataSet:nSkip( 1 )
La data lKeyBoard est=E1 declarada en esa MISMA clase con =E1mbito =
PRIVATE, y por lo tanto es perfectamente v=E1lido acceder a ella desde =
la propia clase (faltar=EDa m=E1s).=20
Si te fijas el m=E9todo GoDown() es un code-block y es ah=ED donde =
xHarbour falla, ya que no es capaz de resolver el =E1mbito cuando se =
encuentra dentro de un code-block. Este problema ha sido resuelto en =
Harbour recientemente, pero no as=ED en xHarbour. Hasta ahora hemos =
estado modificando los =E1mbitos de PRIVATE a PROTECTED cada vez que un =
usuario nos reportaba un problema como este y saliamos del paso. De =
hecho te mando un OBJ modificado con esa misma modificaci=F3n que espero =
que te funcione.=20
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje =
news:[email=453f15f6@news.xailer.com...]453f15f6@news.xailer.com...[/email]
Ignacio,
Si cojes el Sample DbfData1, y le a=F1ades...
*
**
=
//---------------------------------------------------------- -------------=
-------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO =
Mostrar/Ocultar Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de =
Tamany Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure =
Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX :=3D LoWord( nLParam )
nPosY :=3D HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey =3D=3D VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey =3D=3D VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey =3D=3D VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey =3D=3D VK_HOME
Super:GoLeftMost()
ElseIF nKey =3D=3D VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalizaci=F3n del Browse... YA lanza =
ese error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del grup de discussi=F3: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>=20
> Me puedes decir si el error lo puedes reproducir en alg=FAn =
ejemplo de los=20
> DataControls.
>=20
> Muchas gracias.
>=20
> --=20
> Ignacio Ortiz de Z=FA=F1iga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje=20
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicaci=F3n, y me marca error al pulsar flecha =
abajo en un=20
>> DBBrowse
>>
>> ***************************** Registro de errores=20
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Informaci=F3n del=20
>> compilador --------------------------
>>
>> Versi=F3n Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode =
Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack =
2
>>
>> ----------------------- Informaci=F3n detallada del=20
>> error -----------------------
>>
>> Subsistema: BASE
>> C=F3digo de error: 1004
>> Estado: .F.
>> Descripci=F3n: Scope Violation <HIDDEN>
>> Operaci=F3n: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> C=F3digo error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Informaci=F3n detallada de =E1reas de=20
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del=20
>> grup de discussi=F3: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya est=E1 disponible la nueva versi=F3n de Xailer 1.1a. Puede =
descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>=20
>=20
>
------=_NextPart_001_00B5_01C6F822.0814B870
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#c0c0c0>
<DIV><FONT face=3DArial size=3D2>Xevi, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Entonces no funciona ni siquiera como =
protected. No=20
ha habido m=E1s remedio queÂdesarrollar el m=E9todo sin el INLINE. =
Te lo=20
adjunto con este email.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Esperemos que este problema se =
solucione pronto en=20
xHarbour.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@gmail.com">xevicomas@gmail.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:453f2033@news.xailer.com">news:453f2033@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>He sustituido el m=F3dulo DBBrowse de =
la=20
LIB..</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>C:XailerBorlandbcc55bintlib=20
C:XailerLibxailer -+DBBrowse<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>me temo que sigue =
fallando.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Te adjnto el proyecto DbfData1 que es =
con el que=20
estoy probando.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> ha =
escrit al=20
missatge del grup de discussi=F3: <A=20
=
href=3D"mailto:453f1c66$1@news.xailer.com">453f1c66$1@news.xailer.com</A>=
....</DIV>
<DIV><FONT face=3DArial size=3D2>Xevi, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Me temo que tenemos un peque=F1o =
problema en el=20
control del =E1mbito del motor OOP de XHarbour, ya que =
reportaÂerrores=20
deÂ=E1mbito donde no deber=EDa haberlos. En tu caso reporta un =
mal uso de=20
la propiedad lKeyBoard en el metodo GoDown de la clase TDBBrowse que =
te lo=20
reproduzco aqu=ED mismo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD GoDown( lKeyBoard )Â =
INLINE iif(=20
lKeyBoard !=3D nil, ::lKeyBoard :=3D lKeyBoard, ), ::oDataSet:nSkip( =
1=20
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La data lKeyBoard est=E1 declarada =
en esa MISMA=20
clase con =E1mbito PRIVATE, y por lo tanto es perfectamente v=E1lido =
acceder a=20
ella desde la propia clase (faltar=EDa m=E1s). </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si te fijas el m=E9todo GoDown() es =
un code-block=20
y es ah=ED donde xHarbour falla, ya que no es capaz de resolver el =
=E1mbito=20
cuando se encuentra dentro de un code-block. Este problema ha sido =
resuelto=20
en Harbour recientemente, pero no as=ED en xHarbour. Hasta ahora =
hemos estado=20
modificando los =E1mbitos de PRIVATEÂa PROTECTED cada vez que =
un usuario=20
nos reportaba un problema como este y saliamos del paso. De hecho te =
mando=20
un OBJ modificado con esa misma modificaci=F3n que espero que te =
funcione.=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@gmail.com">xevicomas@gmail.com</A>> =
escribi=F3 en=20
el mensaje <A=20
=
href=3D"news:453f15f6@news.xailer.com">news:453f15f6@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si cojes el Sample DbfData1, y le =
a=F1ades...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
=
size=3D1>*<BR>**<BR>//---------------------------------------------------=
---------------------------<BR>CLASS=20
TBrowse FROM xBrowse<BR>PUBLISHED:<BR>ÂÂ PROPERTY=20
lAllowColHidingÂÂÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO =
Mostrar/Ocultar=20
Columnes<BR>ÂÂ PROPERTY =
lAllowColSizingÂÂÂÂ=20
INIT .F.ÂÂÂÂÂ&nb sp;ÂÂ //NO =
Canvi de=20
Tamany Columnes<BR>ÂÂ PROPERTY =
lAllowColSwappingÂÂ=20
INIT .F.ÂÂÂÂÂ&nb sp;ÂÂ //NO =
Moure=20
Columnes<BR>ÂÂ PROPERTY =
lRecordSelectorÂÂÂÂ=20
INIT .F.<BR>ÂÂ PROPERTY =
nColDividerStyleÂÂÂ INIT=20
blLIGHTGRAY<BR>ÂÂ PROPERTY =
nRowDividerStyleÂÂÂ=20
INIT blLIGHTGRAY<BR>ÂÂ PROPERTY=20
nHeaderHeightÂÂÂÂ&nb sp;Â INIT =
19<BR>ÂÂ=20
PROPERTY =
nRowHeightÂÂÂÂÂ ÂÂÂÂ=20
INIT 18<BR>ÂÂ PROPERTY=20
nMarqueeStyleÂÂÂÂ&nb sp;Â INIT=20
bmHIGHLROW<BR>ÂÂ PROPERTY =
nClrSelFocusPaneÂÂÂ=20
INIT clActiveCaption<BR>ÂÂ PROPERTY lColDividerComplete =
INIT=20
.F.<BR>ÂÂ PROPERTY=20
nClrSelPane  ; INIT=20
clInactiveCaption<BR>ÂÂ PROPERTY=20
nClrSelText  ; INIT=20
clInactiveCaptionText<BR>ÂÂ PROPERTY=20
=
lVScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsYES<BR>ÂÂ PROPERTY=20
=
lHScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsNO<BR>ÂÂ PROPERTY=20
nBorderStyleÂÂÂÂ&nbs p;ÂÂ INIT=20
bvSUNKEN</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ =
METHOD=20
WMRButtonDown( nWParam, nLParam )<BR>ÂÂ METHOD =
WMKeyDown( nKey,=20
nFlags )<BR>ENDCLASS<BR>*<BR>**<BR>METHOD WMRButtonDown( nWParam, =
nLParam=20
) CLASS TBrowse<BR>ÂÂ local nPosX, nPosY</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ =
nPosX :=3D LoWord(=20
nLParam )<BR>ÂÂ nPosY :=3D HiWord( nLParam =
)</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ=20
::SelectCellFromPoint( nPosX, nPosY )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
Super:WMRButtonDown(=20
nWParam, nLParam )<BR>*<BR>**<BR>METHOD WMKeyDown( nKey, nFlags ) =
CLASS=20
TBrowse</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ IF =
nKey =3D=3D VK_HOME=20
.and. GetKeyState( VK_CONTROL ) < =
0<BR>ÂÂÂÂÂ=20
RETURN Super:WMKeyDown( VK_HOME, nFlags )<BR>ÂÂ ElseIF =
nKey =3D=3D=20
VK_END .and. GetKeyState( VK_CONTROL ) <=20
0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( =
VK_END, nFlags=20
)<BR>ÂÂ ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( =
VK_CONTROL )=20
< 0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( =
5000,=20
nFlags )<BR>ÂÂ ElseIF nKey =3D=3D VK_NEXT .and. =
GetKeyState(=20
VK_CONTROL ) < 0<BR>ÂÂ ElseIF nKey =3D=3D=20
VK_HOME<BR>ÂÂÂÂÂ=20
Super:GoLeftMost()<BR>ÂÂ ElseIF nKey =3D=3D=20
VK_END<BR>ÂÂÂÂÂ=20
Super:GoRightMost()<BR>ÂÂ =
ELSE<BR>ÂÂÂÂÂ=20
RETURN Super:WMKeyDown( nKey, nFlags )<BR>ÂÂ =
ENDIF</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
0<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Que lo utilizo para mi =
personalizaci=F3n del=20
Browse... YA lanza ese error</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Ignacio Ortiz de Z=FA=F1iga" =
<</FONT><A=20
href=3D"mailto:NoName@xailer.com"><FONT face=3DArial=20
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial =
size=3D2>> ha escrit=20
al missatge del grup de discussi=F3: </FONT><A=20
href=3D"mailto:453f11c8$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453f11c8$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Xevi,<BR>> <BR>>=20
Me puedes decir si el error lo puedes reproducir en alg=FAn =
ejemplo de los=20
<BR>> DataControls.<BR>> <BR>> Muchas gracias.<BR>> =
<BR>>=20
-- <BR>> Ignacio Ortiz de Z=FA=F1iga<BR>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial =
size=3D2>>=20
"Xevi" <</FONT><A href=3D"mailto:xevicomas@gmail.com"><FONT =
face=3DArial=20
size=3D2>xevicomas@gmail.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3=20
en el mensaje <BR>> </FONT><A=20
href=3D"news:453f0f30@news.xailer.com"><FONT face=3DArial=20
size=3D2>news:453f0f30@news.xailer.com</FONT></A><FONT =
face=3DArial=20
size=3D2>...<BR>>> Reconstruida mi aplicaci=F3n, y me marca =
error al=20
pulsar flecha abajo en un <BR>>> =
DBBrowse<BR>>><BR>>>=20
***************************** Registro de errores <BR>>>=20
=
*****************************<BR>>><BR>>>ÂÂÂ&n=
bsp;ÂÂÂÂÂ&n bsp;=20
Fecha:=20
=
25/10/2006<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ&nb=
sp;ÂÂ=20
Hora: 09:14:02<BR>>>ÂÂ Memoria libre:=20
587548<BR>>>ÂÂÂÂ Area actual:=20
3<BR>>><BR>>> ------------------------- Informaci=F3n =
del=20
<BR>>> compilador=20
--------------------------<BR>>><BR>>>Â Versi=F3n =
Xailer:=20
Xailer 1.1.1 Version =
1.1a<BR> >>ÂÂÂÂ& ;nbsp;=20
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version:=20
7<BR>>> Compilador C/C++: Borland C++=20
5.5.1<BR> >>ÂÂÂÂ& ;nbsp; Plataforma: =
Windows XP=20
Home Edition 5.01.2600 Service Pack 2<BR>>><BR>>>=20
----------------------- Informaci=F3n detallada del <BR>>> =
error=20
=
-----------------------<BR>>><BR> >>ÂÂÂÂ& ;n=
bsp;=20
Subsistema: BASE<BR>>> C=F3digo de error:=20
=
1004<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Estado: .F.<BR>>>ÂÂÂÂ Descripci=F3n: =
Scope=20
Violation =
<HIDDEN><BR> >>ÂÂÂÂ& ;nbsp;Â=20
Operaci=F3n: _LKEYBOARD<BR> >>ÂÂÂÂ& ;nbsp;=20
=
Argumentos:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=20
Fichero:<BR>>> C=F3digo error SO: 0<BR>>><BR>>> =
Pila de=20
llamadas:<BR>>>Â (b)XDBBROWSE:XDBBROWSE =
(49)<BR>>>Â=20
TDBBROWSE:GODOWN (0)<BR>>>Â XBROWSE:WMKEYDOWN=20
(2263)<BR>>>Â TDBBROWSE:WMKEYDOWN =
(55)<BR>>>Â=20
RUNFORM (0)<BR>>>Â TAPPLICATION:RUN =
(206)<BR>>>Â=20
MAIN (24)<BR>>><BR>>> ------------------ Informaci=F3n =
detallada=20
de =E1reas de <BR>>> trabajo=20
=
------------------<BR>>><BR> >>ÂÂÂÂ& ;nbsp;&=
nbsp;ÂÂÂÂÂ=20
Area:=20
=
1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias:=20
=
LINIESCOMPRES1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Registro:=20
=
2086<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
1<BR>>>ÂÂÂ=20
Clave activa:=20
=
1<BR>>><BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=
ÂÂÂ=20
Area:=20
=
2<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias: COMPR<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ =
Registro:=20
=
848<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
5<BR>>>ÂÂÂ=20
Clave activa: 5<BR>>><BR>>> "Ignacio Ortiz de =
Z=FA=F1iga"=20
<</FONT><A href=3D"mailto:NoName@xailer.com"><FONT face=3DArial =
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial =
size=3D2>> ha escrit=20
al missatge del <BR>>> grup de discussi=F3: </FONT><A=20
href=3D"mailto:453e2ab2$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453e2ab2$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>>> Estimado usuario de=20
Xailer,<BR>>>><BR>>>> Ya est=E1 disponible la =
nueva=20
versi=F3n de Xailer 1.1a. Puede descargarla<BR>>>> =
directamente=20
desde los siguientes enlaces:<BR>>>><BR>>>> =
</FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.com/files/xailer11.ex ... R><FONT=20
face=3DArial size=3D2>>>><BR>>>> Un cordial=20
saludo,<BR>>>><BR>>>> [El equipo de=20
Xailer]<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>>=20
=
--------------------------------------------<BR>>>> <BR>>>&=
gt;=20
Dear Xailer user,<BR>>>><BR>>>> The new =
Xailer=20
1.1a is ready. You can download it from this<BR>>>>=20
links:<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.com/files/xailer11.ex ... R><FONT=20
face=3DArial size=3D2>>>><BR>>>> Best=20
regards,<BR>>>><BR>>>> [Xailer =
team]<BR>>>>=20
</FONT><A href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>> <BR>>><BR>>> =
<BR>>=20
<BR>></FONT> =
</BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_00B5_01C6F822.0814B870--
------=_NextPart_000_00B4_01C6F822.0814B870
Content-Type: application/octet-stream;
name="DBBrowse.rar"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="DBBrowse.rar"
UmFyIRoHAM+QcwAADQAAAAAAAADDD3QgkDEAehkAADVBAAACtiZc78xUWTUd MwwAIAAAAERCQnJv
d3NlLm9iagDwSUtREAGRVQyM1gASXnualmLQJAtAkniBAMYgEB1DB6CA2YsW CMZizMiWJIJF6YIW
IBJ4LE1oGA2EHoOtgxx6pG443GPRHpj9G5GSPRJK83HKjk9HJHJU1epuo6lC wbqOejkqU46lOoeq
77iQs03zne9zuLGT+n5/35IpZnec5er675fOd4jn/K3/glffXd/Xy+fd7edS /fh51CpxYuPiX1/e
Rdxg3lpZ2eJF6vFv9TvkOzqUMozdnFxIl7hQ691p9PX63U5TZSHzwe5/oNPy QdtrZINQHu7nqvJ1
ejvtdeb7d3uJuCKl/DAwr6Jjw5Od3uMs4GNqd3JfqRN19qJ0PQD842JeysTG GqE+lrPWR0g/MtLG
x8PU3xGOfBCw6ewzobi+vtbrZpLCiYG8Mk9AqQ1g+SIJc+Ks1Faxij9qLfdn Cr3a9Gg0tV8ZKby/
3mp/2MvFvgkgvYl+shTKZP1xcbEH4jnLW6/2Ed/Mivt2nZlTzlDw4mBuB+IW FucBRsa/JVXH9sCL
/+yKUNjxIifzle5PDLQx1W85BqGRL/tB2HM6Tk06jnb7nWD9LLhOOj5/ej97 3eYeOcNq4SbJ//pz
HMjNJ9DpEGkKC72sFm6f2jsvO0cwXLM3w1tLW3f3MBnCs7i4ZF+tYTx88gwm xvk2Oh3tAh5PFYsG
KB/H2NWzaDUcUDZOXjVBvQiO+5s15jLmST8enY0sLZ2cLZXL6FtXLp65lKIU 61xlCYuIUBzbubZC
aSwbOWFd3EtbNx+5YNxBQzS11Al8c1y/nBsvpydDSnKQbd20CDtkKialiAa3 u5N3tzbPl02X08uH
1y9eoUSdvXcj6aahLeWZbvnd2ulnsG3eWy5bLVt0M4n3ZvX7raIU+YUJEswC 1XeNy9UQ01TwX6pF
mTd/Z9Q7dQRxMftbN27gZi4k12T9dj7ZztUKjMIOWdJE6lYJ4c2dxON+7nBG dXNvKyt7ty8gx8KX
bknZu55MPrm2mYSmpxdyykzu9xC3u8gYkW+v8XFuN/vNxFiYqFIpeu99f32P jX6CHb1eVsJsBNra
Wakc3GSEOR2rFhzXBoN36ur5tu/SK53eSS0LC/Ow+/Ter2/b4OTW75FFNvqM TNv+BnB09IdX9OOn
Xjr54U9QOkUdfYDVVI6fOHXQVQ6eoOtjnR0vB14Vb/oT6ev9Qsq4dO5z4VOk Dgjr5tgOmc0wdYOr
7TjlDwHbDlMoLHlUmV+LnLqu5WfLz58NLdZ7ldGGvByD8IIbYN0EQOqD5odi HFDvA78PCDzA5Iei
HrB64fnD94coPdD+4fEmPqMExkUoZFQJrA0gWIWQdOFoDwLsLwL0IoYwb8Oy Djh3AeCHih5IeeH3
A9QPzB+kP3Byw94P6BzBEZmmPGbpiNnRLgNAGqDWB0oWoPQ+SEIIYYAdWHWh 1whDkM2ZaGsEhbaF
9uEFPz5hW/UQTxuEywHOCL72eL+vTLEkfEVJO8TfxY7/WyVrE1/0D0PyhDD9 4daHvx3/wm6FiLNx
fOCU4qGKdaCO+mTdFNQVXfcx164QA9mOtumv7BhhRprsE1z4d0GvDxp5f+YK 7tNeoHlh+sPvhkB2
KqP+FNd+FHqBrlCtAHxB0ImP05Td5kqxVD/cR1yVT/epq0Vx+1TV4HfzyP8R N/KEzst/JTf7c8X/
jD9ab+ym8ZN/6B/cGOpFm4vmhM6r+ejvoY76ULIOlC0B+F0HywvQQ8DiMOUg VNZtB5vTCa8v2wus
toxz0l1HGxTMBM7Usfbxzhxzww7Mrfbxz3ocgPIDzQ9APTD2I59sPfEZCAkk /kBkBkIpnpMkkm8j
Zl9kn8gMgMjdpnDDfBwwJT5AZAZAZBKPIDIDI/DHMc5H7Uz7Ye4Blf8KYjEs 4wRgjVaZrwJbxpib
KMmYwRgjBGCMEYIwRgjZJjcjJPkXTOMmY3oXTSMEYlfG/bdNYwRvcuqCMHLJ V8umyTXgSj5exTMA
NrdNuWSb5ZJfl8OOSSfLDl+amfTAkXy/bTJINSsczv56D3Uz1vqgxw6wEg44 dwHfB4YeUHmh6Aeq
Hrh+gPaCMH9A+IGOqFqEXrA0YmdzXaqex9aHSg5jv1AXYXwYAb4Ounl/xo7/ Pjv4IeWHnzyP+6m/
qJv+CO/5w9kPcD+cd/gjv/lN6BHJakTeqCvDThrgdA+DbCZ1j78Xw034M8X8 RN+1Tf6Kb+MCHgWS
lY5asUjBXrBTtX41Xo1XY1XLnNW6dq1GqzGqxGqvHqtXTcD1VrqhHhqqRqpx qpRIc9UI9T66oh4a
p0apsepldUY1dUg8lH5qPMeqUeKVLqYYjfDdZtPdPrs7rOJ95Ip8mfw3VR8e p025M8JXpT1v7wfi
D8wfrD2gjB/IPgBhZC1IL50M+FgGsDYBswgBdhuA3QRA3omP1wJ7H7GO/zp4 v+lHfkR3+qHnB90P
+w/YH8J5fxo7/+h/UGGrjs3E5PVQm9eGonj/YJu7C3Daht55Pwwwk33odgHc h3gfTDxQ+sHJE1YY
yu/ppGPMxvRQ4RcSZusqhtq76bVHm8RjDo0MGh2q3KJSAZQ8FtBVsUbDDY27 AjOUFxJRSLMxzgt4
tpe417cX+NKEy3BG4UkXgUn/8anVSPDVNvIuqpP9pxYXWdT5s7qrm1Pk6rBn s7qtTXPDxPqPTgf5
mqZFvLVKi1G3hxGmah4NJAdwnUXeYcXCv8Ig5w6F4kwVFBreujcglDhwmMlh vw2IxFUl9bYu6fRd
lgRMa/xMvMEMwSshVFEc4+NFf4kMiNuchk4KCq94qXtDR+SaotTyBkUSc30k G6VTrMQ3b4bWSZsD
MG4puJoYj/CnyWhzGPtL/f2cW9lWJ4ohy2I/loX/Ur4tIdis0jQHcCgdYl/e lyhERtmpLeHTSR4b
OSKlVxGmyEFhNwPf0yxo5mBEHUcUK2DmweYWKM0Q3To0Yy1tYsGLhobaoPm7 RpMqzSEJhIDKWqpT
UA3ETEMbGi7yaWUo+lSs0SYyRHFMN1S6EgXu6v7kljp0DZiJHw2ziZrmzoep gMaxlDeI5xZMSNs8
Ngsm86qg6IatIvV4UoXTD/NdCVYomgMwlUo5M0qvOYOKxYPEwdVxKePdas8p 4hRKhO+eVv2rzFdx
dzIipG3A4sxiqG64U3kNF6m2vcQkbnRvPAUpT4hMqxvPrGhYDqLjlk/iVkdH lE0KNaDZ/hKRdNLh
Fl14Rp+cNlKA0SpBRDCsVJ8j58VQCLjqcA6DzQqxUuTEujFNRBnYn0J0C+M7 FKUBqadJdIu16j1J
mkmquBFxcmbBdtJr7p+NKuRzRQ50jNNOO6aIafV8e5TixVGhtbRd7fmEiJzy 0A9QKojYSohRHC2L
qZskBgoiVyd6oU3NoTQb/fFDnPLYaIqhGLq9iY5Z4s+N2SyutLh9e73A3R6D denerWae7toF7gGk
P0Cd6xWe/NSKe2eOTTYSmTeuQaCUdDlWiVyRwmUJnCaZIaLT/60VSuYeDj4u MVD+7wIeNu5TnPij
1FekWbYqr6tRGJo4964CxFtRmI0WxfkCszWaidAtj6+aIsXEI30gpGwNey8s saUa7yJpoa3nRsID
CJpy1xN/SuKdGxNeTHomoK4w2OFQZayukYMNzAY8S8QRsDv4xEsMNgWjFE1M obVHuJQtpJ6WiaiV
lW6MQkDJj9AQw4m7WoZQ3bjFLS7sl6hji7URerPbThwJ6FYgVvyr7MnlZYpM zFU3EUL6pJoOMFgo
VpNjMewh5bYm0TNYtDrKTMoxEMuJvzY7ZxnEmBtmXrRMJlL4l2ypEeiOXMjP YTnHcdkIZ8TsFKnk
6ZMxLEOjGWY0R0yI0YnfzthHSDJE7E5/08yFuuCFK8zAH06TOd0WZmubSUoD VDVHpV3GLVChzVF4
SCOuH/tKLSm/kD6Hj35ygTNeEwKpaxR15p/SkCgMpQkyYsDWkP2aPHUlRVJN VdB8rahNWVBQL2E7
J6R1RiJreesI6YWcj+qgT044LS/zhLTYrt6SGoYTGanv3IIuR/7Zj5dD7HB7 +KCNouCTEZxVVAxF
mIzqBLte2Ro0hMCJqclNsp0OnlZpy2o1qdcrFSYTqiRtczmPpoTKayTJgjsx 8fMH9aoQdL1JRKeZ
lgpnlAj1C5UeJ1Cj1Avmjn1MW102iq4k5zSWbUssjM/UTkcM+wRej/22HzbC yL4+Xgyqo1KPBwKs
mB2ZllsEX6dpM15ouAa21NPY3PQTs2B2Pab4zNIwD0A7RxoypI/JLzWPrcRq j4SjttBhJsfJNtEm
6uGS2lz0K5XDOzZ0OfypEbg9/lkq1TikIO4JW98bCzZ0hULoixSqZTqKlAar UvW0tauSqpqDzozV
jiunGxzw+K9GyOHccaJLQEc50toNcqonRZONGdh7BG6Eq1YiIlK72miXcNHa nuKNhXd2glp4m2Ef
KVriwG6VjwqEtE6hhN9CWQ/UK4OX2HZJanMVb2Za9Hyyqco3kyninTSKP/Br fzAwWL6ZU4a3hbqX
fmw7JGEE1Gnrv6tGwPV6ecZLWcElrWcatsGCXRKMBE2y7T6GuppD9GraOxfS I7cvaKpBBe2H1Za2
uPvMJDisLSu86Yh0sS9Jo4DQtZjcSWNMHObVy8eu7fXTms8ZkfkI3xYt4eXr XowzFOxeYV9FxMS/
vsavU9wyvUTNfjTA7+xr8XdxceJDr9xIbaYGFDf7mw0k6vtJpa86X2CN+ZFt 1L3XSEibmHE3UOXr
MGynZmIemRLYv4BhHaGtbFHBMGJSXaBJzE6mHHqSsphrMg1Vtt+KxIJtkMVv K/yk8mx32herU4pn
htWCIqF1oUqT0cP4TKbqE96wR3i2a/PJMIkweJFk4jhHBm6zJSCsaylSZfNL /lBJM+EyL5oJypz4
84gqwQj1S2ZRW+W0YyMGYz9lgqQQ21Tn6FHEP57JxQSdlnALMtq1cRxVpNDT ZsRTEbbI4p7Mxfok
m+ThU43x9hvKXxptCiiM/bEZozKKlIHJEmBeYtTI469WOnVQRTmVDcpMalHe rHGdhMid/rSzNdWp
RNl9V7eJvjQNWGSlOOm/FTEH6VYa44Cu1dcUSVbE6yHUIVlMk4idbDUoDOFc eoYFne4KsQ8/ON5X
nYNuMaBONGjwptdoprPHZ+HLBQSsDOkzCuL0EOhmkLPfN5fzMNNvph1ZZJWK +13YiiebUc4EM5rq
l2H8TbFxNpv7NaWrO4iXQnBB0lrFm18OUJIXoudKDox18RmRlr4TQm02Cu0s TJ3r6ZeGblcAXQmk
oDyi9wxR+aJm+mbI60myhHrhdak0bmY3hzd27RPEeuVk4+UWj115j5geVGgR 7BbVT2JSvbdBW3gt
dq7h4BqEBbRJuj2M2/ObRzRI8TM3aVKZgc4iks3tQjaqSpsirzdkqJxtIvOo 9mVmHvjU+atQU6xF
JZ6a0yGrkeLOa2bYpF+NmAk0CPXzZJ9Esp2Ze2N2ink1S0e+gShtIu7vTJWA +9SlpRwpr8U6WnXd
xRR6oZU0e0UdgXnwEeOfHsjXWr4TQq1LSE10JbIroVWPhM2zhulrG8sesrUu jUNJLN/IRnWUKWu4
JGNZ+VLXqJhmpUw7VYO+nhUBbDbYlIUj86a+pIazR7Yxcepc6nBG2SPUHJss 7NHtxktrG8R7gvJH
uZvpovVxFhNjXD5cdoB5YD1GveYo90ppHFTU7tXxZwjN1gJNTbRNnwFKRro+ JU5+jR+efx4GiNTN
bhILtxkqwNIj3CxlTI9st5ZtSgNXmfRmM5xV7mY1W/A1La6sOA2rv5oJVR1s qpjFlWjsZ5eS3kxM
0rDAqzGlZSo9KpWOc2ewWZ2vhNCkp0CNqpcSV6JvCa8FrzOZv6U23DKGLM3E RZWaGfKS6A7eGjMe
Olgc3hUBvPTLqQ7lWKz+1SWoGUfoHt3jFgpKFNfTVi7ARrAknLQhLbIXjKYp XfqKi7NGAhf6MY10
862vR46jiyf7Bd0OnE/HcyhS2JnlrP4JOjulE7yGqek7XAoz7Al3OO7ai8o3 qFZFdou5Fsd5ztk4
L3Oqxuj3M2Fj+eeRw0St25FRZIaB4WRZtXcJglBbzYkG1HVIvbKXZKt70Zcb hK5R+io7MwG6bxO+
PsS5RcoGhcbJK7NvIGZwL2s8De2RpVWv+VPOT8tH6Qq8MKm3Xkb3Bbntjkje JXykvKjmZ0xpNCxp
oii/fnEJHjzcespEoiPfrTzYS4QxV5FMMa8AZ4alVO9SxVnplA4yeN6ubdXz iUvf5kCOeS4E17es
mu71oxw1wh65fJLW9syS7BWBjYSUkFd+xBLiJ8KXFIY4pwRrvLkXxp0Es2Md oK4FLHPHHrNjD5Lu
hm85hizu0fpjKPgn+j0BufQskeQe1ZFvevno9ooQqQO0RVC/oI+EZKdovAb6 K4L99mBO5h1L3648
eDOPb5DFLwh70Vd7IjxJ3K/4qcePIspBfIEFo++VCbb9oVFv6o58sY8ydAiS Q+7U+vE8OHlqjYG+
mgiUhsUvsL09fOXZXk5nIol9lepj9oeVmvS9Fcy9IX+2uAX3B6UYqt+4wS9O dyzUtd7Uyr7w9eqM
fgGfWD8XOHR/HKDbGnrqUw2VgArFyy0Lh8l653dVwDF/5F2w/LOBj+ZdrPY5 xOP+gzFfqXOv2Tz1
/uHH/g+vsTGfaJ6mgjVJfvPkSZDTIt3X7aMFWfkvfV/hOSG99JrkCWwimS5c 0krewkN7oluIgJfx
VoX9kl7zdHxDekCVJKJ4sO8oqNgSa/kVVmHwDekpWe2l/NHpzkFGl75ZhIch ZRfGS/suvNOl8BJa
hESxfhR+onMhJh/+EzRCKRL4kYKr/c/7zI2sgyPwN/9mS/At7FJgrYloMUeK ZXF79UkHGj0Xoi+N
OcCwXDNmwYTE7EtS4HhtPY9Ef0n2R+A8oD6sDJWRtXcozeBOaq1O2SsEJRPd K77Vuj3avjRI8cZL
bF0aNqp5NEqSJ45tvJmjaGzJbh7miuPKdqi4WjYKUBrA5AaX5krtWqhHaTTS qieQZD1a6ZrW8JnN
032Q457gsxnPDDJVlJKjpGvOfKbUPQn4HXRI9qt7EXQI9wnywXfA+HpjTI6J cALE+0yOHOwZxPJI
ZSkR1ZQf8o5G4bJMeCxljJNImpUw6A/DUkF2OZRlqzQGdZJJRFl+ZlwobMho oFd6LwmlCgT9fVW4
T+wEI+XK8/5QVuizA/WGVrbHh0JgPq0c2oDTVKs4VAXJ31vAieZDWf9rRsbI s8bhV1OySrlZQG6W
eG+MXCntt/KxcJaE4pz5+pwq1Abd1adLoC2HJRI807FSMJgNIc0w0Fd3NpuD QCfYLaCbCcgPQDOq
XF6EcT7LgmfXoUfrn2sprnWr8uLwGaP2Ju/yY7dlJ1tT7sjtOObjfJDFwGck PnEjdtToMC/zGSDk
hzDF7U2XqrKb/zluK6oEfsiT8Me3rPT7UoBMJvvSdszHNMr7dCnPsznvVfaP dk+DU3q0+esQlQQo
FbJRbzhRq9BfgUTZFJi+/0JTP0hvQwL1RaXm5SQU2C1r7R3cOkPHkhp0eSv7 YZcQ446RKozD25tK
pXb2qrPfEZ01tgoGJ+NAP6BHPE1GP6JATQLdNQQLqXSvVdpzqtrm0tIEkMB3 bwdshNLS6gYXV5S+
jEFtcvYLw1s9iQezf2k4Vurd3Ip3OXGyETtojN0/ex8vH1wMFf5Ze5VJXav4 MsFBSgNYv1lxIWzk
PIi2nDkxQgXkfq+kobaPIGYxbTm77MOK72k6t8rf7LMW7MMuv9pbObedMto7 2z5/HZRdk3ju6dvo
M5h2z+QBnHzNz8Zw55tDPaXXgZ66unL25dzt3cPhDy1zI0F/QFcvCYM38/K5 JTPjv+r1zadgD1Fz
cQSHO7eWkHZ5mM2yePZSdvmbtzKMfv7e0zN9ICVQrGrZzkoxuvHKdeF5qVi3 uXUntu6l/vUF+vGH
68HspsXJyWB6Uvr4ju3tVWLW+jSjTvXrFZSVZP5Vikm6w7mtqjbODw/UklP8 ZbNIAb9UkKy/kxkx
k1kwrIFK7dFHg8t827kcpIcXyfAUswlb0+KoA83wkWXYQ4T0riULKCtJlagg l/F1XAqE/m5pJGGu
Oak/Vxs5XpBHLYgPXJI16Q3TgRTexWuT4ZlM5TDt7aGJ9nKjNDx0qevnNs7J inL15avssmhPB20C
QJ4+EYqdhakr2jx9aGB9XsdMK4ubO421xKvti8intt3hRChGpW5ZgQXkzBCE ahw5P5H7GMXZBJKZ
VKC/ZADvRHlCc7IFs3Mq2Xsg+JaO9qgr2QchW5H6WJVwVSVTIOc9tTyVvlQB eqfdm5y0tduiSUkh
SkzM4MB+QETha6cvp0OslKXR2wdW1xavn6pGr2V1XsqjqXRKnVw7VbJnL1kg PQDLIWQslFR0ejgS
1P9wlLT9Swo5Egz564SxGr9Wlu5uz1CY4gWheG0NJDOeb4whGkiyyb5dmn8V e2DdyRFl3gyHL+Uu
tik0d1cOiustXAkwGKzSkA7qSCUk8goHXJ5oDF1udGl2jRea2UtAmNxwUic7 2j856ZkVVFagWajZ
u3lrsyFd+/Baw8t7iCq4CEJdyi7T7aExZsh05Ps6ubfmx6ailNxftRU52oGd 7Tw9LNcVLAn6KKuW
JfCuQEmZMN6lPaYM/MjlcIu1RGYpTDlrK/eyer0/IUl6hY6eyo9ogeoDJQf6 U+XQwpJ6fLHYG7pJ
MsLIjIrSoLd1uw8TdFpu0KBcvyp1k/wGiHKYwWCHaF/01P/kxD17AEAHAA==
------=_NextPart_000_00B4_01C6F822.0814B870--
Attached files DBBrowse.rar (6.4 KB)Â
------=_NextPart_000_00B4_01C6F822.0814B870
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_00B5_01C6F822.0814B870"
------=_NextPart_001_00B5_01C6F822.0814B870
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Xevi,=20
Entonces no funciona ni siquiera como protected. No ha habido m=E1s =
remedio que desarrollar el m=E9todo sin el INLINE. Te lo adjunto con =
este email.
Esperemos que este problema se solucione pronto en xHarbour.
Un saludo
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje =
news:[email=453f2033@news.xailer.com...]453f2033@news.xailer.com...[/email]
Ignacio,
He sustituido el m=F3dulo DBBrowse de la LIB..
C:XailerBorlandbcc55bintlib C:XailerLibxailer -+DBBrowse
me temo que sigue fallando.
Te adjnto el proyecto DbfData1 que es con el que estoy probando.
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del grup de discussi=F3: 453f1c66$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,=20
Me temo que tenemos un peque=F1o problema en el control del =E1mbito =
del motor OOP de XHarbour, ya que reporta errores de =E1mbito donde no =
deber=EDa haberlos. En tu caso reporta un mal uso de la propiedad =
lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo reproduzco =
aqu=ED mismo:
METHOD GoDown( lKeyBoard ) INLINE iif( lKeyBoard !=3D nil, =
::lKeyBoard :=3D lKeyBoard, ), ::oDataSet:nSkip( 1 )
La data lKeyBoard est=E1 declarada en esa MISMA clase con =E1mbito =
PRIVATE, y por lo tanto es perfectamente v=E1lido acceder a ella desde =
la propia clase (faltar=EDa m=E1s).=20
Si te fijas el m=E9todo GoDown() es un code-block y es ah=ED donde =
xHarbour falla, ya que no es capaz de resolver el =E1mbito cuando se =
encuentra dentro de un code-block. Este problema ha sido resuelto en =
Harbour recientemente, pero no as=ED en xHarbour. Hasta ahora hemos =
estado modificando los =E1mbitos de PRIVATE a PROTECTED cada vez que un =
usuario nos reportaba un problema como este y saliamos del paso. De =
hecho te mando un OBJ modificado con esa misma modificaci=F3n que espero =
que te funcione.=20
Un saludo,
--=20
Ignacio Ortiz de Z=FA=F1iga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje =
news:[email=453f15f6@news.xailer.com...]453f15f6@news.xailer.com...[/email]
Ignacio,
Si cojes el Sample DbfData1, y le a=F1ades...
*
**
=
//---------------------------------------------------------- -------------=
-------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO =
Mostrar/Ocultar Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de =
Tamany Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure =
Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX :=3D LoWord( nLParam )
nPosY :=3D HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey =3D=3D VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey =3D=3D VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey =3D=3D VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey =3D=3D VK_HOME
Super:GoLeftMost()
ElseIF nKey =3D=3D VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalizaci=F3n del Browse... YA lanza =
ese error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del grup de discussi=F3: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>=20
> Me puedes decir si el error lo puedes reproducir en alg=FAn =
ejemplo de los=20
> DataControls.
>=20
> Muchas gracias.
>=20
> --=20
> Ignacio Ortiz de Z=FA=F1iga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribi=F3 en el mensaje=20
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicaci=F3n, y me marca error al pulsar flecha =
abajo en un=20
>> DBBrowse
>>
>> ***************************** Registro de errores=20
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Informaci=F3n del=20
>> compilador --------------------------
>>
>> Versi=F3n Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode =
Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack =
2
>>
>> ----------------------- Informaci=F3n detallada del=20
>> error -----------------------
>>
>> Subsistema: BASE
>> C=F3digo de error: 1004
>> Estado: .F.
>> Descripci=F3n: Scope Violation <HIDDEN>
>> Operaci=F3n: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> C=F3digo error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Informaci=F3n detallada de =E1reas de=20
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relaci=F3n:
>> Orden del =EDndice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Z=FA=F1iga" <NoName@xailer.com> ha escrit al =
missatge del=20
>> grup de discussi=F3: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya est=E1 disponible la nueva versi=F3n de Xailer 1.1a. Puede =
descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>=20
>=20
>
------=_NextPart_001_00B5_01C6F822.0814B870
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2900.2963" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#c0c0c0>
<DIV><FONT face=3DArial size=3D2>Xevi, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Entonces no funciona ni siquiera como =
protected. No=20
ha habido m=E1s remedio queÂdesarrollar el m=E9todo sin el INLINE. =
Te lo=20
adjunto con este email.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Esperemos que este problema se =
solucione pronto en=20
xHarbour.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@gmail.com">xevicomas@gmail.com</A>> =
escribi=F3 en el=20
mensaje <A=20
=
href=3D"news:453f2033@news.xailer.com">news:453f2033@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>He sustituido el m=F3dulo DBBrowse de =
la=20
LIB..</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>C:XailerBorlandbcc55bintlib=20
C:XailerLibxailer -+DBBrowse<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>me temo que sigue =
fallando.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Te adjnto el proyecto DbfData1 que es =
con el que=20
estoy probando.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Ignacio Ortiz de Z=FA=F1iga" <<A=20
href=3D"mailto:NoName@xailer.com">NoName@xailer.com</A>> ha =
escrit al=20
missatge del grup de discussi=F3: <A=20
=
href=3D"mailto:453f1c66$1@news.xailer.com">453f1c66$1@news.xailer.com</A>=
....</DIV>
<DIV><FONT face=3DArial size=3D2>Xevi, </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Me temo que tenemos un peque=F1o =
problema en el=20
control del =E1mbito del motor OOP de XHarbour, ya que =
reportaÂerrores=20
deÂ=E1mbito donde no deber=EDa haberlos. En tu caso reporta un =
mal uso de=20
la propiedad lKeyBoard en el metodo GoDown de la clase TDBBrowse que =
te lo=20
reproduzco aqu=ED mismo:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>METHOD GoDown( lKeyBoard )Â =
INLINE iif(=20
lKeyBoard !=3D nil, ::lKeyBoard :=3D lKeyBoard, ), ::oDataSet:nSkip( =
1=20
)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>La data lKeyBoard est=E1 declarada =
en esa MISMA=20
clase con =E1mbito PRIVATE, y por lo tanto es perfectamente v=E1lido =
acceder a=20
ella desde la propia clase (faltar=EDa m=E1s). </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si te fijas el m=E9todo GoDown() es =
un code-block=20
y es ah=ED donde xHarbour falla, ya que no es capaz de resolver el =
=E1mbito=20
cuando se encuentra dentro de un code-block. Este problema ha sido =
resuelto=20
en Harbour recientemente, pero no as=ED en xHarbour. Hasta ahora =
hemos estado=20
modificando los =E1mbitos de PRIVATEÂa PROTECTED cada vez que =
un usuario=20
nos reportaba un problema como este y saliamos del paso. De hecho te =
mando=20
un OBJ modificado con esa misma modificaci=F3n que espero que te =
funcione.=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un saludo,</FONT></DIV>
<DIV><BR>-- <BR>Ignacio Ortiz de Z=FA=F1iga<BR><A=20
href=3D"http://www.xailer.com">http://www.xailer.com</A></DIV>
<BLOCKQUOTE=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV>"Xevi" <<A=20
href=3D"mailto:xevicomas@gmail.com">xevicomas@gmail.com</A>> =
escribi=F3 en=20
el mensaje <A=20
=
href=3D"news:453f15f6@news.xailer.com">news:453f15f6@news.xailer.com</A>.=
...</DIV>
<DIV><FONT face=3DArial size=3D2>Ignacio,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Si cojes el Sample DbfData1, y le =
a=F1ades...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff=20
=
size=3D1>*<BR>**<BR>//---------------------------------------------------=
---------------------------<BR>CLASS=20
TBrowse FROM xBrowse<BR>PUBLISHED:<BR>ÂÂ PROPERTY=20
lAllowColHidingÂÂÂÂ INIT=20
.F.ÂÂÂÂÂ&nb sp;ÂÂ //NO =
Mostrar/Ocultar=20
Columnes<BR>ÂÂ PROPERTY =
lAllowColSizingÂÂÂÂ=20
INIT .F.ÂÂÂÂÂ&nb sp;ÂÂ //NO =
Canvi de=20
Tamany Columnes<BR>ÂÂ PROPERTY =
lAllowColSwappingÂÂ=20
INIT .F.ÂÂÂÂÂ&nb sp;ÂÂ //NO =
Moure=20
Columnes<BR>ÂÂ PROPERTY =
lRecordSelectorÂÂÂÂ=20
INIT .F.<BR>ÂÂ PROPERTY =
nColDividerStyleÂÂÂ INIT=20
blLIGHTGRAY<BR>ÂÂ PROPERTY =
nRowDividerStyleÂÂÂ=20
INIT blLIGHTGRAY<BR>ÂÂ PROPERTY=20
nHeaderHeightÂÂÂÂ&nb sp;Â INIT =
19<BR>ÂÂ=20
PROPERTY =
nRowHeightÂÂÂÂÂ ÂÂÂÂ=20
INIT 18<BR>ÂÂ PROPERTY=20
nMarqueeStyleÂÂÂÂ&nb sp;Â INIT=20
bmHIGHLROW<BR>ÂÂ PROPERTY =
nClrSelFocusPaneÂÂÂ=20
INIT clActiveCaption<BR>ÂÂ PROPERTY lColDividerComplete =
INIT=20
.F.<BR>ÂÂ PROPERTY=20
nClrSelPane  ; INIT=20
clInactiveCaption<BR>ÂÂ PROPERTY=20
nClrSelText  ; INIT=20
clInactiveCaptionText<BR>ÂÂ PROPERTY=20
=
lVScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsYES<BR>ÂÂ PROPERTY=20
=
lHScrollÂÂÂÂÂ&a mp;nbsp; =
;=20
INIT bsNO<BR>ÂÂ PROPERTY=20
nBorderStyleÂÂÂÂ&nbs p;ÂÂ INIT=20
bvSUNKEN</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ =
METHOD=20
WMRButtonDown( nWParam, nLParam )<BR>ÂÂ METHOD =
WMKeyDown( nKey,=20
nFlags )<BR>ENDCLASS<BR>*<BR>**<BR>METHOD WMRButtonDown( nWParam, =
nLParam=20
) CLASS TBrowse<BR>ÂÂ local nPosX, nPosY</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ =
nPosX :=3D LoWord(=20
nLParam )<BR>ÂÂ nPosY :=3D HiWord( nLParam =
)</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ=20
::SelectCellFromPoint( nPosX, nPosY )</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
Super:WMRButtonDown(=20
nWParam, nLParam )<BR>*<BR>**<BR>METHOD WMKeyDown( nKey, nFlags ) =
CLASS=20
TBrowse</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>ÂÂ IF =
nKey =3D=3D VK_HOME=20
.and. GetKeyState( VK_CONTROL ) < =
0<BR>ÂÂÂÂÂ=20
RETURN Super:WMKeyDown( VK_HOME, nFlags )<BR>ÂÂ ElseIF =
nKey =3D=3D=20
VK_END .and. GetKeyState( VK_CONTROL ) <=20
0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( =
VK_END, nFlags=20
)<BR>ÂÂ ElseIF nKey =3D=3D VK_PRIOR .and. GetKeyState( =
VK_CONTROL )=20
< 0<BR>ÂÂÂÂÂ RETURN Super:WMKeyDown( =
5000,=20
nFlags )<BR>ÂÂ ElseIF nKey =3D=3D VK_NEXT .and. =
GetKeyState(=20
VK_CONTROL ) < 0<BR>ÂÂ ElseIF nKey =3D=3D=20
VK_HOME<BR>ÂÂÂÂÂ=20
Super:GoLeftMost()<BR>ÂÂ ElseIF nKey =3D=3D=20
VK_END<BR>ÂÂÂÂÂ=20
Super:GoRightMost()<BR>ÂÂ =
ELSE<BR>ÂÂÂÂÂ=20
RETURN Super:WMKeyDown( nKey, nFlags )<BR>ÂÂ =
ENDIF</FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff =
size=3D1></FONT>Â</DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D1>RETURN =
0<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Que lo utilizo para mi =
personalizaci=F3n del=20
Browse... YA lanza ese error</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Gracias.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>Un Saludo,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Xevi.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2></FONT>Â</DIV>
<DIV><FONT face=3DArial size=3D2>"Ignacio Ortiz de Z=FA=F1iga" =
<</FONT><A=20
href=3D"mailto:NoName@xailer.com"><FONT face=3DArial=20
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial =
size=3D2>> ha escrit=20
al missatge del grup de discussi=F3: </FONT><A=20
href=3D"mailto:453f11c8$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453f11c8$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...</FONT></DIV><FONT face=3DArial size=3D2>> =
Xevi,<BR>> <BR>>=20
Me puedes decir si el error lo puedes reproducir en alg=FAn =
ejemplo de los=20
<BR>> DataControls.<BR>> <BR>> Muchas gracias.<BR>> =
<BR>>=20
-- <BR>> Ignacio Ortiz de Z=FA=F1iga<BR>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial =
size=3D2>>=20
"Xevi" <</FONT><A href=3D"mailto:xevicomas@gmail.com"><FONT =
face=3DArial=20
size=3D2>xevicomas@gmail.com</FONT></A><FONT face=3DArial =
size=3D2>> escribi=F3=20
en el mensaje <BR>> </FONT><A=20
href=3D"news:453f0f30@news.xailer.com"><FONT face=3DArial=20
size=3D2>news:453f0f30@news.xailer.com</FONT></A><FONT =
face=3DArial=20
size=3D2>...<BR>>> Reconstruida mi aplicaci=F3n, y me marca =
error al=20
pulsar flecha abajo en un <BR>>> =
DBBrowse<BR>>><BR>>>=20
***************************** Registro de errores <BR>>>=20
=
*****************************<BR>>><BR>>>ÂÂÂ&n=
bsp;ÂÂÂÂÂ&n bsp;=20
Fecha:=20
=
25/10/2006<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ&nb=
sp;ÂÂ=20
Hora: 09:14:02<BR>>>ÂÂ Memoria libre:=20
587548<BR>>>ÂÂÂÂ Area actual:=20
3<BR>>><BR>>> ------------------------- Informaci=F3n =
del=20
<BR>>> compilador=20
--------------------------<BR>>><BR>>>Â Versi=F3n =
Xailer:=20
Xailer 1.1.1 Version =
1.1a<BR> >>ÂÂÂÂ& ;nbsp;=20
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version:=20
7<BR>>> Compilador C/C++: Borland C++=20
5.5.1<BR> >>ÂÂÂÂ& ;nbsp; Plataforma: =
Windows XP=20
Home Edition 5.01.2600 Service Pack 2<BR>>><BR>>>=20
----------------------- Informaci=F3n detallada del <BR>>> =
error=20
=
-----------------------<BR>>><BR> >>ÂÂÂÂ& ;n=
bsp;=20
Subsistema: BASE<BR>>> C=F3digo de error:=20
=
1004<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Estado: .F.<BR>>>ÂÂÂÂ Descripci=F3n: =
Scope=20
Violation =
<HIDDEN><BR> >>ÂÂÂÂ& ;nbsp;Â=20
Operaci=F3n: _LKEYBOARD<BR> >>ÂÂÂÂ& ;nbsp;=20
=
Argumentos:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=20
Fichero:<BR>>> C=F3digo error SO: 0<BR>>><BR>>> =
Pila de=20
llamadas:<BR>>>Â (b)XDBBROWSE:XDBBROWSE =
(49)<BR>>>Â=20
TDBBROWSE:GODOWN (0)<BR>>>Â XBROWSE:WMKEYDOWN=20
(2263)<BR>>>Â TDBBROWSE:WMKEYDOWN =
(55)<BR>>>Â=20
RUNFORM (0)<BR>>>Â TAPPLICATION:RUN =
(206)<BR>>>Â=20
MAIN (24)<BR>>><BR>>> ------------------ Informaci=F3n =
detallada=20
de =E1reas de <BR>>> trabajo=20
=
------------------<BR>>><BR> >>ÂÂÂÂ& ;nbsp;&=
nbsp;ÂÂÂÂÂ=20
Area:=20
=
1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias:=20
=
LINIESCOMPRES1<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Registro:=20
=
2086<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
1<BR>>>ÂÂÂ=20
Clave activa:=20
=
1<BR>>><BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂ=
ÂÂÂ=20
Area:=20
=
2<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂÂ=
=20
Alias: COMPR<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ =
Registro:=20
=
848<BR> >>ÂÂÂÂ& ;nbsp;ÂÂÂÂ=20
Filtro:<BR> >>ÂÂÂÂ& ;nbsp;ÂÂ=20
Relaci=F3n:<BR>>> Orden del =EDndice: =
5<BR>>>ÂÂÂ=20
Clave activa: 5<BR>>><BR>>> "Ignacio Ortiz de =
Z=FA=F1iga"=20
<</FONT><A href=3D"mailto:NoName@xailer.com"><FONT face=3DArial =
size=3D2>NoName@xailer.com</FONT></A><FONT face=3DArial =
size=3D2>> ha escrit=20
al missatge del <BR>>> grup de discussi=F3: </FONT><A=20
href=3D"mailto:453e2ab2$1@news.xailer.com"><FONT face=3DArial=20
size=3D2>453e2ab2$1@news.xailer.com</FONT></A><FONT face=3DArial=20
size=3D2>...<BR>>>> Estimado usuario de=20
Xailer,<BR>>>><BR>>>> Ya est=E1 disponible la =
nueva=20
versi=F3n de Xailer 1.1a. Puede descargarla<BR>>>> =
directamente=20
desde los siguientes enlaces:<BR>>>><BR>>>> =
</FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.com/files/xailer11.ex ... R><FONT=20
face=3DArial size=3D2>>>><BR>>>> Un cordial=20
saludo,<BR>>>><BR>>>> [El equipo de=20
Xailer]<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>>=20
=
--------------------------------------------<BR>>>> <BR>>>&=
gt;=20
Dear Xailer user,<BR>>>><BR>>>> The new =
Xailer=20
1.1a is ready. You can download it from this<BR>>>>=20
links:<BR>>>><BR>>>> </FONT><A=20
href=3D"http://www.xailer.info/files/public/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.info/files/public/xai ... </A><BR><=
FONT=20
face=3DArial size=3D2>>>> </FONT><A=20
href=3D"http://www.xailer.com/files/xailer11.exe"><FONT =
face=3DArial=20
=
size=3D2>http://www.xailer.com/files/xailer11.ex ... R><FONT=20
face=3DArial size=3D2>>>><BR>>>> Best=20
regards,<BR>>>><BR>>>> [Xailer =
team]<BR>>>>=20
</FONT><A href=3D"http://www.xailer.com"><FONT face=3DArial=20
size=3D2>http://www.xailer.com</FONT></A><BR><FONT face=3DArial=20
size=3D2>>>><BR>>>> <BR>>><BR>>> =
<BR>>=20
<BR>></FONT> =
</BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>
------=_NextPart_001_00B5_01C6F822.0814B870--
------=_NextPart_000_00B4_01C6F822.0814B870
Content-Type: application/octet-stream;
name="DBBrowse.rar"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="DBBrowse.rar"
UmFyIRoHAM+QcwAADQAAAAAAAADDD3QgkDEAehkAADVBAAACtiZc78xUWTUd MwwAIAAAAERCQnJv
d3NlLm9iagDwSUtREAGRVQyM1gASXnualmLQJAtAkniBAMYgEB1DB6CA2YsW CMZizMiWJIJF6YIW
IBJ4LE1oGA2EHoOtgxx6pG443GPRHpj9G5GSPRJK83HKjk9HJHJU1epuo6lC wbqOejkqU46lOoeq
77iQs03zne9zuLGT+n5/35IpZnec5er675fOd4jn/K3/glffXd/Xy+fd7edS /fh51CpxYuPiX1/e
Rdxg3lpZ2eJF6vFv9TvkOzqUMozdnFxIl7hQ691p9PX63U5TZSHzwe5/oNPy QdtrZINQHu7nqvJ1
ejvtdeb7d3uJuCKl/DAwr6Jjw5Od3uMs4GNqd3JfqRN19qJ0PQD842JeysTG GqE+lrPWR0g/MtLG
x8PU3xGOfBCw6ewzobi+vtbrZpLCiYG8Mk9AqQ1g+SIJc+Ks1Faxij9qLfdn Cr3a9Gg0tV8ZKby/
3mp/2MvFvgkgvYl+shTKZP1xcbEH4jnLW6/2Ed/Mivt2nZlTzlDw4mBuB+IW FucBRsa/JVXH9sCL
/+yKUNjxIifzle5PDLQx1W85BqGRL/tB2HM6Tk06jnb7nWD9LLhOOj5/ej97 3eYeOcNq4SbJ//pz
HMjNJ9DpEGkKC72sFm6f2jsvO0cwXLM3w1tLW3f3MBnCs7i4ZF+tYTx88gwm xvk2Oh3tAh5PFYsG
KB/H2NWzaDUcUDZOXjVBvQiO+5s15jLmST8enY0sLZ2cLZXL6FtXLp65lKIU 61xlCYuIUBzbubZC
aSwbOWFd3EtbNx+5YNxBQzS11Al8c1y/nBsvpydDSnKQbd20CDtkKialiAa3 u5N3tzbPl02X08uH
1y9eoUSdvXcj6aahLeWZbvnd2ulnsG3eWy5bLVt0M4n3ZvX7raIU+YUJEswC 1XeNy9UQ01TwX6pF
mTd/Z9Q7dQRxMftbN27gZi4k12T9dj7ZztUKjMIOWdJE6lYJ4c2dxON+7nBG dXNvKyt7ty8gx8KX
bknZu55MPrm2mYSmpxdyykzu9xC3u8gYkW+v8XFuN/vNxFiYqFIpeu99f32P jX6CHb1eVsJsBNra
Wakc3GSEOR2rFhzXBoN36ur5tu/SK53eSS0LC/Ow+/Ter2/b4OTW75FFNvqM TNv+BnB09IdX9OOn
Xjr54U9QOkUdfYDVVI6fOHXQVQ6eoOtjnR0vB14Vb/oT6ev9Qsq4dO5z4VOk Dgjr5tgOmc0wdYOr
7TjlDwHbDlMoLHlUmV+LnLqu5WfLz58NLdZ7ldGGvByD8IIbYN0EQOqD5odi HFDvA78PCDzA5Iei
HrB64fnD94coPdD+4fEmPqMExkUoZFQJrA0gWIWQdOFoDwLsLwL0IoYwb8Oy Djh3AeCHih5IeeH3
A9QPzB+kP3Byw94P6BzBEZmmPGbpiNnRLgNAGqDWB0oWoPQ+SEIIYYAdWHWh 1whDkM2ZaGsEhbaF
9uEFPz5hW/UQTxuEywHOCL72eL+vTLEkfEVJO8TfxY7/WyVrE1/0D0PyhDD9 4daHvx3/wm6FiLNx
fOCU4qGKdaCO+mTdFNQVXfcx164QA9mOtumv7BhhRprsE1z4d0GvDxp5f+YK 7tNeoHlh+sPvhkB2
KqP+FNd+FHqBrlCtAHxB0ImP05Td5kqxVD/cR1yVT/epq0Vx+1TV4HfzyP8R N/KEzst/JTf7c8X/
jD9ab+ym8ZN/6B/cGOpFm4vmhM6r+ejvoY76ULIOlC0B+F0HywvQQ8DiMOUg VNZtB5vTCa8v2wus
toxz0l1HGxTMBM7Usfbxzhxzww7Mrfbxz3ocgPIDzQ9APTD2I59sPfEZCAkk /kBkBkIpnpMkkm8j
Zl9kn8gMgMjdpnDDfBwwJT5AZAZAZBKPIDIDI/DHMc5H7Uz7Ye4Blf8KYjEs 4wRgjVaZrwJbxpib
KMmYwRgjBGCMEYIwRgjZJjcjJPkXTOMmY3oXTSMEYlfG/bdNYwRvcuqCMHLJ V8umyTXgSj5exTMA
NrdNuWSb5ZJfl8OOSSfLDl+amfTAkXy/bTJINSsczv56D3Uz1vqgxw6wEg44 dwHfB4YeUHmh6Aeq
Hrh+gPaCMH9A+IGOqFqEXrA0YmdzXaqex9aHSg5jv1AXYXwYAb4Ounl/xo7/ Pjv4IeWHnzyP+6m/
qJv+CO/5w9kPcD+cd/gjv/lN6BHJakTeqCvDThrgdA+DbCZ1j78Xw034M8X8 RN+1Tf6Kb+MCHgWS
lY5asUjBXrBTtX41Xo1XY1XLnNW6dq1GqzGqxGqvHqtXTcD1VrqhHhqqRqpx qpRIc9UI9T66oh4a
p0apsepldUY1dUg8lH5qPMeqUeKVLqYYjfDdZtPdPrs7rOJ95Ip8mfw3VR8e p025M8JXpT1v7wfi
D8wfrD2gjB/IPgBhZC1IL50M+FgGsDYBswgBdhuA3QRA3omP1wJ7H7GO/zp4 v+lHfkR3+qHnB90P
+w/YH8J5fxo7/+h/UGGrjs3E5PVQm9eGonj/YJu7C3Daht55Pwwwk33odgHc h3gfTDxQ+sHJE1YY
yu/ppGPMxvRQ4RcSZusqhtq76bVHm8RjDo0MGh2q3KJSAZQ8FtBVsUbDDY27 AjOUFxJRSLMxzgt4
tpe417cX+NKEy3BG4UkXgUn/8anVSPDVNvIuqpP9pxYXWdT5s7qrm1Pk6rBn s7qtTXPDxPqPTgf5
mqZFvLVKi1G3hxGmah4NJAdwnUXeYcXCv8Ig5w6F4kwVFBreujcglDhwmMlh vw2IxFUl9bYu6fRd
lgRMa/xMvMEMwSshVFEc4+NFf4kMiNuchk4KCq94qXtDR+SaotTyBkUSc30k G6VTrMQ3b4bWSZsD
MG4puJoYj/CnyWhzGPtL/f2cW9lWJ4ohy2I/loX/Ur4tIdis0jQHcCgdYl/e lyhERtmpLeHTSR4b
OSKlVxGmyEFhNwPf0yxo5mBEHUcUK2DmweYWKM0Q3To0Yy1tYsGLhobaoPm7 RpMqzSEJhIDKWqpT
UA3ETEMbGi7yaWUo+lSs0SYyRHFMN1S6EgXu6v7kljp0DZiJHw2ziZrmzoep gMaxlDeI5xZMSNs8
Ngsm86qg6IatIvV4UoXTD/NdCVYomgMwlUo5M0qvOYOKxYPEwdVxKePdas8p 4hRKhO+eVv2rzFdx
dzIipG3A4sxiqG64U3kNF6m2vcQkbnRvPAUpT4hMqxvPrGhYDqLjlk/iVkdH lE0KNaDZ/hKRdNLh
Fl14Rp+cNlKA0SpBRDCsVJ8j58VQCLjqcA6DzQqxUuTEujFNRBnYn0J0C+M7 FKUBqadJdIu16j1J
mkmquBFxcmbBdtJr7p+NKuRzRQ50jNNOO6aIafV8e5TixVGhtbRd7fmEiJzy 0A9QKojYSohRHC2L
qZskBgoiVyd6oU3NoTQb/fFDnPLYaIqhGLq9iY5Z4s+N2SyutLh9e73A3R6D denerWae7toF7gGk
P0Cd6xWe/NSKe2eOTTYSmTeuQaCUdDlWiVyRwmUJnCaZIaLT/60VSuYeDj4u MVD+7wIeNu5TnPij
1FekWbYqr6tRGJo4964CxFtRmI0WxfkCszWaidAtj6+aIsXEI30gpGwNey8s saUa7yJpoa3nRsID
CJpy1xN/SuKdGxNeTHomoK4w2OFQZayukYMNzAY8S8QRsDv4xEsMNgWjFE1M obVHuJQtpJ6WiaiV
lW6MQkDJj9AQw4m7WoZQ3bjFLS7sl6hji7URerPbThwJ6FYgVvyr7MnlZYpM zFU3EUL6pJoOMFgo
VpNjMewh5bYm0TNYtDrKTMoxEMuJvzY7ZxnEmBtmXrRMJlL4l2ypEeiOXMjP YTnHcdkIZ8TsFKnk
6ZMxLEOjGWY0R0yI0YnfzthHSDJE7E5/08yFuuCFK8zAH06TOd0WZmubSUoD VDVHpV3GLVChzVF4
SCOuH/tKLSm/kD6Hj35ygTNeEwKpaxR15p/SkCgMpQkyYsDWkP2aPHUlRVJN VdB8rahNWVBQL2E7
J6R1RiJreesI6YWcj+qgT044LS/zhLTYrt6SGoYTGanv3IIuR/7Zj5dD7HB7 +KCNouCTEZxVVAxF
mIzqBLte2Ro0hMCJqclNsp0OnlZpy2o1qdcrFSYTqiRtczmPpoTKayTJgjsx 8fMH9aoQdL1JRKeZ
lgpnlAj1C5UeJ1Cj1Avmjn1MW102iq4k5zSWbUssjM/UTkcM+wRej/22HzbC yL4+Xgyqo1KPBwKs
mB2ZllsEX6dpM15ouAa21NPY3PQTs2B2Pab4zNIwD0A7RxoypI/JLzWPrcRq j4SjttBhJsfJNtEm
6uGS2lz0K5XDOzZ0OfypEbg9/lkq1TikIO4JW98bCzZ0hULoixSqZTqKlAar UvW0tauSqpqDzozV
jiunGxzw+K9GyOHccaJLQEc50toNcqonRZONGdh7BG6Eq1YiIlK72miXcNHa nuKNhXd2glp4m2Ef
KVriwG6VjwqEtE6hhN9CWQ/UK4OX2HZJanMVb2Za9Hyyqco3kyninTSKP/Br fzAwWL6ZU4a3hbqX
fmw7JGEE1Gnrv6tGwPV6ecZLWcElrWcatsGCXRKMBE2y7T6GuppD9GraOxfS I7cvaKpBBe2H1Za2
uPvMJDisLSu86Yh0sS9Jo4DQtZjcSWNMHObVy8eu7fXTms8ZkfkI3xYt4eXr XowzFOxeYV9FxMS/
vsavU9wyvUTNfjTA7+xr8XdxceJDr9xIbaYGFDf7mw0k6vtJpa86X2CN+ZFt 1L3XSEibmHE3UOXr
MGynZmIemRLYv4BhHaGtbFHBMGJSXaBJzE6mHHqSsphrMg1Vtt+KxIJtkMVv K/yk8mx32herU4pn
htWCIqF1oUqT0cP4TKbqE96wR3i2a/PJMIkweJFk4jhHBm6zJSCsaylSZfNL /lBJM+EyL5oJypz4
84gqwQj1S2ZRW+W0YyMGYz9lgqQQ21Tn6FHEP57JxQSdlnALMtq1cRxVpNDT ZsRTEbbI4p7Mxfok
m+ThU43x9hvKXxptCiiM/bEZozKKlIHJEmBeYtTI469WOnVQRTmVDcpMalHe rHGdhMid/rSzNdWp
RNl9V7eJvjQNWGSlOOm/FTEH6VYa44Cu1dcUSVbE6yHUIVlMk4idbDUoDOFc eoYFne4KsQ8/ON5X
nYNuMaBONGjwptdoprPHZ+HLBQSsDOkzCuL0EOhmkLPfN5fzMNNvph1ZZJWK +13YiiebUc4EM5rq
l2H8TbFxNpv7NaWrO4iXQnBB0lrFm18OUJIXoudKDox18RmRlr4TQm02Cu0s TJ3r6ZeGblcAXQmk
oDyi9wxR+aJm+mbI60myhHrhdak0bmY3hzd27RPEeuVk4+UWj115j5geVGgR 7BbVT2JSvbdBW3gt
dq7h4BqEBbRJuj2M2/ObRzRI8TM3aVKZgc4iks3tQjaqSpsirzdkqJxtIvOo 9mVmHvjU+atQU6xF
JZ6a0yGrkeLOa2bYpF+NmAk0CPXzZJ9Esp2Ze2N2ink1S0e+gShtIu7vTJWA +9SlpRwpr8U6WnXd
xRR6oZU0e0UdgXnwEeOfHsjXWr4TQq1LSE10JbIroVWPhM2zhulrG8sesrUu jUNJLN/IRnWUKWu4
JGNZ+VLXqJhmpUw7VYO+nhUBbDbYlIUj86a+pIazR7Yxcepc6nBG2SPUHJss 7NHtxktrG8R7gvJH
uZvpovVxFhNjXD5cdoB5YD1GveYo90ppHFTU7tXxZwjN1gJNTbRNnwFKRro+ JU5+jR+efx4GiNTN
bhILtxkqwNIj3CxlTI9st5ZtSgNXmfRmM5xV7mY1W/A1La6sOA2rv5oJVR1s qpjFlWjsZ5eS3kxM
0rDAqzGlZSo9KpWOc2ewWZ2vhNCkp0CNqpcSV6JvCa8FrzOZv6U23DKGLM3E RZWaGfKS6A7eGjMe
Olgc3hUBvPTLqQ7lWKz+1SWoGUfoHt3jFgpKFNfTVi7ARrAknLQhLbIXjKYp XfqKi7NGAhf6MY10
862vR46jiyf7Bd0OnE/HcyhS2JnlrP4JOjulE7yGqek7XAoz7Al3OO7ai8o3 qFZFdou5Fsd5ztk4
L3Oqxuj3M2Fj+eeRw0St25FRZIaB4WRZtXcJglBbzYkG1HVIvbKXZKt70Zcb hK5R+io7MwG6bxO+
PsS5RcoGhcbJK7NvIGZwL2s8De2RpVWv+VPOT8tH6Qq8MKm3Xkb3Bbntjkje JXykvKjmZ0xpNCxp
oii/fnEJHjzcespEoiPfrTzYS4QxV5FMMa8AZ4alVO9SxVnplA4yeN6ubdXz iUvf5kCOeS4E17es
mu71oxw1wh65fJLW9syS7BWBjYSUkFd+xBLiJ8KXFIY4pwRrvLkXxp0Es2Md oK4FLHPHHrNjD5Lu
hm85hizu0fpjKPgn+j0BufQskeQe1ZFvevno9ooQqQO0RVC/oI+EZKdovAb6 K4L99mBO5h1L3648
eDOPb5DFLwh70Vd7IjxJ3K/4qcePIspBfIEFo++VCbb9oVFv6o58sY8ydAiS Q+7U+vE8OHlqjYG+
mgiUhsUvsL09fOXZXk5nIol9lepj9oeVmvS9Fcy9IX+2uAX3B6UYqt+4wS9O dyzUtd7Uyr7w9eqM
fgGfWD8XOHR/HKDbGnrqUw2VgArFyy0Lh8l653dVwDF/5F2w/LOBj+ZdrPY5 xOP+gzFfqXOv2Tz1
/uHH/g+vsTGfaJ6mgjVJfvPkSZDTIt3X7aMFWfkvfV/hOSG99JrkCWwimS5c 0krewkN7oluIgJfx
VoX9kl7zdHxDekCVJKJ4sO8oqNgSa/kVVmHwDekpWe2l/NHpzkFGl75ZhIch ZRfGS/suvNOl8BJa
hESxfhR+onMhJh/+EzRCKRL4kYKr/c/7zI2sgyPwN/9mS/At7FJgrYloMUeK ZXF79UkHGj0Xoi+N
OcCwXDNmwYTE7EtS4HhtPY9Ef0n2R+A8oD6sDJWRtXcozeBOaq1O2SsEJRPd K77Vuj3avjRI8cZL
bF0aNqp5NEqSJ45tvJmjaGzJbh7miuPKdqi4WjYKUBrA5AaX5krtWqhHaTTS qieQZD1a6ZrW8JnN
032Q457gsxnPDDJVlJKjpGvOfKbUPQn4HXRI9qt7EXQI9wnywXfA+HpjTI6J cALE+0yOHOwZxPJI
ZSkR1ZQf8o5G4bJMeCxljJNImpUw6A/DUkF2OZRlqzQGdZJJRFl+ZlwobMho oFd6LwmlCgT9fVW4
T+wEI+XK8/5QVuizA/WGVrbHh0JgPq0c2oDTVKs4VAXJ31vAieZDWf9rRsbI s8bhV1OySrlZQG6W
eG+MXCntt/KxcJaE4pz5+pwq1Abd1adLoC2HJRI807FSMJgNIc0w0Fd3NpuD QCfYLaCbCcgPQDOq
XF6EcT7LgmfXoUfrn2sprnWr8uLwGaP2Ju/yY7dlJ1tT7sjtOObjfJDFwGck PnEjdtToMC/zGSDk
hzDF7U2XqrKb/zluK6oEfsiT8Me3rPT7UoBMJvvSdszHNMr7dCnPsznvVfaP dk+DU3q0+esQlQQo
FbJRbzhRq9BfgUTZFJi+/0JTP0hvQwL1RaXm5SQU2C1r7R3cOkPHkhp0eSv7 YZcQ446RKozD25tK
pXb2qrPfEZ01tgoGJ+NAP6BHPE1GP6JATQLdNQQLqXSvVdpzqtrm0tIEkMB3 bwdshNLS6gYXV5S+
jEFtcvYLw1s9iQezf2k4Vurd3Ip3OXGyETtojN0/ex8vH1wMFf5Ze5VJXav4 MsFBSgNYv1lxIWzk
PIi2nDkxQgXkfq+kobaPIGYxbTm77MOK72k6t8rf7LMW7MMuv9pbObedMto7 2z5/HZRdk3ju6dvo
M5h2z+QBnHzNz8Zw55tDPaXXgZ66unL25dzt3cPhDy1zI0F/QFcvCYM38/K5 JTPjv+r1zadgD1Fz
cQSHO7eWkHZ5mM2yePZSdvmbtzKMfv7e0zN9ICVQrGrZzkoxuvHKdeF5qVi3 uXUntu6l/vUF+vGH
68HspsXJyWB6Uvr4ju3tVWLW+jSjTvXrFZSVZP5Vikm6w7mtqjbODw/UklP8 ZbNIAb9UkKy/kxkx
k1kwrIFK7dFHg8t827kcpIcXyfAUswlb0+KoA83wkWXYQ4T0riULKCtJlagg l/F1XAqE/m5pJGGu
Oak/Vxs5XpBHLYgPXJI16Q3TgRTexWuT4ZlM5TDt7aGJ9nKjNDx0qevnNs7J inL15avssmhPB20C
QJ4+EYqdhakr2jx9aGB9XsdMK4ubO421xKvti8intt3hRChGpW5ZgQXkzBCE ahw5P5H7GMXZBJKZ
VKC/ZADvRHlCc7IFs3Mq2Xsg+JaO9qgr2QchW5H6WJVwVSVTIOc9tTyVvlQB eqfdm5y0tduiSUkh
SkzM4MB+QETha6cvp0OslKXR2wdW1xavn6pGr2V1XsqjqXRKnVw7VbJnL1kg PQDLIWQslFR0ejgS
1P9wlLT9Swo5Egz564SxGr9Wlu5uz1CY4gWheG0NJDOeb4whGkiyyb5dmn8V e2DdyRFl3gyHL+Uu
tik0d1cOiustXAkwGKzSkA7qSCUk8goHXJ5oDF1udGl2jRea2UtAmNxwUic7 2j856ZkVVFagWajZ
u3lrsyFd+/Baw8t7iCq4CEJdyi7T7aExZsh05Ps6ubfmx6ailNxftRU52oGd 7Tw9LNcVLAn6KKuW
JfCuQEmZMN6lPaYM/MjlcIu1RGYpTDlrK/eyer0/IUl6hY6eyo9ogeoDJQf6 U+XQwpJ6fLHYG7pJ
MsLIjIrSoLd1uw8TdFpu0KBcvyp1k/wGiHKYwWCHaF/01P/kxD17AEAHAA==
------=_NextPart_000_00B4_01C6F822.0814B870--
Attached files DBBrowse.rar (6.4 KB)Â
Nueva versi
Ignacio,
Ahora SI !!!
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f230f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,
Entonces no funciona ni siquiera como protected. No ha habido más remedio que desarrollar el método sin el INLINE. Te lo adjunto con este email.
Esperemos que este problema se solucione pronto en xHarbour.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:[email=453f2033@news.xailer.com...]453f2033@news.xailer.com...[/email]
Ignacio,
He sustituido el módulo DBBrowse de la LIB..
C:XailerBorlandbcc55bintlib C:XailerLibxailer -+DBBrowse
me temo que sigue fallando.
Te adjnto el proyecto DbfData1 que es con el que estoy probando.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f1c66$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,
Me temo que tenemos un pequeño problema en el control del ámbito del motor OOP de XHarbour, ya que reporta errores de ámbito donde no debería haberlos. En tu caso reporta un mal uso de la propiedad lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo reproduzco aquí mismo:
METHOD GoDown( lKeyBoard ) INLINE iif( lKeyBoard != nil, ::lKeyBoard := lKeyBoard, ), ::oDataSet:nSkip( 1 )
La data lKeyBoard está declarada en esa MISMA clase con ámbito PRIVATE, y por lo tanto es perfectamente válido acceder a ella desde la propia clase (faltaría más).
Si te fijas el método GoDown() es un code-block y es ahí donde xHarbour falla, ya que no es capaz de resolver el ámbito cuando se encuentra dentro de un code-block. Este problema ha sido resuelto en Harbour recientemente, pero no así en xHarbour. Hasta ahora hemos estado modificando los ámbitos de PRIVATE a PROTECTED cada vez que un usuario nos reportaba un problema como este y saliamos del paso. De hecho te mando un OBJ modificado con esa misma modificación que espero que te funcione.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:[email=453f15f6@news.xailer.com...]453f15f6@news.xailer.com...[/email]
Ignacio,
Si cojes el Sample DbfData1, y le añades...
*
**
//---------------------------------------------------------- --------------------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO Mostrar/Ocultar Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de Tamany Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX := LoWord( nLParam )
nPosY := HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey == VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey == VK_HOME
Super:GoLeftMost()
ElseIF nKey == VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalización del Browse... YA lanza ese error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Me puedes decir si el error lo puedes reproducir en algún ejemplo de los
> DataControls.
>
> Muchas gracias.
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
>> DBBrowse
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1004
>> Estado: .F.
>> Descripción: Scope Violation <HIDDEN>
>> Operación: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relación:
>> Orden del índice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relación:
>> Orden del índice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>
>
>
--
Ahora SI !!!
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f230f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,
Entonces no funciona ni siquiera como protected. No ha habido más remedio que desarrollar el método sin el INLINE. Te lo adjunto con este email.
Esperemos que este problema se solucione pronto en xHarbour.
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:[email=453f2033@news.xailer.com...]453f2033@news.xailer.com...[/email]
Ignacio,
He sustituido el módulo DBBrowse de la LIB..
C:XailerBorlandbcc55bintlib C:XailerLibxailer -+DBBrowse
me temo que sigue fallando.
Te adjnto el proyecto DbfData1 que es con el que estoy probando.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f1c66$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
Xevi,
Me temo que tenemos un pequeño problema en el control del ámbito del motor OOP de XHarbour, ya que reporta errores de ámbito donde no debería haberlos. En tu caso reporta un mal uso de la propiedad lKeyBoard en el metodo GoDown de la clase TDBBrowse que te lo reproduzco aquí mismo:
METHOD GoDown( lKeyBoard ) INLINE iif( lKeyBoard != nil, ::lKeyBoard := lKeyBoard, ), ::oDataSet:nSkip( 1 )
La data lKeyBoard está declarada en esa MISMA clase con ámbito PRIVATE, y por lo tanto es perfectamente válido acceder a ella desde la propia clase (faltaría más).
Si te fijas el método GoDown() es un code-block y es ahí donde xHarbour falla, ya que no es capaz de resolver el ámbito cuando se encuentra dentro de un code-block. Este problema ha sido resuelto en Harbour recientemente, pero no así en xHarbour. Hasta ahora hemos estado modificando los ámbitos de PRIVATE a PROTECTED cada vez que un usuario nos reportaba un problema como este y saliamos del paso. De hecho te mando un OBJ modificado con esa misma modificación que espero que te funcione.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Xevi" <xevicomas@gmail.com> escribió en el mensaje news:[email=453f15f6@news.xailer.com...]453f15f6@news.xailer.com...[/email]
Ignacio,
Si cojes el Sample DbfData1, y le añades...
*
**
//---------------------------------------------------------- --------------------
CLASS TBrowse FROM xBrowse
PUBLISHED:
PROPERTY lAllowColHiding INIT .F. //NO Mostrar/Ocultar Columnes
PROPERTY lAllowColSizing INIT .F. //NO Canvi de Tamany Columnes
PROPERTY lAllowColSwapping INIT .F. //NO Moure Columnes
PROPERTY lRecordSelector INIT .F.
PROPERTY nColDividerStyle INIT blLIGHTGRAY
PROPERTY nRowDividerStyle INIT blLIGHTGRAY
PROPERTY nHeaderHeight INIT 19
PROPERTY nRowHeight INIT 18
PROPERTY nMarqueeStyle INIT bmHIGHLROW
PROPERTY nClrSelFocusPane INIT clActiveCaption
PROPERTY lColDividerComplete INIT .F.
PROPERTY nClrSelPane INIT clInactiveCaption
PROPERTY nClrSelText INIT clInactiveCaptionText
PROPERTY lVScroll INIT bsYES
PROPERTY lHScroll INIT bsNO
PROPERTY nBorderStyle INIT bvSUNKEN
METHOD WMRButtonDown( nWParam, nLParam )
METHOD WMKeyDown( nKey, nFlags )
ENDCLASS
*
**
METHOD WMRButtonDown( nWParam, nLParam ) CLASS TBrowse
local nPosX, nPosY
nPosX := LoWord( nLParam )
nPosY := HiWord( nLParam )
::SelectCellFromPoint( nPosX, nPosY )
RETURN Super:WMRButtonDown( nWParam, nLParam )
*
**
METHOD WMKeyDown( nKey, nFlags ) CLASS TBrowse
IF nKey == VK_HOME .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_HOME, nFlags )
ElseIF nKey == VK_END .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( VK_END, nFlags )
ElseIF nKey == VK_PRIOR .and. GetKeyState( VK_CONTROL ) < 0
RETURN Super:WMKeyDown( 5000, nFlags )
ElseIF nKey == VK_NEXT .and. GetKeyState( VK_CONTROL ) < 0
ElseIF nKey == VK_HOME
Super:GoLeftMost()
ElseIF nKey == VK_END
Super:GoRightMost()
ELSE
RETURN Super:WMKeyDown( nKey, nFlags )
ENDIF
RETURN 0
Que lo utilizo para mi personalización del Browse... YA lanza ese error
Gracias.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453f11c8$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Xevi,
>
> Me puedes decir si el error lo puedes reproducir en algún ejemplo de los
> DataControls.
>
> Muchas gracias.
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
> "Xevi" <xevicomas@gmail.com> escribió en el mensaje
> news:[email=453f0f30@news.xailer.com...]453f0f30@news.xailer.com...[/email]
>> Reconstruida mi aplicación, y me marca error al pulsar flecha abajo en un
>> DBBrowse
>>
>> ***************************** Registro de errores
>> *****************************
>>
>> Fecha: 25/10/2006
>> Hora: 09:14:02
>> Memoria libre: 587548
>> Area actual: 3
>>
>> ------------------------- Información del
>> compilador --------------------------
>>
>> Versión Xailer: Xailer 1.1.1 Version 1.1a
>> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
>> Compilador C/C++: Borland C++ 5.5.1
>> Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
>>
>> ----------------------- Información detallada del
>> error -----------------------
>>
>> Subsistema: BASE
>> Código de error: 1004
>> Estado: .F.
>> Descripción: Scope Violation <HIDDEN>
>> Operación: _LKEYBOARD
>> Argumentos:
>> Fichero:
>> Código error SO: 0
>>
>> Pila de llamadas:
>> (b)XDBBROWSE:XDBBROWSE (49)
>> TDBBROWSE:GODOWN (0)
>> XBROWSE:WMKEYDOWN (2263)
>> TDBBROWSE:WMKEYDOWN (55)
>> RUNFORM (0)
>> TAPPLICATION:RUN (206)
>> MAIN (24)
>>
>> ------------------ Información detallada de áreas de
>> trabajo ------------------
>>
>> Area: 1
>> Alias: LINIESCOMPRES1
>> Registro: 2086
>> Filtro:
>> Relación:
>> Orden del índice: 1
>> Clave activa: 1
>>
>> Area: 2
>> Alias: COMPR
>> Registro: 848
>> Filtro:
>> Relación:
>> Orden del índice: 5
>> Clave activa: 5
>>
>> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del
>> grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
>>> Estimado usuario de Xailer,
>>>
>>> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
>>> directamente desde los siguientes enlaces:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Un cordial saludo,
>>>
>>> [El equipo de Xailer]
>>>
>>> http://www.xailer.com
>>>
>>> --------------------------------------------
>>>
>>> Dear Xailer user,
>>>
>>> The new Xailer 1.1a is ready. You can download it from this
>>> links:
>>>
>>> http://www.xailer.info/files/public/xailer11.exe
>>> http://www.xailer.com/files/xailer11.exe
>>>
>>> Best regards,
>>>
>>> [Xailer team]
>>> http://www.xailer.com
>>>
>>>
>>
>>
>
>
--
Nueva versi
Pues un Bug del IDE !!!
Cuando a un Botón de una ToolBar le ponemos nombre en cVarName... al ejecutar lanza ese error
***************************** Registro de errores *****************************
Fecha: 25/10/2006
Hora: 14:29:56
Memoria libre: 608476
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TFRMREBUTSBANCARIS:_OBTNIMPRIMIR
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFRMREBUTSBANCARIS:CREATEFORM (339)
TFRMREBUTSBANCARIS:NEW (182)
XFRMREBUTSBANCARIS (23)
(b)TFRMMENU:FORMINITIALIZE (241)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (213)
TMENU:DOACTION (218)
TFRMMENU:WMCOMMAND (874)
RUNFORM (0)
TAPPLICATION:RUN (206)
MAIN (24)
Por lo visto pasa por alto la creación del Component oBtnImprimir, o sea se "olvida" de crear esta línea en la Clase constructora del Form
COMPONENT oBtnImprimir
Yo le añado la línea y funciona correctamente.
Es un pequeño Bug.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Estimado usuario de Xailer,
>
> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
> directamente desde los siguientes enlaces:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Un cordial saludo,
>
> [El equipo de Xailer]
>
> http://www.xailer.com
>
> --------------------------------------------
>
> Dear Xailer user,
>
> The new Xailer 1.1a is ready. You can download it from this
> links:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Best regards,
>
> [Xailer team]
> http://www.xailer.com
>
>
--
Cuando a un Botón de una ToolBar le ponemos nombre en cVarName... al ejecutar lanza ese error
***************************** Registro de errores *****************************
Fecha: 25/10/2006
Hora: 14:29:56
Memoria libre: 608476
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TFRMREBUTSBANCARIS:_OBTNIMPRIMIR
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFRMREBUTSBANCARIS:CREATEFORM (339)
TFRMREBUTSBANCARIS:NEW (182)
XFRMREBUTSBANCARIS (23)
(b)TFRMMENU:FORMINITIALIZE (241)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (213)
TMENU:DOACTION (218)
TFRMMENU:WMCOMMAND (874)
RUNFORM (0)
TAPPLICATION:RUN (206)
MAIN (24)
Por lo visto pasa por alto la creación del Component oBtnImprimir, o sea se "olvida" de crear esta línea en la Clase constructora del Form
COMPONENT oBtnImprimir
Yo le añado la línea y funciona correctamente.
Es un pequeño Bug.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Estimado usuario de Xailer,
>
> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
> directamente desde los siguientes enlaces:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Un cordial saludo,
>
> [El equipo de Xailer]
>
> http://www.xailer.com
>
> --------------------------------------------
>
> Dear Xailer user,
>
> The new Xailer 1.1a is ready. You can download it from this
> links:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Best regards,
>
> [Xailer team]
> http://www.xailer.com
>
>
--
Nueva versi
Otro detalle del IDE
Cuando Eliminamos un botón de una ToolBar, NO BORRA el evento OnClick ni su contenido !!!
Si eliminamos la ToolBar TAMPOCO elimina los Eventos OnClick de TODOS los botones contenidos.
Y si eliminamos la ReeBar TAMPOCO !!!
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> ha escrit al missatge del grup de discussió: [email=453f59f3@news.xailer.com...]453f59f3@news.xailer.com...[/email]
Pues un Bug del IDE !!!
Cuando a un Botón de una ToolBar le ponemos nombre en cVarName... al ejecutar lanza ese error
***************************** Registro de errores *****************************
Fecha: 25/10/2006
Hora: 14:29:56
Memoria libre: 608476
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TFRMREBUTSBANCARIS:_OBTNIMPRIMIR
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFRMREBUTSBANCARIS:CREATEFORM (339)
TFRMREBUTSBANCARIS:NEW (182)
XFRMREBUTSBANCARIS (23)
(b)TFRMMENU:FORMINITIALIZE (241)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (213)
TMENU:DOACTION (218)
TFRMMENU:WMCOMMAND (874)
RUNFORM (0)
TAPPLICATION:RUN (206)
MAIN (24)
Por lo visto pasa por alto la creación del Component oBtnImprimir, o sea se "olvida" de crear esta línea en la Clase constructora del Form
COMPONENT oBtnImprimir
Yo le añado la línea y funciona correctamente.
Es un pequeño Bug.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Estimado usuario de Xailer,
>
> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
> directamente desde los siguientes enlaces:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Un cordial saludo,
>
> [El equipo de Xailer]
>
> http://www.xailer.com
>
> --------------------------------------------
>
> Dear Xailer user,
>
> The new Xailer 1.1a is ready. You can download it from this
> links:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Best regards,
>
> [Xailer team]
> http://www.xailer.com
>
>
--
Cuando Eliminamos un botón de una ToolBar, NO BORRA el evento OnClick ni su contenido !!!
Si eliminamos la ToolBar TAMPOCO elimina los Eventos OnClick de TODOS los botones contenidos.
Y si eliminamos la ReeBar TAMPOCO !!!
Un Saludo,
Xevi.
"Xevi" <xevicomas@gmail.com> ha escrit al missatge del grup de discussió: [email=453f59f3@news.xailer.com...]453f59f3@news.xailer.com...[/email]
Pues un Bug del IDE !!!
Cuando a un Botón de una ToolBar le ponemos nombre en cVarName... al ejecutar lanza ese error
***************************** Registro de errores *****************************
Fecha: 25/10/2006
Hora: 14:29:56
Memoria libre: 608476
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.1.1 Version 1.1a
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Home Edition 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TFRMREBUTSBANCARIS:_OBTNIMPRIMIR
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
TFRMREBUTSBANCARIS:CREATEFORM (339)
TFRMREBUTSBANCARIS:NEW (182)
XFRMREBUTSBANCARIS (23)
(b)TFRMMENU:FORMINITIALIZE (241)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (213)
TMENU:DOACTION (218)
TFRMMENU:WMCOMMAND (874)
RUNFORM (0)
TAPPLICATION:RUN (206)
MAIN (24)
Por lo visto pasa por alto la creación del Component oBtnImprimir, o sea se "olvida" de crear esta línea en la Clase constructora del Form
COMPONENT oBtnImprimir
Yo le añado la línea y funciona correctamente.
Es un pequeño Bug.
Un Saludo,
Xevi.
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> ha escrit al missatge del grup de discussió: 453e2ab2$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Estimado usuario de Xailer,
>
> Ya está disponible la nueva versión de Xailer 1.1a. Puede descargarla
> directamente desde los siguientes enlaces:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Un cordial saludo,
>
> [El equipo de Xailer]
>
> http://www.xailer.com
>
> --------------------------------------------
>
> Dear Xailer user,
>
> The new Xailer 1.1a is ready. You can download it from this
> links:
>
> http://www.xailer.info/files/public/xailer11.exe
> http://www.xailer.com/files/xailer11.exe
>
> Best regards,
>
> [Xailer team]
> http://www.xailer.com
>
>
--