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