Stringgrid DrawCell

[Hansa]

ungefähr so :

Delphi-Quellcode:

procedure Tfrm.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  inherited;
  if (ARow >= sgNr.FixedRows) and (ACol >= sgNr.FixedCols) then begin
    if sgNr.Cells [NeinSpalte,ARow] = 'N' then with Sender as TStringGrid do begin
      sgNr.Font.Color := clwhite;
      sgNr.Brush.Color := clRed;
    end
  end
end;