Page 1 of 1
Resaltado de un registro en un xBrowse
Posted: Wed Jun 05, 2019 1:19 pm
by Verhoven
En un xBrowse, no doy con la forma de hacer un resaltado del registro seleccionado consistente en mantener los colores del texto y del fondo pero resaltando solo las dos líneas de separación horizontales y las dos de los extremos verticales a lo largo de todo el registro.
Lo he intentado con :bPaintText pero no lo consigo.
Agradecería que me echaran una mano.
Gracias.
Re: Resaltado de un registro en un xBrowse
Posted: Wed Jun 05, 2019 2:41 pm
by armando.lagunas
no es lo que solicitas pero te sirve algo así?
para la linea en rojo con una condición
Code: Select all
#define FRE_XBRWFORE nRGB(154,167,181)
#define FRE_XBRWBACK nRGB( 31, 32, 33)
...
...
oBrw:bClrStd := {|| IF( PASO->ESTA="N", { nRGB(255,128,128) , FRE_XBRWBACK }, { FRE_XBRWFORE, FRE_XBRWBACK } ) }
para la columna en amarillo
Code: Select all
oBrw:aCols[ 1]:bClrStd := { || { nRGB(239,228,176), FRE_XBRWBACK } }
Espero de que sea de utilidad
Saludos
Re: Resaltado de un registro en un xBrowse
Posted: Wed Jun 05, 2019 3:43 pm
by Verhoven
Eso lo tengo en uso. Lo que quiero es precisamente que repetando los colores de las celdas cuando una línea esté seleccionada se resalte todo su borde para que no se modifiquen los colores pero con ese resaltado del borde se identifique visual y rápidamente la línea seleccionada.
Re: Resaltado de un registro en un xBrowse
Posted: Wed Jun 05, 2019 6:28 pm
by cnavarro
Prueba con esto y dime si te funciona:
Code: Select all
:lRowBox := .T.
//:nColorBox := CLR_RED
:bClrStd := { || { Rgb( 88, 88, 88 ), CLR_WHITE } }
:bClrSelFocus := :bClrRowFocus := :bClrStd
Re: Resaltado de un registro en un xBrowse
Posted: Thu Jun 06, 2019 2:04 am
by nageswaragunupudi
I do not understand if this is what is required.
Code: Select all
WITH OBJECT oBrw
:nMarqueeStyle := 0
:lRowBox := .t.
:CreateFromCode()
END
Re: Resaltado de un registro en un xBrowse
Posted: Thu Jun 06, 2019 2:46 pm
by Verhoven
Mr. Nages.
Is what you show in the image you've sent, including the possibility to chose the color and width of the box.
But i'm affraid that I have an old version of FW becuse I´m get the next error:
Code: Select all
Application
===========
Path and name: c:\CLIWIN\FW\wintpv.exe (32 bits)
Size: 3,875,328 bytes
Compiler version: Harbour 3.2.0dev (r1412151448)
FiveWin Version: [b]FWH 15.01[/b]
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 06-06-19, 16:41:21
Error description: Error BASE/1005 [b] Message not found: TXBROWSE:LROWBOX[/b]
Re: Resaltado de un registro en un xBrowse
Posted: Thu Jun 06, 2019 11:23 pm
by nageswaragunupudi
Yes please.
oBrw:lRowBox is introduced in FWH1806.
We can specify the color and thickness by setting
1. oBrw:nColorBox := CLR_HRED
OR
2. oBrw:nColorBox := { nColor, nThichness }
OR
3. oBrw:nColorBox := oPen (or hPen)