topic-13349

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Efecto "pijama" en Txbrowse
Posted: Thu Oct 30, 2008 08:53 PM

Hola amigos

Estoy pasando mis aplicaciones a txbrowse, y ahora me encuentro con la duda de como poner el efecto de papel "pijama".

Con twbrowse lo hacía así:

Code: Select all Collapse

	oLbx:nClrPane:={||iIF((oLbx:cAlias)->(OrdKeyNo())%2==0,nRGB(242,247,252),nRGB(226,226,208))}

Ahora lo estoy intentando así:

Code: Select all Collapse

   oLbx:bClrStd := { ||{RGB ( 0, 0, 0), IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0,RGB (242,247,252),RGB (226,226,208) ) }}

Pero no se da por enterado.

Sabeis alguna forma?

Saludos

Jose Luis

--------------------------

Saludos

Jose Luis

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Efecto "pijama" en Txbrowse
Posted: Thu Oct 30, 2008 09:03 PM

Jose Luis,

En el IDE visual que estamos construyendo, lo hacemos de esta forma:

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

Pero es para un array, con lo que puedes cambiar esa expresión por la tuya

regards, saludos

Antonio Linares
www.fivetechsoft.com

JoseLuis

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Efecto "pijama" en Txbrowse
Posted: Thu Oct 30, 2008 09:42 PM

Gracias

Saludos

Jose Luis

--------------------------

Saludos

Jose Luis

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

HOLA
Posted: Fri Oct 31, 2008 01:10 AM

Que es el efecto de papel "pijama" :shock:

para darle sueñito al xbrowse :?: :?:

deveritas que es ese efecto

Aida

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Efecto "pijama" en Txbrowse
Posted: Fri Oct 31, 2008 01:31 AM

Aida:

Es para pintar un renglón de un color y el siguiente de otro color.
Alternar los colores.

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

joseluisysturiz

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: HOLA
Posted: Fri Oct 31, 2008 02:00 AM

AIDA wrote:Que es el efecto de papel "pijama"

para darle sueñito al xbrowse

deveritas que es ese efecto

Aida

Aida, es esto, nose porque el nombre de pillama, yo lo llamaria cebra...jeje...pero no se me durmio el xbrowse...

Dios no está muerto...

Gracias a mi Dios ante todo!

JoseLuis

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Efecto "pijama" en Txbrowse
Posted: Fri Oct 31, 2008 07:48 AM

No se que tendré mal al construir el código, pero sigue sin salirme.

Hago como me dice antonio, pero en lugar de array, al tratarse de DBF, hago oLbx:bClrStd := { || If( ( (oLbx:cAlias)->(OrdKeyNo()) % 2 ) == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) } , y nada, no se da por enterado.

Si le quito como Antonio el OrdkeyNo(), me da error ordkeycount.

Saludos

Jose Luis

--------------------------

Saludos

Jose Luis

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Efecto "pijama" en Txbrowse
Posted: Fri Oct 31, 2008 08:16 AM

Jose Luis,

Situa una traza para asegurarte de que pasa por ahí la ejecución de la aplicación:

oLbx:bClrStd := { || MsgBeep(), If( ( (oLbx:cAlias)->(OrdKeyNo()) % 2 ) == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }

regards, saludos

Antonio Linares
www.fivetechsoft.com

JoseLuis

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Efecto "pijama" en Txbrowse
Posted: Fri Oct 31, 2008 08:35 AM

Antonio

Si pongo el msgbeep(), suena el tambor, luego pasa.

El código completo del xbrowse es:

Code: Select all Collapse

   @ 30,0 XBROWSE oLbx ;
          COLUMNS "Fecha","Matricula","nconduc","Turno","Ruta","Gasoil","Salida","Llegada";
	  HEADER  "Fecha","Matricula","Conductor","Turno","Ruta","Gasoil","Km.Inicio","Km.Fin";
	  COLSIZES 60,60,210,20,200,60,60,60;
	  OF oDlg ALIAS cAlias ;
          ON LEFT DBLCLICK  (iif(!(aAlias[18])->(eof()) .and. Publicas:cAccesoM,(cTitulo:="Modificacion de Rutas ",Entalba(cTitulo,"M",aAlias,aoDbf),oLbx:Refresh()),.T.));
          AUTOSORT AUTOCOLS FOOTERS FASTEDIT LINES CELL
	oLbx:bKeyChar := { | nKey, nFlags | ;
              iif (nKey == 43 .or. nKey == 65 .or. nKey == 97,;
                          (entalba(cTitulo,"A",aAlias,aoDbf), oLbx:Refresh()), ),;
              iif (nKey == 66 .or. nKey == 98,;
                          (Borrar(aAlias[29],(aAlias[18])->ruta,'La Ruta: '),oLbx:UpStable(), oLbx:Refresh()), ),;
              iif (nKey == 77 .or. nKey == 109,  ;
                          (entalba(cTitulo,"M",aAlias,aoDbf),oLbx:Refresh() ), ) }
   oLbx:nMarqueeStyle := MARQSTYLE_HIGHLROW 
   oLbx:bClrStd := { || If( ( (oLbx:cAlias)->(OrdKeyNo()) % 2 ) == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) } 
   oLbx:lColDividerComplete := .F.
   oLbx:SetBackGround( oBrush )
   oLbx:CreateFromCode()
   oLbx:l2007  := (.T.) 
   oDlg:oClient := oLbx
   BtnBar( oDlg,oLbx,aAlias,aoDbf)
	    ACTIVATE WINDOW oDlg        ;
                 ON INIT oLbx:SetFocus() ;
                 ON PAINT ( oLbx:Refresh(),;
                            oLbx:nWidth:=oDlg:nWidth-10   ,;
                            oLbx:nHeight:=oDlg:nHeight-82);
                 MAXIMIZED;			   
                 VALID ((aAlias[29])-> ( Dbclosearea() ),(aAlias[26])-> ( Dbclosearea() ),;
		        (aAlias[10])-> ( Dbclosearea() ),oLbx:Close(),.t. )
return nil

Me está costando pasar todo a xbrowse

Saludos

Jose Luis

--------------------------

Saludos

Jose Luis

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Efecto "pijama" en Txbrowse
Posted: Fri Oct 31, 2008 08:39 AM

Jose Luis,

> Si pongo el msgbeep(), suena el tambor, luego pasa

Te refieres a que suena por un momento y luego deja de sonar ?

En tal caso, prueba a cambiar esas líneas al final:

Code: Select all Collapse

   oLbx:CreateFromCode() 
   oLbx:l2007  := (.T.) 
   oLbx:bClrStd := { || If( ( (oLbx:cAlias)->(OrdKeyNo()) % 2 ) == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }

regards, saludos

Antonio Linares
www.fivetechsoft.com

JoseLuis

Posts: 428

Joined: Thu Oct 19, 2006 12:28 PM

Efecto "pijama" en Txbrowse
Posted: Fri Oct 31, 2008 08:55 AM

Lo he arreglado

Primero, tenía un problemas con el Alias, y después cuando lo tenía solucionado, no me había dado cuenta que con tantas pruebas no había quitado

oLbx:SetBackGround( oBrush )

Gracias

Saludos

Jose Luis

--------------------------

Saludos

Jose Luis

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Efecto "pijama" en Txbrowse
Posted: Fri Oct 31, 2008 09:13 AM

Bien! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion