Foros Club Delphi - Como enumerar filas de un DBGrid sin agregar otro campo

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

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

- - Como enumerar filas de un DBGrid sin agregar otro campo (https://www.clubdelphi.com/foros/showthread.php?t=27972)

Como enumerar filas de un DBGrid sin agregar otro campo

HOla
Mi necesidad es mostrar la enumeración de las filas de un dbGrid sin agregar un campo. Es decir que la enumeración sea parte de la grilla.

Saludos
Velia

Código Delphi [-]{+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  1. Crea una columna nueva en tu DBGrid sin campo asociado
  2. Renombra el titulo como: 'No'
  3. pon el siguiente codigo en el evento OnDrawColumncell
  4. Ahora tienes una bonita columna de numero de registro =:-)
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if DataSource1.DataSet.RecNo > 0 then
  begin
    if Column.Title.Caption = 'No' then
      DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
  end;
end;

Enumerar las filas como parte del DBGrid

Hola gracias por tu ayuda. Pero lo que yo necesito es enumerar las filas del DBGrid como parte de la misma grilla, es decir que los número de las filas se encuentren en la parte del indicador o puntero. Sin agregar un nuevo campo.

Es decir sin que tenga efecto propio y no de un campo calculado.

Otra pregunta: como puedo hacer para cambiar el color del indicador o puntero de la DBGrid ? (Me refiero a la flechita negra que marca la posición del registro)

Saludos
Velia