FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Lineas divisorias en xBrowse
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Lineas divisorias en xBrowse
Posted: Mon Sep 19, 2011 12:03 PM

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

FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Lineas divisorias en xBrowse
Posted: Mon Sep 19, 2011 08:28 PM

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

FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
jll-fwh
Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Re: Lineas divisorias en xBrowse
Posted: Tue Sep 20, 2011 03:18 AM
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 (fw): Select all Collapse
 聽 聽 聽::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 (fw): Select all Collapse
 聽 聽 聽::hColPen := CreatePen( PS_SOLID, 10, CLR_RED )


Y en las filas igual
Code (fw): Select all Collapse
 聽 聽 聽::hRowPen := CreatePen( PS_SOLID, 10, CLR_RED )


Un saludo
JLL
fwh-jll@hotmail.es
Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Lineas divisorias en xBrowse
Posted: Tue Sep 20, 2011 04:13 AM
Hey Loco,

Yo te recomendaria que hicieras lo siguiente:

Crea dos nuevas Datas para la Clase:
Code (fw): Select all Collapse
DATA nSizePen INIT 1
DATA nColorPen INIT CLR_BLACK


Modifica las lineas que indica JLL:
Code (fw): Select all Collapse
::hColPen := CreatePen( PS_SOLID, ::nSizePen, ::nColorPen )
::hRowPen := CreatePen( PS_SOLID, ::nSizePen, ::nColorPen )


En tu programa ejecuta:

Code (fw): Select all Collapse
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:

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Lineas divisorias en xBrowse
Posted: Tue Sep 20, 2011 05:01 AM

Miguel Angel,

Te aportaron una muy buena soluci贸n, te sirvi贸 ? :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Lineas divisorias en xBrowse
Posted: Tue Sep 20, 2011 12:22 PM

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

FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Lineas divisorias en xBrowse
Posted: Tue Sep 20, 2011 12:47 PM

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

FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC
jll-fwh
Posts: 408
Joined: Fri Jan 29, 2010 08:14 PM
Re: Lineas divisorias en xBrowse
Posted: Tue Sep 20, 2011 04:49 PM

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

Libreria: FWH/FWH1109 + Harbour 5.8.2 + Borland C++ 5.8.2
Editor de Recursos: PellecC
ADA, OURXDBU
S.O: XP / Win 7 /Win10
Blog: http://javierlloris.blogspot.com.es/
e-mail: javierllorisprogramador@gmail.com
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Lineas divisorias en xBrowse
Posted: Tue Sep 20, 2011 06:35 PM

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!
regards, saludos

Antonio Linares
www.fivetechsoft.com
Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Lineas divisorias en xBrowse
Posted: Tue Sep 20, 2011 08:07 PM
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 Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Lineas divisorias en xBrowse
Posted: Tue Sep 20, 2011 08:11 PM

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...

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

El Loco
Posts: 328
Joined: Fri May 19, 2006 04:08 PM
Re: Lineas divisorias en xBrowse
Posted: Wed Sep 21, 2011 09:26 PM

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

FWH 32/64 14.04

Harbour 3.2.0 (r1306211258)

PellesC

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions