[ardent]

Всем привет! есть код:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState); begin   With TstringGrid(Sender) Do begin    If (gdSelected in State)and(ACol=Col)And(ARow=Row)  then   begin    Canvas.Brush.Color:= clRed ;   Canvas.FillRect(Rect);   Canvas.DrawFocusRect(Rect);    end   else  If (gdSelected in State)  then  begin   Canvas.Brush.Color:= clRed ;   Canvas.FillRect(Rect);   Canvas.DrawFocusRect(Rect);   Canvas.DrawFocusRect(Rect);  end; end;

Admin: Пользуемся тегами!

Выделенные ячейки закрашиваются в красный цвет.
1) Как сделать чтоб ячейки оставались закрашенными, после перехода в другую ячейку?
2) Как сделать исключение при закраске - при выделении красных ячеек они красятся в белый и наоборот