Paco,
Para añadir una funcionalidad asi a FWH más usuarios deberÃan estar de acuerdo. No es una funcionalidad estandard de Windows y me gusta no añadirle cosas extra a FWH que lo hacen crecer y que algunas veces no son útiles para todos. Confio en que me entiendas 
Claro que si Antonio, te entiendo perfectamente.
Pero me parece que siempre hay una eterna disyuntiva: Esperar a que alguien lo pida u ofrecer mejoras sin que alguien las pida.
Sin la segunda opcion seria dificil que las cosas (=software) crecieran/ mejoraran.
Hola Antonio.
En lo personal, apoyo la idea de incluirlo en FW, ya que estamos utilizando en nuestras aplicaciones, algunas ideas parecidas cuando hacemos los GET's, para indicarle al usuario cual es el get activo, esta idea es mejor que la que hemos aplicado.
Saludos
que bonito control,
yo que no uso resources,
me viene de maravilla.
saludos..
ok,es mi opinión que para que fuera incluido en fwh deberÃan controles como combobox, buttons, radiobuttons tener esa misma funcionalidad ya que no se verÃa bien que solo un tipo de control tenga ese efecto.
Mi opinión es que esto solo es un "ejercicio de funcionamiento" . Está muy verde , no funciona bien con recursos , no funciona bien con fondos ni texturas en los diálogos, el cruce de los degradados en las esquinas es bastante evidente. Para incluirlo tendrÃa que funcionar en los demás controles también .
Estas cosas cambian rápido , este estilo de resaltado comienzo con macosx hace tiempo pero a dÃa de hoy Apple lo ha quitado por otro sin degradados ( como Microsoft en win8 que quita todo degradado existente ) .
Lo que mostraron es de una página web realizada en jQuery ( probablemente) y se hace con estilos css , lo que quiere decir que las funciones que lo realizan están dentro del motor de renderizado de los navegadores y cada uno realizará "su" degradado .
Para hacerlo mas correctamente ,tendrÃamos que usar el código inicial de Antonio ( el que coloca rectangulos que cambian de color ) pero en vez usar la funcion nRgb para los colores tendrÃa que ser una función nRGBA ( que no se si existe ) , ademas los degradados hacen unas "aguas" ( no son constantes ) , supongo que se podrÃa conseguir un código por internet que lo realice.
Dos cosas :
1.- Si interesa resaltar el get con foco ,tenemos ya el cambio de fondo, pero se podrÃa implementar un cambio de color de marco que lo haga mas evidente incluso con cambio de grosor de éste y serÃa mas fácil de implementar en todos los controles y al ser en la superficie del control no machacarÃa los fondos .
2.- Necesitamos una función nRGBA que nos permita realizar degradados a transparente mas fácilmente . Antoniooooo.... 
Manuel,
Tenemos que decidir si usar rectángulos (con esquinas redondeadas) ó degradados.
Y una vez decidamos eso, ver la opción de que sean transparentes y se mezclen con el fondo.
Si hacemos una función lo suficientemente genérica podriamos llamarla para cualquier control y entonces incluirla estandard (aunque opcional) en FWH.
Hola gente,
tener algo que ayude a resaltar el control activo de esa forma tan estética se ve fantástico.
Respecto de la implementación se me ocurren algunas ideas:
- Para no afectar el código existente, ¿Por que no crear una nueva clase? con un par de toques en los comandos y redefines se usa una u otra, sin perjuicio de lo que ya hay escrito.
- Los problemas de pintado vienen porque el area pintada pertenece al diálogo/windows y no al control, con lo que se afecta todo el diálogo.
¿Que opinais de tener un 'resaltador', un bitmap móvil, que se adapta al tamaño del control que queremos resaltar? Se pinta con canal alpha y los degradados, y hace el pintado independiente del control, con lo que valdrÃa también para otras clases distintas de la tGet TendrÃamos uno solo por Win/Dlg, se moverÃa 'debajo' del control que toma foco (o desaparecerÃa si el control no hace uso del resaltado), No habrÃa que modificar las clases existentes, o tal vez muy poco, disminuyendo el impacto sobre el código existente.
Bueno, esos son mis 2 cents.
function LightBorder( oGet,lfocus,lRounded )
local hDC := oGet:oWnd:GetDC()
local hBrush, hOldBrush, n
local aTopLeft, aBottomRight
local hPen1
local aRect := GetClientRect( oGet:hWnd )
local oGraphics := Graphics():New( hDC ) //Graphic-Object, High Quality is standard
local oPen
local nRed := nRGBRed( oget:ownd:nClrPane )
local nGreen := nRGBGreen( oget:ownd:nClrPane )
local nBlue := nRGBBlue( oget:ownd:nClrPane )
if lFocus
hPen1 = CreatePen( PS_SOLID, 1, nRGB( 102 , 175, 233 ) )
else
hPen1 = CreatePen( PS_SOLID, 1, nRGB( 180 , 180, 180 ) )
endif
SelectObject( hDC,hPen1)
aTopLeft = ClientToScreen( oGet:hWnd, { aRect[1], aRect[2] } )
aTopLeft = ScreenToClient( oGet:oWnd:hWnd, aTopLeft )
aBottomRight = ClientToScreen( oGet:hWnd, {aRect[3], aRect[4] } )
aBottomRight = ScreenToClient( oGet:oWnd:hWnd, aBottomRight )
SetBkMode( hDC , 1 )
if lRounded
RoundRect( hDC, aTopLeft[2]-4, aTopLeft[1]-2, aBottomRight[ 2 ]+3, aBottomRight[ 1 ]+2 , 7, 7 )
else
Rectangle( hDC, aTopLeft[1]-2, aTopLeft[2]-2, aBottomRight[ 1 ]+2, aBottomRight[ 2 ]+2 )
endif
DeleteObject( hpen1 )
for n = 1 to 10 // 10 es mejor
if lFocus
oPen := Pen():New( 255-n*25 , 214, 234, 249 , 1 , .T.)
else
oPen := Pen():New( 255 , nRed, nGreen, nBlue , 1 , .T.)
endif
open:setsize(1)
oGraphics:DrawRect( oPen, , aTopLeft[2]-n-4 , aTopLeft[1]-n-2, aBottomRight[ 2 ]- aTopLeft[2]+(n+3)*2 , aBottomRight[ 1 ]- aTopLeft[1]+ (n+2)*2 )
open:destroy()
next
oGraphics:destroy()
oGet:oWnd:ReleaseDC()
Return nilPara que no se pierda...Me interesa..
Gracias
Saludos.
Antonio Linares wrote:Manuel,
Tenemos que decidir si usar rectángulos (con esquinas redondeadas) ó degradados.
Y una vez decidamos eso, ver la opción de que sean transparentes y se mezclen con el fondo.
Si hacemos una función lo suficientemente genérica podriamos llamarla para cualquier control y entonces incluirla estandard (aunque opcional) en FWH.
João,
No
