Stringgrid selected ändert Farbe

[Blup]

Wenn man nicht jede Änderung am Canvas einzeln zurücknehmen möchte:

Delphi-Quellcode:

procedure DrawCell(ACanvas: TCanvas; ARect: TRect; AColor: TColor; AText: string);
begin
  ACanvas.Brush.Color := AColor;
  ACanvas.TextRect(ARect, ARect.Left + 5, ARect.Top + 2, AText);
end;

procedure TFormMain.SG1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  SaveIndex: Integer;
begin
  if ARow = 0 then
  begin
    SaveIndex := SaveDC(SG1.Canvas.Handle);
    try
      DrawCell(SG1.Canvas, ARect, clRed, SG1.Cells[ACol, ARow]);
    finally
      RestorDC(SG1.Canvas.Handle, SaveIndex);
    end;
  end;
end;