StrinGrid se puede poner color a los datos

[ecfisa]

Empezado por CarlosAlberto

Estimados miembros: ¿en un stringgrid se puede colocar a los datos de una FILA o de una COLUMNA un color DISTINTO DEL NEGRO?

Hola CarlosAlberto.

Un ejemplo con TStringGrid:

Código Delphi [-]
...
implementation

var
  ColDraw: Integer = 1;
  RowDraw: Integer = 2;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if ACol = ColDraw then  // Pinta la columna indicada por la variable ColDraw
  // Si cambias la condición por: ARow = RowDraw, pintará la fila indicada
    with TStringGrid(Sender) do
    begin
      Canvas.Brush.Color:= clRed;  // color fondo
      Canvas.FillRect(Rect);
      Canvas.Font.Color:= clWhite; // color letra
      Canvas.TextOut(Rect.Left+1, Rect.Top+1, Cells[ACol,ARow]);
    end;
end;

Un saludo.