Foros Club Delphi - Filas de colores en un DBGRID

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Filas de colores en un DBGRID (https://www.clubdelphi.com/foros/showthread.php?t=4483)

Sinaloense

17-10-2003 00:58:28

Filas de colores en un DBGRID

Necesito código (No un componente), para poder crear un dbgrid con filas de dos colores, como las hojas de nómina o papel caramelo, gracias.

roman

17-10-2003 01:32:40

Usa el evento OnDrawColumnCell:

Código:

procedure TForm1.DBGrid1DrawColumnCell(

  Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  if not (gdSelected in State) then

  begin

    if Odd(Table1.RecNo) then

      DBGrid1.Canvas.Brush.Color := clYellow

    else

      DBGrid1.Canvas.Brush.Color := clGreen;

  end;



  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

Sólo reemplaza clYellow y clGreen por coores de tu agrado.

// Saludos

Sinaloense

17-10-2003 02:39:30

Funciono!!!!!!

Muchas gracias!!!!!!

La franja horaria es GMT +2. Ahora son las 07:24:04.