Resaltado de un registro en un xBrowse

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

[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

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

[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
 

[nageswaragunupudi]

I do not understand if this is what is required.

Code: Select all

   WITH OBJECT oBrw
      :nMarqueeStyle := 0
      :lRowBox       := .t.
      :CreateFromCode()
   END
 

[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]
 

[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)