FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour No aparece Efecto Pijama (Solucionado)
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
No aparece Efecto Pijama (Solucionado)
Posted: Thu Jan 20, 2011 08:08 PM

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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: No aparece Efecto Pijama
Posted: Thu Jan 20, 2011 10:45 PM
Utiliza:


Code (fw): Select all Collapse
: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

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: No aparece Efecto Pijama
Posted: Fri Jan 21, 2011 01:26 PM

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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Manuel Aranda
Posts: 610
Joined: Wed Oct 19, 2005 08:20 PM
Re: No aparece Efecto Pijama
Posted: Fri Jan 21, 2011 06:58 PM
Prueba esto:
Code (fw): Select all Collapse
oBrw:nClrPane:={|| IIF(DATOS->(OrdKeyNo())%2==0,CLR_LGREEN,CLR_LGRAY)}
Un saludo,

Manuel



xH 1.2.3, FWH 23.07 32 bits, BC++ 7.4, xVerce CW 1.0, PellesC
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: No aparece Efecto Pijama
Posted: Fri Jan 21, 2011 07:21 PM

Manuel,

No hizo ningun efecto. Sigue sin aparecer la pijama :?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Lautaro
Posts: 337
Joined: Fri Oct 07, 2005 02:44 PM
Re: No aparece Efecto Pijama
Posted: Fri Jan 21, 2011 07:25 PM

Compuin,

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

Atte.,

Lautaro Moreira

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: No aparece Efecto Pijama
Posted: Fri Jan 21, 2011 07:44 PM

Ningun indice,

Tal como esta en el codigo al comienzo del post.

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Lautaro
Posts: 337
Joined: Fri Oct 07, 2005 02:44 PM
Re: No aparece Efecto Pijama
Posted: Fri Jan 21, 2011 07:47 PM
Hola,

Entonces prueba esto :
Code (fw): Select all Collapse
oBrw:nClrPane:={|| IIF(DATOS->(recno())%2==0,CLR_LGREEN,CLR_LGRAY)}


Atte.,

Lautaro Moreira
Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: No aparece Efecto Pijama
Posted: Fri Jan 21, 2011 07:52 PM

No hubo efecto tampoco.

Que estoy haciendo errado?

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: No aparece Efecto Pijama
Posted: Sat Jan 22, 2011 03:17 AM
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

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: No aparece Efecto Pijama
Posted: Sat Jan 22, 2011 03:26 PM
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

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: No aparece Efecto Pijama
Posted: Sat Jan 22, 2011 04:16 PM

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.

Regards



G. N. Rao.

Hyderabad, India
Compuin
Posts: 1276
Joined: Tue Dec 28, 2010 01:29 PM
Re: No aparece Efecto Pijama (Solucionado)
Posted: Sat Jan 22, 2011 04:42 PM

It's works!

Ahora si funciona. Muchas gracias

FWH 25.12

Harbour/Hbmk2

Microsoft Visual C++

MySql 8.0

Antigravity

Bayron
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: No aparece Efecto Pijama
Posted: Sat Jan 22, 2011 05:00 PM

Thanks Mr. RAO,

I will use this way instead for compatibility...

It worked in FWH10.2

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: No aparece Efecto Pijama
Posted: Sat Jan 22, 2011 06:31 PM
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.
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion

Static archive · New replies & topics via GitHub Discussions