Página 1 de 1

browses en pijama

Publicado: Dom Mar 06, 2005 8:09 pm
por Fredy
Hola,
Tengo el siguiente código:
--------------------------------
METHOD DbBrowse2DrawRow(oSender, nRowPos) CLASS TForm1
IF ::oDbBrowse2:nKeyNo%2 == 0
::oDbBrowse2:nClrPane := clLtGray
ENDIF
RETURN nil
-------------------------------
Pues bien,
La primera lí­nea me sale con fondo blanco y todas las restantes en gris.
Cuando me muevo con el cursos abajo, se van poniendo blancas y grisis
alternas, pero cuando le doy inicio, de nuevo sale mal
Un saludico,
Fredy

browses en pijama

Publicado: Dom Mar 06, 2005 8:23 pm
por jfgimenez
Fredy,
Prueba con:
--------------------------------
METHOD DbBrowse2DrawRow(oSender, nRowPos) CLASS TForm1
IF ::oDbBrowse2:nKeyNo%2 == 0
::oDbBrowse2:nClrPane := clLtGray
ELSE
::oDbBrowse2:nClrPane := clWhite
ENDIF
RETURN nil
-------------------------------
--
Un saludo,
José F. Giménez

browses en pijama

Publicado: Dom Mar 06, 2005 8:53 pm
por Fredy
Vale, me lo perdono porque es fin de semana.
:)
Un saludico,
Fredy