1:
2:
3:
4:
5:
6:
7:

procedure FillCellRed(ACol, ARow: Integer);
begin
  with Stringgrid.Canvas do begin
    Brush.Color:=RGB(255,0,0);
    FillRect(Stringgrid.CellRect(ACol,ARow));
  end;
end;					

1:

 Grid_Plan.Objects[cCol, cRow]:= TObject(ComboBox1.Canvas.Brush.Color); // Farbe an Zelle anhängen					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm1.Grid_PlanDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const cFormat = DT_SINGLELINE or DT_CENTER or DT_VCENTER;
var   cText: String;
begin
  with (Sender as TStringGrid) do begin
    cText:= Cells[ACol, ARow]; // Text der Zelle

    if (gdFixed in State) then begin // feste Zeile oder Spalte?

      Canvas.Brush.Color:= clBtnFace; // HintergrundFarbe
      Canvas.FillRect(Rect);  // Hintergrund zeichnen
      DrawEdge(Canvas.Handle, Rect, 4, 4 or 8); // Zeichnet 3D-Effekt (Up)
      DrawEdge(Canvas.Handle, Rect, 4, 1 or 2);

     end else begin // keine festen Zeilen

      if TColor(Grid_Plan.Objects[ACol, ARow]) = 0 then
        Canvas.Brush.Color:= clInfoBk
       else // Farbe aus dem angeh. Objekt übernehmen
        Canvas.Brush.Color:= TColor(Grid_Plan.Objects[ACol, ARow]);

      Canvas.FillRect(Rect);  // Hintergrund zeichnen
    end; // <> (gdFixed in State)
    DrawText(Canvas.Handle, PChar(cText), Length(cText), Rect, cFormat); // Textausgabe
  end; // with
end;