canvas.fillrect(rect); funktioniert nicht.

[Kroko1999]

Delphi-Quellcode:

var matrix : array [0..17,0..7] of boolean;

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

procedure TForm1.stringgrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  ARect: TRect; State: TGridDrawState);
begin
  //besser
  if matrix[acol,arow] then Stringgrid1.Canvas.brush.color:= clred
                       else stringgrid1.Canvas.brush.color:= clblack;
  stringgrid1.Canvas.fillrect(Arect); //genau das sollte jetzt klappen
end;