Lineas divisorias en xBrowse

[El Loco]

Antonio, a ver si podes sacarme esta incógnita.
Primero antes que todo felicitarte por el xBrowse. EXCELENTE !!! (Para que deje el WBrowse de Hernan )
Ahora la pregunta, se puede cambiar el color y grosor de las lineas divisorias (vertical y horizontal) además de las que propone las datas nRowDividerStyle y nColDividerStyle ???
Desde ya muchísimas gracias.

Un abrazo. El Loco

[El Loco]

Perdón que insista... pero es medio urgente.
Hay manera de cambia el colo de las lineas divisorias en xBrowse ???

Desde ya muchisimas gracias.
Un abrazo. El Loco

[jll-fwh]

Hola el loco:

A no ser que modifiques la clase TXBrowse no, pero lo tienes facil:

En el metodo adjust() y en la linea 769 en mi version, puedes modificar los PEN.

Code: Select all  Expand view  RUN

     ::hColPen := CreatePen( PS_SOLID, 1, CLR_BLACK )
 

::hColPen para las columnas y ::hRowPen para las filas.

Por ejemplo las lineas de las columnas en grosor 10 y color rojo.

Code: Select all  Expand view  RUN

     ::hColPen := CreatePen( PS_SOLID, 10, CLR_RED )
 

Y en las filas igual

Code: Select all  Expand view  RUN

     ::hRowPen := CreatePen( PS_SOLID, 10, CLR_RED )
 

Un saludo
JLL
fwh-jll@hotmail.es

[Bayron]

Hey Loco,

Yo te recomendaria que hicieras lo siguiente:

Crea dos nuevas Datas para la Clase:

Code: Select all  Expand view  RUN

DATA nSizePen INIT 1
DATA nColorPen INIT CLR_BLACK

Modifica las lineas que indica JLL:

Code: Select all  Expand view  RUN

::hColPen := CreatePen( PS_SOLID, ::nSizePen, ::nColorPen )
::hRowPen := CreatePen( PS_SOLID, ::nSizePen, ::nColorPen )

En tu programa ejecuta:

Code: Select all  Expand view  RUN

oBrowse:nSizePen := 5  //O el tamaño que quieras
oBrowse:nColorPen := CLR_RED  //O el color que quieras con nRGB()

De este modo, podras cambiarlas al color y tamaño que deseas y si no lo haces, no pasa nada y se pinta como esta ahora...

No he probado este codigo, pero deberia funcionar sin problemas tomando en cuenta que esa linea sea la unica que haya que modificar....

EDITADO:

[Antonio Linares]

Miguel Angel,

Te aportaron una muy buena solución, te sirvió ?

[El Loco]

Antonio, JLL y Bayron, gracias por las sugerencias.
Algo de eso ya había intentado.
Voy a probar creando las nuevas Datas y les comento, pero creo que así funcionaria bárbaro.
Nuevamente gracias.

Un abrazo. El Loco

[El Loco]

Antonio, aplique la sugerencia de Bayron, y funciona excelente.
Seria bueno que para el próxima versión lo puedas implementar para no estar modificando todos los meses.

Un abrazo y agradecimiento enorme a todos.
El Loco

[jll-fwh]

Correcto, con las prisas como siempre, no pense en ese momento en crear efectivamente unas nuevas DATAS. Perfecto Bayron.

Era un solucion rapida pero no pensada con claridad.

Un saludo
JLL
fwh-jll@hotmail.es

[Antonio Linares]

Miguel Angel,

Implementado para la próxima versión de FWH

* New: Class TXBrowse DATAs nSizePen, nColorPen to draw the column and rows lines as proposed in this
forums thread: viewtopic.php?p=119408#p119408 by JLL and Bayron!

[Bayron]

Como pedir no cuesta nada...
Crees que podrias incluir para colores en el BtnBmp:

Talvez aClrPrompts[] que contenga ColorActive, ColorMouseOver, ColorPressed, ColorDissabled o DATAS individuales para cada estado...

Inicializado como CLR_BLACK para que mantenga el mismo color actual, pero pueda ser parameterizado por nosotros...

Las lineas a cambiar las indico en:

http://forums.fivetechsupport.com/viewtopic.php?f=22&t=22328#p118911

Gracias....

[Bayron]

JLL, Yo no pude llegar a la conclucion sin tu respuesta...

Eso es lo que hace grande este foro, el que nos podamos ayudar entre todos...

[El Loco]

Gracias Antonio !!! Troesma de troesma !!!
Estuve viendo algunas modificaciones a esa excelente clase llamada xBrowse.
Cuando las pueda hacer andar, te las envio para ver si te interesa implementarlas.

Un gran abrazo. El Loco