drawgrid: zelle einfärben

[Mr. Pink]

jo, danke, funktioniert gut, allerdings möchte ich, dass sobald man eine rot gefärbte zelle selektiert, diese wieder weiß wird.

hbs so versucht, geht aber nicht:

Delphi-Quellcode:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
 drawgrid1.Canvas.Brush.Color:=clred;
 if feld[acol,arow] then
 begin
  drawGrid1.Canvas.FillRect(Rect);
  feld[acol,arow]:=false;
 end;
 if gdselected in state then
 begin
  if feld[acol,arow] then
  begin
   feld[acol,arow]:=false;
   drawgrid1.Canvas.Brush.Color:=clwhite;
   drawgrid1.Canvas.FillRect(rect);
  end
  else
  begin
   feld[acol,arow]:=true;
   drawgrid1.Canvas.Brush.Color:=clred;
   drawgrid1.Canvas.FillRect(rect);
  end;
 end;
end;

wieso läuft das nicht? nur von rot nach weiß geht nicht, das andere schon!

thx, mr. pink