FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Resaltado de un registro en un xBrowse
Verhoven
Posts: 563
Joined: Sun Oct 09, 2005 07:23 PM
Resaltado de un registro en un xBrowse
Posted: Wed Jun 05, 2019 01:19 PM

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
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: Resaltado de un registro en un xBrowse
Posted: Wed Jun 05, 2019 02:41 PM
no es lo que solicitas pero te sirve algo as铆?



para la linea en rojo con una condici贸n

Code (fw): Select all Collapse
#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 (fw): Select all Collapse
 
oBrw:aCols[ 1]:bClrStd 聽 聽 聽 聽:= 聽{ || { nRGB(239,228,176), FRE_XBRWBACK } }


Espero de que sea de utilidad

Saludos
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Verhoven
Posts: 563
Joined: Sun Oct 09, 2005 07:23 PM
Re: Resaltado de un registro en un xBrowse
Posted: Wed Jun 05, 2019 03:43 PM

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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Resaltado de un registro en un xBrowse
Posted: Wed Jun 05, 2019 06:28 PM
Prueba con esto y dime si te funciona:
Code (fw): Select all Collapse
聽 聽 聽 :lRowBox 聽 聽 聽 聽 := .T.
聽 聽 聽 //:nColorBox 聽 聽 := CLR_RED
聽 聽 聽 :bClrStd 聽 聽 聽 聽 := { || { Rgb( 88, 88, 88 ), CLR_WHITE } }
聽 聽 聽 :bClrSelFocus 聽 聽:=  :bClrRowFocus 聽 聽:= :bClrStd
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Resaltado de un registro en un xBrowse
Posted: Thu Jun 06, 2019 02:04 AM
I do not understand if this is what is required.



Code (fw): Select all Collapse
   WITH OBJECT oBrw
      :nMarqueeStyle := 0
      :lRowBox       := .t.
      :CreateFromCode()
   END
Regards



G. N. Rao.

Hyderabad, India
Verhoven
Posts: 563
Joined: Sun Oct 09, 2005 07:23 PM
Re: Resaltado de un registro en un xBrowse
Posted: Thu Jun 06, 2019 02:46 PM
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 (fw): Select all Collapse
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
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Resaltado de un registro en un xBrowse
Posted: Thu Jun 06, 2019 11:23 PM

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)

Regards



G. N. Rao.

Hyderabad, India
Verhoven
Posts: 563
Joined: Sun Oct 09, 2005 07:23 PM
Re: Resaltado de un registro en un xBrowse
Posted: Mon Sep 13, 2021 04:33 PM
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
Posts: 563
Joined: Sun Oct 09, 2005 07:23 PM
Re: Resaltado de un registro en un xBrowse
Posted: Mon Sep 13, 2021 04:40 PM
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 (fw): Select all Collapse
    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

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions