Efecto "pijama" en Txbrowse

[JoseLuis]

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

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

Ahora lo estoy intentando así:

Code: Select all  Expand view

   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

[Antonio Linares]

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

[JoseLuis]

Gracias

Saludos

Jose Luis

[AIDA]

Que es el efecto de papel "pijama"

para darle sueñito al xbrowse


deveritas que es ese efecto

Aida

[Armando]

Aida:

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

Saludos

[joseluisysturiz]

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...

[JoseLuis]

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

[Antonio Linares]

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 ) } ) }

[JoseLuis]

Antonio

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

El código completo del xbrowse es:

Code: Select all  Expand view

   @ 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

[Antonio Linares]

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

   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 ) } ) }


[JoseLuis]

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

[Antonio Linares]

Bien!