Foros Club Delphi - Color en Fila dbgrid

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

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

- - Color en Fila dbgrid (https://www.clubdelphi.com/foros/showthread.php?t=8910)

MITOPE

06-04-2004 04:28:28

Color en Fila dbgrid

Hola amigos:

Como puedo hacer para que la fila seleccionada en un dbgrid cambie de color

Gracias...

Onti	06-04-2004 04:51:47

Dale una mirada a este hilo: http://www.clubdelphi.com/foros/showthread.php?t=5455

MITOPE

06-04-2004 06:17:37

Cita:

Empezado por Onti

Dale una mirada a este hilo: http://www.clubdelphi.com/foros/showthread.php?t=5455

Esta bien con lo que dice ese hilo puedo pintar bajo una condicion , yo solo quiero pintar la fila seleccionada y conforme la recorra se vaya pintando la nueva fila y volviendo al color normal la anterior..

roman

06-04-2004 07:01:16

El hilo al que te refieres meciona como pintar una fila independientemente de condición o no. De ahí pasar a pintar una fila en otro tipo de situaciones no debe presentar mayores problemas.

Ahora bien, ¿a qué te refieres con "fila nueva"?

// Saludos

JavierB

06-04-2004 10:06:37

Hola, MITOPE.

Prueba este código a ver si te sirve

Código:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

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

var

  Num: Integer;

  R: TRect;

begin

  Num:=TStringGrid(DBGrid1).Row;

  R:=TStringGrid(DBGrid1).CellRect(DataCol,Num);

  if R.Top=Rect.Top then

    with DBGrid1 do

    begin

      if (gdFocused in State) then

        Canvas.Font.Color:=clWhite

      else

        Canvas.Font.Color:=clRed;

      Canvas.Font.Style:=[fsBold];

      DefaultDrawColumnCell(Rect,DataCol,Column,State);

    end;

end

Saludos, :cool:

La franja horaria es GMT +2. Ahora son las 18:04:14.