¿stringid como colorear celda o poner imagen?

[ecfisa]

Hola JXJ.

Podrías hacer:

Código Delphi [-]
...
const
   COLSTOCK = 5;  // Columna Stock
...
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  R: TRect;
  v: Double;
begin
  with TStringGrid(Sender) do
  begin
    if TryStrToFloat(Cells[ACol,ARow], v) then  // prevenir posible error de conversión
      if (ACol = COLSTOCK) and (ARow >= FixedRows) then
      begin
        if (v = 0) then    // v = 0 : Sin stock
        begin
          Canvas.Brush.Color:= clRed;
          Canvas.Font.Color:= clWhite;
        end
        else      // hay stock
        begin
          Canvas.Brush.Color:= clLime;
          Canvas.Font.Color:= clBlack;
        end;
        Canvas.FillRect(Rect);
        Canvas.TextOut(Rect.Left+1, Rect.Top+1, Cells[ACol,ARow]);
      end;
  end;
end;

Un saludo.