Felder in Stringgrid färben

[sniper_w]

Delphi-Quellcode:

procedure TForm1.stringgrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  if matrix[acol,arow] = false then
    matrix[acol,arow] := true
  else matrix[acol,arow] := false;
end;

Hmm...Warum nicht so:

Delphi-Quellcode:

procedure TForm1.stringgrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  matrix[acol,arow] := not matrix[acol,arow];
end;