Distinguir registros no consecutivos para alternar colores en dbgrid.
 

Que tal Colegas.

hace tiempo ando dando vueltas con el tema de Colorear de forma alternada de un dbgrid.

lo he hecho de maravilla manejando el evento DrawColumnCell

Pero el tema del post radica en que todos los métodos que he visto utilizan el RecordNumber, y dependiendo si este es par o impar colorea la fila correspondiente.
Eso funciona si los numeros de registros son consecutivos. las tablas tienen que ser secuenciales exactas para que funciona. Y hablando de sistemas que funcionen del lado del cliente eso torna muy lenta una aplicación de muchos registros.

A alguien se le ocurre una forma que no sea utilizar tecnologia cliente/servidor? y habilitar desde el lado del servidor la secuencialidad de la tabla.

Saludos y veremos que sale de aquí.

Lo normal de controlar si el registro actual es par o impar, además de cómodo, es muy eficiente. Y precisamente se hace el local con los registros devueltos.
O sea, que es eso precisamente lo que necesitas.

Eso es lo que vengo haciendo y quiero evitar. Traté de dejarlo en claro antes.

No quiero usar la propiedad Row del Tstringrid que hace referencia al valor del la propiedad DataSet.RecNo.
Y todo esto genera problemas cuando se tienen consecutivos varios registros pares o impares.
Esa es una de las cuestiones por la que generé este post.

¿Pero cómo lo quieres hacer?

Nose , busco alguna idea aunque sea descabellada para probar algo nuevo. Como vos bien decias, lo normal es tomar el numero de registro y comparar. Pero a nadie se le ocurrió plantearse ¿que pasa si por ej se eliminan algunos registros y quedan consecutivos pares o impares??.
Algo se debe poder hacer.

Hola amadis.

Código Delphi [-]
type
  TDBGridEx = class(TDBGrid);

procedure TForm1.DBGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  COLORS : array[Boolean] of TColor = (clYellow, clMoneyGreen);
begin
  with TDBGridEx(Sender as TDBGrid) do
  begin
    Canvas.Brush.Color := COLORS[Odd(Rect.Top div DefaultRowHeight)];
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Saludos :)

Todo eso está controlado con la "forma normal de hacerlo" ;)

Ecfisa, interesante el metodo.

No logré que funcione pero tomé este dato de referencia que me interesó.

COLORS[Odd(Rect.Top div DefaultRowHeight)

para adaptar a lo que uso que es el metodo normal que mencionabamos antes. Hay algunos detalles que resta pulir aun.

De hecho reemplazando el defaultrowheight por 18 funciona pero hay un detalle de pintado al recorrer los registros uno por uno, bajando de lo que se ve en la pantalla o bien subiendo. AL usar page down para navegar el grid no hay problemas.

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  COLORS : array[Boolean] of TColor = (clYellow, clMoneyGreen);
begin
  with DBGrid1 do
  begin
    Canvas.Brush.Color := COLORS[Odd(Rect.Top div 18)];
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Falta pulir esos detalles de refresco pero es prometedor ya que no utiliza el numero de registro.

Que problemas tienes con el RecNo del DBGrid, es un dato automático, si borras un registro el RecNo se actualizará automáticamente.

Código Delphi [-]
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
  COLORS : array[Boolean] of TColor = (clYellow, clMoneyGreen);
var
  DS: TDataSet;
begin
  DS := DBGrid1.DataSource.DataSet;
  with DBGrid1 do
  begin
    Canvas.Brush.Color := COLORS[((DS.RecNo mod 2) = 0)];
    DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Que problemas tienes con esto.

Un saludo.

Como expliqué en el post original. Para que funcione correctamente el dataset tiene que ser secuencial. Y tratandose de tablas extensas y trabajando todo del lado del cliente produce demoras.

Yo creo que se está hablando de cosas distintas y por eso no se entiende, el recno te devuelve siempre par o impar secuencialmente tengas los registros que tengas, porque es el orden que ocupa ese registro en el dataset, supongo que amadis se referirá a la clave principal de la tabla la cual puede quedar desordenada con respecto a esta clave y pueden haber valores pares juntos e impares. Digo yo.

Saludos.

Estimados, a ver si se entiende. NO QUIERO USAR LAS TABLAS SECUENCIALES, que es la condicion necesaria para tener todos los registros irdenados y que cada registro intercale uno par y otro impar. Ademas, si se cambian los indices en tiempo de ejecución o se filtra la tabla cambian los numeros de registro y el pintado queda hecho un desastre.

Acá hasta ahora el único que entendió lo que pretendía fue ECFISA y tiró un aporte que me ha servido y estoy tratando de optimizar ese código.

Si alguien quiere complicarse la vida tratando de pintar el dbgrig con filas alternadas SIN USAR los numeros de registros. Esa es tu oportunidad.

Sino, sigan utilizando los métodos que estan por varios lados del foro que funcionan bien. (en tablas secuenciadas).

Amigo, creo que quien no lo ha entendido eres tú :confused:

Quizá no comprendan lo que pido porque omití decir que trabajo con un motor de BD embebido de Sybase que no trabaja los registros de forma habitual secuencial como el viejo Ttable del BDE.
Este asigna los RecNo al crearse la tabla y luego si uno altera el orden con un cambio de indice o eliminando un registro los recno comienzan a quedar inservibles porque no son actualizados. Si quiero esta funcionalidad debo activar la propiedad Sequenced y de esa forma obtengo siempre un recno actualizado.

Gracias al comentario de Ecfisa logré lo que buscaba.

Saludos

Amigo Amadis, tengo un problema muy similar al tuyo, no se puede trabajar con el RecNo porque no funciona para algunas bases de datos, y además RecNo es -1 cuando se inserta o adiciona un nuevo registro y todo el dbgrid se decolora. He tratado de usar el método propuesto por Ecfisa, pero tengo unos inconvenientes al hacer hacer scroll con el teclado (que se puede corregir con el evento Scroll del dbGrid) y el scroll con el mouse, por favor, puedes compartir tu código o la forma como lograste lo que buscabas?

Hola CARLINCORTIS

Te cuaento que al final cuando encontré algo fabuloso, me pasé a delphi XE y ya no funcionó más. Lo que comento abajo funciona hasta delphi 2010. Por ahora estoy con XE5 pero no logré hacer que este método que te dejo funcione

Lo que conseguí fueron unas modificaciones de Mike Eberhart, que agregando algunas partes de código al DBGRID.pas lograba algo fabuloso, que el insertar un dbgrid en el form se haga automático el color alternado. Y te permitia que tu pintes el grid del color que quieras y el codigo busca para cada color, un alterno correspondiente en la misma gama de colores.

aqui deje unos links a la web del colega Mike donde están las instrucciones y modificaciones a la Unit dbgrid.pas.

una ves que modifiques la unit, debes guardar la unit modificada en la carpeta local del source de cada proyecto.


http://www.intersoftdevelopment.com/...20row%20colors

http://www.intersoftdevelopment.com/...%20row%20color

Supongo que ha dejado de funcionar desde los cambios que surgieron luego de delphi 2010 y con lo de las mutiples plataformas que ahora soporte. he probado renombrar la unit modificada como vcl.dbgrids pero no funciona.

Espero que sirva de alguna ayuda. Y si logras hacerlo funcionar en alguna version XE agradeceremos el comentario.