TStringGrid, colorear UNA celda.

[TiammatMX]

Buena tarde, jóvenes delphineros:

Pues nada, resulta que tengo un TStringGrid, y requiero colorear UNA celda dependiendo de su contenido. Es decir, en ésa celda puede contener o no un texto específico (en éste caso, la palabra "sí"), en caso de estar presente ésta palabra, la celda deberá aparecer en color verde, caso contrario en su color "natural" (clWindow, clWindowText)..., ¿alguien podría colaborarme con un poco de código para solucionar éste asunto, por favor?

Agradeciendo de antemano.

[roman]

Usa el evento OnDrawCell del StringGrid.

// Saludos

[roman]

Ejemplo:

Código Delphi [-]
procedure TForm1.StringGrid1DrawCell(
  Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
    if Cells[ACol, ARow] = 'SÍ' then
    begin
      Canvas.Brush.Color := clGreen;
      Canvas.FillRect(Rect);
      Canvas.TextRect(Rect, Rect.Left + 2 ,Rect.Top + 2, Cells[ACol, ARow]);
    end;
end;

// Saludos

[TiammatMX]

Empezado por roman

Ejemplo:
...

¡¡Gracias, Román!! Muy instructivo y compacto (y me pesa decirlo por que no se me ocurrió), simple y sencillo.