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  Expand view  RUN

#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  Expand view  RUN

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  Expand view  RUN

      :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  Expand view  RUN

  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  Expand view  RUN

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)

[Verhoven]

Con la nueva versión de FWH 64 he intentado aplicar el resaltado de línea pero no lo hace bien. Cundo se va cambiando de línea con las teclas de cursor se queda el recuerdo del color del resaltado en las líneas. Cuando se hace con av.pg o re.pg lo hace bien e incluso corrige el pintado erroneo anterior.

Dejo una imagen:

[Verhoven]

Tampoco se ajusta la línea horizontal de abajo del resaltado al ancho de las celdas del xbrowse.
Adjunto detalle y código:



Código:

Code: Select all  Expand view  RUN

   bCondColor:={|| (cAliasART)->(fieldget(16))}
    WITH OBJECT oTbr
         :nRowDividerStyle:= LINESTYLE_LIGHTGRAY
         :nColDividerStyle:= LINESTYLE_LIGHTGRAY
         :nMarqueeStyle   := MARQSTYLE_HIGHLROW
         :aJustify:={.f.,.t.,.f.,.t.,.t.,.t.,.t.,.t.,.t.,.f.,.t.}
         :nfreeze:=3
         :nStretchCol:=STRETCHCOL_LAST
         :bClrStd := {|| {CLR_BLACK, iif(eval(bCondColor),;
                           nrgb(255,210,210),;
                           iif((cAliasART)->(ordkeyno())%2==0,ClrFlbxPar,ClrFlbxImp)) } }
         :lRowBox := .T.
         :bClrSelFocus := :bClrRowFocus := :bClrStd              
         :nColorBox:= {CLR_HBLUE, 1}                                        
    end