FiveTech Software tech support forums

Buenas tardes amigos,

Al tratar de crear efecto pijama en un txbrowse, solo aparece en azul (la intencion es azul oscuro y azul claro, alternativamente). Aca dejo el codigo para que me apoyen:

#include 'fivewin.ch'
#include 'xbrowse.ch'

function Main()
LOCAL oDlg, oBrw, oFont
LOCAL aCol := ARRAY(2)

USE clientes
GO TOP

DEFINE DIALOG oDlg SIZE 440,240 PIXEL ;
TITLE 'XBrowse con TXBrowse'

oBrw := TXBrowse():New( oDlg )

WITH OBJECT oBrw
:nTop := 10
:nLeft := 2
:nBottom := 110 // 240/2 - 10
:nRight := 210 // 440/2 - 10

:nMarqueeStyle := MARQSTYLE_HIGHLROW // Con cursor de todo el renglón
:lColDividerComplete := (.F.) // (.T.) Mantiene siempre llena la pantalla
:lTransparent := .F.
:nHeaderHeight := 20 // Altura de los encabezados
:nRowHeight := 20 // Altura del renglón
:nHeaderLines := 1 // Número de líneas de encabezados
:nDataLines := 1 // Número de líneas de detalle
:nFooterHeight := 0 // Altura del footer
:nFooterLines := 1 // Número de líneas en el footer
:lFooter := (.F.) // (.T.) Sí queremos línea de footer
:lHScroll := (.T.) // Quitamos el scroll horizontal
//Aqui el Efecto Pijama
:bClrStd := { || If( oBrw:nArrayAt % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
END

oBrw:CreateFromCode()

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( oBrw:SetFocus(), .f. )

CLOSE clientes
return nil

Utiliza:

Code: Select all  Expand view

:bClrStd    := { || If( oBrw:KeyNo() % 2 == 0, ;
               { CLR_BLACK, RGB( 224, 236, 255 ) }, ;
               { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
 

PS: Puedes ver otros efectos en: \FWH\Samples\mallorca.prg

Me aparece en una ventana lo siguiente una vez hecho el cambio sugerido por Byron

ERROR BASE/1004 Message not found: TXBROWSE:KEYNO from Errorsys, line: 179,

El browser no se ejecuta, solo aceptar para abortar

Prueba esto:

Code: Select all  Expand view

oBrw:nClrPane:={|| IIF(DATOS->(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}
 

Manuel,

No hizo ningun efecto. Sigue sin aparecer la pijama

Compuin,

¿ Tienes algún indice abierto ?, si no no va a funcionar.

Atte.,

Lautaro Moreira

Ningun indice,

Tal como esta en el codigo al comienzo del post.

Hola,

Entonces prueba esto :

Code: Select all  Expand view

oBrw:nClrPane:={|| IIF(DATOS->(recno())%2==0,CLR_LGREEN,CLR_LGRAY)}
 

Atte.,

Lautaro Moreira

No hubo efecto tampoco.

Que estoy haciendo errado?

Compuin wrote:Me aparece en una ventana lo siguiente una vez hecho el cambio sugerido por Byron

ERROR BASE/1004 Message not found: TXBROWSE:KEYNO from Errorsys, line: 179,

El browser no se ejecuta, solo aceptar para abortar

Verifica:

Que tengas incluida RDD.LIB de (x)harbour...
Que la base de datos no este vacia...


Este es el codigo que produce el efecto pijama, aplicando el codigo que tu incluiste....

Aqui un ejemplo compilado...
http://www.mayapos.com/FiveWin/pijama.zip

Amigo Bayron,

Hice lo que sugeristes, compile y el resultado es esta imagen que anexo




Sera por la version de FWH que uso? es la FWH 6.12

The SETGET Method KeyNo was not implemented in the older versions like 6.12. Instead of oBrw:KeyNo, we may use Eval( oBrw:bKeyNo,,oBrw ) for older versions of XBrowse.

Using OrdKeyNo() works only for RDDs. Not useful while browsing arrays, recordsets, etc.
Using RecNo() works only for RDDs browsing in natural order, without setting to any index.

Using Eval( oBrw:bKeyNo,,oBrw ) works for Browsing all kinds of datasources.

It's works!

Ahora si funciona. Muchas gracias

Thanks Mr. RAO,

I will use this way instead for compatibility...

It worked in FWH10.2

Bayron wrote:Thanks Mr. RAO,

I will use this way instead for compatibility...

It worked in FWH10.2

My advice to all users of recent versions is to use oBrw:KeyNo.